# HG changeset patch
# User tz
# Date 886541955 -3600
# Node ID 1e362121fe3293361b574f6d99cb80d7512f0bff
# Parent  f79a0178adc14df4f5f4d1776816861f0364b8f5
open tutorial added

diff -r f79a0178adc1 -r 1e362121fe32 MenuEditor.st
--- a/MenuEditor.st	Tue Feb 03 22:16:13 1998 +0100
+++ b/MenuEditor.st	Tue Feb 03 22:39:15 1998 +0100
@@ -890,11 +890,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Menu Builder'
-              #'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
+              #'layout:' #(#LayoutFrame 324 0 233 0 903 0 616 0)
               #'label:' 'Menu Builder'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1152 900)
-              #'bounds:' #(#Rectangle 221 394 801 778)
+              #'bounds:' #(#Rectangle 324 233 904 617)
               #'menu:' #menu
               #'usePreferredExtent:' false
           )
@@ -910,7 +910,7 @@
                 )
                  #(#VariableHorizontalPanelSpec
                     #'name:' 'variableHorizontalPanel1'
-                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
+                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
                     #'component:' 
                      #(#SpecCollection
                         #'collection:' 
@@ -950,12 +950,11 @@
                           )
                         )
                     )
-                    #'level:' 1
                     #'handles:' #(#Any 0.384483 1.0)
                 )
                  #(#UISubSpecification
                     #'name:' 'infoBarSubSpec'
-                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
+                    #'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
                     #'majorKey:' #ToolApplicationModel
                     #'minorKey:' #windowSpecForInfoBarWithClock
                 )
@@ -1475,15 +1474,6 @@
     self helpTool dictionary:aDictionary
 ! !
 
-!MenuEditor methodsFor:'active help'!
-
-defaultInfoLabel
-
-    specClass isNil ifTrue: [^'No menu class defined'].
-    ^specClass printString, ' >> ', self treeView selectorName
-  
-! !
-
 !MenuEditor methodsFor:'aspects'!
 
 aspectFor:aKey
@@ -1643,6 +1633,21 @@
 
 ! !
 
+!MenuEditor methodsFor:'help'!
+
+defaultInfoLabel
+
+    specClass isNil ifTrue: [^'No menu class defined'].
+    ^specClass printString, ' >> ', self treeView selectorName
+  
+!
+
+openTutorial
+
+    self openTutorial: 'tools/uipainter/TOP.html#ADDINGMENUBAR'.
+
+! !
+
 !MenuEditor methodsFor:'private'!
 
 checkMenuItemModified
@@ -1830,7 +1835,7 @@
         self addToHistory: message -> #loadFromMessage:
     ].
 
-    self valueOfInfoLabel value: self defaultInfoLabel.
+    self updateInfoLabel.
     self treeView selection: 2.
     self menuChanged
 
@@ -1900,6 +1905,7 @@
     aspects at:#seperatorSelection put:(holder := SelectionInList new).
     holder list: Item separatorList.
     holder addDependent:self.
+
 !
 
 loadFromMessage: aMessage