.

original commit: 46ef3b038b7f8a40faf6518f9791aef95a1e592f

collects/mred/private/kernel.ss

@@ -241,6 +241,7 @@
     read-header-from-file
     set-filename
     release-snip
+    on-snip-modified
     set-modified
     set-snip-data
     get-snip-data
@@ -640,6 +641,7 @@
     get-wheel-step
     set-wheel-step)
   (define-class editor-admin% object% #f
+    modified
     refresh-delayed?
     popup-menu
     update-cursor
@@ -653,6 +655,7 @@
   (define-private-class editor-snip-editor-admin% editor-snip-editor-admin<%> editor-admin% #f
     get-snip)
   (define-class snip-admin% object% #f
+    modified
     popup-menu
     update-cursor
     release-snip
@@ -816,6 +819,7 @@
     read-header-from-file
     set-filename
     release-snip
+    on-snip-modified
     set-modified
     set-snip-data
     get-snip-data
@@ -1020,6 +1024,7 @@
     read-from-file
     set-filename
     release-snip
+    on-snip-modified
     set-modified
     set-snip-data
     get-snip-data
@@ -1104,6 +1109,7 @@
   (define-class snip% object% #f
     previous
     next
+    set-unmodified
     get-scroll-step-offset
     find-scroll-step
     get-num-scroll-steps
@@ -1140,6 +1146,7 @@
   (define-class string-snip% snip% #f
     read
     insert
+    set-unmodified
     get-scroll-step-offset
     find-scroll-step
     get-num-scroll-steps
@@ -1163,6 +1170,7 @@
     partial-offset
     get-extent)
   (define-class tab-snip% string-snip% #f
+    set-unmodified
     get-scroll-step-offset
     find-scroll-step
     get-num-scroll-steps
@@ -1191,6 +1199,7 @@
     get-filetype
     get-filename
     load-file
+    set-unmodified
     get-scroll-step-offset
     find-scroll-step
     get-num-scroll-steps
@@ -1232,6 +1241,7 @@
     get-max-width
     set-max-height
     set-max-width
+    set-unmodified
     get-scroll-step-offset
     find-scroll-step
     get-num-scroll-steps