rem ' button.txt begin sysgui = unt open (sysgui)"X0" sysgui! = bbjapi().getSysGui() rem ' Image ImageManager! = sysgui!.getImageManager() openImage! = ImageManager!.loadImageFromServerJar("com/basis/bbj/images/open.gif") rem ' Dropdown menu dropdownMenu! = sysgui!.addPopupMenu() dropdownItem1! = dropdownMenu!.addMenuItem(-201,"Dropdown Item 1") dropdownItem1!.setCallback(dropdownItem1!.ON_POPUP_ITEM_SELECT,"dropdown") dropdownItem2! = dropdownMenu!.addMenuItem(-202,"Dropdown Item 2") dropdownItem2!.setCallback(dropdownItem2!.ON_POPUP_ITEM_SELECT,"dropdown") rem ' BBjWindow window! = sysgui!.addWindow(100,100,415,480,"Button Controls",$00090003$,$ffffffff$) window!.setToolTipText("BBjWindow") window!.setCallback(window!.ON_ACTIVATE,"event") window!.setCallback(window!.ON_CLOSE,"eoj") rem window!.setCallback(window!.ON_COLOR_CHANGE,"event") window!.setCallback(window!.ON_DEACTIVATE,"event") window!.setCallback(window!.ON_DOUBLE_CLICK,"event") window!.setCallback(window!.ON_KEYPRESS,"event") window!.setCallback(window!.ON_MINIMIZE,"event") window!.setCallback(window!.ON_MOUSE_DOWN,"event") window!.setCallback(window!.ON_MOUSE_ENTER,"event") window!.setCallback(window!.ON_MOUSE_EXIT,"event") window!.setCallback(window!.ON_MOUSE_MOVE,"event") window!.setCallback(window!.ON_MOUSE_SCROLL,"event") window!.setCallback(window!.ON_MOUSE_UP,"event") window!.setCallback(window!.ON_POPUP_REQUEST,"event") window!.setCallback(window!.ON_RESIZE,"event") window!.setCallback(window!.ON_RESTORE,"event") window!.setCallback(window!.ON_RIGHT_MOUSE_DOWN,"event") window!.setCallback(window!.ON_WINDOW_MOVE,"event") window!.setCallback(window!.ON_WINDOW_SCROLL,"event") window!.setCallback(window!.ON_WINDOW_GAINED_FOCUS,"event") window!.setCallback(window!.ON_WINDOW_LOST_FOCUS,"event") rem ' BBjButton control! = window!.addButton(101,10,10,125,25,"Open",$$) control!.setToolTipText("BBjButton (Text)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addButton(102,145,10,125,25,"Open",$$) control!.setImage(openImage!) control!.setToolTipText("BBjButton (Text+Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addButton(103,280,10,125,25,"",$$) control!.setImage(openImage!) control!.setToolTipText("BBjButton (Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register rem ' BBjToolButton control! = window!.addToolButton(104,10,40,125,25,"Open",$$) control!.setToolTipText("BBjToolButton (Text)") control!.setCallback(control!.ON_TOOL_BUTTON_PUSH,"toolbutton") gosub register control! = window!.addToolButton(105,145,40,125,25,"Open",$$) control!.setImage(openImage!) control!.setToolTipText("BBjToolButton (Text+Image)") control!.setCallback(control!.ON_TOOL_BUTTON_PUSH,"toolbutton") gosub register control! = window!.addToolButton(106,280,40,125,25,"",$$) control!.setImage(openImage!) control!.setToolTipText("BBjToolButton (Image)") control!.setCallback(control!.ON_TOOL_BUTTON_PUSH,"toolbutton") gosub register rem ' BBjToolButton (on/off) control! = window!.addToolButton(107,10,70,125,25,"Open",$0400$) control!.setToolTipText("BBjToolButton (On/Off, Text)") control!.setCallback(control!.ON_TOOL_BUTTON_PUSH,"toolbutton") gosub register control! = window!.addToolButton(108,145,70,125,25,"Open",$0400$) control!.setImage(openImage!) control!.setToolTipText("BBjToolButton (On/Off, Text+Image)") control!.setCallback(control!.ON_TOOL_BUTTON_PUSH,"toolbutton") gosub register control! = window!.addToolButton(109,280,70,125,25,"",$0400$) control!.setImage(openImage!) control!.setToolTipText("BBjToolButton (On/Off, Image)") control!.setCallback(control!.ON_TOOL_BUTTON_PUSH,"toolbutton") gosub register rem ' BBjMenuButton control! = window!.addMenuButton(110,10,100,125,25,"Open",$$) control!.setToolTipText("BBjMenuButton (Text)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addMenuButton(111,145,100,125,25,"Open",$$) control!.setImage(openImage!) control!.setToolTipText("BBjMenuButton (Text+Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addMenuButton(112,280,100,125,25,"",$$) control!.setImage(openImage!) control!.setToolTipText("BBjMenuButton (Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register rem ' BBjMenuButton control! = window!.addMenuButton(113,10,130,125,25,"Open",$4000$) control!.setToolTipText("BBjMenuButton (Text)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addMenuButton(114,145,130,125,25,"Open",$4000$) control!.setImage(openImage!) control!.setToolTipText("BBjMenuButton (Text+Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addMenuButton(115,280,130,125,25,"",$4000$) control!.setImage(openImage!) control!.setToolTipText("BBjMenuButton (Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register rem ' BBjMenuButton control! = window!.addMenuButton(116,10,160,125,25,"Open",$4000$) control!.setDropdownMenu(dropdownMenu!) control!.setToolTipText("BBjMenuButton (Text)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addMenuButton(117,145,160,125,25,"Open",$4000$) control!.setDropdownMenu(dropdownMenu!) control!.setImage(openImage!) control!.setToolTipText("BBjMenuButton (Text+Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register control! = window!.addMenuButton(118,280,160,125,25,"",$4000$) control!.setDropdownMenu(dropdownMenu!) control!.setImage(openImage!) control!.setToolTipText("BBjMenuButton (Image)") control!.setCallback(control!.ON_BUTTON_PUSH,"event") gosub register rem ' BBjCheckBox control! = window!.addCheckBox(119,10,190,125,25,"CheckBox",$0004$) control!.setToolTipText("BBjCheckBox") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register control! = window!.addCheckBox(120,145,190,125,25,"CheckBox",$0000$) control!.setToolTipText("BBjCheckBox") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register control! = window!.addCheckBox(121,280,190,125,25,"CheckBox",$0000$) control!.setToolTipText("BBjCheckBox") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register rem ' BBjRadioButton control! = window!.addRadioButton(122,10,220,125,25,"RadioButton",$0004$) control!.setToolTipText("BBjRadioButton") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register control! = window!.addRadioButton(123,145,220,125,25,"RadioButton",$0000$) control!.setToolTipText("BBjRadioButton") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register control! = window!.addRadioButton(124,280,220,125,25,"RadioButton",$0000$) control!.setToolTipText("BBjRadioButton") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register rem ' BBjRadioButton+BBjRadioGroup group! = window!.addRadioGroup() control! = window!.addRadioButton(125,10,250,125,25,"RadioButton",$0004$) group!.add(control!) control!.setToolTipText("BBjRadioButton+BBjRadioGroup") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register control! = window!.addRadioButton(126,145,250,125,25,"RadioButton",$0000$) group!.add(control!) control!.setToolTipText("BBjRadioButton+BBjRadioGroup") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register control! = window!.addRadioButton(127,280,250,125,25,"RadioButton",$0000$) group!.add(control!) control!.setToolTipText("BBjRadioButton+BBjRadioGroup") control!.setCallback(control!.ON_CHECK_ON,"event") control!.setCallback(control!.ON_CHECK_OFF,"event") gosub register rem ' Events events! = window!.addCEdit(100,10,280,395,160,$$,$0184$) events = 0, x$ = "" rem ' Enable/Disable edgroup! = window!.addRadioGroup() control! = window!.addRadioButton(128,10,450,125,25,"Enable all buttons",$0004$) edgroup!.add(control!) control!.setToolTipText("Enable all buttons") control!.setCallback(control!.ON_CHECK_ON,"enable") control! = window!.addRadioButton(129,145,450,125,25,"Disable all buttons",$0000$) edgroup!.add(control!) control!.setToolTipText("Disable all buttons") control!.setCallback(control!.ON_CHECK_ON,"disable") process_events eoj: release register: control!.setCallback(control!.ON_GAINED_FOCUS,"event") control!.setCallback(control!.ON_LOST_FOCUS,"event") control!.setCallback(control!.ON_MOUSE_ENTER,"event") control!.setCallback(control!.ON_MOUSE_EXIT,"event") control!.setCallback(control!.ON_POPUP_REQUEST,"event") control!.setCallback(control!.ON_RIGHT_MOUSE_DOWN,"event") return enable: for id=101 to 127 window!.getControl(id).setEnabled(1) next id return disable: for id=101 to 127 window!.getControl(id).setEnabled(0) next id return event: e! = sysgui!.getLastEvent() e$ = str(e!), p=pos("@"=e$); if p then e$=e$(1,p-1) c! = e!.getControl() c$ = str(c!), p=pos("@"=c$); if p then c$=c$(1,p-1) events = events + 1 event$ = str(events)+" "+c$+" "+str(c!.getID())+" "+e$+" "+x$ events!.addParagraph(-1,event$) events!.highlight(-1,0,-1,0) x$ = "" return toolbutton: e! = sysgui!.getLastEvent() x$ = x$+iff(e!.isControlDown(),"CTRL ","") x$ = x$+iff(e!.isShiftDown(),"SHIFT ","") x$ = x$+iff(e!.isSelected(),"ON ","OFF ") x$ = x$+" button="+str(e!.getMouseButton()) gosub event return popup: gosub event return dropdown: gosub event return