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

Fixed width calculation

Browse Source 
svn: r4301

original commit: 407339e9353558e3428289d3dc99ad4dfd0ed8d9
This commit is contained in:
Ryan Culpepper 2006-09-11 01:02:19 +00:00
parent 1327b81ec1
commit 3c47257395
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,7 +31,6 @@
(define -props-panel (new horizontal-panel% (parent -split-panel))) (define -props-panel (new horizontal-panel% (parent -split-panel)))
(define props (new properties-view% (parent -props-panel))) (define props (new properties-view% (parent -props-panel)))
(define -saved-panel-percentages #f) (define -saved-panel-percentages #f)
(define canvas-width #f)
(define controller (define controller
(new syntax-controller% (new syntax-controller%
@ -129,7 +128,8 @@
(define style-list (send -text get-style-list)) (define style-list (send -text get-style-list))
(define standard (send style-list find-named-style "Standard")) (define standard (send style-list find-named-style "Standard"))
(define char-width (send standard get-text-width (send -ecanvas get-dc))) (define char-width (send standard get-text-width (send -ecanvas get-dc)))
(inexact->exact (floor (/ (send -ecanvas get-width) char-width)))) (define-values (canvas-w canvas-h) (send -ecanvas get-client-size))
(sub1 (inexact->exact (floor (/ canvas-w char-width)))))
(super-new))) (super-new)))