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

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

Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6495/demos

Modified Files:
	WINHELLO.F 
Log Message:
Changed WinHello to show some better WM_PAINT handling.

Index: WINHELLO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/WINHELLO.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WINHELLO.F	21 Dec 2004 00:18:53 -0000	1.1
--- WINHELLO.F	8 Jan 2006 09:43:13 -0000	1.2
***************
*** 18,44 ****
                  ;M
  
! :M WindowTitle: ( -- Zstring )          \ window caption
                  z" Hello World"
                  ;M
  
  :M On_Paint:    { \ temp$ -- }  \ all window refreshing is done by On_Paint:
  
!                 \ get the Client area of the window and fill it black
!                 AddrOf: wRect GetClientRect: self
!                 black AddrOf: wRect FillRect: dc
  
!                 \ set the backgroundcolor for text to black
!                 black SetBkColor: dc
!                 \ and set the Textcolor to green
!                 green SetTextColor: dc
  
!                 MAXSTRING LocalAlloc: temp$
!                 s" Repainted "        temp$  place
!                 counter (.)           temp$ +place
!                 s"  times"            temp$ +place
!                 20 ( x ) 50 ( y )     temp$  count TextOut: dc
!                 20 ( x ) 20 ( y )  s" Hello World" TextOut: dc
                  ;M
  
  :M On_Init:     ( -- )          \ things to do at the start of window creation
                  On_Init: super             \ do anything superclass needs
--- 18,71 ----
                  ;M
  
! :M WindowTitle: ( -- Zstring )  \ window caption
                  z" Hello World"
                  ;M
  
+ :M On_EraseBackground: ( hwnd msg wparam lparam -- res )
+                 \ let the On_Paint: Method redraw the background
+                 4drop 0 ;M
+ 
  :M On_Paint:    { \ temp$ -- }  \ all window refreshing is done by On_Paint:
  
!                 \ draw background only if needed
!                 ps_fErase
!                 if
! \ cr ." erase background"
!                      ps_left ps_top ps_right ps_bottom
!                      black FillArea: dc
!                 then
  
!                 \ check if our drawing area is visible or not
!                 0 0 170 90 SetRect: wRect
!                 AddrOf: wRect GetHandle: dc call RectVisible
!                 if
! \ cr ." visible"
!                      \ let's draw...
!                      black SetBkColor: dc
!                      green SetTextColor: dc
  
!                      MAXSTRING LocalAlloc: temp$
!                      s" Repainted "        temp$  place
!                      counter (.)           temp$ +place
!                      s"  times"            temp$ +place
!                      20 ( x ) 50 ( y )     temp$  count TextOut: dc
!                      20 ( x ) 20 ( y )  s" Hello World" TextOut: dc
! \ else cr ." invisible"
!                 then ;M
! 
! :M Paint:       ( -- )
!                 \ Note: The Paint: method of the window class invalidates the
!                 \ complete client rectangle. Since we only draw in a smal part
!                 \ of the window only the the part of the window in whitch we
!                 \ are going to draw is marked as invalid.
!                 0 0 170 90 SetRect: wRect
!                 1 AddrOf: wRect hWnd Call InvalidateRect ?win-error
                  ;M
  
+ :M WM_TIMER     ( h m w l -- res ) \ handle the WM_TIMER events
+                 1 +to counter  \ bump the counter
+                 Paint: self    \ refresh the window
+                 0 ;M
+ 
  :M On_Init:     ( -- )          \ things to do at the start of window creation
                  On_Init: super             \ do anything superclass needs
***************
*** 47,55 ****
                  ;M
  
- :M WM_TIMER     ( h m w l -- res ) \ handle the WM_TIMER events
-                 1 +to counter              \ bump the counter
-                 Paint: self                \ refresh the window
-                 0 ;M
- 
  :M On_Done:     ( -- )          \ things to do before program termination
                  1 hWnd Call KillTimer drop \ destroy the timer, we are done
--- 74,77 ----
***************
*** 79,80 ****
--- 101,103 ----
  [THEN]
  
+ demo