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

.

Browse Source 
original commit: 33dff46abd85d1d8048ff0e827237bf9ec35ed4b
This commit is contained in:
Matthew Flatt 2002-12-04 21:59:28 +00:00
parent 2315524694
commit 5bd49e5c91
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/mred.ss
View File

@ -1983,14 +1983,15 @@
(define/override (handles-key-code code alpha? meta?)
#f)
(super-instantiate (mred proxy parent -1 -1 -1 -1 null))
(super-instantiate (mred proxy parent -1 -1 1 1 null))
(compute-sizes)
(set-min-width (inexact->exact (ceiling (get-total-width))))
(set-min-height (inexact->exact (ceiling (+ tab-height 9 raise-h))))))
(define wx-tab-group%
(if (eq? 'unix (system-type))
(if
(eq? 'unix (system-type))
canvas-based-tab-group%
(make-window-glue%
(make-control% wx:tab-group% 0 0 #t #t))))