From 6a6774d33624956a1984658f5aacb308511ee8d5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 31 Jul 2005 13:45:01 +0000 Subject: [PATCH] adjusted terminology in the GUI svn: r513 --- collects/mztake/debug-tool.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mztake/debug-tool.ss b/collects/mztake/debug-tool.ss index e34f8184a7..ca25a5ecf0 100644 --- a/collects/mztake/debug-tool.ss +++ b/collects/mztake/debug-tool.ss @@ -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!