[Win32forth-cvs] win32forth/apps/Chess TOOLSET.F,1.7,1.8

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6830/apps/Chess

Modified Files:
	TOOLSET.F 
Log Message:
- Renamed ?LOADING into LOADING?
- Replaced DEFER@ with ACTION-OF
- and some other minor changes

Index: TOOLSET.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** TOOLSET.F	13 Dec 2005 21:45:08 -0000	1.7
--- TOOLSET.F	3 Oct 2006 07:44:22 -0000	1.8
***************
*** 102,107 ****
        MB_OK MB_ICONSTOP  or
        MB_TASKMODAL or
!       z" Error:" 
!       message$ 1+ 
        NULL call MessageBox drop
   ;
--- 102,107 ----
        MB_OK MB_ICONSTOP  or
        MB_TASKMODAL or
!       z" Error:"
!       message$ 1+
        NULL call MessageBox drop
   ;
***************
*** 131,135 ****
                  ELSE    ." Error # " .
                  THEN
!                 ?LOADING @
                  IF      BASE @ >R DECIMAL
                          CR ." File: "
--- 131,135 ----
                  ELSE    ." Error # " .
                  THEN
!                 LOADING?
                  IF      BASE @ >R DECIMAL
                          CR ." File: "
***************
*** 516,520 ****
      time-buf 2 + w! \ month
      time-buf 6 + w! \ day
!     hld-max hld  0  time-buf 
      r> LOCALE_SYSTEM_DEFAULT
      call GetDateFormat dup 0= abort" ldate failed" hld-count
--- 516,520 ----
      time-buf 2 + w! \ month
      time-buf 6 + w! \ day
!     hld-max hld  0  time-buf
      r> LOCALE_SYSTEM_DEFAULT
      call GetDateFormat dup 0= abort" ldate failed" hld-count
***************
*** 526,530 ****
  
  : ltime         ( time-buf - adr count )    \ time-buf must be filled
!     hld-max hld  0  time-buf 
      TIME_FORCE24HOURFORMAT  LOCALE_SYSTEM_DEFAULT
      call GetTimeFormat dup 0= abort" ltime failed" hld-count
--- 526,530 ----
  
  : ltime         ( time-buf - adr count )    \ time-buf must be filled
!     hld-max hld  0  time-buf
      TIME_FORCE24HOURFORMAT  LOCALE_SYSTEM_DEFAULT
      call GetTimeFormat dup 0= abort" ltime failed" hld-count
***************
*** 868,872 ****
  
  : SetEnvironmentVariable  ( zstr-EnvironmentVariable-name  buffer n - )
!    pad +place pad dup +null 1+  swap 
     call SetEnvironmentVariable drop
   ;
--- 868,872 ----
  
  : SetEnvironmentVariable  ( zstr-EnvironmentVariable-name  buffer n - )
!    pad +place pad dup +null 1+  swap
     call SetEnvironmentVariable drop
   ;
***************
*** 899,903 ****
  cr ' .ldate   is .date
  cr today  .ldate space .ltime
! .id-user cr 
  
  \ April 22nd, 2002 - 22:04 renamed box to msgbox
--- 899,903 ----
  cr ' .ldate   is .date
  cr today  .ldate space .ltime
! .id-user cr
  
  \ April 22nd, 2002 - 22:04 renamed box to msgbox
***************
*** 909,913 ****
      title$   place title$   +NULL
      r>
!     title$ 1+  message$ 1+ 
      NULL call MessageBox
   ;
--- 909,913 ----
      title$   place title$   +NULL
      r>
!     title$ 1+  message$ 1+
      NULL call MessageBox
   ;
***************
*** 1030,1034 ****
  
  : ndebug  ( - ) \ shows the normal stack while debugging
!      ['] .s-base is debug-.s ; 
  
  previous previous
--- 1030,1034 ----
  
  : ndebug  ( - ) \ shows the normal stack while debugging
!      ['] .s-base is debug-.s ;
  
  previous previous
***************
*** 1186,1190 ****
                  NULL
                  0
!                 key$ 1+  
                  r> \ root-key
                  Call RegCreateKeyEx
--- 1186,1190 ----
                  NULL
                  0
!                 key$ 1+
                  r> \ root-key
                  Call RegCreateKeyEx
***************
*** 1207,1215 ****
                  then    >r  drop >r
                  MAXCOUNTED reglen !             \ init max length of string
!                 reglen          
!                 ReturnedKey$ 1+ 
!                 regtype         
                  0
!                 r>              
                  r@
                  Call RegQueryValueEx
--- 1207,1215 ----
                  then    >r  drop >r
                  MAXCOUNTED reglen !             \ init max length of string
!                 reglen
!                 ReturnedKey$ 1+
!                 regtype
                  0
!                 r>
                  r@
                  Call RegQueryValueEx
***************
*** 1522,1524 ****
  \s
  
-