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

...

Browse Source 
original commit: 31fb508e5257385d8b02bbb8269873f906e3cc72
This commit is contained in:
Robby Findler 1999-03-16 23:37:39 +00:00
parent 8110effc01
commit 32c6a5c18d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/splash.ss
View File

@ -85,15 +85,16 @@
(if (get-resource "mred" "splashMessages" b)
(not (zero? (unbox b)))
#f))]
[(panel) (make-object vertical-panel% frame)]
[(panel) (make-object vertical-pane% frame)]
[(logo-canvas) (make-object splash-canvas% panel)]
[(h-panel) (make-object (if show-messages? horizontal-panel% vertical-panel%)
[(h-panel) (make-object (if show-messages? horizontal-pane% vertical-pane%)
panel)]
[(gauge) (make-object gauge% #f splash-max-width h-panel
(if show-messages?
'(vertical)
'(horizontal)))]
[(v-panel) (make-object vertical-panel% h-panel)]
[(v-panel) (make-object vertical-pane% h-panel)]
[(spacer) (make-object grow-box-spacer-pane% h-panel)]
[(splash-messages)
(and show-messages?
(let ([msgs