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