--- a/UIPainter.st Thu Feb 23 22:26:18 2006 +0100
+++ b/UIPainter.st Thu Mar 02 09:36:36 2006 +0100
@@ -11,11 +11,11 @@
"
-"{ Package: 'stx:libtool2' }"
+"{ Package: '__NoProject__' }"
ResourceSpecEditor subclass:#UIPainter
instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
- helpTool'
+ helpTool painterView painter'
classVariableNames:''
poolDictionaries:''
category:'Interface-UIPainter'
@@ -2376,6 +2376,12 @@
!
enableChannel
+ "true if modifications are allowed otherwise in test mode"
+
+ ^ builder valueAspectFor:#enableChannel initialValue:true
+!
+
+enableChannel2
"true if modifications are allowed otherwise running test"
^ self painter enableChannel
@@ -3211,6 +3217,7 @@
painter
"returns the canvas view"
+^ painter.
^ treeView canvas
!
@@ -3529,11 +3536,31 @@
!
initialize
+ |name|
+
super initialize.
modified := false.
aspects := IdentityDictionary new.
aspects at:#classNameChannel put:'NewApplication' asValue.
+
+ treeView := TreeView new.
+ treeView windowSpecClass:(self defaultWindowSpecClass).
+ treeView
+ selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
+
+ painterView := StandardSystemView new.
+ name := name ? UIPainter defaultNameOfCanvas.
+ painterView beToolWindow.
+ painterView name:name.
+ painterView label:name.
+ painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
+ 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.
+ painter enableChannel:(self enableChannel).
!
loadFromClass:aClass andSelector:selector
@@ -3565,7 +3592,7 @@
openInterface:aSymbol
"in addition to opening my interface, also open up a gallery and a painter"
- |cls painterView painter topView galleryWindow icon name|
+ |cls topView galleryWindow icon name|
specClassName notNil ifTrue:[
specClassName isBehavior ifTrue:[
@@ -3594,22 +3621,23 @@
ifTrue:[ specSelector asValue ]
ifFalse:[ #windowSpec ]) asValue).
- treeView := TreeView new.
- treeView windowSpecClass:(self defaultWindowSpecClass).
- treeView
- selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
-
- painterView := StandardSystemView new.
- name := name ? UIPainter defaultNameOfCanvas.
- painterView beToolWindow.
- painterView name:name.
- painterView label:name.
- painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
- 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.
+"/ treeView := TreeView new.
+"/ treeView windowSpecClass:(self defaultWindowSpecClass).
+"/ treeView
+"/ selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
+
+"/ painterView := StandardSystemView new.
+"/ name := name ? UIPainter defaultNameOfCanvas.
+"/ painterView beToolWindow.
+"/ painterView name:name.
+"/ painterView label:name.
+"/ painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
+"/ 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.
+"/ painter enableChannel:(self enableChannel).
super openInterface:aSymbol.