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 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
14 |
13 |
15 ResourceSpecEditor subclass:#MenuEditor |
14 ResourceSpecEditor subclass:#MenuEditor |
16 instanceVariableNames:'selectionHolder tabHolder listOfItems listOfTabs |
15 instanceVariableNames:'selectionHolder tabHolder listOfItems listOfTabs |
17 selectedSuperItems notifyDisabledCounter wizards listOfItemsView |
16 selectedSuperItems notifyDisabledCounter wizards listOfItemsView |
2030 ]. |
2029 ]. |
2031 objects := aContext dropObjects. |
2030 objects := aContext dropObjects. |
2032 objects isEmpty ifTrue:[ ^ self ]. "/ nothing to drop ??? |
2031 objects isEmpty ifTrue:[ ^ self ]. "/ nothing to drop ??? |
2033 |
2032 |
2034 "/ test whether all objects are dropable (kind of MenuItem) |
2033 "/ test whether all objects are dropable (kind of MenuItem) |
2035 objects do:[:el| |
2034 (objects conform:[:el | (el theObject askFor:#isMenuItem)]) ifTrue:[ |
2036 (el theObject askFor:#isMenuItem) ifFalse:[ |
2035 "/ ok, the contents is dropable |
2037 "/ contains none-dropable objects |
2036 dropOverLine := 0. |
2038 ^ self |
2037 ] |
2039 ]. |
2038 |
2040 ]. |
2039 "Modified: / 13-10-2006 / 12:57:06 / cg" |
2041 |
|
2042 "/ ok, the contents is dropable |
|
2043 dropOverLine := 0. |
|
2044 ! |
2040 ! |
2045 |
2041 |
2046 dropLeave:aContext |
2042 dropLeave:aContext |
2047 "the widget is leaved; restore drop indications drawn ... |
2043 "the widget is leaved; restore drop indications drawn ... |
2048 " |
2044 " |