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

Macro stepper: show/hide props reflows syntax display

Browse Source 
svn: r5451

original commit: cf3da5cf7dd09898315e702537c378ba77992d34
This commit is contained in:
Ryan Culpepper 2007-01-25 05:11:05 +00:00
parent 64cef9c489
commit 67a7b38e94
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/macro-debugger/syntax-browser/widget.ss
View File

@ -49,10 +49,9 @@
(send -text lock #t) (send -text lock #t)
(send -split-panel set-percentages (send -split-panel set-percentages
(list (- 1 props-percentage) props-percentage)) (list (- 1 props-percentage) props-percentage))
(toggle-props)
;; syntax-properties-controller<%> methods ;; syntax-properties-controller<%> methods
(define/public (set-syntax stx) (define/public (set-syntax stx)
(send props set-syntax stx)) (send props set-syntax stx))
@ -135,7 +134,7 @@
(define char-width (send style get-text-width (send -ecanvas get-dc))) (define char-width (send style get-text-width (send -ecanvas get-dc)))
(define-values (canvas-w canvas-h) (send -ecanvas get-client-size)) (define-values (canvas-w canvas-h) (send -ecanvas get-client-size))
(sub1 (inexact->exact (floor (/ canvas-w char-width))))) (sub1 (inexact->exact (floor (/ canvas-w char-width)))))
(super-new))) (super-new)))
)) ))