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
|
