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

svn: r104

Browse Source
This commit is contained in:
Jono Spiro 2004-07-17 18:00:35 +00:00
parent 046fcc9347
commit e9465f293e
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mztake/debugger-tool.ss
View File

@ -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%
@ -37,11 +37,9 @@
[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))))))
(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 _))))))