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