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

set!

Browse Source 
original commit: b3b1b4ef3fd6499c95aeed125dfca956dfe0e41d
This commit is contained in:
Matthew Flatt 1996-12-10 19:52:00 +00:00
parent ac42af8647
commit bad744aa44
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/edit.ss
View File

@ -107,6 +107,7 @@
canvases)))
(do-wrap 0))))]
[mode #f]
[set-mode-direct (lambda (v) (set! mode v))]
[set-mode
(lambda (m)
#f)]
@ -182,7 +183,7 @@
(define make-edit%
(lambda (super%)
(class (make-std-buffer% super%) args
(inherit mode canvases get-file-format
(inherit mode set-mode-direct canvases get-file-format
set-filename
change-style save-file
invalidate-bitmap-cache
@ -273,14 +274,14 @@
(send mode deinstall this))
(if (is-a? m mred:mode:mode%)
(begin
(set! mode m)
(set-mode-direct m)
(set-file-format (ivar m file-format))
(send (send (get-style-list)
find-named-style "Standard")
set-delta (ivar m standard-style-delta))
(send m install this))
(begin
(set! mode #f)
(set-mode-direct #f)
(send (send (get-style-list)
find-named-style "Standard")
set-delta (make-object wx:style-delta%)))))]