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

.

Browse Source 
original commit: 6ce6cde2cdb28a9c9d6013ce9128c1340b70bd8f
This commit is contained in:
Matthew Flatt 2002-06-17 12:42:28 +00:00
parent 24fb9ceebf
commit 5949a73a0d
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/framework/gui-utils.ss
View File

@ -239,7 +239,9 @@
(send b2 get-width))])
(send b1 min-width w)
(send b2 min-width w)
(values b1 b2))))))
(if (cancel-on-right?)
(values b1 b2)
(values b2 b1)))))))
(define clickback-delta (make-object style-delta% 'change-underline #t))