rem ' fontchooser.txt sysgui = unt open (sysgui)"X0" sysgui! = bbjapi().getSysGui() fonts! = sysgui!.getSystemMetrics().getFontFamilies() width = 300, height = 300 window! = sysgui!.addWindow(100,100,width+50,height+100,"BBjFontChooser",$00090083$) window!.setCallback(window!.ON_CLOSE,"eoj") window!.setCallback(window!.ON_RESIZE,"resize") font! = sysgui!.makeFont(fonts!.get(rnd(fonts!.size())),rnd(72),rnd(4)) chooser! = window!.addFontChooser(101,25,25,width,height,font!) chooser!.setApproveButtonText("&Yes") chooser!.setCancelButtonText("&No") rem chooser!.setBackColor(bbjapi().makeColor(222,222,222)) chooser!.setCallback(chooser!.ON_FONTCHOOSER_CHANGE,"change") chooser!.setCallback(chooser!.ON_FONTCHOOSER_APPROVE,"approve") chooser!.setCallback(chooser!.ON_FONTCHOOSER_CANCEL,"cancel") chooser!.setCallback(chooser!.ON_GAINED_FOCUS,"event") chooser!.setCallback(chooser!.ON_LOST_FOCUS,"event") chooser!.setCallback(chooser!.ON_MOUSE_ENTER,"event") chooser!.setCallback(chooser!.ON_MOUSE_EXIT,"event") rem chooser!.setCallback(chooser!.ON_POPUP_REQUEST,"event") rem chooser!.setCallback(chooser!.ON_RIGHT_MOUSE_DOWN,"event") button! = window!.addButton(1,width+25-80,height+50,80,21,"Set Font",$$) button!.setCallback(button!.ON_BUTTON_PUSH,"font") process_events eoj: release resize: event! = sysgui!.getLastEvent() chooser!.setSize(event!.getWidth()-50,event!.getHeight()-100) button!.setLocation(event!.getWidth()-80-25,event!.getHeight()-50) return font: font! = sysgui!.makeFont(fonts!.get(rnd(fonts!.size())),rnd(72),rnd(4)) print "setSelectedFont ",font! chooser!.setSelectedFont(font!) return change: event! = sysgui!.getLastEvent() event$ = event!.toString(), event$ = event$(1,pos("@"=event$)-1) print event$,": ",event!.getFont() return approve: event! = sysgui!.getLastEvent() event$ = event!.toString(), event$ = event$(1,pos("@"=event$)-1) print event$,": ",event!.getFont() return cancel: event! = sysgui!.getLastEvent() event$ = event!.toString(), event$ = event$(1,pos("@"=event$)-1) print event$ return event: event! = sysgui!.getLastEvent() event$ = event!.toString(), event$ = event$(1,pos("@"=event$)-1) control! = event!.getControl() control$ = control!.toString(), control$ = control$(1,pos("@"=control$)-1) print control$," ",event$ return