defer 訊息輸入處理
	
:OBJECT EditSample <SUPER WINDOW
      EditControl Edit_1     \ an edit window
    ButtonControl Button_1   \ a button

:M ClassInit:   ( -- )
                ClassInit: super
                ;M

:M ExWindowStyle: ( -- style )
                ExWindowStyle: SUPER
                ;M

:M WindowStyle: ( -- style )
                WindowStyle: SUPER
                WS_BORDER OR
                WS_OVERLAPPED OR
                ;M

:M WindowTitle: ( -- title )  \ z" 輸入訊息"  ;M
				temp$ +NULL
				temp$
                ;M
               

:M StartSize:   ( -- width height )
                300 350 ;M

:M StartPos:    ( -- x y )
                30 30 ;M

:M Close:       ( -- )
                GetText: Edit_1  temp$ place
				訊息輸入處理
                Close: SUPER
                ;M

:M On_Init:     ( -- )
			\	ID_edit                SetID: Edit_1
                self                Start: Edit_1
                3 72  160 25          Move: Edit_1 ( x y w h )
                s" 00000"        SetText: Edit_1

                IDOK                SetID: Button_1
                self                Start: Button_1
                126 172 70 25        Move: Button_1
                s" OK"            SetText: Button_1
                                 GetStyle: Button_1
                BS_DEFPUSHBUTTON   +Style: Button_1
                ;M

:M On_Paint:    ( -- )          \ screen redraw procedure
                0 0 StartSize: self LTGRAY FillArea: dc
                ;M

:M WM_COMMAND   ( hwnd msg wparam lparam -- res )
        over LOWORD ( ID )
        case
                IDOK            of Close: self          endof

        endcase
        0 ;M

;OBJECT

	: 訊息輸入	( 標題adr 標題len --- adr len )
		temp$ place
		Start: EditSample  
		cls
		."  請按任意鍵....     " cr
		wait	\ 用來等待及同步windows & win32forth
 		temp$ count type
 
 		; 
 		

\ ' 用者訊息處理 is 訊息輸入處理 	


 : demo
	s"  223"  訊息輸入
	;
	
demo