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

...

Browse Source 
original commit: 30c28d70af38ee7dbd662b3baf3b099c83218e42
This commit is contained in:
Robby Findler 1998-12-15 22:32:51 +00:00
parent 12fa9d3ef2
commit 5f1e823c23
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/framework/splash.ss
View File

@ -92,12 +92,16 @@
[(v-panel) (make-object vertical-panel% h-panel)]
[(splash-messages)
(and show-messages?
(cons (make-object message% (format "Welcome to ~a" title) v-panel)
(let loop ([n (- splash-max-depth 1)])
(cond
[(zero? n) null]
[else (cons (make-object message% "" v-panel)
(loop (sub1 n)))]))))]
(let ([msgs
(let loop ([n (max 1 splash-max-depth)])
(cond
[(zero? n) null]
[else (cons (let ([msg (make-object message% "" v-panel)])
(send msg stretchable-width #t)
msg)
(loop (sub1 n)))]))])
(send (car msgs) set-label (format "Welcome to ~a" title))
msgs))]
[(_) (begin
(send frame set-alignment 'left 'center)
(send v-panel set-alignment 'left 'top)