;{ Windows 
Enumeration 
  #Window_0 
EndEnumeration 
;} 
;{ Gadgets 
Enumeration 
  #String_0 
EndEnumeration 
;} 

;} 
Procedure EditWndProc_HEX_CB(hwnd, msg, wParam, lParam) 
  Protected *Func 
  *Func = GetWindowLongPtr_(hWnd, #GWL_USERDATA) 
  If  msg=258 
    If wParam=46 Or wParam=13 Or wParam=8 
    ElseIf (wParam<'a' Or wParam>'z') And (wParam<'A' Or wParam>'Z') 
      msg = 0 
      MessageBeep_(#MB_ICONQUESTION) 
    EndIf 
  EndIf 
  ProcedureReturn CallWindowProc_(*Func,hwnd, msg, wParam, lParam) 
EndProcedure

Procedure OpenWindow_Window_0() 
  If OpenWindow(#Window_0, 572, 199, 200, 84, "", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered) 
    hWnd=StringGadget(#String_0, 20, 15, 170, 20,"") 
    SetWindowLongPtr_(hWnd,#GWL_USERDATA, SetWindowLongPtr_(hWnd,#GWL_WNDPROC, @EditWndProc_HEX_CB())) 
  EndIf 
EndProcedure 

OpenWindow_Window_0() 

;{- Event loop 
Repeat 
  Event = WaitWindowEvent() 
Until Event = #PB_Event_CloseWindow
; 
;}