[Win32forth-cvs] win32forth/src/console BasicWin.f,1.2,1.3

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

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31161/win32forth/src/console

Modified Files:
	BasicWin.f 
Log Message:
gah:  minor optimizations

Index: BasicWin.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/BasicWin.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** BasicWin.f	1 May 2005 06:27:41 -0000	1.2
--- BasicWin.f	3 May 2005 13:19:49 -0000	1.3
***************
*** 138,142 ****
     :M SetSize: ( cx cy)   \ set size of window rectangle
  \ was      SWAP 2>R  SWP_NOOWNERZORDER SWP_NOMOVE OR
! ( is)      SWAP 2>R  SWP_NOZORDER SWP_NOMOVE OR
        2R> 0 0 NULL  hWnd Call SetWindowPos ?WinError
        ;M
--- 138,142 ----
     :M SetSize: ( cx cy)   \ set size of window rectangle
  \ was      SWAP 2>R  SWP_NOOWNERZORDER SWP_NOMOVE OR
! ( is)      SWAP 2>R  [ SWP_NOZORDER SWP_NOMOVE OR ] literal
        2R> 0 0 NULL  hWnd Call SetWindowPos ?WinError
        ;M
***************
*** 145,154 ****
  \ was      HERE hWnd  Call GetWindowRect ?WinError
  \ was      HERE 2@ SWAP
!       GetWindowRect: self  2SWAP 2DROP  SWAP
        ;M
  
     :M SetPosition: ( x y)  \ set position of upper-left corner
  \ was      SWAP 2>R  SWP_NOOWNERZORDER SWP_NOSIZE OR
! ( is)      SWAP 2>R  SWP_NOZORDER SWP_NOSIZE OR
        0 0 2R> NULL  hWnd Call SetWindowPos ?WinError
        ;M
--- 145,154 ----
  \ was      HERE hWnd  Call GetWindowRect ?WinError
  \ was      HERE 2@ SWAP
!       GetWindowRect: self  2NIP  SWAP
        ;M
  
     :M SetPosition: ( x y)  \ set position of upper-left corner
  \ was      SWAP 2>R  SWP_NOOWNERZORDER SWP_NOSIZE OR
! ( is)      SWAP 2>R  [ SWP_NOZORDER SWP_NOSIZE OR ] literal
        0 0 2R> NULL  hWnd Call SetWindowPos ?WinError
        ;M
***************
*** 241,245 ****
  
     :M DefStyle: ( -- style)   \ default control style
!       WS_VISIBLE WS_CHILD OR
        ;M
  
--- 241,245 ----
  
     :M DefStyle: ( -- style)   \ default control style
!       [ WS_VISIBLE WS_CHILD OR ] literal
        ;M