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

Activate suppression of modified messages. Otherwise, embedded

Browse Source 
editors will always cause the parent buffer to think it's modified.

svn: r7131
This commit is contained in:
Mike Sperber 2007-08-21 08:14:00 +00:00
parent 258490c8ad
commit fb9b192516
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/embedded-gui/private/suppress-modify-editor.ss
View File

@ -12,17 +12,13 @@
(define (suppress-modify-editor-mixin %)
(class %
(inherit set-modified)
#;(define/override (after-delete snip)
(super after-delete snip)
(define/augment (after-delete snip)
(set-modified false))
#;(define/override (after-insert snip before x y)
(super after-insert snip before x y)
(define/augment (after-insert snip before x y)
(set-modified false))
#;(define/override (after-move-to snip x y dragging?)
(super after-move-to snip x y dragging?)
(define/augment (after-move-to snip x y dragging?)
(set-modified false))
#;(define/override (after-resize snip w h resized?)
(super after-resize snip w h resized?)
(define/augment (after-resize snip w h resized?)
(set-modified false))
(super-new)))
)