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

...

Browse Source 
original commit: 6a52c92e6e9181826ad588a1968ccc734aa6c14e
This commit is contained in:
Robby Findler 1999-03-18 23:36:47 +00:00
parent 7f953c23f9
commit 351b8744c0
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/frame.ss
View File

@ -801,8 +801,11 @@
(public
[get-info-panel
(let ([info-panel (make-object horizontal-panel% super-root)])
(let* ([outer-info-panel (make-object horizontal-panel% super-root)]
[info-panel (make-object horizontal-panel% outer-info-panel)]
[spacer (make-object grow-box-spacer-pane% outer-info-panel)])
(lambda ()
(send outer-info-panel stretchable-height #f)
info-panel))])
(private
[lock-message (make-object message%

5
collects/framework/splash.ss
View File

@ -80,9 +80,8 @@
(apply super-init args)))]
[(panel) (make-object vertical-pane% frame)]
[(logo-canvas) (make-object splash-canvas% panel)]
[(h-panel) (make-object vertical-pane% panel)]
[(gauge) (make-object gauge% #f splash-max-width h-panel
'(horizontal))]
[(h-panel) (make-object horizontal-pane% panel)]
[(gauge) (make-object gauge% #f splash-max-width h-panel '(horizontal))]
[(spacer) (make-object grow-box-spacer-pane% h-panel)]
[(_3) (begin
(send frame set-alignment 'center 'center)