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

..

Browse Source 
original commit: 227b9627ddb1624d42c89da0e67d6f14d9a15858
This commit is contained in:
Robby Findler 2003-12-11 17:32:57 +00:00
parent 9350fac023
commit 4054c286a4
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/framework/framework.ss
View File

@ -1569,8 +1569,13 @@
"changes the foreground color to \\var{color}."
"Then, it calls "
"@flink editor:set-standard-style-list-delta"
"passing the \\var{style-name} and the newly"
"created \\iscmclass{style-delta}.")
"passing the \\var{style-name} and the current value"
"of the preference \\var{pref-name}."
""
"Finally, it adds calls"
"@flink preferences:add-callback "
"to set a callback for \\var{pref-name} that"
"updates the style list when the preference changes.")
(color-prefs:add-preferences-panel
(-> void?)

15
collects/framework/private/color-prefs.ss
View File

@ -103,12 +103,6 @@
(send c set-line-count 1)
(send c allow-tab-exit #t)
(preferences:add-callback pref-sym
(lambda (sym v)
(editor:set-standard-style-list-delta style-name v)
#t))
(editor:set-standard-style-list-delta style-name delta)
(send e insert example-text)
(send e set-position 0)
@ -282,7 +276,10 @@
(define (register-color-pref pref-name style-name color)
(let ([sd (new style-delta%)])
(send sd set-delta-foreground color)
(preferences:set-default pref-name sd (lambda (x) (is-a? x style-delta%)))
(preferences:set-un/marshall pref-name marshall-style unmarshall-style)
(editor:set-standard-style-list-delta style-name sd))))))
(preferences:set-default pref-name sd (lambda (x) (is-a? x style-delta%))))
(preferences:set-un/marshall pref-name marshall-style unmarshall-style)
(preferences:add-callback pref-name
(lambda (sym v)
(editor:set-standard-style-list-delta style-name v)))
(editor:set-standard-style-list-delta style-name (preferences:get pref-name))))))