original commit: ca07f46d9fee16a2f4d7c47d6663cebce4933e90
This commit is contained in:
Matthew Flatt 1999-05-13 14:24:12 +00:00
parent 0ab1f3f423
commit 75c99f9a74

View File

@ -1313,7 +1313,7 @@
(make-window-glue%
(class (make-control% wx:gauge%
const-default-x-margin const-default-y-margin
#t #f)
#f #f)
(parent label range style)
(inherit get-client-size get-width get-height set-size
stretchable-in-x stretchable-in-y set-min-height set-min-width
@ -1404,7 +1404,7 @@
(make-window-glue%
(class (make-control% wx:slider%
const-default-x-margin const-default-y-margin
#t #f)
#f #f)
(parent func label value min-val max-val style)
(inherit set-min-width set-min-height stretchable-in-x stretchable-in-y
get-client-size get-width get-height get-parent)