equal
deleted
inserted
replaced
59 ^ inDropMode and:[canDropItem] |
59 ^ inDropMode and:[canDropItem] |
60 |
60 |
61 "Modified: / 13-10-2006 / 11:35:09 / cg" |
61 "Modified: / 13-10-2006 / 11:35:09 / cg" |
62 ! |
62 ! |
63 |
63 |
64 canDropObjects:dropObjects |
|
65 ^ inDropMode and:[canDropItem] |
|
66 |
|
67 "Created: / 13-10-2006 / 15:54:04 / cg" |
|
68 ! |
|
69 |
|
70 doDrop:aContext |
64 doDrop:aContext |
71 |col destinationPath receiver didDrop| |
65 |col destinationPath receiver didDrop| |
72 |
66 |
73 destinationPath := self dropDestinationPath. |
67 destinationPath := self dropDestinationPath. |
74 |
68 |
125 self dropTargetItemChangedTo:nil in:aDropContext. |
119 self dropTargetItemChangedTo:nil in:aDropContext. |
126 self removeExpandItemTimedBlock. |
120 self removeExpandItemTimedBlock. |
127 inDropMode := false. |
121 inDropMode := false. |
128 ! |
122 ! |
129 |
123 |
130 dropObjects:dropObjects |
|
131 self halt. |
|
132 |
|
133 "Created: / 13-10-2006 / 15:55:35 / cg" |
|
134 ! |
|
135 |
|
136 dropTargetItemChangedTo:anItem in:aContext |
124 dropTargetItemChangedTo:anItem in:aContext |
137 |
125 |
138 self subclassResponsibility |
126 self subclassResponsibility |
139 ! |
127 ! |
140 |
128 |
219 ! ! |
207 ! ! |
220 |
208 |
221 !AbstractDirectoryBrowser class methodsFor:'documentation'! |
209 !AbstractDirectoryBrowser class methodsFor:'documentation'! |
222 |
210 |
223 version |
211 version |
224 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.21 2006-10-13 16:24:30 cg Exp $' |
212 ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.22 2006-10-16 16:59:58 cg Exp $' |
225 ! ! |
213 ! ! |