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

.

Browse Source 
original commit: 2bff0a4c1ba01950b0cecce975ad3f10aa65acf5
This commit is contained in:
Matthew Flatt 1999-05-17 15:19:08 +00:00
parent decd801b1a
commit 8601b15e62
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mred/wrap/mred.ss
View File

@ -1426,9 +1426,8 @@
[(and horizontal? (not vertical-labels?)) (- (get-width) client-w)] [(and horizontal? (not vertical-labels?)) (- (get-width) client-w)]
[(and (not horizontal?) vertical-labels?) (- (get-height) client-h)] [(and (not horizontal?) vertical-labels?) (- (get-height) client-h)]
[else 0]))]) [else 0]))])
(when (not horizontal?) (stretchable-in-x horizontal?)
(stretchable-in-x #f) (stretchable-in-y (not horizontal?))
(stretchable-in-y #t))
((if horizontal? set-min-width set-min-height) ((if horizontal? set-min-width set-min-height)
(max ((if horizontal? get-width get-height)) (max ((if horizontal? get-width get-height))
(min const-max-gauge-length range))))))))) (min const-max-gauge-length range)))))))))
@ -4986,4 +4985,3 @@
(error 'get-window-text-extent "couldn't allocate sizing bitmap")) (error 'get-window-text-extent "couldn't allocate sizing bitmap"))
(let-values ([(w h d a) (send dc get-text-extent string font)]) (let-values ([(w h d a) (send dc get-text-extent string font)])
(values (inexact->exact w) (inexact->exact h)))]))) (values (inexact->exact w) (inexact->exact h)))])))