[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdCompile.f, 1.4, 1.5 EdDebug.f, 1.1, 1.2 EdRemote.f, 1.6, 1.7 Main.f, 1.38, 1.39

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

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

Modified Files:
	EdCompile.f EdDebug.f EdRemote.f Main.f 
Log Message:
- Removed the Forth-Instance-Counting from then Editor-IO.

Index: EdDebug.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdDebug.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EdDebug.f	5 Jun 2006 09:19:00 -0000	1.1
--- EdDebug.f	13 May 2007 07:52:26 -0000	1.2
***************
*** 43,51 ****
                  0 WM_DONEBP win32forth-message ;
  
- NewEditDialog InquireDlg "Inquire for Data Item" "Get Current Value for:" "Inquire" "" ""
- 
- defer inquirebp ( -- ) \ inquire for the value of a data item
- ' beep is inquirebp
- 
  0 value debug-buttons?
  
--- 43,46 ----
***************
*** 146,157 ****
                  ;M
  
- : show-inquire  { \ temp$ -- }
-                 MAXSTRING LocalAlloc: temp$
-                 s"  " temp$ place               \ init to empty type
-                 ed-result @ 4 min 0
-                 ?DO     ed-result i 1+ cells+ @ n>" temp$ +place
-                         s"  "                       temp$ +place
-                 LOOP    temp$ count IDT_RESULT SetDlgItemText: self ;
- 
  :M On_Init:     ( -- )
                  On_Init: super
--- 141,144 ----
***************
*** 181,185 ****
                       IDB_HERE     OF herebp                             ENDOF
                       IDB_DONE     OF donebp                             ENDOF
-                      IDB_INQUIRE  OF inquirebp show-inquire             ENDOF
                       IDR_HEX      OF TRUE  to HexBase ShowStack: self   ENDOF
                       IDR_DECIMAL  OF FALSE to HexBase ShowStack: self   ENDOF
--- 168,171 ----
***************
*** 208,234 ****
                  ShowDebug: DbgButtonsDlg ;
  
- : no-breakpoint ( -- )          \ not currently in a breakpoint
-                 beep ;
- 
  \ -----------------------------------------------------------------------------
  \ -----------------------------------------------------------------------------
! : zMessageBox   ( szString -- )
!                 z" Notice"
!                 MB_OK MB_ICONSTOP or
!                 MessageBox: Frame ;
! 
! MAXSTRING pointer debug-buf
! NewEditDialog DebugDlg "Insert BreakPoint at Word" "BreakPoint at: ' [ vocabulary (sp) ]  word '" "Set" "" ""
! 
! : "debug-word   ( a1 n1 -- )
!                 ed-name place                   \ the name we want debugged
!                 ed-response off                 \ clear return result
!                 0 WM_SETBP win32forth-message
!                 ed-response @ 0=
!                 IF   z" Failed to set BreakPoint!" zMessageBox
!                 THEN
!                 ed-response @                   \ browse mode it BP is set
!                 IF   debug-buttons
!                 THEN ;
  
-