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

diff -r 1e362121fe32 -r ac2a1dd83d28 UIPainter.st
--- a/UIPainter.st	Tue Feb 03 22:39:15 1998 +0100
+++ b/UIPainter.st	Tue Feb 03 22:42:25 1998 +0100
@@ -503,11 +503,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Tree-View'
-              #'layout:' #(#LayoutFrame 251 0 316 0 803 0 841 0)
+              #'layout:' #(#LayoutFrame 340 0 328 0 892 0 853 0)
               #'label:' 'Tree-View'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1160 870)
-              #'bounds:' #(#Rectangle 251 316 804 842)
+              #'bounds:' #(#Rectangle 340 328 893 854)
               #'menu:' #menu
               #'usePreferredExtent:' false
           )
@@ -524,7 +524,7 @@
                 )
                  #(#VariableVerticalPanelSpec
                     #'name:' 'vpanel'
-                    #'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:' 
@@ -664,7 +664,7 @@
                                                             #'tabable:' true
                                                             #'model:' #cancel
                                                             #'enableChannel:' #modifiedChannel
-                                                            #'extent:' #(#Point 180 24)
+                                                            #'extent:' #(#Point 179 24)
                                                         )
                                                          #(#ActionButtonSpec
                                                             #'name:' 'acceptButton'
@@ -704,7 +704,7 @@
                 )
                  #(#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
                 )
@@ -2299,9 +2299,15 @@
 
 !UIPainter methodsFor:'help'!
 
+defaultInfoLabel
+
+    specClass isNil ifTrue: [^'No class and selector defined'].
+    ^specClass printString, ' >> ', specSelector
+!
+
 openTutorial
 
-    self openTutorial: 'doc/online/english/tools/uipainter/TOP.html'
+    self openTutorial: 'tools/uipainter/TOP.html'
 !
 
 showHelp:aHelpText for:view
@@ -2408,9 +2414,8 @@
         specClass isString ifTrue: [className := specClass].
         message := className, ' ', specSelector.
         self addToHistory: message -> #loadFromMessage:.
-        self valueOfInfoLabel value: className, ' >> ', specSelector
+        self updateInfoLabel
     ].
-    "Modified: 24.6.1997 / 19:07:01 / cg"
 !
 
 setViewInLayoutTool:aView
@@ -2727,9 +2732,6 @@
     selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
 
     ActiveHelp startFor:self.
-
-    self valueOfHavingTutorial value: true
-                                           
 !
 
 openNewWindowCanvas
@@ -2928,7 +2930,7 @@
             ^ self
         ]
     ].
-    self painter removeAll
+    self painter removeAll.
 !
 
 doPickAView