; ; Author: ; Date: OpenWindow(1,200,200,400,200,#PB_WINDOW_SystemMenu,"") CreateGadgetList(WindowID()) hString1 = StringGadget(1,10,10,300,20,"") ; AddKeyboardShortcut(1,#PB_Shortcut_Return,111) ; Repeat Select WaitWindowEvent() Case #PB_EventCloseWindow End Case #PB_EventMenu Select EventMenuID() Case 111 If GetFocus_() = hString1 MessageRequester("","StringGadget 1",0) SetFocus_(hString1) EndIf EndSelect Case #PB_EventGadget ; ... EndSelect ForEver ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF