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

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

@ -19,7 +19,7 @@
(define debugger-bitmap (define debugger-bitmap
(drscheme:unit:make-bitmap (drscheme:unit:make-bitmap
"Syntax Offset" "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%) (define (debugger-unit-frame-mixin super%)
(class super% (class super%
@ -36,14 +36,12 @@
(let* ([pos (send (get-definitions-text) get-start-position)] (let* ([pos (send (get-definitions-text) get-start-position)]
[line (send (get-definitions-text) position-paragraph pos)] [line (send (get-definitions-text) position-paragraph pos)]
[column (- pos (send (get-definitions-text) line-start-position [column (- pos (send (get-definitions-text) line-start-position
(send (get-definitions-text) position-line pos)))]) (send (get-definitions-text) position-line pos)))])
(message-box/custom "Syntax Offset"
(format "Line: ~a~nColumn: ~a~nOffset: ~a" (add1 line) column pos) (message-box "Syntax Offset"
"OK" (format "Line: ~a~nColumn: ~a~nOffset: ~a" (add1 line) column pos))))))
#f #f #f
'(default=1))))))
(send (get-button-panel) change-children (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)))) (drscheme:get/extend:extend-unit-frame debugger-unit-frame-mixin))))