# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 989004390 -7200
# Node ID b061747908b50368f37e449c48a725dc18981c0c
# Parent  89549732a2c898b2b9b08ca32c0118cbbb8f7a85
*** empty log message ***

diff -r 89549732a2c8 -r b061747908b5 UIPainter.st
--- 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'!