diff -r 23ff7c325946 -r d35dccaa804c MenuEditor.st
--- a/MenuEditor.st	Mon Jan 19 11:39:44 1998 +0100
+++ b/MenuEditor.st	Mon Jan 19 11:48:04 1998 +0100
@@ -79,6 +79,8 @@
 
 initialize
 
+    super initialize.
+
     TreeView initialize
 ! !
 
@@ -110,7 +112,7 @@
 !
 
 sourceCategory
-    "returns the catagory where to instal the menu
+    "returns the category where to install the menu
     "
     ^ 'accessing menu'
 ! !
@@ -216,11 +218,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'MenuEditor'
-              #'layout:' #(#LayoutFrame 344 0 297 0 590 0 390 0)
+              #'layout:' #(#LayoutFrame 262 0 426 0 508 0 519 0)
               #'label:' 'MenuEditor'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 344 297 591 391)
+              #'bounds:' #(#Rectangle 262 426 509 520)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -229,47 +231,24 @@
                #(
                  #(#LabelSpec
                     #'name:' 'boxLabel'
-                    #'layout:' #(#LayoutFrame 0 0.0 4 0 0 1.0 24 0)
+                    #'layout:' #(#LayoutFrame 2 0.0 4 0 -2 1.0 24 0)
                     #'label:' 'Class for menu spec:'
                     #'adjust:' #left
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'classNameField'
-                    #'layout:' #(#LayoutFrame 0 0.0 27 0 0 1.0 49 0)
+                    #'layout:' #(#LayoutFrame 2 0.0 27 0 -2 1.0 49 0)
                     #'tabable:' true
                     #'model:' #classNameChannel
                     #'acceptOnReturn:' false
                     #'acceptOnTab:' false
                 )
-                 #(#HorizontalPanelViewSpec
-                    #'name:' 'commitPanel'
-                    #'layout:' #(#LayoutFrame 10 0.0 -29 1.0 -10 1.0 -5 1.0)
-                    #'component:' 
-                     #(#SpecCollection
-                        #'collection:' 
-                         #(
-                           #(#ActionButtonSpec
-                              #'name:' 'button1'
-                              #'label:' 'Cancel'
-                              #'tabable:' true
-                              #'model:' #cancel
-                              #'extent:' #(#Point 109 24)
-                          )
-                           #(#ActionButtonSpec
-                              #'name:' 'button2'
-                              #'label:' 'OK'
-                              #'tabable:' true
-                              #'model:' #accept
-                              #'isDefault:' true
-                              #'extent:' #(#Point 109 24)
-                          )
-                        )
-                    )
-                    #'horizontalLayout:' #fitSpace
-                    #'verticalLayout:' #fit
-                    #'horizontalSpace:' 3
-                    #'verticalSpace:' 3
+                 #(#UISubSpecification
+                    #'name:' 'SubSpecification'
+                    #'layout:' #(#LayoutFrame 0 0 -29 1 0 1 -5 1)
+                    #'majorKey:' #ToolApplicationModel
+                    #'minorKey:' #windowSpecForCommitWithoutChannels
                 )
               )
           )
@@ -1460,7 +1439,7 @@
         specCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
 
         helpCanvas client:helpTool.
-        helpTool masterApplication:self.
+        helpTool masterApplication:self.      
         helpTool modifiedHolder: self valueOfEnablingCommitButtons.
 
         builder aspectAt:#noteBookView put:noteBook.
@@ -1627,7 +1606,7 @@
 
 menuChanged
 
-    |node item slc sel old|
+    |node item slc sel old dep|
 
     aspects do: [:holder| holder removeDependent:self].
     (node := self treeView selectedNode) notNil ifTrue:[
@@ -1651,7 +1630,11 @@
             slc := self class perform:#slicesSeparatorMenu.
         ]
     ].
-    self helpTool helpKey:(self helpKey).
+
+    self helpTool helpKey: self helpKey.
+    "Next line helps me to preserve myself against unnecessary settings of
+     valueOfEnablingCommitButtons to true in the help tool."
+    self valueOfEnablingCommitButtons value: false.
 
     slc ~= slices  ifTrue:[
         tabSelection ~~ 0 ifTrue:[
@@ -1699,7 +1682,7 @@
         tabSelection := 1
     ].
 
-    self isHelpToolSelected ifTrue:[   
+    self isHelpToolSelected ifTrue:[  
         self helpTool helpKey:(self helpKey).
         helpCanvas raise.
     ] ifFalse:[                       
@@ -1896,7 +1879,7 @@
     |node|
     (node := self treeView selectedNode) notNil
     ifTrue:
-    [
+    [          
         self helpTool helpKey:(self helpKey).
         aspects do:[:anAspect| anAspect value:nil].
         node contents toAspects:aspects
@@ -2104,7 +2087,7 @@
     ifTrue:
     [            
         self loadFromInClassesOf: box contents asSymbol
-    ].
+    ]
 
 
 
@@ -2699,18 +2682,6 @@
     self topView application isModified: true
 ! !
 
-!MenuEditor::TreeView methodsFor:'queries'!
-
-xOfFigureLevel2:aLevel
-
-    ^super xOfFigureLevel: aLevel - 1 
-
-
-
-
-
-! !
-
 !MenuEditor::TreeView methodsFor:'selection'!
 
 updateNode: aNode