Update of /cvsroot/win32forth/win32forth-stc/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28554/demos
Modified Files:
HELLO.F
Log Message:
Hello.f ported.
Index: HELLO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/demos/HELLO.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HELLO.F 9 Oct 2006 15:15:34 -0000 1.1
--- HELLO.F 9 Oct 2006 19:09:09 -0000 1.2
***************
*** 89,108 ****
;
! \ 0 VALUE _hWnd \ this name works !!!
! \
! \ : DEMO ( -- )
! \ REGISTER-CLASS 0= IF CR ." register class failed " THEN
! \ CREATE-HELLO-WINDOW TO _hWnd
! \ _hWnd 0= ABORT" create window failed"
! \ 1 _hWnd Call ShowWindow DROP
! \ _hWnd Call UpdateWindow DROP
! \ ;
! \
! \ : CLEANUP ( -- )
! \ _hWnd Call DestroyWindow DROP
! \ AppInst AppName Call UnregisterClass DROP ;
- variable hWnd \ this name doesn't work !!!
- \
: DEMO ( -- )
REGISTER-CLASS 0= IF CR ." register class failed " THEN
--- 89,94 ----
;
! 0 VALUE hWnd
: DEMO ( -- )
REGISTER-CLASS 0= IF CR ." register class failed " THEN
***************
*** 112,116 ****
hWnd Call UpdateWindow DROP
;
! \
: CLEANUP ( -- )
hWnd Call DestroyWindow DROP
--- 98,102 ----
hWnd Call UpdateWindow DROP
;
!
: CLEANUP ( -- )
hWnd Call DestroyWindow DROP
|
