[Win32forth-cvs] win32forth-stc/demos HELLO.F,1.1,1.2

[Dirk B. <db...@us...>]

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