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

.

Browse Source 
original commit: 9656fc0335a9b5c2da568fceae094f7c711abf5b
This commit is contained in:
Matthew Flatt 2002-12-04 21:34:57 +00:00
parent 9b136953c2
commit 51134b4b83
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/mred.ss
View File

@ -1728,7 +1728,7 @@
(define canvas-based-tab-group%
(class wx-canvas%
(init mred proxy parent call-back label tab-labels)
(init mred proxy style parent call-back label tab-labels style-again)
(define callback call-back)
@ -1983,7 +1983,7 @@
(define/override (handles-key-code code alpha? meta?)
#f)
(super-instantiate (mred proxy parent))
(super-instantiate (mred proxy parent -1 -1 -1 -1 null))
(compute-sizes)
(set-min-width (inexact->exact (ceiling (get-total-width))))
@ -4803,7 +4803,7 @@
(check-callback cwho callback)
(check-container-parent cwho parent)
(check-style cwho #f '(inactive) style))
(super-init parent null))
(super-init parent style))
(private-field
[tabs (make-object tab-group% #f choices this (lambda (c e) (callback this e)))])