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

added Neil's logos to drscheme's splash

Browse Source 
svn: r16505

original commit: ca5a7e604bed578e22aeb2f427d4424b00c8cf0d
This commit is contained in:
Robby Findler 2009-11-02 21:41:20 +00:00
parent 11c7d56e5c
commit 49b08ef0db
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/splash.ss
View File

@ -18,6 +18,7 @@
set-splash-char-observer
set-splash-event-callback
get-splash-event-callback
set-refresh-splash-on-gauge-change?!
get-splash-width
get-splash-height)
@ -44,6 +45,9 @@
(define (set-splash-event-callback cb) (set! splash-event-callback cb))
(define (get-splash-event-callback cb) splash-event-callback)
(define (refresh-splash-on-gauge-change? start range) #f)
(define (set-refresh-splash-on-gauge-change?! f) (set! refresh-splash-on-gauge-change? f))
(define (refresh-splash)
(define (recompute-bitmap/refresh)
@ -185,8 +189,9 @@
(set! splash-current-width (+ splash-current-width 1))
(when (<= splash-current-width splash-max-width)
(send gauge set-value splash-current-width)
(unless (member gauge (send gauge-panel get-children))
;; when the gauge is not visible, we'll redraw the canvas
(when (or (not (member gauge (send gauge-panel get-children)))
;; when the gauge is not visible, we'll redraw the canvas
(refresh-splash-on-gauge-change? splash-current-width splash-max-width))
(refresh-splash)))
(old-load f expected)))