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

.

Browse Source 
original commit: ab173040ef943060ba4378a573a369b7bee17f84
This commit is contained in:
Matthew Flatt 2003-02-28 00:40:51 +00:00
parent 27991b4016
commit 48c1e9c1fe
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -4904,16 +4904,16 @@
(raise-type-error (who->name cwho) "list of strings (up to 200 characters)" choices))
(check-callback cwho callback)
(check-container-parent cwho parent)
(check-style cwho #f '(deleted border) style))
(check-style cwho #f '(deleted no-border) style))
(super-init parent (if (memq 'deleted style)
'(deleted)
null)))
(private-field
[tabs (make-object tab-group% #f choices this (lambda (c e) (callback this e))
(if (memq 'border style)
'(border)
null))])
(if (memq 'no-border style)
null
'(border)))])
(sequence
(send (mred->wx this) set-first-child-is-hidden))