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

fix the computation of the minimum width for the blue boxes

Browse Source 
(you could see it going wrong with 'this' from racket/class)
This commit is contained in:
Robby Findler 2012-08-23 21:27:00 -05:00
parent 4a0506a24f
commit d3b4db2ed1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/syncheck/contract-gui.rkt
View File

@ -793,7 +793,9 @@
#t)] #t)]
[else [else
;; otherwise we make an extra line at the top for the first line ;; otherwise we make an extra line at the top for the first line
(values (max main-w label-w) (values (max main-w
(+ label-w blue-box-margin blue-box-margin)
(+ read-more-w blue-box-margin blue-box-margin))
(+ main-h label-h read-more-h read-more-gap) (+ main-h label-h read-more-h read-more-gap)
#f)])) #f)]))