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

vertical-pane% -> horizontal-panel% for stepper button

Browse Source 
svn: r9936
This commit is contained in:
John Clements 2008-05-22 22:30:58 +00:00
parent 8adea7808c
commit 57d271f529
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/stepper/stepper-tool.ss
View File

@ -529,9 +529,16 @@
;; STEPPER BUTTON
(define/public (get-stepper-button) stepper-button)
(define stepper-button-parent-panel
(new horizontal-panel%
[parent (get-button-panel)]
[stretchable-width #f]
[stretchable-height #f]))
(define stepper-button
(new switchable-button%
[parent (new vertical-pane% [parent (get-button-panel)])]
[parent stepper-button-parent-panel]
[label (string-constant stepper-button-label)]
[bitmap x:foot-img/horizontal]
[alternate-bitmap x:foot-img/vertical]
@ -579,8 +586,9 @@
delete-child stepper-button))))
;; add the stepper button to the button panel:
(let ([p (send stepper-button get-parent)])
(send (get-button-panel) change-children (lx (cons p (remq p _)))))
(send (get-button-panel) change-children
(lx (cons stepper-button-parent-panel
(remq stepper-button-parent-panel _))))
;; hide stepper button if it's not supported for the initial language:
(check-current-language-for-stepper)))