sysgui = unt open (sysgui)"X0" sysgui! = bbjapi().getSysGui() font! = sysgui!.makeFont("Courier New",14,0) window! = sysgui!.addWindow(100,100,200,200,"InputD",$00010003$) input1! = window!.addInputD(101,10,10,180,30) input1!.setCallback(input1!.ON_GAINED_FOCUS,"focus") input1!.setCallback(input1!.ON_LOST_FOCUS,"blur") input1!.setFont(font!) input1!.setToolTipText(stbl("!LOCALE")+" = "+input1!.getMask()) locale$ = stbl("!LOCALE","de_DE") input2! = window!.addInputD(102,10,50,180,30) input2!.setCallback(input2!.ON_GAINED_FOCUS,"focus") input2!.setCallback(input2!.ON_LOST_FOCUS,"blur") input2!.setFont(font!) input2!.setToolTipText(stbl("!LOCALE")+" = "+input2!.getMask()) locale$ = stbl("!LOCALE","sv_SE") input3! = window!.addInputD(103,10,90,180,30) input3!.setCallback(input3!.ON_GAINED_FOCUS,"focus") input3!.setCallback(input3!.ON_LOST_FOCUS,"blur") input3!.setFont(font!) input3!.setToolTipText(stbl("!LOCALE")+" = "+input3!.getMask()) input1!.focus() locale$ = stbl("!LOCALE","en_US") button! = window!.addButton(1,10,130,180,30,"Touch an inputd",$$) button!.setCallback(button!.ON_BUTTON_PUSH,"click") window!.setCallback(window!.ON_CLOSE,"eoj") process_events eoj: release click: id = 101 + rnd(3) text$ = ctrl(sysgui,id,1) print (sysgui)'title'(id,text$) return focus: event! = sysgui!.getLastEvent() print event!.getControl().getID()," gained focus" return blur: event! = sysgui!.getLastEvent() print event!.getControl().getID()," lost focus" return