[Win32forth-cvs] win32forth-stc/Templates MinimalWindow.f, NONE, 1.1

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/Templates
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16019

Added Files:
	MinimalWindow.f 
Log Message:
Jos: Now it works thanks to George

--- NEW FILE: MinimalWindow.f ---
\ Needs NoConsole.f
Needs Window.f
Needs Menu.f
Needs Resources.f

Anew -MinimalWindow.f   \ With a start of a menubar

false value turnkey?

:Object MinimalWindow   <Super Window

:M On_Init:             ( -- )                    On_Init: super        ;M
:M ClassInit:           ( -- )                  ClassInit: super        ;M
:M WindowStyle:         ( -- style )   WindowStyle: Super  WS_CLIPCHILDREN or ;M
:M ParentWindow:        ( -- hwndParent | 0=NoParent )    parent        ;M
:M SetParent:           ( hwndparent -- )       to parent               ;M
:M WindowHasMenu:       ( -- f )                true                    ;M
:M WindowTitle:         ( -- ztitle )           z" Minimal window"      ;M
:M StartSize:           ( -- width height )     screen-size >r 2/ r> 2/ ;M
:M StartPos:            ( -- x y )              CenterWindow: Self      ;M
:M Close:               ( -- )                  Close: super            ;M

:M On_Done:             ( -- )
                        Close: self
                        0 call PostQuitMessage drop
                        On_Done: super 0
                ;M

:M msgBox: ( z$menu z$text - ) swap MB_OK   MessageBox: Self drop       ;M

;Object

MENUBAR ApplicationBar
    POPUP "File"
        MENUITEM        "Exit"          Close: MinimalWindow    ;
    POPUP "Help"
        MENUITEM        "Info"
                        z" Info"
                        z" A template for a \nminimal window."
                        msgBox: MinimalWindow                   ;
ENDBAR

: Minimal
   start: MinimalWindow
   ApplicationBar SetMenuBar: MinimalWindow
\   turnkey?
\      IF   MessageLoop bye
\      THEN
 ;

turnkey? [if]
        NoConsoleIO  NoConsoleInImage
        ' Minimal turnkey MinimalWindow.exe
        s" WIN32FOR.ICO" s" MinimalWindow.exe" AddAppIcon
        1 pause-seconds bye
[else]  Minimal
[then]

\s