Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29308/win32forth/src
Modified Files:
GENERIC.F WINMSG.F
Log Message:
gah: Some optimizations and documenting
Index: WINMSG.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/WINMSG.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** WINMSG.F 17 May 2005 22:25:25 -0000 1.3
--- WINMSG.F 27 Jan 2006 10:10:25 -0000 1.4
***************
*** 172,177 ****
:Object InfoWindow <Super MSGWINDOW
! Font msgFont
int extentx
int extenty
--- 172,178 ----
:Object InfoWindow <Super MSGWINDOW
+ \ *G Used for old style tool tips.
! GdiFont msgFont
int extentx
int extenty
***************
*** 188,193 ****
0 to extentx
0 to extenty
! fwidth Width: msgFont
! fheight Height: msgFont
s" MS Sans Serif" SetFaceName: msgFont
COLOR_INFOBK Call GetSysColor NewColor: TIPCOLOR
--- 189,194 ----
0 to extentx
0 to extenty
! fwidth SetWidth: msgFont
! fheight SetHeight: msgFont
s" MS Sans Serif" SetFaceName: msgFont
COLOR_INFOBK Call GetSysColor NewColor: TIPCOLOR
***************
*** 200,204 ****
:M On_Done: ( -- )
! Delete: msgFont
On_Done: super
;M
--- 201,205 ----
:M On_Done: ( -- )
! Destroy: msgFont
On_Done: super
;M
***************
*** 211,215 ****
:M On_Paint: { \ vpos msgmax -- }
SaveDC: dc
! Handle: msgFont SetFont: dc
&InfoRect GetClientRect: self
--- 212,216 ----
:M On_Paint: { \ vpos msgmax -- }
SaveDC: dc
! GetHandle: msgFont SetFont: dc
&InfoRect GetClientRect: self
Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** GENERIC.F 26 Jan 2006 11:20:49 -0000 1.7
--- GENERIC.F 27 Jan 2006 10:10:25 -0000 1.8
***************
*** 137,141 ****
:M DestroyWindow: ( -- )
! \ *G Destroy the window. The handle is always zero after executing this method.
hWnd
if hWnd Call DestroyWindow ?win-error
--- 137,143 ----
:M DestroyWindow: ( -- )
! \ *G Destroy the window. The handle is always zero after executing this method. In a
! \ ** mult-tasking application this method causes an error if executed by a task that
! \ ** didn't create the window.
hWnd
if hWnd Call DestroyWindow ?win-error
***************
*** 570,580 ****
\ *G End of generic-window class
! : zero-windows { \ wlink -- } \ Zero all window handles.
! windows-link @
! begin dup
! while dup cell+ @ to wlink
! ZeroWindow: wlink
! @
! repeat drop ;
initialization-chain chain-add zero-windows
--- 572,581 ----
\ *G End of generic-window class
! : zero-windows ( -- ) \ Zero all window handles.
! windows-link
! begin @ ?dup
! while dup cell+ @
! ZeroWindow: [ ]
! repeat ;
initialization-chain chain-add zero-windows
|
