--- 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