25 lines
717 B
Racket
25 lines
717 B
Racket
(module suppress-modify-editor mzscheme
|
|
|
|
(require
|
|
mzlib/etc
|
|
mzlib/class
|
|
mred)
|
|
|
|
(provide suppress-modify-editor-mixin)
|
|
|
|
;; Ignore the modification of the pasteboard that is used for layout
|
|
;; Allow nested editors to percollate modify messages up through
|
|
(define (suppress-modify-editor-mixin %)
|
|
(class %
|
|
(inherit set-modified)
|
|
(define/augment (after-delete snip)
|
|
(set-modified false))
|
|
(define/augment (after-insert snip before x y)
|
|
(set-modified false))
|
|
(define/augment (after-move-to snip x y dragging?)
|
|
(set-modified false))
|
|
(define/augment (after-resize snip w h resized?)
|
|
(set-modified false))
|
|
(super-new)))
|
|
)
|