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

allow styles to be #f

Browse Source 
original commit: f5c6d81262702aba29dd51eaebd620fcb61ba690
This commit is contained in:
Robby Findler 1997-08-26 15:55:39 +00:00
parent 229bb38d48
commit 0314fa7035
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/edit.ss
View File

@ -170,9 +170,11 @@
(set-mode-direct m)
(set-file-format (ivar m file-format))
(send m install this)
(send (send (get-style-list)
find-named-style "Standard")
set-delta (ivar m standard-style-delta)))
(let ([new-delta (ivar m standard-style-delta)])
(when new-delta
(send (send (get-style-list)
find-named-style "Standard")
set-delta new-delta))))
(begin
(set-mode-direct #f)
(send (send (get-style-list)