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

fixed bug

Browse Source 
original commit: db7cde16e8e4cd70435eb96b8c3a5bfcb5216251
This commit is contained in:
Robby Findler 1996-08-23 19:58:41 +00:00
parent 8f435b0a04
commit a67e1a2bfa
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mred/edit.ss
View File

@ -252,12 +252,13 @@
(super-on-set-size-constraint)))]
[after-insert
(let ([style (make-object wx:style-delta% wx:const-change-normal 0)])
(lambda (start len)
(when mode (send mode after-insert this start len))
(super-after-insert start len)
(when styles-fixed?
(change-style style start (+ start len)))))]
(lambda (start len)
(when mode (send mode after-insert this start len))
(super-after-insert start len)
(when styles-fixed?
(change-style (send (get-style-list) find-named-style "Standard")
start
(+ start len))))]
[after-delete
(lambda (start len)
(if mode (send mode after-delete this start len))