From e9465f293ee0fb50a3762c82bebb7eae862db90d Mon Sep 17 00:00:00 2001 From: Jono Spiro Date: Sat, 17 Jul 2004 18:00:35 +0000 Subject: [PATCH] svn: r104 --- collects/mztake/debugger-tool.ss | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/collects/mztake/debugger-tool.ss b/collects/mztake/debugger-tool.ss index 604288fe47..ce5f5d8560 100644 --- a/collects/mztake/debugger-tool.ss +++ b/collects/mztake/debugger-tool.ss @@ -19,7 +19,7 @@ (define debugger-bitmap (drscheme:unit:make-bitmap "Syntax Offset" - (build-path (collection-path "mztake") "stock_macro-check-brackets.png"))) + (build-path (collection-path "mztake") "stock_macro-check-brackets-16.png"))) (define (debugger-unit-frame-mixin super%) (class super% @@ -36,14 +36,12 @@ (let* ([pos (send (get-definitions-text) get-start-position)] [line (send (get-definitions-text) position-paragraph pos)] [column (- pos (send (get-definitions-text) line-start-position - (send (get-definitions-text) position-line pos)))]) - (message-box/custom "Syntax Offset" - (format "Line: ~a~nColumn: ~a~nOffset: ~a" (add1 line) column pos) - "OK" - #f #f #f - '(default=1)))))) + (send (get-definitions-text) position-line pos)))]) + + (message-box "Syntax Offset" + (format "Line: ~a~nColumn: ~a~nOffset: ~a" (add1 line) column pos)))))) (send (get-button-panel) change-children - (lambda (_) (cons debugger-button (remq debugger-button _)))))) + (lambda (_) (cons debugger-button (remq debugger-button _)))))) (drscheme:get/extend:extend-unit-frame debugger-unit-frame-mixin)))) \ No newline at end of file