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
|
