--- 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.