--- a/UIPainter.st	Mon Apr 23 22:59:08 2001 +0200
+++ b/UIPainter.st	Fri May 04 21:26:30 2001 +0200
@@ -2928,7 +2928,7 @@
 
     "/ the selectionPanel ...
 
-    selectionPanel := UISelectionPanel new.
+    selectionPanel := self selectionPanelClass new.
     selectionPanel allButOpenInterface:#windowSpec.
     (galleryWindow := selectionPanel window) openInGroup:(topView windowGroup).
     selectionPanel openWindow.
@@ -3054,6 +3054,10 @@
     ].
 
     "Modified: / 13.7.1999 / 21:26:52 / cg"
+!
+
+selectionPanelClass
+    ^ UISelectionPanel
 ! !
 
 !UIPainter methodsFor:'user actions'!