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