UIGalleryView.st
changeset 661 34af6869d5b8
parent 396 e15b7b5bb81b
child 683 648ba2c8536e
equal deleted inserted replaced
660:46f55243f1f1 661:34af6869d5b8
   436     spec := self findSpecFor:selection.
   436     spec := self findSpecFor:selection.
   437 
   437 
   438     spec notNil ifTrue:[
   438     spec notNil ifTrue:[
   439         spec := self buildSpecFrom:spec.
   439         spec := self buildSpecFrom:spec.
   440         name := spec className asString.
   440         name := spec className asString.
   441         name := name copyFrom:1 to:(name size - ('Spec' size) + 1). 
   441         (name endsWith:'Spec') ifTrue:[
   442         name at:1 put:(name at:1) asLowercase.
   442         name := name copyFrom:1 to:(name size - 4).
   443         name at:(name size) put:$1.
   443         ] ifFalse:[
   444         spec name:name.
   444             name := name copy
       
   445         ].
       
   446         spec name:(name, $1).
   445 
   447 
   446         self showUnselected.
   448         self showUnselected.
   447         dragObj := DropSpec for:selection specification:spec.
   449         dragObj := DropSpec for:selection specification:spec.
   448         self showSelected.
   450         self showSelected.
   449 
   451