36 lines
923 B
Scheme
36 lines
923 B
Scheme
(module mrgroupbox mzscheme
|
|
(require (lib "class.ss")
|
|
(lib "class100.ss")
|
|
(prefix wx: "kernel.ss")
|
|
"lock.ss"
|
|
"const.ss"
|
|
"check.ss"
|
|
"helper.ss"
|
|
"wx.ss"
|
|
"wxgroupbox.ss"
|
|
"mrcontainer.ss"
|
|
"mritem.ss")
|
|
|
|
(provide (protect group-box%))
|
|
|
|
;; Not exported from MrEd:
|
|
(define group-box%
|
|
(class100 basic-control% (label parent [style null] [font #f])
|
|
(override
|
|
[hidden-child? (lambda () #t)])
|
|
(sequence
|
|
(let ([cwho '(constructor group-box)])
|
|
(check-label-string cwho label)
|
|
(check-container-parent cwho parent)
|
|
(check-style cwho #f '(deleted) style))
|
|
(super-init (lambda () (make-object wx-group-box% this this
|
|
style
|
|
(mred->wx-container parent)
|
|
label
|
|
style
|
|
(no-val->#f font)))
|
|
(lambda ()
|
|
(let ([cwho '(constructor group-box)])
|
|
(check-container-ready cwho parent)))
|
|
label parent void #f)))))
|