[Win32forth-cvs] win32forth/src GENERIC.F,1.7,1.8 WINMSG.F,1.3,1.4

[George H. <geo...@us...>]

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