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

fixed bugs

Browse Source 
original commit: 8c434f977cbff3cc5b00c4309b937f242bf853cc
This commit is contained in:
Robby Findler 1996-08-13 15:34:59 +00:00
parent 4ff3c57e9d
commit 4d706e2151
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/edit.ss
View File

@ -164,6 +164,7 @@
set-file-format get-style-list set-file-format get-style-list
set-autowrap-bitmap set-autowrap-bitmap
get-snip-location find-snip get-max-width get-snip-location find-snip get-max-width
modified? set-modified
lock get-filename) lock get-filename)
(rename [super-on-focus on-focus] (rename [super-on-focus on-focus]
@ -186,6 +187,8 @@
[super-after-insert after-insert] [super-after-insert after-insert]
[super-after-delete after-delete] [super-after-delete after-delete]
[super-after-set-size-constraint after-set-size-constraint]) [super-after-set-size-constraint after-set-size-constraint])
(private
[styles-fixed-edit-modified? #f])
(public (public
[autowrap-bitmap mred:icon:autowrap-bitmap] [autowrap-bitmap mred:icon:autowrap-bitmap]
[after-load-file [after-load-file
@ -234,6 +237,8 @@
(super-on-delete start len)))] (super-on-delete start len)))]
[on-change-style [on-change-style
(lambda (start len) (lambda (start len)
(when styles-fixed?
(set! styles-fixed-edit-modified? (modified?)))
(if (or (not mode) (send mode on-change-style this start len)) (if (or (not mode) (send mode on-change-style this start len))
(super-on-change-style start len)))] (super-on-change-style start len)))]
[on-edit-sequence [on-edit-sequence
@ -260,7 +265,9 @@
[after-change-style [after-change-style
(lambda (start len) (lambda (start len)
(when mode (send mode after-change-style this start len)) (when mode (send mode after-change-style this start len))
(super-after-change-style start len))] (super-after-change-style start len)
(when styles-fixed?
(set-modified styles-fixed-edit-modified?)))]
[after-edit-sequence [after-edit-sequence
(lambda () (lambda ()
(when mode (when mode