# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1199874939 -3600
# Node ID b01b58d854583ae622b93e2cfcb38dc5a7f35797
# Parent  6ec083adc6bf356710463fda183908d1086c5ded
comments

diff -r 6ec083adc6bf -r b01b58d85458 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'!