# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1141288596 -3600
# Node ID 3a3b694c82886f850b44f3b3aeef1661de7f1a8e
# Parent  d323a2d0dbfcb720e368f8f2adefcc0776436633
*** empty log message ***

diff -r d323a2d0dbfc -r 3a3b694c8288 UIPainter.st
--- 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.