suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjusted terminology in the GUI

Browse Source 
svn: r513
This commit is contained in:
Matthew Flatt 2005-07-31 13:45:01 +00:00
parent 05848a6df0
commit 6a6774d336
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mztake/debug-tool.ss
View File

@ -247,7 +247,9 @@
[(#t #f)
(let ([menu (make-object popup-menu% #f)])
(make-object menu-item%
"Toggle breakpoint"
(if break-status
"Remove pause at this point"
"Pause at this point")
menu
(lambda (item evt)
(hash-table-put! breakpoints pos (not break-status))
@ -284,7 +286,7 @@
(eval-string tmp)))
list))))))))))
(make-object menu-item%
"Run up to this location"
"Continue to this point"
menu
(lambda (item evt)
(hash-table-put!