anew 鍵盤視窗
	256 value	WindowSize_W
	256	value	WindowSize_H
	256 value	WindowPosition_X
	256	value	WindowPosition_Y

	create a1$ 256 allot

	ColorObject TheNextColor	\ 使用 顏色物件

:Object 鍵盤     <Super Window	\ 宣告 鍵盤


	: 顏色變更 ( R G B --- )
        rgb NewColor: TheNextColor
        TheNextColor ?ColorCheck
				LineColor: dc
        ;
        
		:M StartSize:   ( -- w h )      \ 此物件的大小
				WindowSize_W WindowSize_H
        ;M

		:M StartPos:    ( -- x y )      \ 物件在 桌面的位置
				WindowPosition_X WindowPosition_Y
                	;M

		:M WindowTitle: ( -- Zstring )  \ 此物件的標題
                	z" 鍵盤"
                	;M

		:M On_Paint:    { \ temp$ -- }  \ all window refreshing is done by On_Paint:

				 255 255 0 顏色變更

 							\	WindowPosition_X 50 +
 							\	WindowPosition_Y 50 +
								a1$ count  TextOut: dc
						
				;M

		:M On_Init:     ( -- )          \ things to do at the start of window creation
                	On_Init: super             \ do anything superclass needs
                	;M
           
	:M WM_KEYDOWN   ( h m w l -- res )
		hex
		0 	a1$ !
        
        s" scankey: " a1$ +place     
        0 <# # # # # # # # # #> a1$ +place
        s" ascii: " a1$ +place
		0 <# # # # #  # # # # #> a1$ +place
				
			 Paint: self	
	
                0 ;M              
;Object


\ -----------------------------------------------------------------------
	: end-demo        ( -- )                  \ close the demo window
                Close: 鍵盤 ;

	: demo  ( -- )                  \ start running the demo program
        	Start: 鍵盤
        	;

	demo