# HG changeset patch
# User tz
# Date 889576885 -3600
# Node ID 7f228c9cde2e9a357a998c5523d0c420526d9796
# Parent  2e2d0dcbaaa7654fc3f42344c1657b9d5f4299b9
show default widgets for the UISelectionPanel

diff -r 2e2d0dcbaaa7 -r 7f228c9cde2e UIGalleryView.st
--- a/UIGalleryView.st	Tue Mar 10 16:16:03 1998 +0100
+++ b/UIGalleryView.st	Wed Mar 11 01:41:25 1998 +0100
@@ -343,7 +343,8 @@
           ^ self
         ].
         (builder := uiBuilder) isNil ifTrue:[
-            builder := UIBuilder new isEditing:true
+            builder := UIBuilder new isEditing:true.
+            builder showDefaults:true.
         ].
 
         specification buildViewFor:builder in:self.
@@ -435,19 +436,13 @@
 startDragWithOffset:offs
     "start drag of selection
     "
-    |dragObj spec name o|
+    |dragObj spec o|
 
     spec := self findSpecFor:selection.
 
     spec notNil ifTrue:[
         spec := self buildSpecFrom:spec.
-        name := spec className asString.
-        (name endsWith:'Spec') ifTrue:[
-        name := name copyFrom:1 to:(name size - 4).
-        ] ifFalse:[
-            name := name copy
-        ].
-        spec name:(name, $1).
+        spec name:(spec copy userFriendlyName, $1).
 
         self showUnselected.
         dragObj := DropSpec for:selection specification:spec.