[Win32forth-cvs] win32forth/src GENERIC.F,1.9,1.10

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11367/src

Modified Files:
	GENERIC.F 
Log Message:
SetRedraw: method and some more documentation added.

Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** GENERIC.F	4 Feb 2006 10:40:35 -0000	1.9
--- GENERIC.F	5 Jun 2006 07:17:30 -0000	1.10
***************
*** 155,158 ****
--- 155,165 ----
                  then ;M
  
+ :M SetRedraw:   ( f -- )
+ \ *G Set the redraw state of the window.
+ \ *P \i f \d Specifies the redraw state. If this parameter is TRUE, the
+ \ ** content can be redrawn after a change. If this parameter is FALSE,
+ \ ** the content cannot be redrawn after a change.
+                 0 swap WM_SETREDRAW hWnd call SendMessage drop ;M
+ 
  :M Show:        ( state -- )
  \ *G The ShowWindow function sets the specified window's show state. \n
***************
*** 583,591 ****
--- 590,604 ----
  in-system
  
+ \ *W <a name="DIALOG&CONTROL"></a>
+ \ *S Generic class for Dialog- and Control-Window objects.
  |CLASS DIALOG&CONTROL <SUPER Generic-Window
+ \ *G Base class for all dialog and control objects.
+ \ *P Since DIALOG&CONTROL is a generic class it should not be used to create
+ \ ** any instances.
  
  in-application
  
  int mydialoglink
+ 
  \ The following is for backward compatibility. Use WinRect for new code since it will
  \ be early bound whereas wRect will be latebound.
***************
*** 595,611 ****
  
  :M Classinit:   ( -- )
                  ClassInit: super
                  addr: WinRect to wRect
                  ;M
  
  :M GetWindowRect: ( -- left top right bottom )
                  hWnd
!                 if      EraseRect: WinRect
!                         AddrOf: WinRect hWnd Call GetWindowRect ?win-error
!                         Left: WinRect  Top: WinRect
!                         Right: WinRect Bottom: WinRect
!                 else    0 0 0 0
!                 then
!                 ;M
  
  \ Temporarily moved here to overcome problem with offset of ints in Window.f
--- 608,628 ----
  
  :M Classinit:   ( -- )
+ \ *G Initialise the class.
                  ClassInit: super
+                 0 to mydialoglink       \ added Sonntag, Juni 04 2006 dbu
                  addr: WinRect to wRect
                  ;M
  
  :M GetWindowRect: ( -- left top right bottom )
+ \ *G The GetWindowRect method retrieves the dimensions of the bounding rectangle of the window.
+ \ ** The dimensions are given in screen coordinates that are relative to the upper-left corner
+ \ ** of the screen.
                  hWnd
!                 if   EraseRect: WinRect
!                      AddrOf: WinRect hWnd Call GetWindowRect ?win-error
!                      Left: WinRect  Top: WinRect
!                      Right: WinRect Bottom: WinRect
!                 else 0 0 0 0
!                 then ;M
  
  \ Temporarily moved here to overcome problem with offset of ints in Window.f
***************
*** 618,621 ****
--- 635,639 ----
  
  ;CLASS
+ \ *G End of DIALOG&CONTROL class
  
  \ *Z