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 ;
- |
