--- a/MenuEditor.st	Tue Jul 13 17:37:41 1999 +0200
+++ b/MenuEditor.st	Tue Jul 13 17:39:43 1999 +0200
@@ -358,14 +358,9 @@
        #(#WindowSpec
           #label: 'Basics Item'
           #name: 'Basics Item'
-          #layout: #(#LayoutFrame 40 0 116 0 306 0 434 0)
-          #level: 0
           #min: #(#Point 10 10)
           #max: #(#Point 1160 870)
-          #bounds: #(#Rectangle 40 116 307 435)
-          #usePreferredExtent: false
-          #returnIsOKInDialog: true
-          #escapeIsCancelInDialog: true
+          #bounds: #(#Rectangle 220 200 487 519)
         )
         #component: 
        #(#SpecCollection
@@ -454,7 +449,7 @@
               #tabable: true
               #model: #argument
               #group: #inputGroup
-              #type: #string
+              #type: #smalltalkObject
               #acceptOnReturn: true
               #acceptOnTab: true
               #acceptOnLostFocus: false
@@ -2083,7 +2078,7 @@
 
     |node parent next state|
 
-    self modifiedChannel value:false.
+    self clearModifiedFlag.
     state := false.   
     self updateSelectionOfImage.
 
@@ -2277,7 +2272,7 @@
      valueOfEnablingCommitButtons to true in the help tool."
 
     self valueOfEnablingCommitButtons value: false.
-    self modifiedChannel value: false.
+    self clearModifiedFlag.
 
     slc ~= slices  ifTrue:[
         tabSelection ~~ 0 ifTrue:[
@@ -2393,7 +2388,7 @@
             self helpTool accept.
             node contents activeHelpKey: self helpTool helpKey.
             self valueOfEnablingCommitButtons value: false.
-            self modifiedChannel value: false.
+            self clearModifiedFlag.
         ] ifFalse:[
             node contents buildFromAspects: aspects.
             node changed.
@@ -2416,7 +2411,7 @@
         node contents toAspects:aspects
     ].
     self valueOfEnablingCommitButtons value: false.
-    self modifiedChannel value: false.
+    self clearModifiedFlag.
     modified := false
 !
 
@@ -2913,7 +2908,7 @@
     ^label asBoldText, 
         (value notNil ifTrue: [': [', 
                 value ,
-                (argument notNil ifTrue: [' ', (Text string: argument emphasis: #italic)] ifFalse: ['']),
+                (argument isString ifTrue: [' ', (Text string: argument emphasis: #italic)] ifFalse: ['']),
                  ']'] ifFalse: [''])
 ! !