; English forum: 
; Author: Unknown  (updated for PB4.00 by blbltheworm)
; Date: 22. June 2003
; OS: Windows
; Demo: No

OpenWindow(1,200,200,400,200,"",#PB_Window_SystemMenu) 
   CreateGadgetList(WindowID(1)) 
   hString1 = StringGadget(1,10,10,300,20,"",#PB_String_Numeric) 
; 
AddKeyboardShortcut(1,#PB_Shortcut_Return,111) 
; 
Repeat 
   Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow 
        End 
      Case #PB_Event_Menu 
        Select EventMenu() 
          Case 111 
            Select GetFocus_() 
              Case hString1 
                MessageRequester("","StringGadget 1",0) 
            EndSelect 
        EndSelect 
      Case #PB_Event_Gadget 
        ; ... 
   EndSelect 
ForEver

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; EnableXP