equal
deleted
inserted
replaced
568 "returns subspec assigned to instance or nil |
568 "returns subspec assigned to instance or nil |
569 " |
569 " |
570 |name| |
570 |name| |
571 |
571 |
572 anObject notNil ifTrue:[ |
572 anObject notNil ifTrue:[ |
573 name := anObject name. |
573 name := anObject name. |
574 |
574 |
575 specification do:[:aSpec| |
575 specification do:[:aSpec| |
576 aSpec name = name ifTrue:[ |
576 aSpec notNil ifTrue:[ |
577 aSpec canUIDrag ifTrue:[^ aSpec] |
577 aSpec name = name ifTrue:[ |
578 ifFalse:[^ nil] |
578 aSpec canUIDrag ifTrue:[^ aSpec] |
579 ] |
579 ifFalse:[^ nil] |
580 ] |
580 ] |
|
581 ] |
|
582 ] |
581 ]. |
583 ]. |
582 ^ nil |
584 ^ nil |
583 |
585 |
584 |
586 "Modified: / 18.5.1999 / 14:47:25 / cg" |
585 ! ! |
587 ! ! |
586 |
588 |
587 !UIGalleryView::Canvas methodsFor:'selection'! |
589 !UIGalleryView::Canvas methodsFor:'selection'! |
588 |
590 |
589 handlesOf:aComponent do:aOneArgBlock |
591 handlesOf:aComponent do:aOneArgBlock |