--- a/UIPainter.st Tue May 19 18:23:30 2009 +0200
+++ b/UIPainter.st Wed May 20 08:32:45 2009 +0200
@@ -21,7 +21,8 @@
!
SelectionInTreeView subclass:#TreeView
- instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass'
+ instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass
+ painter'
classVariableNames:''
poolDictionaries:''
privateIn:UIPainter
@@ -101,7 +102,11 @@
! !
-!UIPainter class methodsFor:'accessing'!
+!UIPainter class methodsFor:'defaults'!
+
+defaultEditToolbarVisible
+ ^ DefaultEditToolBarVisible ? true
+!
defaultNameOfCanvas
"returns the default name of the application"
@@ -109,6 +114,10 @@
^ 'NewApplication'
!
+defaultToolbarVisible
+ ^ DefaultToolBarVisible ? true
+!
+
selectionPanelClass
^ SelectionPanelClass
@@ -129,16 +138,6 @@
"
! !
-!UIPainter class methodsFor:'defaults'!
-
-defaultEditToolbarVisible
- ^ DefaultEditToolBarVisible ? true
-!
-
-defaultToolbarVisible
- ^ DefaultToolBarVisible ? true
-! !
-
!UIPainter class methodsFor:'help specs'!
flyByHelpSpec
@@ -3532,6 +3531,10 @@
"Created: / 13.8.1998 / 20:33:05 / cg"
!
+defaultNameOfCanvas
+ ^ self class defaultNameOfCanvas
+!
+
defaultWindowSpecClass
^ WindowSpec
! !
@@ -3644,12 +3647,12 @@
aspects at:#methodNameChannel put:'windowSpec' asValue.
treeView := TreeView new.
+ treeView painter:self.
treeView windowSpecClass:(self defaultWindowSpecClass).
- treeView
- selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
+ treeView selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
painterView := StandardSystemView new.
- name := name ? UIPainter defaultNameOfCanvas.
+ name := name ? self defaultNameOfCanvas.
painterView beToolWindow.
painterView name:name.
painterView label:name.
@@ -3670,6 +3673,7 @@
painter := UIPainterView in:painterView.
painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
].
+
treeView := treeView canvas:painter specName:name.
painter treeView:treeView.
treeView model addDependent:self.
@@ -5031,9 +5035,10 @@
specSuperclassName := readFromModelKeyed value:#superclassNameChannel.
(again := self checkClassAndSelector not) ifFalse:[
- self painter className:specClassName
- superclassName:specSuperclassName
- selector:specSelector.
+ self painter
+ className:specClassName
+ superclassName:specSuperclassName
+ selector:specSelector.
].
again ifFalse:[
@@ -5052,8 +5057,9 @@
] doWhile:[again].
- specClassName := specClassName isBehavior ifTrue:[specClassName name]
- ifFalse:[specClassName].
+ specClassName := specClassName isBehavior
+ ifTrue:[specClassName name]
+ ifFalse:[specClassName].
self clearModifiedFlag.
self helpTool buildAndMergeFromClass:specClassName.
@@ -5391,9 +5397,10 @@
self askForModification ifFalse: [^nil].
specClass := specClassName := specSelector := nil.
self painter removeAll.
+self halt.
treeView canvas topView
- name: UIPainter defaultNameOfCanvas;
- label: UIPainter defaultNameOfCanvas.
+ name: self defaultNameOfCanvas;
+ label: self defaultNameOfCanvas.
self helpTool doNew.
self treeSelectionChanged.
treeView selectedNode changed.
@@ -5752,7 +5759,11 @@
props := UIPainterView::ViewProperty new.
props view:aCanvas.
- model root:(TreeItem name:(nameOfSpec ? UIPainter defaultNameOfCanvas) asBoldText contents:props).
+
+ model root:(TreeItem
+ name:(nameOfSpec ? painter defaultNameOfCanvas) asBoldText
+ contents:props).
+
model root expand.
self enableChannel:(aCanvas enableChannel).
!
@@ -5840,6 +5851,14 @@
!
+painter
+ ^ painter
+!
+
+painter:something
+ painter := something.
+!
+
windowSpecClass
"returns the default windowSpecClass (WindowSpec)"
@@ -5926,7 +5945,7 @@
"/ care to not destroy the transparent input view
(aView isInputOnly) ifFalse:[aView destroy]
].
- model root name: UIPainter defaultNameOfCanvas asBoldText.
+ model root name: painter defaultNameOfCanvas asBoldText.
model removeAllOtherThanRoot.
!