UIPainter.st
changeset 2218 01fdf3323d89
parent 2217 b54632779619
child 2219 dc5bf7573298
--- a/UIPainter.st	Tue Dec 11 16:54:10 2007 +0100
+++ b/UIPainter.st	Tue Dec 11 17:05:09 2007 +0100
@@ -12,18 +12,18 @@
 "{ Package: 'stx:libtool2' }"
 
 ResourceSpecEditor subclass:#UIPainter
-        instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
-                helpTool painterView painter'
-        classVariableNames:'SelectionPanelClass UseViewScroller'
-        poolDictionaries:''
-        category:'Interface-UIPainter'
+	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
+		helpTool painterView painter'
+	classVariableNames:'SelectionPanelClass UseViewScroller'
+	poolDictionaries:''
+	category:'Interface-UIPainter'
 !
 
 SelectionInTreeView subclass:#TreeView
-        instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec windowSpecClass'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:UIPainter
+	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec windowSpecClass'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:UIPainter
 !
 
 !UIPainter class methodsFor:'documentation'!
@@ -94,6 +94,10 @@
     ^ 'NewApplication'
 !
 
+selectionPanelClass
+    ^ SelectionPanelClass
+!
+
 selectionPanelClass:something
     "set the class used as selection panel.
      this is UISelectionPanel as default"
@@ -3695,7 +3699,7 @@
 !
 
 selectionPanelClass
-    ^ UISelectionPanel
+    ^ SelectionPanelClass
 !
 
 setupCanvasAndSelectionPanel