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