diff -r 1586e7da66bc -r 968c6aa88ef0 MenuEditor.st
--- a/MenuEditor.st	Wed Jan 28 18:32:02 1998 +0100
+++ b/MenuEditor.st	Wed Jan 28 19:10:17 1998 +0100
@@ -84,6 +84,20 @@
     TreeView initialize
 ! !
 
+!MenuEditor class methodsFor:'instance creation'!
+
+openModalOnClass:aClass andSelector:aSelector
+    ^ self new openModalOnClass:aClass andSelector:aSelector
+
+
+!
+
+openOnClass:aClass andSelector:aSelector
+    ^ self new openOnClass:aClass andSelector:aSelector
+
+
+! !
+
 !MenuEditor class methodsFor:'code generation'!
 
 generateCodeFor:aClass menuSelector:aSelector
@@ -253,6 +267,102 @@
       )
 !
 
+windowSpec
+    "this window spec was automatically generated by the ST/X UIPainter"
+
+    "do not manually edit this - the painter/builder may not be able to
+     handle the specification if its corrupted."
+
+    "
+     UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
+     MenuEditor new openInterface:#windowSpec
+    "
+    "MenuEditor open"
+
+    <resource: #canvas>
+
+    ^
+     
+       #(#FullSpec
+          #'window:' 
+           #(#WindowSpec
+              #'name:' 'Menu Builder'
+              #'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
+              #'label:' 'Menu Builder'
+              #'min:' #(#Point 10 10)
+              #'max:' #(#Point 1152 900)
+              #'bounds:' #(#Rectangle 221 394 801 778)
+              #'menu:' #menu
+              #'usePreferredExtent:' false
+          )
+          #'component:' 
+           #(#SpecCollection
+              #'collection:' 
+               #(
+                 #(#MenuPanelSpec
+                    #'name:' 'menuToolbarView'
+                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+                    #'menu:' #menuToolbar
+                    #'showSeparatingLines:' true
+                )
+                 #(#VariableHorizontalPanelSpec
+                    #'name:' 'variableHorizontalPanel1'
+                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
+                    #'component:' 
+                     #(#SpecCollection
+                        #'collection:' 
+                         #(
+                           #(#ArbitraryComponentSpec
+                              #'name:' 'painterView'
+                              #'menu:' #menuEdit
+                              #'hasHorizontalScrollBar:' true
+                              #'hasVerticalScrollBar:' true
+                              #'component:' #treeView
+                              #'hasBorder:' false
+                          )
+                           #(#ViewSpec
+                              #'name:' 'view1'
+                              #'component:' 
+                               #(#SpecCollection
+                                  #'collection:' 
+                                   #(
+                                     #(#NoteBookViewSpec
+                                        #'name:' 'specificationView'
+                                        #'layout:' #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
+                                        #'tabable:' true
+                                        #'model:' #tabModel
+                                        #'menu:' #tabList
+                                        #'useIndex:' true
+                                        #'canvas:' #noteBookView
+                                    )
+                                     #(#UISubSpecification
+                                        #'name:' 'SubSpecification'
+                                        #'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
+                                        #'majorKey:' #ToolApplicationModel
+                                        #'minorKey:' #windowSpecForCommit
+                                    )
+                                  )
+                              )
+                              #'level:' -1
+                          )
+                        )
+                    )
+                    #'level:' 1
+                    #'handles:' #(#Any 0.384483 1.0)
+                )
+                 #(#UISubSpecification
+                    #'name:' 'infoBarSubSpec'
+                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
+                    #'majorKey:' #ToolApplicationModel
+                    #'minorKey:' #windowSpecForInfoBar
+                )
+              )
+          )
+      )
+! !
+
+!MenuEditor class methodsFor:'menu specs'!
+
 menu
     "this window spec was automatically generated by the ST/X MenuEditor"
 
@@ -552,100 +662,6 @@
           ) nil
           nil
       )
-!
-
-windowSpec
-    "this window spec was automatically generated by the ST/X UIPainter"
-
-    "do not manually edit this - the painter/builder may not be able to
-     handle the specification if its corrupted."
-
-    "
-     UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
-     MenuEditor new openInterface:#windowSpec
-    "
-    "MenuEditor open"
-
-    <resource: #canvas>
-
-    ^
-     
-       #(#FullSpec
-          #'window:' 
-           #(#WindowSpec
-              #'name:' 'Menu Builder'
-              #'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
-              #'label:' 'Menu Builder'
-              #'min:' #(#Point 10 10)
-              #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 221 394 801 778)
-              #'menu:' #menu
-              #'usePreferredExtent:' false
-          )
-          #'component:' 
-           #(#SpecCollection
-              #'collection:' 
-               #(
-                 #(#MenuPanelSpec
-                    #'name:' 'menuToolbarView'
-                    #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
-                    #'menu:' #menuToolbar
-                    #'showSeparatingLines:' true
-                )
-                 #(#VariableHorizontalPanelSpec
-                    #'name:' 'variableHorizontalPanel1'
-                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
-                    #'component:' 
-                     #(#SpecCollection
-                        #'collection:' 
-                         #(
-                           #(#ArbitraryComponentSpec
-                              #'name:' 'painterView'
-                              #'menu:' #menuEdit
-                              #'hasHorizontalScrollBar:' true
-                              #'hasVerticalScrollBar:' true
-                              #'component:' #treeView
-                              #'hasBorder:' false
-                          )
-                           #(#ViewSpec
-                              #'name:' 'view1'
-                              #'component:' 
-                               #(#SpecCollection
-                                  #'collection:' 
-                                   #(
-                                     #(#NoteBookViewSpec
-                                        #'name:' 'specificationView'
-                                        #'layout:' #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
-                                        #'tabable:' true
-                                        #'model:' #tabModel
-                                        #'menu:' #tabList
-                                        #'useIndex:' true
-                                        #'canvas:' #noteBookView
-                                    )
-                                     #(#UISubSpecification
-                                        #'name:' 'SubSpecification'
-                                        #'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
-                                        #'majorKey:' #ToolApplicationModel
-                                        #'minorKey:' #windowSpecForCommit
-                                    )
-                                  )
-                              )
-                              #'level:' -1
-                          )
-                        )
-                    )
-                    #'level:' 1
-                    #'handles:' #(#Any 0.384483 1.0)
-                )
-                 #(#UISubSpecification
-                    #'name:' 'infoBarSubSpec'
-                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
-                    #'majorKey:' #ToolApplicationModel
-                    #'minorKey:' #windowSpecForInfoBar
-                )
-              )
-          )
-      )
 ! !
 
 !MenuEditor class methodsFor:'resources'!
@@ -1333,20 +1349,6 @@
       )
 ! !
 
-!MenuEditor class methodsFor:'startup'!
-
-openModalOnClass:aClass andSelector:aSelector
-    ^ self new openModalOnClass:aClass andSelector:aSelector
-
-
-!
-
-openOnClass:aClass andSelector:aSelector
-    ^ self new openOnClass:aClass andSelector:aSelector
-
-
-! !
-
 !MenuEditor methodsFor:'accessing'!
 
 isModified: aBoolean         
@@ -2662,7 +2664,9 @@
 
 setModified 
 
-    self topView application isModified: true
+    self topView application isModified: true.
+
+    self topView application updateEnabledChannels
 ! !
 
 !MenuEditor::TreeView methodsFor:'selection'!