suzanne.soy/gui
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

original commit: fb9b192516a4c4b074c445be39a6d7ffd93d85fa
This commit is contained in:
Mike Sperber 2007-08-21 08:14:00 +00:00
parent 8ecc6e5d9d
commit ca22785970
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)))
)