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

removed dead code

Browse Source 
svn: r16517
This commit is contained in:
Robby Findler 2009-11-03 15:11:51 +00:00
parent a2de64c9ba
commit 0aad314a68
1 changed files with 8 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
collects/framework/splash.ss
View File

@ -185,15 +185,14 @@
(= (date-month date) 12)))) (= (date-month date) 12))))
(define (splash-load-handler old-load f expected) (define (splash-load-handler old-load f expected)
(let ([finalf (splitup-path f)]) (set! splash-current-width (+ splash-current-width 1))
(set! splash-current-width (+ splash-current-width 1)) (when (<= splash-current-width splash-max-width)
(when (<= splash-current-width splash-max-width) (send gauge set-value splash-current-width)
(send gauge set-value splash-current-width) (when (or (not (member gauge (send gauge-panel get-children)))
(when (or (not (member gauge (send gauge-panel get-children))) ;; when the gauge is not visible, we'll redraw the canvas
;; when the gauge is not visible, we'll redraw the canvas (refresh-splash-on-gauge-change? splash-current-width splash-max-width))
(refresh-splash-on-gauge-change? splash-current-width splash-max-width)) (refresh-splash)))
(refresh-splash))) (old-load f expected))
(old-load f expected)))
(let-values ([(make-compilation-manager-load/use-compiled-handler (let-values ([(make-compilation-manager-load/use-compiled-handler
manager-trace-handler) manager-trace-handler)
@ -277,20 +276,6 @@
(define (splash-set-preference name value) (define (splash-set-preference name value)
(put-preferences (list name) (list value))) (put-preferences (list name) (list value)))
(define (splitup-path f)
(let*-values ([(absf) (if (relative-path? f)
(build-path (current-directory) f)
f)]
[(base name _1) (split-path absf)])
(if base
(let-values ([(base2 name2 _2) (split-path base)])
(if base2
(let-values ([(base3 name3 _2) (split-path base2)])
(build-path name3 name2 name))
(build-path name2 name)))
name)))
(define quit-on-close? #t) (define quit-on-close? #t)
(define splash-frame% (define splash-frame%