[Win32forth-cvs] win32forth/src CONTROL.F,1.3,1.4 Dc.f,1.3,1.4 GENERIC.F,1.1,1.2 Menu.f,1.1,1.2 Primutil.f,1.6,1.7 Utils.f,1.7,1.8

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

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

Modified Files:
	CONTROL.F Dc.f GENERIC.F Menu.f Primutil.f Utils.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Dc.f	3 May 2005 08:47:34 -0000	1.3
--- Dc.f	20 Jun 2005 07:40:46 -0000	1.4
***************
*** 135,148 ****
  
  :M TextOut:     ( x y addr len -- )
!         swap 2swap swap hDC Call TextOut ?win-error
          ;M
  
  :M DrawText:    ( addr len rect format -- )
!         swap 2swap swap hDC Call DrawText drop
          ;M
  
  :M TabbedTextOut: ( x y addr len -- text_dimensions )
          2>r 2>r 0 tabbuf tabcnt 2r> 2r>
!         swap 2swap swap hDC Call TabbedTextOut
          ;M
  
--- 135,148 ----
  
  :M TextOut:     ( x y addr len -- )
!         4reverse hDC Call TextOut ?win-error
          ;M
  
  :M DrawText:    ( addr len rect format -- )
!         4reverse hDC Call DrawText drop
          ;M
  
  :M TabbedTextOut: ( x y addr len -- text_dimensions )
          2>r 2>r 0 tabbuf tabcnt 2r> 2r>
!         4reverse hDC Call TabbedTextOut
          ;M
  
***************
*** 162,166 ****
  
  :M MoveTo:      ( x y -- )
!         0 -rot swap
          hDC Call MoveToEx ?win-error
          ;M
--- 162,166 ----
  
  :M MoveTo:      ( x y -- )
!         0 3reverse
          hDC Call MoveToEx ?win-error
          ;M

Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** GENERIC.F	21 Dec 2004 00:19:08 -0000	1.1
--- GENERIC.F	20 Jun 2005 07:40:46 -0000	1.2
***************
*** 223,227 ****
  :M GetText:     ( -- addr len )
                  gettext$ hWnd
!                 -if      over MAXCOUNTED swap rot Call GetWindowText
                  then
                  ;M
--- 223,227 ----
  :M GetText:     ( -- addr len )
                  gettext$ hWnd
!                 -if      over MAXCOUNTED 3reverse Call GetWindowText
                  then
                  ;M
***************
*** 256,260 ****
  
  :M MessageBox:  ( szText szTitle style -- result )
!                 MB_TASKMODAL or -rot swap
                  ( hWnd ) NULL Call MessageBox
                  ;M
--- 256,260 ----
  
  :M MessageBox:  ( szText szTitle style -- result )
!                 MB_TASKMODAL or 3reverse
                  ( hWnd ) NULL Call MessageBox
                  ;M
***************
*** 411,412 ****
--- 411,413 ----
  ;CLASS
  
+