: 顯示訊息 ( 標題字串置放位置 長度 訊息置放位置 長度 --- )

                temp$ place
                temp$ +NULL
                MB_TASKMODAL rot rot
                2dup + 0 swap c! drop  rel>abs
                temp$ 1+ rel>abs
                NULL Call MessageBox drop
                ;






:OBJECT RadioBox <SUPER WINDOW
     GroupControl Group_1    \ a frame around a group
     RadioControl Radio_1    \ a radio button
     RadioControl Radio_2    \ another radio button
	1 CONSTANT RD1
	2 CONSTANT RD2
: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

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

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

:M Close:       ( -- )
                Close: SUPER
                ;M

:M On_Init:     ( -- )
  		RD1   SetID: Radio_1
                self                Start: Radio_1
                100 75 130 20        Move: Radio_1
                s" Hello Again 1" SetText: Radio_1
                WS_GROUP           +Style: Radio_1 \ Start a group
                
		RD2   SetID: Radio_2
                self                Start: Radio_2
                100 95 130 20        Move: Radio_2
                BS_CENTER          +Style: Radio_2 \ and centering
                s" Hello Again 2" SetText: Radio_2

                self                Start: Group_1
                90 55 140 70         Move: Group_1
                s" Radios"        SetText: Group_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
		RD1    of      2drop s" Radio" s" select Radio1" 顯示訊息      endof
  		RD2	of    2drop s" Radio" s" select Radio2"  顯示訊息       endof
  endcase
  	 
        0 ;M

;OBJECT

: DEMO          ( -- )
	Start: RadioBox       
         ;

.( Type DEMO to run the dialog demo. )

demo