equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 |
|
14 |
|
15 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
16 |
13 |
17 ApplicationModel subclass:#UISelectionPanel |
14 ApplicationModel subclass:#UISelectionPanel |
18 instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection |
15 instanceVariableNames:'gallery userClass userSpecs userLabels majorSelection |
19 clipBoardSpec' |
16 clipBoardSpec' |
1601 super update:something with:aParameter from:changedObject. |
1598 super update:something with:aParameter from:changedObject. |
1602 ! ! |
1599 ! ! |
1603 |
1600 |
1604 !UISelectionPanel methodsFor:'drag & drop'! |
1601 !UISelectionPanel methodsFor:'drag & drop'! |
1605 |
1602 |
1606 canDrop:aCollectionOfDropObjects in:aComponent |
1603 canDropObjects:aCollectionOfDropObjects in:aComponent |
1607 ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
1604 ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
|
1605 |
|
1606 "Created: / 13-10-2006 / 15:53:04 / cg" |
1608 ! |
1607 ! |
1609 |
1608 |
1610 drop:aCollectionOfDropObjects in:aComponent at:aPoint |
1609 drop:aCollectionOfDropObjects in:aComponent at:aPoint |
1611 |
1610 |
1612 |spc top| |
1611 |spc top| |