'### Example: COMBO & FRAME Terry Becker SunBurnt Oct. 7, 2012 INCLUDE "/usr/share/BaCon/hug.bac",INIT,DISPLAY,WINDOW,COMBO,MARK,FRAME, \ ATTACH,CALLBACK,SET,TEXT,GRAB$ INIT SUB SET_CHOICE '######### GRAB gets the Combo selection and TEXT puts it in the MARK (label). TEXT(lbl_, GRAB$(cbo_)) END SUB win_ = WINDOW(" Combo Test", 200, 120) frm_ = FRAME(180, 100) : ATTACH(win_, frm_, 10, 10) TEXT(frm_, " Combo Frame ") lbl_ = MARK("", 80, 25) : ATTACH(win_, lbl_, 50, 30) cbo_ = COMBO("", 80, 25) : ATTACH(win_, cbo_, 50, 70) : CALLBACK(cbo_, SET_CHOICE) '########### Fill the COMBO items. FOR i = 1 TO 5 TEXT(cbo_, CONCAT$("Item #", STR$(i))) NEXT '########### Sets the selected COMBO item. SET(cbo_, 1) '########### Call the SUB to set the default COMBO item into the MARK. SET_CHOICE DISPLAY