[Win32forth-cvs] win32forth/src Debug.f, 1.21, 1.22 Window.f, 1.20, 1.21

[CamilleForth <cam...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv5844

Modified Files:
	Debug.f Window.f 
Log Message:
minor changes in comments 
cdo - Oct 8 2008

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Window.f	16 Jun 2008 03:35:16 -0000	1.20
--- Window.f	8 Oct 2008 09:15:07 -0000	1.21
***************
*** 814,834 ****
  
  \ [cdo] removed WM_WIN32FORTH message handling (replaced by WM_COPYDATA)
! comment:
! :M Win32Forth:  ( h m w l -- )
! \ *G If you define an application specific window class or window object
! \ ** that redefines the method Win32Forth: to perform its own function
! \ ** rather than just doing a beep, then your window will be able to handle
! \ ** interprocess messages.
!                 forth-msg-chain do-chain ;M
  
  :M DefWindowProc: ( h m w l -- res )
  \ *G Call the DefaultWindowProc for the window.
-                 2 pick WM_WIN32FORTH =
-                 if   Win32Forth: [ self ]
-                 else DefaultWindowProc
-                 then ;M
- comment;
- :M DefWindowProc: ( h m w l -- res )
- \ *G Call the DefaultWindowProc for the window.
                  DefaultWindowProc
                  ;M
--- 814,834 ----
  
  \ [cdo] removed WM_WIN32FORTH message handling (replaced by WM_COPYDATA)
! \       also removed Dexh comments which would continue to appear in doc
! \ :M Win32Forth:  ( h m w l -- )
! \ If you define an application specific window class or window object
! \ that redefines the method Win32Forth: to perform its own function
! \ rather than just doing a beep, then your window will be able to handle
! \ interprocess messages.
! \                 forth-msg-chain do-chain ;M
! \
! \ :M DefWindowProc: ( h m w l -- res )
! \ Call the DefaultWindowProc for the window.
! \                 2 pick WM_WIN32FORTH =
! \                 if   Win32Forth: [ self ]
! \                 else DefaultWindowProc
! \                 then ;M
  
  :M DefWindowProc: ( h m w l -- res )
  \ *G Call the DefaultWindowProc for the window.
                  DefaultWindowProc
                  ;M

Index: Debug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** Debug.f	2 Sep 2008 07:01:20 -0000	1.21
--- Debug.f	8 Oct 2008 09:15:07 -0000	1.22
***************
*** 670,679 ****
  ' _.rstack is .rstack
  
! : unbug  ( -- )
          ip @
          if      ip 2@ !  ip off
          then    ;
  
! : unbp          \ synonym of UNBUG
                  unbug ;
  
--- 670,679 ----
  ' _.rstack is .rstack
  
! : unbug  ( -- ) \ terminates debugging
          ip @
          if      ip 2@ !  ip off
          then    ;
  
! : unbp   ( -- ) \ synonym of UNBUG
                  unbug ;
  
***************
*** 728,741 ****
          until tracing ;
  
! : ndbg          ( - )           \ Switch to the normal stack
                  ['] .s-base is debug-.s ;
  
! : debug         ( -<name>- )    \ Shows the normal stack while debugging
                  ndbg  ' adebug ;
  
! : fdbg          ( - )           \ Switch to the floating point stack
                  ['] f.s-debug is debug-.s ;
  
! : fdebug        ( -<name>- )    \ Shows the floating point stack while debugging
                  fdbg ' adebug ;
  
--- 728,744 ----
          until tracing ;
  
! : ndbg          ( - )  \ while debugging, use "F" command (do Forth command)
!                        \ and execute this word to display data stack
                  ['] .s-base is debug-.s ;
  
! : debug         ( -<name>- ) \ start the debugger to debug the word <name>
!                              \ put any parameters needed by <name> before
                  ndbg  ' adebug ;
  
! : fdbg          ( - )  \ while debugging, use "F" command (do Forth command)
!                        \ and execute this word to display floating stack
                  ['] f.s-debug is debug-.s ;
  
! : fdebug        ( -<name>- ) \ same as DEBUG but displays floating data stack
                  fdbg ' adebug ;
  
***************
*** 744,748 ****
  \ see also mDebug for methods
  
! : bp            \ synonym of DEBUG
                  debug ;
  
--- 747,751 ----
  \ see also mDebug for methods
  
! : bp            ( -<name>- ) \ synonym of DEBUG
                  debug ;