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

Added preferences to remember the checkboxes in the Create Executable dialog box

Browse Source
This commit is contained in:
Robby Findler 2010-06-05 06:55:17 -05:00
parent 89be620f17
commit 42563354f8
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
collects/drracket/private/language.rkt
View File

@ -670,14 +670,25 @@
(string-constant stand-alone-explanatory-label) (string-constant stand-alone-explanatory-label)
(string-constant distribution-explanatory-label))) (string-constant distribution-explanatory-label)))
(parent type-panel) (parent type-panel)
(callback (lambda (rb e) (reset-filename-suffix)))))) (callback (lambda (rb e)
(preferences:set 'drracket:create-executable-gui-type
(case (send rb get-selection)
[(0) 'launcher]
[(1) 'stand-alone]
[(2) 'distribution]))
(reset-filename-suffix))))))
(define base-panel (make-object horizontal-panel% type/base-panel)) (define base-panel (make-object horizontal-panel% type/base-panel))
(define base-rb (and (boolean? show-base) (define base-rb (and (boolean? show-base)
(instantiate radio-box% () (instantiate radio-box% ()
(label (string-constant executable-base)) (label (string-constant executable-base))
(choices (list "Racket" "GRacket")) (choices (list "Racket" "GRacket"))
(parent base-panel) (parent base-panel)
(callback (lambda (rb e) (reset-filename-suffix)))))) (callback (lambda (rb e)
(preferences:set 'drracket:create-executable-gui-base
(case (send rb get-selection)
[(0) 'racket]
[(1) 'gracket]))
(reset-filename-suffix))))))
(define (reset-filename-suffix) (define (reset-filename-suffix)
(let ([s (send filename-text-field get-value)]) (let ([s (send filename-text-field get-value)])
@ -778,7 +789,17 @@
'yes)) 'yes))
(define cancelled? #t) (define cancelled? #t)
(when type-rb
(send type-rb set-selection
(case (preferences:get 'drracket:create-executable-gui-type)
[(launcher) 0]
[(stand-alone) 1]
[(distribution) 2])))
(when base-rb
(send base-rb set-selection
(case (preferences:get 'drracket:create-executable-gui-base)
[(racket) 0]
[(gracket) 1])))
(reset-filename-suffix) (reset-filename-suffix)
(send dlg show #t) (send dlg show #t)
(cond (cond

3
collects/drracket/private/main.rkt
View File

@ -94,6 +94,9 @@
(finder:default-filters))) (finder:default-filters)))
(application:current-app-name (string-constant drscheme)) (application:current-app-name (string-constant drscheme))
(drr:set-default 'drracket:create-executable-gui-type 'stand-alone (λ (x) (memq x '(launcher stand-alone distribution))))
(drr:set-default 'drracket:create-executable-gui-base 'racket (λ (x) (memq x '(racket gracket))))
(drr:set-default 'drracket:logger-gui-tab-panel-level 0 (λ (x) (and (exact-integer? x) (<= 0 x 5)))) (drr:set-default 'drracket:logger-gui-tab-panel-level 0 (λ (x) (and (exact-integer? x) (<= 0 x 5))))
(drr:set-default 'drracket:saved-bug-reports (drr:set-default 'drracket:saved-bug-reports