comments
authorClaus Gittinger <cg@exept.de>
Wed, 09 Jan 2008 11:35:39 +0100
changeset 2225 b01b58d85458
parent 2224 6ec083adc6bf
child 2226 5917585724c6
comments
UIPainter.st
--- a/UIPainter.st	Tue Jan 08 21:08:27 2008 +0100
+++ b/UIPainter.st	Wed Jan 09 11:35:39 2008 +0100
@@ -96,6 +96,11 @@
 
 selectionPanelClass
     ^ SelectionPanelClass
+
+    "
+     UIPainter selectionPanelClass.
+     UIPainter selectionPanelClass:UISelectionPanel
+    "
 !
 
 selectionPanelClass:something
@@ -103,6 +108,10 @@
      this is UISelectionPanel as default"
 
     SelectionPanelClass := something.
+
+    "
+     UIPainter selectionPanelClass:UISelectionPanel
+    "
 ! !
 
 !UIPainter class methodsFor:'help specs'!