--- a/DataSetBuilder.st	Mon Jan 19 09:24:19 1998 +0100
+++ b/DataSetBuilder.st	Mon Jan 19 10:59:39 1998 +0100
@@ -1143,7 +1143,6 @@
             )
              #(#MenuItem
                 #'label:' 'File'
-                #'accessCharacterPosition:' 1
                 #'submenu:' 
                  #(#Menu
                     
@@ -1176,7 +1175,6 @@
             )
              #(#MenuItem
                 #'label:' 'Edit'
-                #'accessCharacterPosition:' 1
                 #'submenuChannel:' #menuEdit
             )
           ) nil
@@ -1407,6 +1405,16 @@
 
 !
 
+modifiedChannel
+    "returns a boolean value holder which is set to true if something is modified
+     and not accepted"
+
+    ^builder booleanValueAspectFor:#modifiedChannel
+
+
+
+!
+
 rendererTypeList
     "generate list of supported renderer types"