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

.

Browse Source 
original commit: 73c57e859c8c092d10a632b2d96981ab1e7cfe6a
This commit is contained in:
Robby Findler 2002-05-28 17:56:55 +00:00
parent cfe4ee6347
commit 1dece55e13
3 changed files with 32 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/framework.ss
View File

@ -202,18 +202,18 @@
()
"Adds a preferences panel for configuring options"
"related to editing.")
(preferences:add-misc-checkbox-panel
(preferences:add-warnings-checkbox-panel
(-> void?)
()
"Adds a preferences panel for configuring"
"misc. options")
"options relating to warnings")
(preferences:add-scheme-checkbox-panel
(-> void?)
()
"Adds a preferences panel for configuring"
"options related to Scheme.")
(preferences:add-to-misc-checkbox-panel
(preferences:add-to-warnings-checkbox-panel
(((is-a?/c vertical-panel%) . -> . void?) . -> . void?)
(proc)
"Saves \\var{proc} until the preferences panel is"

59
collects/framework/private/preferences.ss
View File

@ -341,14 +341,14 @@
(let ([old editor-panel-procs])
(lambda (parent) (old parent) (f parent)))))
(define (add-to-misc-checkbox-panel f)
(set! misc-panel-procs
(let ([old misc-panel-procs])
(define (add-to-warnings-checkbox-panel f)
(set! warnings-panel-procs
(let ([old warnings-panel-procs])
(lambda (parent) (old parent) (f parent)))))
(define scheme-panel-procs void)
(define editor-panel-procs void)
(define misc-panel-procs void)
(define warnings-panel-procs void)
(define (add-checkbox-panel label proc)
(add-panel
@ -409,11 +409,6 @@
(make-check editor-panel 'framework:backup-files? (string-constant backup-files) values values)
(make-check editor-panel 'framework:delete-forward? (string-constant map-delete-to-backspace)
not not)
(make-check editor-panel
'framework:verify-change-format
(string-constant ask-before-changing-format)
values values)
(make-check editor-panel 'framework:show-status-line (string-constant show-status-line) values values)
(make-check editor-panel 'framework:line-offsets (string-constant count-from-one) values values)
(make-check editor-panel
@ -433,38 +428,38 @@
'framework:open-here?
(string-constant reuse-existing-frames)
values values)
(editor-panel-procs editor-panel))))])
(add-editor-checkbox-panel)))
(define (add-misc-checkbox-panel)
(letrec ([add-misc-checkbox-panel
(lambda ()
(set! add-misc-checkbox-panel void)
(add-checkbox-panel
(string-constant misc-prefs-panel-label)
(lambda (misc-panel)
(make-check misc-panel
'framework:verify-exit
(string-constant verify-exit)
values values)
(make-check misc-panel
(make-check editor-panel
'framework:menu-bindings
(string-constant enable-keybindings-in-menus)
values values)
(unless (eq? (system-type) 'unix)
(make-check misc-panel
(make-check editor-panel
'framework:print-output-mode
(string-constant automatically-to-ps)
(lambda (b)
(if b 'postscript 'standard))
(lambda (n) (eq? 'postscript n))))
'(when (eq? (system-type) 'windows)
(make-check misc-panel
'framework:windows-mdi
(string-constant use-mdi)
values values))
(misc-panel-procs misc-panel))))])
(add-misc-checkbox-panel)))
(editor-panel-procs editor-panel))))])
(add-editor-checkbox-panel)))
(define (add-warnings-checkbox-panel)
(letrec ([add-warnings-checkbox-panel
(lambda ()
(set! add-warnings-checkbox-panel void)
(add-checkbox-panel
(string-constant warnings-prefs-panel-label)
(lambda (warnings-panel)
(make-check warnings-panel
'framework:verify-change-format
(string-constant ask-before-changing-format)
values values)
(make-check warnings-panel
'framework:verify-exit
(string-constant verify-exit)
values values)
(warnings-panel-procs warnings-panel))))])
(add-warnings-checkbox-panel)))
(define (local-add-font-panel)
(let* ([font-families-name/const

4
collects/framework/private/sig.ss
View File

@ -166,11 +166,11 @@
add-font-panel
add-editor-checkbox-panel
add-misc-checkbox-panel
add-warnings-checkbox-panel
add-scheme-checkbox-panel
add-to-editor-checkbox-panel
add-to-misc-checkbox-panel
add-to-warnings-checkbox-panel
add-to-scheme-checkbox-panel
show-dialog