?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
forwarding build fix when MUIA_Scrollgroup_AutoBars is defined (NicJA).
[AROS-Contrib.git] / scalos / main / DragDrop.c
blob7ea5c2c29083b8169d8b4027b1708e33eff7c1e7
1 // DragDrop.c
2 // $Date$
3 // $Revision$
4 // $Id$
5
6
7 #include <exec/types.h>
8 #include <graphics/gels.h>
9 #include <graphics/rastport.h>
10 #include <intuition/classes.h>
11 #include <intuition/classusr.h>
12 #include <intuition/intuitionbase.h>
13 #include <utility/hooks.h>
14 #include <intuition/gadgetclass.h>
15 #include <workbench/workbench.h>
16 #include <workbench/startup.h>
17 #include <dos/dostags.h>
18
19 #define __USE_SYSBASE
20
21 #include <proto/dos.h>
22 #include <proto/exec.h>
23 #include <proto/layers.h>
24 #include <proto/intuition.h>
25 #include <proto/graphics.h>
26 #include <proto/utility.h>
27 #ifdef __AROS__
28 #include <proto/popupmenu.h>
29 #else
30 #include <proto/pm.h>
31 #endif
32 #include <proto/icon.h>
33 #include <proto/iconobject.h>
34 #include <proto/rexxsyslib.h>
35 #include "debug.h"
36 #include <proto/scalos.h>
37 #include <proto/scalosmenuplugin.h>
38
39 #include <clib/alib_protos.h>
40
41 #include <defs.h>
42 #include <datatypes/iconobject.h>
43 #include <scalos/scalos.h>
44 #include <scalos/menu.h>
45 #include <scalos/GadgetBar.h>
46
47 #include <stdlib.h>
48 #include <stdio.h>
49 #include <string.h>
50 #include <stdarg.h>
51 #include <ctype.h>
52
53 #include <DefIcons.h>
54
55 #include "scalos_structures.h"
56 #include "functions.h"
57 #include "locale.h"
58 #include "Variables.h"
59 #include "DtImageClass.h"
60
61 //----------------------------------------------------------------------------
62
63 // local data definitions
64
65 #define DROPMENU
66
67 enum DropMenuImgIndex
68 {
69 DROPMENUIMAGE_Abort = 0,
70 DROPMENUIMAGE_Copy,
71 DROPMENUIMAGE_Move,
72 DROPMENUIMAGE_CreateLink,
73
74 DROPMENUIMAGE_MAX
75 };
76
77 //----------------------------------------------------------------------------
78
79 // local functions
80 static SAVEDS(void) ASM INTERRUPT DropTask(void);
81 static struct DragNode *FindIconInDragList(struct internalScaWindowTask *iwt, const struct ScaIconNode *in);
82 static void DragDropFinish(struct internalScaWindowTask *iwt, struct ScaWindowStruct *wsSrc,
83 struct ScaWindowStruct *wsDest, LONG x, LONG y, struct DropOps *drops);
84 static void Icon2IconDrop(struct ScalosArg **ArgList,
85 struct ScaWindowStruct *wsSrc,
86 struct ScaWindowStruct *wsDest,
87 struct DropInfo *DrInfo);
88 static void Icon2DesktopDrop(struct ScalosArg **, struct ScaWindowStruct *Src,
89 struct ScaWindowStruct *Dest,
90 struct DropInfo *DrInfo);
91 static void Desktop2DesktopDrop(struct ScalosArg **, struct ScaWindowStruct *Src,
92 struct ScaWindowStruct *Dest, struct DropInfo *DrInfo);
93 static void Desktop2IconDrop(struct ScalosArg **, struct ScaWindowStruct *Src,
94 struct ScaWindowStruct *Dest, struct DropInfo *DrInfo);
95 static void DropStart(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtDest,
96 struct ScaIconNode *in);
97 static ULONG Icon2IconDrop_Drawer(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep);
98 static ULONG Icon2IconDrop_File(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep);
99 static ULONG Icon2Icon_MoveDir(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep);
100 static ULONG Icon2Icon_CopyDir(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, CONST_STRPTR DestName, APTR undoStep);
101 static ULONG Icon2Icon_CreateLink(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep);
102 static ULONG DropAddIcon(struct MsgPort *ReplyPort, struct ScaWindowStruct *wsDest,
103 BPTR DirLock, STRPTR IconName, WORD x, WORD y);
104 static void DropRemoveIcon(struct ScaWindowStruct *wsDest, BPTR DirLock, CONST_STRPTR IconName);
105 static void DronOnAppIcon(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtFound,
106 struct ScaIconNode *in, LONG x, LONG y);
107 static void DronOnAppObject(struct internalScaWindowTask *iwt, struct AppObject *ao, LONG x, LONG y);
108 static void SameWindow(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtFound, LONG x, LONG y);
109 static void SameWindow2(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtFound, LONG x, LONG y);
110 static ULONG DragQuery_IconWin(struct ScaIconNode *, ULONG IconType);
111 static void MoveIconToNewPosition(struct internalScaWindowTask *iwt,
112 struct ScaIconNode *in, WORD xNew, WORD yNew);
113 static BOOL DropPopupMenu(struct internalScaWindowTask *iwtSrc,
114 struct DropInfo *DrInfo, const struct DropOps *AllowedDrops);
115
116 //----------------------------------------------------------------------------
117
118 // local data items
119
120 //----------------------------------------------------------------------------
121
122 void DragDrop(struct Window *win, LONG MouseX, LONG MouseY, ULONG Qualifier,
123 struct internalScaWindowTask *iwt)
124 {
125 struct internalScaWindowTask *iwtDest;
126 struct ScaIconNode *inDest;
127 enum ObjTypes ObjUnderMouse;
128 LONG x = 0, y = 0;
129 struct DropOps drops;
130
131 d1(KPrintF("%s/%s/%ld: START\n", __FILE__, __FUNC__, __LINE__));
132
133 drops.drop_Copy = drops.drop_Move = drops.drop_CreateLink = drops.drop_PutAway = drops.drop_LeaveOut = FALSE;
134 if (isMakeLinkQualifier(Qualifier))
135 {
136 drops.drop_CreateLink = TRUE;
137 }
138 else if (isMoveQualifier(Qualifier))
139 {
140 drops.drop_Move = TRUE;
141 }
142 else if (isCopyQualifier(Qualifier))
143 {
144 drops.drop_Copy = TRUE;
145 }
146
147 SCA_LockWindowList(SCA_LockWindowList_Shared);
148
149 iwtDest = iwt->iwt_WinUnderPtr;
150 inDest = iwt->iwt_IconUnderPtr;
151
152 ObjUnderMouse = iwt->iwt_ObjectUnderMouse;
153
154 d1(kprintf("%s/%s/%ld: iwt=%08lx MayDrop=%ld iwtDest=<%s> inDest=%08lx ObjType=%ld\n", __FILE__, __FUNC__, __LINE__, \
155 iwt, iwt->iwt_DragMayDrop, iwt->iwt_WinTitle, inDest, ObjUnderMouse));
156 d1(kprintf("%s/%s/%ld: WinUnderPtr=%08lx IconUnderPtr=%08lx\n", __FILE__, __FUNC__, __LINE__, \
157 iwt->iwt_WinUnderPtr, iwt->iwt_IconUnderPtr));
158
159 IconWin_EndDrag(iwt); // Signal Mouse leaving window/icon
160
161 if (!iwt->iwt_DragMayDrop)
162 {
163 d1(KPrintF("%s/%s/%ld: No Drop allowed here\n", __FILE__, __FUNC__, __LINE__));
164
165 SCA_UnLockWindowList();
166
167 if (!CurrentPrefs.pref_EnableDropMenu)
168 ClosePopupWindows(TRUE);
169
170 if (iwt->iwt_DragIconList)
171 {
172 RestoreDragIcons(iwt);
173 DisplayBeep(iwt->iwt_WinScreen);
174 }
175 return;
176 }
177
178 if (iwtDest)
179 {
180 x = MouseX + iwt->iwt_WindowTask.wt_Window->LeftEdge - iwtDest->iwt_WindowTask.wt_Window->LeftEdge
181 - iwtDest->iwt_InnerLeft + iwtDest->iwt_WindowTask.wt_XOffset;
182 y = MouseY + iwt->iwt_WindowTask.wt_Window->TopEdge - iwtDest->iwt_WindowTask.wt_Window->TopEdge
183 - iwtDest->iwt_InnerTop + iwtDest->iwt_WindowTask.wt_YOffset;
184 }
185
186 d1(kprintf("%s/%s/%ld: MouseX=%ld MouseY=%ld x=%ld y=%ld\n", __FILE__, __FUNC__, __LINE__, MouseX, MouseY, x, y));
187
188 switch (ObjUnderMouse)
189 {
190 case OUM_ScalosWindow:
191 if (iwtDest)
192 {
193 d1(kprintf("%s/%s/%ld: Drop on Scalos Window \n", __FILE__, __FUNC__, __LINE__));
194 if (iwt == iwtDest && !drops.drop_Copy)
195 SameWindow(iwt, iwtDest, x, y);
196 else
197 DragDropFinish(iwt, iwt->iwt_WindowTask.mt_WindowStruct, iwtDest->iwt_WindowTask.mt_WindowStruct, x, y, &drops);
198
199 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
200 #if 0
201 // if iwtDest was a Popup window, close it now!
202 if (iwtDest->iwt_WindowTask.mt_WindowStruct->ws_Flags & WSV_FlagF_DdPopupWindow)
203 {
204 struct SM_CloseWindow *msg;
205
206 msg = (struct SM_CloseWindow *) SCA_AllocMessage(MTYP_CloseWindow, 0);
207 if (msg)
208 {
209 msg->ScalosMessage.sm_Message.mn_ReplyPort = iInfos.xii_iinfos.ii_MainMsgPort;
210 PutMsg(iwtDest->iwt_WindowTask.mt_WindowStruct->ws_MessagePort, &msg->ScalosMessage.sm_Message);
211 }
212 }
213 #endif
214 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
215 }
216 break;
217
218 case OUM_ForeignWindow:
219 d1(kprintf("%s/%s/%ld: Drop on foreign Window\n", __FILE__, __FUNC__, __LINE__));
220 RestoreDragIcons(iwt);
221 DisplayBeep(iwt->iwt_WinScreen);
222 break;
223
224 case OUM_AppWindow:
225 d1(kprintf("%s/%s/%ld: Drop on AppWindow\n", __FILE__, __FUNC__, __LINE__));
226 if (iInfos.xii_iinfos.ii_AppWindowStruct)
227 {
228 struct internalScaWindowTask *iwtx = (struct internalScaWindowTask *) iInfos.xii_iinfos.ii_AppWindowStruct->ws_WindowTask;
229 struct AppObject *ao;
230
231 ScalosObtainSemaphoreShared(iwtx->iwt_AppListSemaphore);
232
233 for (ao = iwtx->iwt_AppList; ao; ao = (struct AppObject *) ao->appo_Node.mln_Succ)
234 {
235 if (APPTYPE_AppWindow == ao->appo_type &&
236 ao->appo_object.appoo_Window == win)
237 {
238 // AppWindow found
239 ScalosReleaseSemaphore(iwtx->iwt_AppListSemaphore);
240
241 DronOnAppObject(iwt, ao, MouseX, MouseY);
242
243 SCA_UnLockWindowList();
244 RestoreDragIcons(iwt);
245 return;
246 }
247 }
248
249 // non-AppWindow
250 ScalosReleaseSemaphore(iwtx->iwt_AppListSemaphore);
251
252 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
253 DisplayBeep(iwt->iwt_WinScreen);
254 }
255 break;
256
257 case OUM_Icon:
258 d1(KPrintF("%s/%s/%ld: Drop on Scalos Icon\n", __FILE__, __FUNC__, __LINE__));
259
260 if (NULL == FindIconInDragList(iwt, inDest))
261 {
262 IPTR IconType;
263
264 GetAttr(IDTA_Type, inDest->in_Icon, &IconType);
265
266 d1(kprintf("%s/%s/%ld: Icon=<%s> Type=%ld\n", __FILE__, __FUNC__, __LINE__, GetIconName(inDest), IconType));
267
268 switch (IconType)
269 {
270 case WBAPPICON:
271 DronOnAppIcon(iwt, iwtDest, inDest, x, y);
272 break;
273 case WBTOOL:
274 case WB_TEXTICON_TOOL:
275 if (CurrentPrefs.pref_DragStartFlag)
276 DropStart(iwt, iwtDest, inDest);
277 break;
278 default:
279 if (iwt == iwtDest)
280 {
281 if (DragQuery_IconWin(inDest, IconType))
282 {
283 RestoreDragIcons(iwt);
284 DragDropFinish(iwt, iwt->iwt_WindowTask.mt_WindowStruct, iwtDest->iwt_WindowTask.mt_WindowStruct, x, y, &drops);
285 }
286 else
287 {
288 SameWindow(iwt, iwtDest, x, y);
289 }
290 }
291 else
292 {
293 DragDropFinish(iwt, iwt->iwt_WindowTask.mt_WindowStruct, iwtDest->iwt_WindowTask.mt_WindowStruct, x, y, &drops);
294 }
295 break;
296 }
297 }
298 else
299 {
300 if (iwt == iwtDest)
301 SameWindow(iwt, iwtDest, x, y);
302 }
303 break;
304 default:
305 d1(KPrintF("%s/%s/%ld: Just moved around icon\n", __FILE__, __FUNC__, __LINE__));
306 break;
307 }
308
309 RestoreDragIcons(iwt);
310 SCA_UnLockWindowList();
311
312 d1(KPrintF("%s/%s/%ld: END\n", __FILE__, __FUNC__, __LINE__));
313 }
314
315
316 static SAVEDS(void) ASM INTERRUPT DropTask(void)
317 {
318 struct Process *myProc = (struct Process *) FindTask(NULL);
319 struct SM_DropProc *sMsg;
320
321 do {
322 sMsg = (struct SM_DropProc *) GetMsg(&myProc->pr_MsgPort);
323
324 if (NULL == sMsg)
325 WaitPort(&myProc->pr_MsgPort);
326 } while (NULL == sMsg);
327
328 d1(kprintf("%s/%s/%ld: sMsg=%08lx Type=%08lx\n", __FILE__, __FUNC__, __LINE__, sMsg, sMsg->sdpm_ScalosMessage.sm_MessageType));
329
330 if (ID_IMSG == sMsg->sdpm_ScalosMessage.sm_Signature &&
331 MTYP_DropProc == sMsg->sdpm_ScalosMessage.sm_MessageType)
332 {
333 struct ScalosArg *sarg;
334 ULONG ArgCount;
335 struct ScaWindowStruct *wsSrc, *wsDest;
336 struct ScalosArg *ArgList;
337 DROPFUNC DropFunc;
338 struct DropInfo DrInfo;
339
340 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
341
342 ScalosObtainSemaphoreShared(sMsg->sdpm_SourceWindowStruct->ws_WindowTask->wt_WindowSemaphore);
343 ScalosObtainSemaphoreShared(sMsg->sdpm_DestWindowStruct->ws_WindowTask->wt_WindowSemaphore);
344
345 DrInfo.drin_LastDropMenuResult = DROPMENURESULT_Unknown;
346
347 DrInfo.drin_x = sMsg->sdpm_MouseX;
348 DrInfo.drin_y = sMsg->sdpm_MouseY;
349 DrInfo.drin_Arg = NULL;
350 DrInfo.drin_DestLock = (BPTR)NULL;
351 wsSrc = sMsg->sdpm_SourceWindowStruct;
352 wsDest = sMsg->sdpm_DestWindowStruct;
353 DrInfo.drin_Drops = sMsg->sdpm_Drops;
354 DropFunc = sMsg->sdpm_DropFunc;
355 ArgList = sMsg->sdpm_ArgList;
356
357 ReplyMsg((struct Message *) sMsg);
358
359 for (sarg=ArgList, ArgCount=0; sarg; sarg = (struct ScalosArg *) sarg->scarg_Node.mln_Succ)
360 ArgCount++;
361
362 d1(kprintf("%s/%s/%ld: ArgList=%08lx ArgCount=%ld\n", __FILE__, __FUNC__, __LINE__, ArgList, ArgCount));
363
364 DrInfo.drin_FileTransObj = SCA_NewScalosObjectTags((STRPTR) "FileTransfer.sca",
365 SCCA_FileTrans_Screen, (IPTR) iInfos.xii_iinfos.ii_Screen,
366 SCCA_FileTrans_Number, ArgCount,
367 SCCA_FileTrans_ReplaceMode, SCCV_ReplaceMode_Ask,
368 TAG_END);
369
370 d1(KPrintF("%s/%s/%ld: FileTransObj=%08lx wsSrc=%08lx wsDest=%08lx\n", __FILE__, __FUNC__, __LINE__, \
371 DrInfo.drin_FileTransObj, wsSrc, wsDest));
372
373 if (DrInfo.drin_FileTransObj)
374 {
375 (*DropFunc)(&ArgList, wsSrc, wsDest, &DrInfo);
376
377 SCA_DisposeScalosObject(DrInfo.drin_FileTransObj);
378 }
379
380 d1(kprintf("%s/%s/%ld: ClassDragFinish_IconWin(ArgList=%08lx)\n", __FILE__, __FUNC__, __LINE__, ArgList));
381 ClassDragFinish_IconWin(&ArgList);
382 }
383 else
384 ReplyMsg((struct Message *) sMsg);
385 }
386
387
388 static struct DragNode *FindIconInDragList(struct internalScaWindowTask *iwt, const struct ScaIconNode *in)
389 {
390 struct DragNode *dn;
391
392 for (dn = iwt->iwt_DragNodeList; dn; dn = (struct DragNode *) dn->drgn_Node.mln_Succ)
393 {
394 if (dn->drgn_iconnode == in)
395 {
396 return dn;
397 }
398 }
399
400 return NULL;
401 }
402
403
404 static void DragDropFinish(struct internalScaWindowTask *iwt, struct ScaWindowStruct *wsSrc,
405 struct ScaWindowStruct *wsDest, LONG x, LONG y, struct DropOps *drops)
406 {
407 struct ScalosArg *argList;
408
409 d1(KPrintF("%s/%s/%ld: Started: - iwt=%08lx wsSrc=<%s> wsDest=<%s> x=%ld y=%ld Copy=%ld Move=%ld CreateLink=%ld\n", \
410 __FILE__, __FUNC__, __LINE__, iwt, wsSrc->ws_Name, wsDest->ws_Name, x, y, drops->drop_Copy, drops->drop_Move, drops->drop_CreateLink));
411
412 RestoreDragIcons(iwt);
413
414 if (NULL == wsSrc || NULL == wsDest)
415 return;
416
417 argList = NULL;
418
419 switch (wsSrc->ws_WindowType)
420 {
421 case WSV_Type_DeviceWindow:
422 d1(kprintf("%s/%s/%ld: DeviceWindow\n", __FILE__, __FUNC__, __LINE__));
423 ClassDragBegin_DeviceWin(&argList, &iwt->iwt_DragNodeList);
424 break;
425 case WSV_Type_IconWindow:
426 d1(kprintf("%s/%s/%ld: IconWindow CALL ClassDragBegin_IconWin(&argList, &iwt->iwt_DragNodeList)\n", __FILE__, __FUNC__, __LINE__));
427 ClassDragBegin_IconWin(&argList, &iwt->iwt_DragNodeList);
428 break;
429 }
430
431 d1(kprintf("%s/%s/%ld: Src WindowType=%ld argList=%08lx\n", __FILE__, __FUNC__, __LINE__, wsSrc->ws_WindowType, argList));
432
433 if (argList)
434 {
435 DROPFUNC DropProc = NULL;
436
437 if (WSV_Type_IconWindow == wsSrc->ws_WindowType && WSV_Type_IconWindow == wsDest->ws_WindowType)
438 {
439 d1(kprintf("%s/%s/%ld: Icon 2 Icon\n",__FILE__, __FUNC__, __LINE__));
440 DropProc = Icon2IconDrop;
441 }
442 else if (WSV_Type_IconWindow == wsSrc->ws_WindowType && WSV_Type_DeviceWindow == wsDest->ws_WindowType)
443 {
444 d1(kprintf("%s/%s/%ld: Icon 2 Device\n", __FILE__, __FUNC__, __LINE__));
445 DropProc = Icon2DesktopDrop;
446 }
447 else if (WSV_Type_DeviceWindow == wsSrc->ws_WindowType && WSV_Type_IconWindow == wsDest->ws_WindowType)
448 {
449 d1(kprintf("%s/%s/%ld: Device 2 Icon\n", __FILE__, __FUNC__, __LINE__));
450 DropProc = Desktop2IconDrop;
451 }
452 else if (WSV_Type_DeviceWindow == wsSrc->ws_WindowType && WSV_Type_DeviceWindow == wsDest->ws_WindowType)
453 {
454 d1(kprintf("%s/%s/%ld: Device 2 Device\n", __FILE__, __FUNC__, __LINE__));
455 DropProc = Desktop2DesktopDrop;
456 }
457
458 if (DropProc)
459 {
460 struct SM_DropProc *sMsg;
461
462 sMsg = (struct SM_DropProc *) SCA_AllocMessage(MTYP_DropProc, 0);
463
464 if (sMsg)
465 {
466 STATIC_PATCHFUNC(DropTask)
467 struct Process *proc;
468
469 sMsg->sdpm_ScalosMessage.sm_Message.mn_ReplyPort = iwt->iwt_WindowTask.wt_IconPort;
470 sMsg->sdpm_DropFunc = DropProc;
471 sMsg->sdpm_SourceWindowStruct = wsSrc;
472 sMsg->sdpm_DestWindowStruct = wsDest;
473 sMsg->sdpm_ArgList = argList;
474 sMsg->sdpm_MouseX = x;
475 sMsg->sdpm_MouseY = y;
476 sMsg->sdpm_Drops = *drops;
477
478 // CreateNewProc()
479 proc = CreateNewProcTags(NP_WindowPtr, NULL,
480 NP_StackSize, 8192,
481 NP_Cli, TRUE,
482 NP_CommandName, (IPTR) "Scalos_Drag&Drop",
483 NP_Name, (IPTR) "Scalos_Drag&Drop",
484 NP_Entry, (IPTR) PATCH_NEWFUNC(DropTask),
485 NP_Path, DupWBPathList(),
486 TAG_END);
487
488 d1(kprintf("%s/%s/%ld: proc=%08lx\n", __FILE__, __FUNC__, __LINE__, proc));
489
490 if (proc)
491 {
492 d1(kprintf("%s/%s/%ld: proc=%08lx\n", __FILE__, __FUNC__, __LINE__, proc));
493
494 PutMsg(&proc->pr_MsgPort, &sMsg->sdpm_ScalosMessage.sm_Message);
495
496 d1(kprintf("%s/%s/%ld: CALL WaitReply for: (%s)\n", __FILE__, __FUNC__, __LINE__, iwt->iwt_WinTitle));
497
498 WaitReply(iwt->iwt_WindowTask.wt_IconPort, iwt, MTYP_DropProc);
499
500 }
501 else
502 {
503 d1(kprintf("%s/%s/%ld: CALL ClassDragFinish_IconWin(argList)\n", __FILE__, __FUNC__, __LINE__));
504 ClassDragFinish_IconWin(&argList);
505 }
506 }
507 }
508 else
509 {
510 d1(kprintf("%s/%s/%ld: DropProc = NULL - CALL ClassDragFinish_IconWin(argList)\n", __FILE__, __FUNC__, __LINE__));
511 ClassDragFinish_IconWin(&argList);
512
513 }
514
515 }
516
517 // .drag_error:
518
519 // d1(kprintf("%s/%s/%ld: CALL IconWin_EndDrag(iwt) \n", __FILE__, __FUNC__, __LINE__));
520
521 IconWin_EndDrag(iwt); // Signal Mouse leaving window/icon.
522
523 // d1(kprintf("%s/%s/%ld: Finished. \n", __FILE__, __FUNC__, __LINE__));
524 }
525
526
527 static void DropStart(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtDest,
528 struct ScaIconNode *inDest)
529 {
530 struct WBArg *Buffer;
531 ULONG ArgCount = 0;
532
533 d1(KPrintF("%s/%s/%ld: Started: iwt=%08lx icon=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, inDest, GetIconName(inDest)));
534 d1(KPrintF("%s/%s/%ld: iwt_DragIconList=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt->iwt_DragIconList));
535
536 do {
537 struct ScaIconNode *in;
538 ULONG NumberOfWbArgs;
539 struct WBArg *wbArg;
540
541 for (NumberOfWbArgs = 1, in = iwt->iwt_DragIconList; in; in = (struct ScaIconNode *) in->in_Node.mln_Succ)
542 {
543 NumberOfWbArgs++;
544 }
545
546 d1(KPrintF("%s/%s/%ld: NumberOfWbArgs=%lu\n", __FILE__, __FUNC__, __LINE__, NumberOfWbArgs));
547
548 Buffer = ScalosAlloc(NumberOfWbArgs * sizeof(struct WBArg));
549 d1(KPrintF("%s/%s/%ld: Buffer=%08lx\n", __FILE__, __FUNC__, __LINE__, Buffer));
550 if (NULL == Buffer)
551 break;
552
553 memset(Buffer, 0, NumberOfWbArgs * sizeof(struct WBArg));
554
555 // Add destination as first argument
556 if (!DoMethod(iwtDest->iwt_WindowTask.mt_MainObject, SCCM_IconWin_MakeWBArg, inDest, Buffer))
557 break;
558
559 // Now add all icons from iwt_DragIconList
560 for (ArgCount = 1, in = iwt->iwt_DragIconList, wbArg = Buffer + 1;
561 in; in = (struct ScaIconNode *) in->in_Node.mln_Succ, wbArg++)
562 {
563 d1(KPrintF("%s/%s/%ld: add icon=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, in, GetIconName(in)));
564 ArgCount += DoMethod(iwt->iwt_WindowTask.mt_MainObject,
565 SCCM_IconWin_MakeWBArg, in, wbArg);
566 }
567
568 d1(KPrintF("%s/%s/%ld: ArgCount=%ld\n", __FILE__, __FUNC__, __LINE__, ArgCount));
569
570 RestoreDragIcons(iwt);
571
572 SCA_WBStart(Buffer, NULL, ArgCount);
573 } while (0);
574
575 if (Buffer)
576 {
577 SCA_FreeWBArgs(Buffer, ArgCount, SCAF_FreeNames);
578 ScalosFree(Buffer);
579 }
580 if (iwt->iwt_DragIconList)
581 RestoreDragIcons(iwt);
582
583 d1(KPrintF("%s/%s/%ld: Finished: iwt=%08lx icon=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, inDest, GetIconName(inDest)));
584 }
585
586
587 static void Icon2IconDrop(struct ScalosArg **ArgList,
588 struct ScaWindowStruct *wsSrc,
589 struct ScaWindowStruct *wsDest,
590 struct DropInfo *DrInfo)
591 {
592 struct internalScaWindowTask *iwtSrc, *iwtDest;
593 BPTR SrcLock = (BPTR)NULL;
594 BPTR oldDir = NOT_A_LOCK;
595 BOOL WindowsLocked = TRUE;
596
597 if (NULL == wsSrc || NULL == wsDest)
598 return;
599
600 iwtSrc = (struct internalScaWindowTask *) wsSrc->ws_WindowTask;
601 iwtDest = (struct internalScaWindowTask *) wsDest->ws_WindowTask;
602
603 if (NULL == iwtSrc || NULL == iwtDest)
604 return;
605
606 d1(kprintf("%s/%s/%ld: ArgList=%08lx\n", __FILE__, __FUNC__, __LINE__, ArgList));
607 d1(kprintf("%s/%s/%ld: Src=%08lx <%s> Dest=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, \
608 wsSrc, wsSrc->ws_Name, wsDest, wsDest->ws_Name));
609
610 do {
611 APTR undoStep;
612 ULONG Result = RETURN_OK;
613 struct ScaIconNode *in;
614
615 if (wsSrc->ws_Lock)
616 {
617 SrcLock = DupLock(wsSrc->ws_Lock);
618 if ((BPTR)NULL == SrcLock)
619 break;
620 }
621 if (wsDest->ws_Lock)
622 {
623 DrInfo->drin_DestLock = DupLock(wsDest->ws_Lock);
624 if ((BPTR)NULL == DrInfo->drin_DestLock)
625 break;
626 }
627
628 oldDir = CurrentDir(DrInfo->drin_DestLock);
629
630 ScalosLockIconListShared(iwtDest);
631
632 in = CheckMouseIcon(&iwtDest->iwt_WindowTask.wt_IconList,
633 iwtDest, DrInfo->drin_x, DrInfo->drin_y);
634 if (in)
635 {
636 BPTR IconLock = (BPTR)NULL;
637
638 if (in->in_Lock)
639 {
640 BPTR oldDir2 = CurrentDir(in->in_Lock);
641
642 IconLock = Lock((STRPTR) GetIconName(in), ACCESS_READ);
643 CurrentDir(oldDir2);
644 }
645 else
646 {
647 IPTR IconType;
648
649 GetAttr(IDTA_Type, in->in_Icon, &IconType);
650 d1(kprintf("%s/%s/%ld: in=%08lx <%s> IconType=%ld\n", __FILE__, __FUNC__, __LINE__, in, GetIconName(in), IconType));
651
652 switch (IconType)
653 {
654 case WBDISK:
655 IconLock = DiskInfoLock(in);
656 break;
657
658 case WBDRAWER:
659 case WBGARBAGE:
660 case WB_TEXTICON_DRAWER:
661 IconLock = Lock((STRPTR) GetIconName(in), ACCESS_READ);
662 break;
663 }
664 }
665
666 if (IconLock)
667 {
668 UnLock(DrInfo->drin_DestLock);
669 DrInfo->drin_DestLock = IconLock;
670 DrInfo->drin_x = NO_ICON_POSITION_SHORT;
671 DrInfo->drin_y = NO_ICON_POSITION_SHORT;
672 }
673 }
674
675 ScalosUnLockIconList(iwtDest);
676
677 CurrentDir(oldDir);
678 oldDir = NOT_A_LOCK;
679
680 ScalosReleaseSemaphore(iwtSrc->iwt_WindowTask.wt_WindowSemaphore);
681 ScalosReleaseSemaphore(iwtDest->iwt_WindowTask.wt_WindowSemaphore);
682 WindowsLocked = FALSE;
683
684 undoStep = UndoBeginStep();
685
686 for (DrInfo->drin_Arg = *ArgList;
687 RESULT_UserAborted != Result && DrInfo->drin_Arg;
688 DrInfo->drin_Arg = (struct ScalosArg *) DrInfo->drin_Arg->scarg_Node.mln_Succ)
689 {
690 d1(kprintf("%s/%s/%ld: DrInfo->drin_Arg=%08lx <%s> IconType=%ld\n", \
691 __FILE__, __FUNC__, __LINE__, \
692 DrInfo->drin_Arg, DrInfo->drin_Arg->scarg_name, DrInfo->drin_Arg->scarg_icontype));
693
694 switch (DrInfo->drin_Arg->scarg_icontype)
695 {
696 case WBDRAWER:
697 case WB_TEXTICON_DRAWER:
698 case WBGARBAGE:
699 Result = Icon2IconDrop_Drawer(iwtSrc, DrInfo, undoStep);
700 break;
701 case WBTOOL:
702 case WB_TEXTICON_TOOL:
703 Result = Icon2IconDrop_File(iwtSrc, DrInfo, undoStep);
704 break;
705 }
706 }
707
708 UndoEndStep(iwtSrc, undoStep);
709
710 d1(kprintf("%s/%s/%ld: ClassDragFinish_IconWin(ArgList=%08lx)\n", __FILE__, __FUNC__, __LINE__, ArgList));
711 ClassDragFinish_IconWin(ArgList);
712 } while (0);
713
714 if (IS_VALID_LOCK(oldDir))
715 CurrentDir(oldDir);
716 if (SrcLock)
717 UnLock(SrcLock);
718 if (DrInfo->drin_DestLock)
719 {
720 UnLock(DrInfo->drin_DestLock);
721 DrInfo->drin_DestLock = (BPTR)NULL;
722 }
723
724 if (WindowsLocked)
725 {
726 ScalosReleaseSemaphore(iwtSrc->iwt_WindowTask.wt_WindowSemaphore);
727 ScalosReleaseSemaphore(iwtDest->iwt_WindowTask.wt_WindowSemaphore);
728 }
729 }
730
731
732 static ULONG Icon2IconDrop_Drawer(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep)
733 {
734 LONG sameLock = ScaSameLock(DrInfo->drin_Arg->scarg_lock, DrInfo->drin_DestLock);
735 STRPTR DestName = NULL;
736 ULONG Result = RETURN_OK;
737 struct DropOps AllowedDrops;
738
739 debugLock_d1(DrInfo->drin_Arg->scarg_lock);
740 debugLock_d1(DrInfo->drin_DestLock);
741
742 d1(KPrintF("%s/%s/%ld: sameLock=%ld\n", __FILE__, __FUNC__, __LINE__, sameLock));
743
744 AllowedDrops.drop_CreateLink = TRUE;
745 AllowedDrops.drop_Copy = TRUE;
746 AllowedDrops.drop_Move = LOCK_SAME != sameLock;
747
748 if (!DropPopupMenu(iwtSrc, DrInfo, &AllowedDrops))
749 return RETURN_OK;
750
751 if (DrInfo->drin_Drops.drop_CreateLink)
752 {
753 return Icon2Icon_CreateLink(iwtSrc, DrInfo, undoStep);
754 }
755 else if (DrInfo->drin_Drops.drop_Move)
756 {
757 // force move - do nothing if same directory
758 if (LOCK_SAME != sameLock)
759 sameLock = LOCK_SAME_VOLUME;
760 }
761 else if (DrInfo->drin_Drops.drop_Copy)
762 {
763 // source and dest are in same directory
764
765 if (LOCK_SAME == sameLock)
766 {
767 DestName = AllocPathBuffer();
768
769 BumpRevision(DestName, DrInfo->drin_Arg->scarg_name);
770 }
771
772 // force copy
773 sameLock = LOCK_DIFFERENT;
774 }
775
776 d1(kprintf("%s/%s/%ld: sameLock=%ld\n", __FILE__, __FUNC__, __LINE__, sameLock));
777
778 switch (sameLock)
779 {
780 case LOCK_SAME:
781 return RETURN_OK;
782
783 case LOCK_DIFFERENT:
784 Result = Icon2Icon_CopyDir(iwtSrc, DrInfo, DestName, undoStep);
785 break;
786
787 case LOCK_SAME_VOLUME:
788 Result = Icon2Icon_MoveDir(iwtSrc, DrInfo, undoStep);
789 break;
790 }
791
792 if (DestName)
793 FreePathBuffer(DestName);
794
795 d1(kprintf("%s/%s/%ld: Result=%08lx\n", __FILE__, __FUNC__, __LINE__, Result));
796
797 return Result;
798 }
799
800
801 static ULONG Icon2IconDrop_File(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep)
802 {
803 LONG sameLock = ScaSameLock(DrInfo->drin_Arg->scarg_lock, DrInfo->drin_DestLock);
804 STRPTR DestName = NULL;
805 ULONG Result = RETURN_OK;
806 LONG xi = DrInfo->drin_x, yi = DrInfo->drin_y;
807 struct DropOps AllowedDrops;
808
809 debugLock_d1(DrInfo->drin_Arg->scarg_lock);
810 debugLock_d1(DrInfo->drin_DestLock);
811
812 d1(KPrintF("%s/%s/%ld: sameLock=%ld\n", __FILE__, __FUNC__, __LINE__, sameLock));
813
814 if (NO_ICON_POSITION_SHORT != xi)
815 {
816 xi += DrInfo->drin_Arg->scarg_xpos;
817 yi += DrInfo->drin_Arg->scarg_ypos;
818 }
819
820 AllowedDrops.drop_CreateLink = TRUE;
821 AllowedDrops.drop_Copy = TRUE;
822 AllowedDrops.drop_Move = LOCK_SAME != sameLock;
823
824 if (!DropPopupMenu(iwtSrc, DrInfo, &AllowedDrops))
825 return RETURN_OK;
826
827 if (DrInfo->drin_Drops.drop_CreateLink)
828 {
829 return Icon2Icon_CreateLink(iwtSrc, DrInfo, undoStep);
830 }
831 else if (DrInfo->drin_Drops.drop_Move)
832 {
833 // force move - do nothing if same directory
834 if (LOCK_SAME != sameLock)
835 sameLock = LOCK_SAME_VOLUME;
836 }
837 else if (DrInfo->drin_Drops.drop_Copy)
838 {
839 if (LOCK_SAME == sameLock)
840 {
841 // source and dest are in same directory
842 DestName = AllocPathBuffer();
843
844 BumpRevision(DestName, DrInfo->drin_Arg->scarg_name);
845 }
846
847 // force copy
848 sameLock = LOCK_DIFFERENT;
849 }
850
851 d1(kprintf("%s/%s/%ld: sameLock=%ld\n", __FILE__, __FUNC__, __LINE__, sameLock));
852
853 switch (sameLock)
854 {
855 case LOCK_SAME:
856 return RETURN_OK;
857
858 case LOCK_DIFFERENT:
859 UndoAddEvent(iwtSrc, UNDO_Copy,
860 UNDOTAG_UndoMultiStep, undoStep,
861 UNDOTAG_CopySrcDirLock, DrInfo->drin_Arg->scarg_lock,
862 UNDOTAG_CopyDestDirLock, DrInfo->drin_DestLock,
863 UNDOTAG_CopySrcName, DrInfo->drin_Arg->scarg_name,
864 UNDOTAG_CopyDestName, DestName,
865 UNDOTAG_IconPosX, xi,
866 UNDOTAG_IconPosY, yi,
867 TAG_END);
868 Result = DoMethod(DrInfo->drin_FileTransObj, SCCM_FileTrans_Copy,
869 DrInfo->drin_Arg->scarg_lock, DrInfo->drin_DestLock,
870 DrInfo->drin_Arg->scarg_name,
871 DestName, xi, yi);
872 break;
873
874 case LOCK_SAME_VOLUME:
875 Result = Icon2Icon_MoveDir(iwtSrc, DrInfo, undoStep);
876 break;
877 }
878
879 if (DestName)
880 FreePathBuffer(DestName);
881
882 d1(kprintf("%s/%s/%ld: Result=%08lx\n", __FILE__, __FUNC__, __LINE__, Result));
883
884 return Result;
885 }
886
887
888 static ULONG Icon2Icon_MoveDir(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep)
889 {
890 ULONG Result;
891 LONG xi = DrInfo->drin_x, yi = DrInfo->drin_y;
892
893 d1(kprintf("%s/%s/%ld: START\n", __FILE__, __FUNC__, __LINE__));
894
895 if (NO_ICON_POSITION_SHORT != xi)
896 {
897 xi += DrInfo->drin_Arg->scarg_xpos;
898 yi += DrInfo->drin_Arg->scarg_ypos;
899 }
900
901 UndoAddEvent(iwtSrc, UNDO_Move,
902 UNDOTAG_UndoMultiStep, undoStep,
903 UNDOTAG_CopySrcDirLock, DrInfo->drin_Arg->scarg_lock,
904 UNDOTAG_CopyDestDirLock, DrInfo->drin_DestLock,
905 UNDOTAG_CopySrcName, DrInfo->drin_Arg->scarg_name,
906 UNDOTAG_IconPosX, xi,
907 UNDOTAG_IconPosY, yi,
908 TAG_END);
909
910 Result = DoMethod(DrInfo->drin_FileTransObj, SCCM_FileTrans_Move,
911 DrInfo->drin_Arg->scarg_lock, DrInfo->drin_DestLock,
912 DrInfo->drin_Arg->scarg_name, xi, yi);
913
914 d1(kprintf("%s/%s/%ld: Result=%08lx\n", __FILE__, __FUNC__, __LINE__, Result));
915
916 return Result;
917 }
918
919
920 static ULONG Icon2Icon_CopyDir(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, CONST_STRPTR DestName, APTR undoStep)
921 {
922 ULONG Result;
923 LONG xi = DrInfo->drin_x, yi = DrInfo->drin_y;
924
925 if (NO_ICON_POSITION_SHORT != xi)
926 {
927 xi += DrInfo->drin_Arg->scarg_xpos;
928 yi += DrInfo->drin_Arg->scarg_ypos;
929 }
930
931 UndoAddEvent(iwtSrc, UNDO_Copy,
932 UNDOTAG_UndoMultiStep, undoStep,
933 UNDOTAG_CopySrcDirLock, DrInfo->drin_Arg->scarg_lock,
934 UNDOTAG_CopyDestDirLock, DrInfo->drin_DestLock,
935 UNDOTAG_CopySrcName, DrInfo->drin_Arg->scarg_name,
936 UNDOTAG_CopyDestName, DestName,
937 UNDOTAG_IconPosX, xi,
938 UNDOTAG_IconPosY, yi,
939 TAG_END);
940
941 Result = DoMethod(DrInfo->drin_FileTransObj, SCCM_FileTrans_Copy,
942 DrInfo->drin_Arg->scarg_lock, DrInfo->drin_DestLock,
943 DrInfo->drin_Arg->scarg_name, DestName, xi, yi);
944
945 return Result;
946 }
947
948
949 static ULONG Icon2Icon_CreateLink(struct internalScaWindowTask *iwtSrc, struct DropInfo *DrInfo, APTR undoStep)
950 {
951 ULONG Result;
952 LONG xi = DrInfo->drin_x, yi = DrInfo->drin_y;
953
954 if (NO_ICON_POSITION_SHORT != xi)
955 {
956 xi += DrInfo->drin_Arg->scarg_xpos;
957 yi += DrInfo->drin_Arg->scarg_ypos;
958 }
959
960 UndoAddEvent(iwtSrc, UNDO_CreateLink,
961 UNDOTAG_UndoMultiStep, undoStep,
962 UNDOTAG_CopySrcDirLock, DrInfo->drin_Arg->scarg_lock,
963 UNDOTAG_CopyDestDirLock, DrInfo->drin_DestLock,
964 UNDOTAG_CopySrcName, DrInfo->drin_Arg->scarg_name,
965 UNDOTAG_IconPosX, xi,
966 UNDOTAG_IconPosY, yi,
967 TAG_END);
968
969 Result = DoMethod(DrInfo->drin_FileTransObj, SCCM_FileTrans_CreateLink,
970 DrInfo->drin_Arg->scarg_lock, DrInfo->drin_DestLock,
971 DrInfo->drin_Arg->scarg_name,
972 DrInfo->drin_Arg->scarg_name,
973 xi, yi);
974
975 d1(kprintf("%s/%s/%ld: Result=%08lx\n", __FILE__, __FUNC__, __LINE__, Result));
976
977 return Result;
978 }
979
980
981 static void Icon2DesktopDrop(struct ScalosArg **ArgList,
982 struct ScaWindowStruct *wsSrc,
983 struct ScaWindowStruct *wsDest,
984 struct DropInfo *DrInfo)
985 {
986 struct internalScaWindowTask *iwtSrc, *iwtDest;
987 struct MsgPort *replyPort;
988 struct BackDropList bdl; // +jmc+
989
990 d1(KPrintF("%s/%s/%ld: Src=%08lx <%s> Dest=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, \
991 wsSrc, wsSrc->ws_Name, wsDest, wsDest->ws_Name));
992
993 if (NULL == wsSrc || NULL == wsDest)
994 return;
995
996 iwtSrc = (struct internalScaWindowTask *) wsSrc->ws_WindowTask;
997 iwtDest = (struct internalScaWindowTask *) wsDest->ws_WindowTask;
998
999 if (NULL == iwtSrc || NULL == iwtDest)
1000 return;
1001
1002 BackDropInitList(&bdl); // +jmc+
1003
1004 do {
1005 APTR undoStep;
1006 struct ScaIconNode *in;
1007 struct ScalosArg *arg;
1008
1009 ScalosLockIconListShared(iwtDest);
1010
1011 in = CheckMouseIcon(&iwtDest->iwt_WindowTask.wt_IconList, iwtDest,
1012 DrInfo->drin_x, DrInfo->drin_y);
1013 d1(kprintf("%s/%s/%ld: in=%08lx x=%ld y=%ld\n", __FILE__, __FUNC__, __LINE__, in, DrInfo->drin_x, DrInfo->drin_y));
1014 if (in)
1015 {
1016 // Drop on some icon
1017 IPTR IconType;
1018
1019 GetAttr(IDTA_Type, in->in_Icon, &IconType);
1020
1021 d1(kprintf("%s/%s/%ld: in=%08lx <%s> Type=%ld\n", __FILE__, __FUNC__, __LINE__, in, \
1022 GetIconName(in), IconType));
1023 switch (IconType)
1024 {
1025 case WBDISK:
1026 case WBDRAWER:
1027 case WB_TEXTICON_DRAWER:
1028 case WBGARBAGE:
1029 ScalosUnLockIconList(iwtDest);
1030 Icon2IconDrop(ArgList, wsSrc, wsDest, DrInfo);
1031 return;
1032 break;
1033 }
1034 }
1035
1036 ScalosUnLockIconList(iwtDest);
1037
1038 // Drop onto desktop
1039 replyPort = CreateMsgPort();
1040 if (NULL == replyPort)
1041 break;
1042
1043 undoStep = UndoBeginStep();
1044
1045 for (arg = *ArgList; arg; arg = (struct ScalosArg *) arg->scarg_Node.mln_Succ)
1046 {
1047 ULONG Result;
1048
1049 d1(KPrintF("%s/%s/%ld: DrInfo->drin_Arg=%08lx <%s> Type=%ld\n", __FILE__, __FUNC__, __LINE__, \
1050 arg, arg->scarg_name, arg->scarg_icontype));
1051
1052 if (WBDISK == arg->scarg_icontype)
1053 continue;
1054
1055 DrInfo->drin_Drops.drop_LeaveOut = TRUE;
1056 if (CurrentPrefs.pref_AutoLeaveOut)
1057 {
1058 d1(KPrintF("%s/%s/%ld: drin_x=%ld drin_y=%ld\n", __FILE__, __FUNC__, __LINE__, DrInfo->drin_x, DrInfo->drin_y));
1059 d1(KPrintF("%s/%s/%ld: scarg_xpos=%ld scarg_ypos=%ld\n", __FILE__, __FUNC__, __LINE__, arg->scarg_xpos, arg->scarg_ypos));
1060
1061 UndoAddEvent(iwtSrc, UNDO_Leaveout,
1062 UNDOTAG_UndoMultiStep, undoStep,
1063 UNDOTAG_IconDirLock, arg->scarg_lock,
1064 UNDOTAG_IconName, arg->scarg_name,
1065 UNDOTAG_IconPosX, DrInfo->drin_x + arg->scarg_xpos,
1066 UNDOTAG_IconPosY, DrInfo->drin_y + arg->scarg_ypos,
1067 TAG_END);
1068
1069 DoLeaveOutIcon(iwtSrc,
1070 arg->scarg_lock,
1071 arg->scarg_name,
1072 DrInfo->drin_x + arg->scarg_xpos,
1073 DrInfo->drin_y + arg->scarg_ypos);
1074
1075 d1(KPrintF("%s/%s/%ld: DoLeaveout(name=<%s>) Type=%ld\n", __FILE__, __FUNC__, __LINE__, \
1076 arg->scarg_name, arg->scarg_icontype));
1077 }
1078 else
1079 {
1080 // Add icon to destination window
1081 Result = DropAddIcon(replyPort, wsDest,
1082 arg->scarg_lock,
1083 arg->scarg_name,
1084 DrInfo->drin_x + arg->scarg_xpos,
1085 DrInfo->drin_y + arg->scarg_ypos);
1086
1087 d1(KPrintF("%s/%s/%ld: DropAddIcon(name=<%s>) Type=%ld\n", __FILE__, __FUNC__, __LINE__, \
1088 arg->scarg_name, arg->scarg_icontype));
1089 // +jmc+
1090 if (IsPermanentBackDropIcon(iwtDest, &bdl, arg->scarg_lock, arg->scarg_name))
1091 {
1092 ScalosLockIconListExclusive(iwtDest);
1093
1094 for (in = iwtDest->iwt_WindowTask.wt_IconList; in; in=(struct ScaIconNode *) in->in_Node.mln_Succ)
1095 {
1096 d1(KPrintF("%s/%s/%ld: in_Name=%08lx\n", __FILE__, __FUNC__, __LINE__, in->in_Name));
1097
1098 if (in->in_Lock && (LOCK_SAME == SameLock(in->in_Lock, arg->scarg_lock))
1099 && in->in_Name && 0 == Stricmp(arg->scarg_name, in->in_Name))
1100 {
1101 struct SM_RedrawIconObj *sMsg;
1102
1103 SetAttrs(in->in_Icon,
1104 IDTA_OverlayType, ICONOVERLAYF_LeftOut,
1105 TAG_END);
1106
1107 d1(KPrintF("%s/%s/%ld: scarg_name=<%s> in->in_Name=<%s> ICONOVERLAYF_LeftOut is SET\n", __FILE__, __FUNC__, __LINE__, \
1108 arg->scarg_name, in->in_Name));
1109
1110 sMsg = (struct SM_RedrawIconObj *) SCA_AllocMessage(MTYP_RedrawIconObj, 0);
1111
1112 d1(KPrintF("%s/%s/%ld: sMsg=%08lx\n", __FILE__, __FUNC__, __LINE__, sMsg));
1113
1114 if (sMsg)
1115 {
1116 sMsg->smrio_IconObject = in->in_Icon;
1117 sMsg->smrio_Flags = SMRIOFLAGF_IconListLocked;
1118 PutMsg(iwtDest->iwt_WindowTask.wt_IconPort,
1119 &sMsg->ScalosMessage.sm_Message);
1120 }
1121 }
1122 }
1123
1124 ScalosUnLockIconList(iwtDest);
1125 }
1126
1127 if (0 == Result)
1128 continue;
1129
1130 // Remove icon from source window
1131 DropRemoveIcon(wsSrc, arg->scarg_lock, arg->scarg_name);
1132
1133 // Special handling for "view all" textwindows.
1134 // here both object and icon are separate entries, which must be removed both!
1135 if (!IsIwtViewByIcon(iwtSrc) && IsShowAll(wsSrc))
1136 {
1137 STRPTR IconInfoName = ScalosAlloc(1 + strlen(arg->scarg_name) + strlen(".info"));
1138
1139 if (IconInfoName)
1140 {
1141 strcpy(IconInfoName, arg->scarg_name);
1142 strcat(IconInfoName, ".info");
1143
1144 // remove associated ".info" icon from source window
1145 DropRemoveIcon(wsSrc, arg->scarg_lock, IconInfoName);
1146
1147 ScalosFree(IconInfoName);
1148 }
1149 }
1150 }
1151 }
1152
1153 UndoEndStep(iwtSrc, undoStep);
1154 } while (0);
1155
1156 if (replyPort)
1157 DeleteMsgPort(replyPort);
1158
1159 BackdropFreeList(&bdl);
1160
1161 ScalosReleaseSemaphore(iwtSrc->iwt_WindowTask.wt_WindowSemaphore);
1162 ScalosReleaseSemaphore(iwtDest->iwt_WindowTask.wt_WindowSemaphore);
1163
1164 ClassDragFinish_IconWin(ArgList);
1165 }
1166
1167
1168 static void Desktop2DesktopDrop(struct ScalosArg **ArgList, struct ScaWindowStruct *wsSrc,
1169 struct ScaWindowStruct *wsDest, struct DropInfo *DrInfo)
1170 {
1171 struct internalScaWindowTask *iwtDest;
1172 struct ScaIconNode *in;
1173
1174 d1(KPrintF("%s/%s/%ld: Src=%08lx <%s> Dest=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, \
1175 wsSrc, wsSrc->ws_Name, wsDest, wsDest->ws_Name));
1176
1177 if (NULL == wsSrc || NULL == wsDest)
1178 return;
1179
1180 iwtDest = (struct internalScaWindowTask *) wsDest->ws_WindowTask;
1181
1182 if (NULL == iwtDest)
1183 return;
1184
1185 ScalosLockIconListShared(iwtDest);
1186
1187 in = CheckMouseIcon(&iwtDest->iwt_WindowTask.wt_IconList, iwtDest, DrInfo->drin_x, DrInfo->drin_y);
1188 if (in)
1189 {
1190 IPTR IconType;
1191
1192 GetAttr(IDTA_Type, in->in_Icon, &IconType);
1193 switch (IconType)
1194 {
1195 case WBDISK:
1196 for (DrInfo->drin_Arg = *ArgList; DrInfo->drin_Arg; DrInfo->drin_Arg = (struct ScalosArg *) DrInfo->drin_Arg->scarg_Node.mln_Succ)
1197 {
1198 STRPTR p;
1199 BPTR diskcopyLock;
1200 char ch;
1201
1202 d1(kprintf("%s/%s/%ld: DrInfo->drin_Arg=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, DrInfo->drin_Arg, DrInfo->drin_Arg->scarg_name));
1203
1204 if (WBDISK != DrInfo->drin_Arg->scarg_icontype)
1205 continue;
1206
1207 p = PathPart((STRPTR) CurrentPrefs.pref_DefDiskCopy);
1208 ch = *p;
1209 *p = '\0';
1210
1211 diskcopyLock = Lock((STRPTR) CurrentPrefs.pref_DefDiskCopy, ACCESS_READ);
1212
1213 *p = ch;
1214
1215 if (diskcopyLock)
1216 {
1217 struct WBArg ArgArray[3];
1218
1219 ArgArray[0].wa_Lock = diskcopyLock;
1220 ArgArray[0].wa_Name = FilePart((STRPTR) CurrentPrefs.pref_DefDiskCopy);
1221
1222 ArgArray[1].wa_Lock = (BPTR)NULL;
1223 ArgArray[1].wa_Name = NULL;
1224 if (DrInfo->drin_Arg->scarg_lock)
1225 ArgArray[1].wa_Lock = DupLock(DrInfo->drin_Arg->scarg_lock);
1226 else
1227 ArgArray[1].wa_Name = DrInfo->drin_Arg->scarg_name;
1228
1229 ArgArray[2].wa_Lock = DiskInfoLock(in);
1230 ArgArray[2].wa_Name = NULL;
1231
1232 if ((BPTR)NULL == ArgArray[2].wa_Lock)
1233 ArgArray[2].wa_Name = in->in_DeviceIcon->di_Device;
1234
1235 SCA_WBStart(ArgArray, NULL, 3);
1236 }
1237
1238 DrInfo->drin_Arg->scarg_icontype = 0;
1239 }
1240 break;
1241 default:
1242 ScalosUnLockIconList(iwtDest);
1243 Desktop2IconDrop(ArgList, wsSrc, wsDest, DrInfo);
1244 return;
1245 break;
1246 }
1247 }
1248
1249 ScalosUnLockIconList(iwtDest);
1250
1251 Desktop2IconDrop(ArgList, wsSrc, wsDest, DrInfo);
1252 }
1253
1254
1255 // drop icon(s) from desktop (=device window) to some icon window
1256 static void Desktop2IconDrop(struct ScalosArg **ArgList,
1257 struct ScaWindowStruct *wsSrc,
1258 struct ScaWindowStruct *wsDest,
1259 struct DropInfo *DrInfo)
1260 {
1261 struct internalScaWindowTask *iwtSrc, *iwtDest;
1262 BPTR SrcLock = (BPTR)NULL;
1263 BPTR oldDir = NOT_A_LOCK;
1264 struct MsgPort *replyPort = NULL;
1265 BOOL WindowsLocked = TRUE;
1266 APTR undoStep = NULL;
1267
1268 d1(KPrintF("%s/%s/%ld: START Src=%08lx <%s> Dest=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, \
1269 wsSrc, wsSrc->ws_Name, wsDest, wsDest->ws_Name));
1270
1271 if (NULL == wsSrc || NULL == wsDest)
1272 return;
1273
1274 iwtSrc = (struct internalScaWindowTask *) wsSrc->ws_WindowTask;
1275 iwtDest = (struct internalScaWindowTask *) wsDest->ws_WindowTask;
1276
1277 if (NULL == iwtSrc || NULL == iwtDest)
1278 return;
1279
1280 do {
1281 ULONG Result = RETURN_OK;
1282 struct ScaIconNode *in;
1283
1284 if (wsSrc->ws_Lock)
1285 {
1286 SrcLock = DupLock(wsSrc->ws_Lock);
1287 if ((BPTR)NULL == SrcLock)
1288 break;
1289 }
1290 if (wsDest->ws_Lock)
1291 {
1292 DrInfo->drin_DestLock = DupLock(wsDest->ws_Lock);
1293 if ((BPTR)NULL == DrInfo->drin_DestLock)
1294 break;
1295 }
1296
1297 oldDir = CurrentDir(DrInfo->drin_DestLock);
1298
1299 ScalosLockIconListShared(iwtDest);
1300
1301 in = CheckMouseIcon(&iwtDest->iwt_WindowTask.wt_IconList,
1302 iwtDest, DrInfo->drin_x, DrInfo->drin_y);
1303 d1(kprintf("%s/%s/%ld: in=%08lx iwtDest=%08lx\n", __FILE__, __FUNC__, __LINE__, in, iwtDest));
1304 if (in)
1305 {
1306 IPTR IconType;
1307 BPTR IconLock = (BPTR)NULL;
1308
1309 GetAttr(IDTA_Type, in->in_Icon, &IconType);
1310 switch (IconType)
1311 {
1312 case WBDISK:
1313 IconLock = DiskInfoLock(in);
1314 break;
1315 case WBDRAWER:
1316 case WBGARBAGE:
1317 case WB_TEXTICON_DRAWER:
1318 if (in->in_Lock)
1319 {
1320 BPTR oldDir2 = CurrentDir(in->in_Lock);
1321
1322 IconLock = Lock((STRPTR) GetIconName(in), ACCESS_READ);
1323
1324 CurrentDir(oldDir2);
1325 }
1326 else
1327 IconLock = Lock((STRPTR) GetIconName(in), ACCESS_READ);
1328 break;
1329 }
1330
1331 if (IconLock)
1332 {
1333 UnLock(DrInfo->drin_DestLock);
1334 DrInfo->drin_DestLock = IconLock;
1335 DrInfo->drin_x = NO_ICON_POSITION_SHORT;
1336 DrInfo->drin_y = NO_ICON_POSITION_SHORT;
1337 }
1338 }
1339
1340 ScalosUnLockIconList(iwtDest);
1341
1342 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1343
1344 CurrentDir(oldDir);
1345 oldDir = NOT_A_LOCK;
1346
1347 replyPort = CreateMsgPort();
1348 if (NULL == replyPort)
1349 break;
1350
1351 undoStep = UndoBeginStep();
1352
1353 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1354
1355 for (DrInfo->drin_Arg = *ArgList; DrInfo->drin_Arg; DrInfo->drin_Arg = (struct ScalosArg *) DrInfo->drin_Arg->scarg_Node.mln_Succ)
1356 {
1357 d1(kprintf("%s/%s/%ld: DrInfo->drin_Arg=%08lx <%s> IconType=%ld\n", \
1358 __FILE__, __FUNC__, __LINE__, \
1359 DrInfo->drin_Arg, DrInfo->drin_Arg->scarg_name, DrInfo->drin_Arg->scarg_icontype));
1360
1361 if (WBDISK == DrInfo->drin_Arg->scarg_icontype)
1362 continue;
1363
1364 debugLock_d1(DrInfo->drin_DestLock);
1365 debugLock_d1(DrInfo->drin_Arg->scarg_lock);
1366
1367 if (LOCK_SAME == ScaSameLock(DrInfo->drin_DestLock, DrInfo->drin_Arg->scarg_lock))
1368 {
1369 // drop left-out icon back into its native window
1370 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1371
1372 DrInfo->drin_Drops.drop_PutAway = TRUE;
1373
1374 UndoAddEvent(iwtSrc, UNDO_PutAway,
1375 UNDOTAG_UndoMultiStep, undoStep,
1376 UNDOTAG_IconDirLock, DrInfo->drin_Arg->scarg_lock,
1377 UNDOTAG_IconName, DrInfo->drin_Arg->scarg_name,
1378 TAG_END);
1379
1380 PutAwayIcon(iwtSrc,
1381 DrInfo->drin_Arg->scarg_lock,
1382 DrInfo->drin_Arg->scarg_name,
1383 CurrentPrefs.pref_AutoLeaveOut);
1384
1385 d1(kprintf("%s/%s/%ld: PutAwayIcon(name=<%s>) IconType=%ld\n", \
1386 __FILE__, __FUNC__, __LINE__, \
1387 DrInfo->drin_Arg->scarg_name, DrInfo->drin_Arg->scarg_icontype));
1388
1389 if (NO_ICON_POSITION_SHORT == DrInfo->drin_x)
1390 {
1391 struct ScaUpdateIcon_IW upd;
1392
1393 upd.ui_iw_Lock = DrInfo->drin_Arg->scarg_lock;
1394 upd.ui_iw_Name = DrInfo->drin_Arg->scarg_name;
1395 upd.ui_IconType = ICONTYPE_NONE;
1396
1397 SCA_UpdateIcon(SIV_IconWin, &upd, sizeof(upd));
1398 }
1399 else
1400 {
1401 ULONG Result;
1402
1403 Result = DropAddIcon(replyPort, wsDest,
1404 DrInfo->drin_Arg->scarg_lock,
1405 DrInfo->drin_Arg->scarg_name,
1406 DrInfo->drin_x + DrInfo->drin_Arg->scarg_xpos,
1407 DrInfo->drin_y + DrInfo->drin_Arg->scarg_ypos);
1408
1409 if (0 == Result)
1410 {
1411 DropAddIcon(replyPort, wsSrc,
1412 DrInfo->drin_Arg->scarg_lock,
1413 DrInfo->drin_Arg->scarg_name,
1414 DrInfo->drin_x + DrInfo->drin_Arg->scarg_xpos,
1415 DrInfo->drin_y + DrInfo->drin_Arg->scarg_ypos);
1416 }
1417
1418 // Special handling for "view all" textwindows.
1419 // here both object and icon are separate entries, which must be added both!
1420 if (!IsIwtViewByIcon(iwtDest) && IsShowAll(wsDest))
1421 {
1422 STRPTR IconInfoName = ScalosAlloc(1 + strlen(DrInfo->drin_Arg->scarg_name) + strlen(".info"));
1423
1424 if (IconInfoName)
1425 {
1426 strcpy(IconInfoName, DrInfo->drin_Arg->scarg_name);
1427 strcat(IconInfoName, ".info");
1428
1429 // add associated ".info" icon to destination window
1430 DropAddIcon(replyPort, wsDest,
1431 DrInfo->drin_Arg->scarg_lock,
1432 IconInfoName,
1433 DrInfo->drin_x + DrInfo->drin_Arg->scarg_xpos,
1434 DrInfo->drin_y + DrInfo->drin_Arg->scarg_ypos);
1435
1436 ScalosFree(IconInfoName);
1437 }
1438 }
1439 }
1440 }
1441 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1442 }
1443
1444 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1445
1446 DeleteMsgPort(replyPort);
1447 replyPort = NULL;
1448
1449 ScalosReleaseSemaphore(iwtSrc->iwt_WindowTask.wt_WindowSemaphore);
1450 ScalosReleaseSemaphore(iwtDest->iwt_WindowTask.wt_WindowSemaphore);
1451 WindowsLocked = FALSE;
1452
1453 for (DrInfo->drin_Arg = *ArgList;
1454 RESULT_UserAborted != Result && DrInfo->drin_Arg;
1455 DrInfo->drin_Arg = (struct ScalosArg *) DrInfo->drin_Arg->scarg_Node.mln_Succ)
1456 {
1457 LONG xi = DrInfo->drin_x, yi = DrInfo->drin_y;
1458
1459 d1(kprintf("%s/%s/%ld: DrInfo->drin_Arg=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, DrInfo->drin_Arg, DrInfo->drin_Arg->scarg_name));
1460
1461 if (NO_ICON_POSITION_SHORT != xi)
1462 {
1463 xi += DrInfo->drin_Arg->scarg_xpos;
1464 yi += DrInfo->drin_Arg->scarg_ypos;
1465 }
1466
1467 switch (DrInfo->drin_Arg->scarg_icontype)
1468 {
1469 case WBDRAWER:
1470 case WB_TEXTICON_DRAWER:
1471 case WBGARBAGE:
1472 Result = Icon2IconDrop_Drawer(iwtSrc, DrInfo, undoStep);
1473 break;
1474 case WBTOOL:
1475 case WB_TEXTICON_TOOL:
1476 Result = Icon2IconDrop_File(iwtSrc, DrInfo, undoStep);
1477 break;
1478
1479 case WBDISK:
1480 if (LOCK_DIFFERENT == ScaSameLock(DrInfo->drin_DestLock, DrInfo->drin_Arg->scarg_lock) ||
1481 DrInfo->drin_Drops.drop_Copy || DrInfo->drin_Drops.drop_CreateLink)
1482 {
1483 STRPTR Name = NULL;
1484 BPTR oldDir2 = BNULL;
1485
1486 debugLock_d1(DrInfo->drin_DestLock);
1487 debugLock_d1(DrInfo->drin_Arg->scarg_lock);
1488
1489 do {
1490 struct DropOps AllowedDrops;
1491
1492 AllowedDrops.drop_CreateLink = TRUE;
1493 AllowedDrops.drop_Copy = TRUE;
1494 AllowedDrops.drop_Move = FALSE;
1495
1496 if (!DropPopupMenu(iwtSrc, DrInfo, &AllowedDrops))
1497 break;
1498
1499 oldDir2 = CurrentDir(DrInfo->drin_DestLock);
1500
1501 Name = AllocPathBuffer();
1502 if (NULL == Name)
1503 break;
1504
1505 if (!NameFromLock(DrInfo->drin_Arg->scarg_lock, Name, Max_PathLen-1))
1506 break;
1507
1508 d1(kprintf("%s/%s/%ld: Name=<%s>\n", __FILE__, __FUNC__, __LINE__, Name));
1509
1510 StripTrailingColon(Name);
1511
1512 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1513
1514 if (DrInfo->drin_Drops.drop_CreateLink)
1515 {
1516 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1517 UndoAddEvent(iwtSrc, UNDO_CreateLink,
1518 UNDOTAG_UndoMultiStep, undoStep,
1519 UNDOTAG_CopySrcDirLock, DrInfo->drin_Arg->scarg_lock,
1520 UNDOTAG_CopyDestDirLock, DrInfo->drin_DestLock,
1521 UNDOTAG_CopySrcName, "",
1522 UNDOTAG_CopyDestName, Name,
1523 UNDOTAG_IconPosX, xi,
1524 UNDOTAG_IconPosY, yi,
1525 TAG_END);
1526 Result = DoMethod(DrInfo->drin_FileTransObj,
1527 SCCM_FileTrans_CreateLink,
1528 DrInfo->drin_Arg->scarg_lock,
1529 DrInfo->drin_DestLock,
1530 "", Name,
1531 xi, yi);
1532 }
1533 else
1534 {
1535 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1536 UndoAddEvent(iwtSrc, UNDO_Copy,
1537 UNDOTAG_UndoMultiStep, undoStep,
1538 UNDOTAG_CopySrcDirLock, DrInfo->drin_Arg->scarg_lock,
1539 UNDOTAG_CopyDestDirLock, DrInfo->drin_DestLock,
1540 UNDOTAG_CopySrcName, "",
1541 UNDOTAG_CopyDestName, Name,
1542 UNDOTAG_IconPosX, xi,
1543 UNDOTAG_IconPosY, yi,
1544 TAG_END);
1545 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1546 Result = DoMethod(DrInfo->drin_FileTransObj,
1547 SCCM_FileTrans_Copy,
1548 DrInfo->drin_Arg->scarg_lock,
1549 DrInfo->drin_DestLock,
1550 "", Name,
1551 xi, yi);
1552 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1553 }
1554
1555 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1556 } while (0);
1557
1558 if (Name)
1559 FreePathBuffer(Name);
1560
1561 CurrentDir(oldDir2);
1562 }
1563 break;
1564 }
1565 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1566 }
1567
1568 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1569
1570 ClassDragFinish_IconWin(ArgList);
1571 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1572 } while (0);
1573
1574 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1575
1576 if (undoStep)
1577 UndoEndStep(iwtSrc, undoStep);
1578 if (replyPort)
1579 DeleteMsgPort(replyPort);
1580 if (IS_VALID_LOCK(oldDir))
1581 CurrentDir(oldDir);
1582 if (SrcLock)
1583 UnLock(SrcLock);
1584 if (DrInfo->drin_DestLock)
1585 {
1586 UnLock(DrInfo->drin_DestLock);
1587 DrInfo->drin_DestLock = (BPTR)NULL;
1588 }
1589
1590 if (WindowsLocked)
1591 {
1592 ScalosReleaseSemaphore(iwtSrc->iwt_WindowTask.wt_WindowSemaphore);
1593 ScalosReleaseSemaphore(iwtDest->iwt_WindowTask.wt_WindowSemaphore);
1594 }
1595
1596 d1(kprintf("%s/%s/%ld: END\n", __FILE__, __FUNC__, __LINE__));
1597 }
1598
1599
1600 static ULONG DropAddIcon(struct MsgPort *ReplyPort, struct ScaWindowStruct *wsDest,
1601 BPTR DirLock, STRPTR IconName, WORD x, WORD y)
1602 {
1603 struct SM_AddIcon *aMsg;
1604 ULONG Result;
1605 ULONG *resPtr;
1606
1607 aMsg = (struct SM_AddIcon *) SCA_AllocMessage(MTYP_AddIcon, 0);
1608 d1(kprintf("%s/%s/%ld: aMsg=%08lx\n", __FILE__, __FUNC__, __LINE__, aMsg));
1609 if (NULL == aMsg)
1610 return 0;
1611
1612 aMsg->ScalosMessage.sm_Message.mn_ReplyPort = ReplyPort;
1613 aMsg->smai_x = x;
1614 aMsg->smai_y = y;
1615 aMsg->smai_DirLock = DirLock;
1616 aMsg->smai_IconName = IconName;
1617
1618 PutMsg(wsDest->ws_MessagePort, &aMsg->ScalosMessage.sm_Message);
1619
1620 d1(kprintf("%s/%s/%ld: before WaitPort\n", __FILE__, __FUNC__, __LINE__));
1621
1622 WaitPort(ReplyPort);
1623
1624 d1(kprintf("%s/%s/%ld: after WaitPort\n", __FILE__, __FUNC__, __LINE__));
1625
1626 aMsg = (struct SM_AddIcon *) GetMsg(ReplyPort);
1627 resPtr = (ULONG *)&aMsg->smai_x;
1628 Result = *resPtr ;
1629
1630 SCA_FreeMessage(&aMsg->ScalosMessage);
1631
1632 return Result;
1633 }
1634
1635
1636 static void DropRemoveIcon(struct ScaWindowStruct *wsDest, BPTR DirLock, CONST_STRPTR IconName)
1637 {
1638 struct SM_RemIcon *rMsg;
1639
1640 // allocate space for the icon name at the end of the SM_RemIcon structure
1641 rMsg = (struct SM_RemIcon *) SCA_AllocMessage(MTYP_RemIcon, 1 + strlen(IconName));
1642 d1(KPrintF("%s/%s/%ld: IconName=<%s> rMsg=%08lx\n", __FILE__, __FUNC__, __LINE__, IconName, rMsg));
1643 if (rMsg)
1644 {
1645 STRPTR ClonedIconName;
1646
1647 ClonedIconName = (STRPTR) (rMsg + 1);
1648 strcpy(ClonedIconName, IconName);
1649
1650 rMsg->ScalosMessage.sm_Message.mn_ReplyPort = NULL;
1651 rMsg->smri_DirLock = DirLock;
1652 rMsg->smri_IconName = ClonedIconName;
1653
1654 PutMsg(wsDest->ws_MessagePort, &rMsg->ScalosMessage.sm_Message);
1655 }
1656 }
1657
1658
1659 ULONG ScalosDropAddIcon(BPTR DirLock, CONST_STRPTR IconName, WORD x, WORD y)
1660 {
1661 struct MsgPort *ReplyPort;
1662 ULONG Result = 0;
1663 struct ScaWindowStruct *ws;
1664
1665 ReplyPort = CreateMsgPort();
1666 d1(KPrintF("%s/%s/%ld: ReplyPort=%08lx\n", __FILE__, __FUNC__, __LINE__, ReplyPort));
1667 if (NULL == ReplyPort)
1668 return (ULONG) IoErr();
1669
1670 SCA_LockWindowList(SCA_LockWindowList_Shared);
1671
1672 for (ws=winlist.wl_WindowStruct; ws; ws = (struct ScaWindowStruct *) ws->ws_Node.mln_Succ)
1673 {
1674 if (ws->ws_Lock && LOCK_SAME == SameLock(DirLock, ws->ws_Lock))
1675 {
1676 d1(kprintf("%s/%s/%ld: found Window\n", __FILE__, __FUNC__, __LINE__));
1677
1678 if (&ws->ws_Task->pr_Task == FindTask(NULL))
1679 {
1680 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1681 Result = DoMethod(ws->ws_WindowTask->mt_MainObject,
1682 SCCM_IconWin_AddIcon,
1683 SCCM_ADDICON_MAKEXY(x, y),
1684 DirLock,
1685 IconName);
1686 }
1687 else
1688 {
1689 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1690 Result = DropAddIcon(ReplyPort,
1691 ws,
1692 DirLock,
1693 (STRPTR) IconName,
1694 x, y);
1695 }
1696 }
1697 }
1698
1699 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1700
1701 SCA_UnLockWindowList();
1702
1703 d1(KPrintF("%s/%s/%ld: Result=%ld\n", __FILE__, __FUNC__, __LINE__, Result));
1704
1705 DeleteMsgPort(ReplyPort);
1706
1707 return Result;
1708 }
1709
1710
1711 void ScalosDropRemoveIcon(BPTR DirLock, CONST_STRPTR IconName)
1712 {
1713 struct ScaWindowStruct *ws;
1714
1715 d1(KPrintF("%s/%s/%ld: START\n", __FILE__, __FUNC__, __LINE__));
1716
1717 SCA_LockWindowList(SCA_LockWindowList_Shared);
1718
1719 for (ws=winlist.wl_WindowStruct; ws; ws = (struct ScaWindowStruct *) ws->ws_Node.mln_Succ)
1720 {
1721 if (ws->ws_Lock && LOCK_SAME == SameLock(DirLock, ws->ws_Lock))
1722 {
1723 DropRemoveIcon(ws, DirLock, (STRPTR) IconName);
1724 }
1725 }
1726
1727 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1728
1729 SCA_UnLockWindowList();
1730 }
1731
1732
1733 static void DronOnAppIcon(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtDest,
1734 struct ScaIconNode *in, LONG x, LONG y)
1735 {
1736 d1(kprintf("%s/%s/%ld: iwt=%08lx iwtFound=%08lx Icon=%08lx <%s> x=%ld y=%ld\n", \
1737 __LINE__, iwt, iwtDest, in, GetIconName(in), x, y));
1738
1739 RestoreDragIcons(iwt);
1740
1741 ScalosLockIconListShared(iwtDest);
1742
1743 if (iwtDest->iwt_AppListSemaphore)
1744 {
1745 struct AppObject *ao;
1746
1747 ScalosObtainSemaphoreShared(iwtDest->iwt_AppListSemaphore);
1748
1749 for (ao=iwtDest->iwt_AppList; ao; ao = (struct AppObject *) ao->appo_Node.mln_Succ)
1750 {
1751 if (APPTYPE_AppIcon == ao->appo_type &&
1752 in->in_Icon == ao->appo_object.appoo_IconObject)
1753 {
1754 ScalosUnLockIconList(iwtDest);
1755
1756 if (ScalosAttemptSemaphoreShared(iwtDest->iwt_WindowTask.wt_WindowSemaphore))
1757 {
1758 DronOnAppObject(iwt, ao, x, y);
1759
1760 ScalosReleaseSemaphore(iwtDest->iwt_WindowTask.wt_WindowSemaphore);
1761
1762 ScalosLockIconListShared(iwtDest);
1763 break;
1764 }
1765 }
1766 }
1767
1768 ScalosReleaseSemaphore(iwtDest->iwt_AppListSemaphore);
1769 }
1770
1771 ScalosUnLockIconList(iwtDest);
1772 }
1773
1774
1775 static void DronOnAppObject(struct internalScaWindowTask *iwt, struct AppObject *ao, LONG x, LONG y)
1776 {
1777 struct DragNode *dn;
1778 struct AppMessage *am;
1779 struct WBArg *argList;
1780 size_t Len;
1781 ULONG ArgCount;
1782 ULONG NumberOfDroppedIcons;
1783
1784 d1(kprintf("%s/%s/%ld: iwt=%08lx AppObj=%08lx x=%ld y=%ld\n", \
1785 __LINE__, iwt, ao, x, y));
1786
1787 for (dn = iwt->iwt_DragNodeList, NumberOfDroppedIcons = 0;
1788 dn; dn = (struct DragNode *) dn->drgn_Node.mln_Succ)
1789 NumberOfDroppedIcons++;
1790
1791 Len = sizeof(struct AppMessage) + sizeof(struct WBArg) * NumberOfDroppedIcons;
1792
1793 am = AllocVec(Len, MEMF_PUBLIC | MEMF_CLEAR);
1794 if (NULL == am)
1795 return;
1796
1797 d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1798
1799 argList = (struct WBArg *) &am[1];
1800
1801 am->am_Message.mn_ReplyPort = iInfos.xii_iinfos.ii_MainMsgPort;
1802 am->am_Message.mn_Length = Len;
1803
1804 switch (ao->appo_type)
1805 {
1806 case APPTYPE_AppIcon:
1807 am->am_Type = AMTYPE_APPICON;
1808 break;
1809 case APPTYPE_AppWindow:
1810 am->am_Type = AMTYPE_APPWINDOW;
1811 break;
1812 case APPTYPE_AppMenuItem:
1813 am->am_Type = AMTYPE_APPMENUITEM;
1814 break;
1815 }
1816
1817 am->am_UserData = ao->appo_userdata;
1818 am->am_ID = ao->appo_id;
1819 am->am_Version = AM_VERSION;
1820
1821 x += iwt->iwt_WindowTask.wt_Window->LeftEdge;
1822 y += iwt->iwt_WindowTask.wt_Window->TopEdge;
1823
1824 if (APPTYPE_AppWindow == ao->appo_type)
1825 {
1826 x -= ao->appo_object.appoo_Window->LeftEdge;
1827 y -= ao->appo_object.appoo_Window->TopEdge;
1828 }
1829
1830 am->am_MouseX = x;
1831 am->am_MouseY = y;
1832
1833 CurrentTime(&am->am_Seconds, &am->am_Micros);
1834
1835 am->am_Reserved[0] = ID_APPM;
1836 am->am_ArgList = argList;
1837
1838 d1(kprintf("%s/%s/%ld: x=%ld y=%ld\n", __FILE__, __FUNC__, __LINE__, x, y));
1839
1840 ArgCount = 0;
1841
1842 ScalosLockIconListShared(iwt);
1843
1844 for (dn=iwt->iwt_DragNodeList; dn && ArgCount < NumberOfDroppedIcons; dn = (struct DragNode *) dn->drgn_Node.mln_Succ)
1845 {
1846 struct ScaIconNode *in = dn->drgn_iconnode;
1847 IPTR IconType;
1848 BPTR oldDir;
1849 BPTR fLock;
1850
1851 GetAttr(IDTA_Type, dn->drgn_icon, &IconType);
1852
1853 d1(kprintf("%s/%s/%ld: dn=%08lx <%s> Type=%ld\n", __FILE__, __FUNC__, __LINE__, dn, GetIconName(in), IconType));
1854
1855 switch (IconType)
1856 {
1857 case WBTOOL:
1858 case WBPROJECT:
1859 case WB_TEXTICON_TOOL: // Text Tool
1860 //.tool:
1861 if (in->in_Name)
1862 {
1863 if (in->in_Lock)
1864 fLock = DupLock(in->in_Lock);
1865 else
1866 {
1867 if (iwt->iwt_WindowTask.mt_WindowStruct->ws_Lock)
1868 fLock = DupLock(iwt->iwt_WindowTask.mt_WindowStruct->ws_Lock);
1869 else
1870 fLock = (BPTR)NULL;
1871 }
1872
1873 argList->wa_Lock = fLock;
1874 argList->wa_Name = AllocCopyString(in->in_Name);
1875
1876 argList++;
1877 ArgCount++;
1878 }
1879 break;
1880
1881 case WBAPPICON:
1882 break;
1883
1884 default:
1885 oldDir = CurrentDir(in->in_Lock ? in->in_Lock : iwt->iwt_WindowTask.mt_WindowStruct->ws_Lock);
1886
1887 if (in->in_DeviceIcon)
1888 fLock = DiskInfoLock(in);
1889 else
1890 fLock = Lock((STRPTR) GetIconName(in), ACCESS_READ);
1891
1892 CurrentDir(oldDir);
1893
1894 if (fLock)
1895 {
1896 argList->wa_Lock = fLock;
1897 argList->wa_Name = AllocCopyString(NULL);
1898
1899 argList++;
1900 ArgCount++;
1901 }
1902 break;
1903 }
1904 }
1905
1906 ScalosUnLockIconList(iwt);
1907
1908 d1(kprintf("%s/%s/%ld: ArgCount=%ld\n", __FILE__, __FUNC__, __LINE__, ArgCount));
1909
1910 am->am_NumArgs = ArgCount;
1911 if (0 == am->am_NumArgs)
1912 am->am_ArgList = NULL;
1913
1914 PutMsg(ao->appo_msgport, &am->am_Message);
1915 }
1916
1917
1918 static void SameWindow(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtDest, LONG x, LONG y)
1919 {
1920 struct DragNode *dn;
1921 struct Region *ClipRegion;
1922 BOOL fIconsMoved = FALSE;
1923 APTR undoStep;
1924 LONG x1, y1;
1925
1926 d1(kprintf("%s/%s/%ld: iwt=%08lx iwtFound=%08lx x=%ld y=%ld\n", __FILE__, __FUNC__, __LINE__, iwt, iwtDest, x, y));
1927
1928 if (iwt->iwt_RemIconsFlag && IsIwtViewByIcon(iwt) && CurrentPrefs.pref_AutoRemoveFlag)
1929 {
1930 SameWindow2(iwt, iwtDest, x, y);
1931 return;
1932 }
1933
1934 ScalosLockIconListExclusive(iwt);
1935
1936 x1 = iwt->iwt_InnerLeft - iwt->iwt_WindowTask.wt_XOffset;
1937 y1 = iwt->iwt_InnerTop - iwt->iwt_WindowTask.wt_YOffset;
1938
1939 ClipRegion = NewRegion();
1940
1941 undoStep = UndoBeginStep();
1942
1943 for (dn=iwt->iwt_DragNodeList; dn; dn = (struct DragNode *) dn->drgn_Node.mln_Succ)
1944 {
1945 struct ScaIconNode *in = dn->drgn_iconnode;
1946 const struct ExtGadget *gg = (const struct ExtGadget *) in->in_Icon;
1947
1948 d1(kprintf("%s/%s/%ld: in=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, in, GetIconName(in)));
1949
1950 if (!(in->in_Flags & INF_Sticky))
1951 {
1952 struct Rectangle IconRect;
1953
1954 IconRect.MinX = x1 + gg->BoundsLeftEdge;
1955 IconRect.MaxX = IconRect.MinX + gg->BoundsWidth - 1;
1956 IconRect.MinY = y1 + gg->BoundsTopEdge;
1957 IconRect.MaxY = IconRect.MinY + gg->BoundsHeight - 1;
1958
1959 UndoAddEvent(iwt, UNDO_ChangeIconPos,
1960 UNDOTAG_UndoMultiStep, undoStep,
1961 UNDOTAG_IconDirLock, in->in_Lock ?
1962 in->in_Lock : iwt->iwt_WindowTask.mt_WindowStruct->ws_Lock,
1963 UNDOTAG_IconNode, in,
1964 UNDOTAG_IconPosX, dn->drgn_x + x,
1965 UNDOTAG_IconPosY, y + dn->drgn_y,
1966 TAG_END);
1967
1968 d1(kprintf("%s/%s/%ld: IconRect x=%ld %ld y=%ld %ld\n", __FILE__, __FUNC__, __LINE__, \
1969 IconRect.MinX, IconRect.MaxX, IconRect.MinY, IconRect.MaxY));
1970
1971 OrRectRegion(ClipRegion, &IconRect);
1972
1973 fIconsMoved = TRUE;
1974
1975 MoveIconToNewPosition(iwt, in, dn->drgn_x + x, y + dn->drgn_y);
1976 }
1977 }
1978
1979 d1(kprintf("%s/%s/%ld: IconsMoved=%ld\n", __FILE__, __FUNC__, __LINE__, fIconsMoved));
1980
1981 UndoEndStep(iwt, undoStep);
1982
1983 if (fIconsMoved)
1984 {
1985 struct Rectangle WindowRect;
1986
1987 WindowRect.MinX = WindowRect.MaxX = iwt->iwt_InnerLeft;
1988 WindowRect.MinY = WindowRect.MaxY = iwt->iwt_InnerTop;
1989 WindowRect.MaxX += iwt->iwt_InnerWidth - 1;
1990 WindowRect.MaxY += iwt->iwt_InnerHeight - 1;
1991
1992 AndRectRegion(ClipRegion, &WindowRect);
1993
1994 if (iwt->iwt_DragFlags & DRAGFLAGF_WindowLocked)
1995 {
1996 iwt->iwt_DragFlags |= DRAGFLAGF_UpdatePending;
1997 }
1998 else
1999 {
2000 struct Region *oldClipRegion;
2001
2002 d1(kprintf("%s/%s/%ld: DragFlags=%08lx ClipRegion=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt->iwt_DragFlags, ClipRegion));
2003
2004 oldClipRegion = InstallClipRegion(iwt->iwt_WindowTask.wt_Window->WLayer, ClipRegion);
2005
2006 EraseRect(iwt->iwt_WindowTask.wt_Window->RPort,
2007 0, 0,
2008 iwt->iwt_WindowTask.wt_Window->Width - 1,
2009 iwt->iwt_WindowTask.wt_Window->Height - 1);
2010
2011 RefreshIcons(iwt, NULL); // refresh icons NOT in iwt_DragNodeList
2012
2013 InstallClipRegion(iwt->iwt_WindowTask.wt_Window->WLayer, oldClipRegion);
2014 d1(kprintf("%s/%s/%ld: oldClipRegion=%08lx\n", __FILE__, __FUNC__, __LINE__, oldClipRegion));
2015 }
2016
2017 DisposeRegion(ClipRegion);
2018
2019 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_CleanUp);
2020
2021 DragRefreshIcons(iwt); // refresh icons from iwt_DragNodeList
2022
2023 ScalosUnLockIconList(iwt);
2024
2025 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_SetVirtSize,
2026 SETVIRTF_AdjustRightSlider | SETVIRTF_AdjustBottomSlider);
2027 }
2028 else
2029 {
2030 ScalosUnLockIconList(iwt);
2031 DisposeRegion(ClipRegion);
2032 }
2033 }
2034
2035
2036 static void SameWindow2(struct internalScaWindowTask *iwt, struct internalScaWindowTask *iwtDest, LONG x, LONG y)
2037 {
2038 APTR undoStep;
2039 struct DragNode *dn;
2040 struct ScaIconNode *initialDragIconList;
2041
2042 d1(KPrintF("%s/%s/%ld: iwt=%08lx iwtFound=%08lx x=%ld y=%ld\n", __FILE__, __FUNC__, __LINE__, iwt, iwtDest, x, y));
2043
2044 ScalosLockIconListExclusive(iwt);
2045
2046 initialDragIconList = iwt->iwt_DragIconList;
2047
2048 undoStep = UndoBeginStep();
2049
2050 for (dn=iwt->iwt_DragNodeList; dn; dn = (struct DragNode *) dn->drgn_Node.mln_Succ)
2051 {
2052 SCA_MoveIconNode(&iwt->iwt_DragIconList, &iwt->iwt_WindowTask.wt_IconList, dn->drgn_iconnode);
2053
2054 if (!(dn->drgn_iconnode->in_Flags & INF_Sticky))
2055 {
2056 UndoAddEvent(iwt, UNDO_ChangeIconPos,
2057 UNDOTAG_UndoMultiStep, undoStep,
2058 UNDOTAG_IconDirLock, dn->drgn_iconnode->in_Lock ?
2059 dn->drgn_iconnode->in_Lock : iwt->iwt_WindowTask.mt_WindowStruct->ws_Lock,
2060 UNDOTAG_IconNode, dn->drgn_iconnode,
2061 UNDOTAG_IconPosX, dn->drgn_x + x,
2062 UNDOTAG_IconPosY, y + dn->drgn_y,
2063 TAG_END);
2064
2065 MoveIconToNewPosition(iwt, dn->drgn_iconnode, dn->drgn_x + x, y + dn->drgn_y);
2066 }
2067 }
2068
2069 UndoEndStep(iwt, undoStep);
2070
2071 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_CleanUp);
2072
2073 RefreshIconList(iwt, initialDragIconList, NULL);
2074
2075 ScalosUnLockIconList(iwt);
2076
2077 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_SetVirtSize,
2078 SETVIRTF_AdjustRightSlider | SETVIRTF_AdjustBottomSlider);
2079 }
2080
2081
2082 static ULONG DragQuery_IconWin(struct ScaIconNode *in, ULONG IconType)
2083 {
2084 switch (IconType)
2085 {
2086 case WBDISK:
2087 case WBDRAWER:
2088 case WBGARBAGE:
2089 case WB_TEXTICON_DRAWER:
2090 return TRUE;
2091 break;
2092 }
2093
2094 return FALSE;
2095 }
2096
2097
2098 static void MoveIconToNewPosition(struct internalScaWindowTask *iwt,
2099 struct ScaIconNode *in, WORD xNew, WORD yNew)
2100 {
2101 struct ExtGadget *gg = (struct ExtGadget *) in->in_Icon;
2102 WORD x0, y0;
2103 BOOL NewPosNoGood = FALSE;
2104 WORD origLeft, origTop, origBoundsLeft, origBoundsTop;
2105
2106 origLeft = gg->LeftEdge;
2107 origBoundsLeft = gg->BoundsLeftEdge;
2108 origTop = gg->TopEdge;
2109 origBoundsTop = gg->BoundsTopEdge;
2110
2111 x0 = gg->LeftEdge - gg->BoundsLeftEdge;
2112
2113 gg->LeftEdge = xNew;
2114 gg->BoundsLeftEdge = gg->LeftEdge - x0;
2115
2116 y0 = gg->TopEdge - gg->BoundsTopEdge;
2117
2118 gg->TopEdge = yNew;
2119 gg->BoundsTopEdge = gg->TopEdge - y0;
2120
2121 if (iwt->iwt_BackDrop)
2122 NewPosNoGood = CheckPosition(iwt, in);
2123
2124 if (!CurrentPrefs.pref_DDIconsMayOverlap)
2125 NewPosNoGood = NewPosNoGood || CheckOverlap(iwt, in);
2126
2127 if (NewPosNoGood)
2128 {
2129 // Put icon back to original position
2130 // and move it back to wt_IconList
2131 ScalosLockIconListExclusive(iwt);
2132
2133 gg->LeftEdge = origLeft;
2134 gg->BoundsLeftEdge = origBoundsLeft;
2135 gg->TopEdge = origTop;
2136 gg->BoundsTopEdge = origBoundsTop;
2137
2138 SCA_MoveIconNode(&iwt->iwt_WindowTask.wt_LateIconList, &iwt->iwt_WindowTask.wt_IconList, in);
2139
2140 ScalosUnLockIconList(iwt);
2141 }
2142 }
2143
2144
2145
2146 static BOOL DropPopupMenu(struct internalScaWindowTask *iwtSrc,
2147 struct DropInfo *DrInfo, const struct DropOps *AllowedDrops)
2148 {
2149 BOOL DoDrop = TRUE;
2150
2151 if (CurrentPrefs.pref_EnableDropMenu && !DrInfo->drin_Drops.drop_PutAway && !DrInfo->drin_Drops.drop_LeaveOut)
2152 {
2153 if (DrInfo->drin_LastAllowedDrops.drop_Copy != AllowedDrops->drop_Copy
2154 || DrInfo->drin_LastAllowedDrops.drop_Move != AllowedDrops->drop_Move
2155 || DrInfo->drin_LastAllowedDrops.drop_CreateLink != AllowedDrops->drop_CreateLink
2156 || DrInfo->drin_LastAllowedDrops.drop_PutAway != AllowedDrops->drop_PutAway
2157 || DrInfo->drin_LastAllowedDrops.drop_LeaveOut != AllowedDrops->drop_LeaveOut)
2158 DrInfo->drin_LastDropMenuResult = DROPMENURESULT_Unknown;
2159
2160 d1(KPrintF("%s/%s/%ld: drin_LastDropMenuResult=%ld\n", __FILE__, __FUNC__, __LINE__, DrInfo->drin_LastDropMenuResult));
2161
2162 if (DROPMENURESULT_Unknown != DrInfo->drin_LastDropMenuResult)
2163 {
2164 switch (DrInfo->drin_LastDropMenuResult)
2165 {
2166 case DROPMENURESULT_Copy:
2167 DrInfo->drin_Drops.drop_Copy = TRUE;
2168 DrInfo->drin_Drops.drop_Move = FALSE;
2169 DrInfo->drin_Drops.drop_CreateLink = FALSE;
2170 break;
2171 case DROPMENURESULT_Move:
2172 DrInfo->drin_Drops.drop_Copy = FALSE;
2173 DrInfo->drin_Drops.drop_Move = TRUE;
2174 DrInfo->drin_Drops.drop_CreateLink = FALSE;
2175 break;
2176 case DROPMENURESULT_CreateLink:
2177 DrInfo->drin_Drops.drop_Copy = FALSE;
2178 DrInfo->drin_Drops.drop_Move = FALSE;
2179 DrInfo->drin_Drops.drop_CreateLink = TRUE;
2180 break;
2181 default:
2182 DoDrop = FALSE;
2183 break;
2184 }
2185 }
2186 else
2187 {
2188 struct PopupMenu *pm;
2189 struct PopupMenu *pmLast;
2190 Object *MenuImages[DROPMENUIMAGE_MAX];
2191 ULONG n;
2192
2193 MenuImages[DROPMENUIMAGE_Abort] = NewObject(DtImageClass, NULL,
2194 DTIMG_ImageName, (IPTR) "THEME:Menu/DropMenu/Abort",
2195 TAG_END);
2196 d1(KPrintF("%s/%s/%ld: DROPMENUIMAGE_Abort=%08lx\n", __FILE__, __FUNC__, __LINE__, MenuImages[DROPMENUIMAGE_Abort]));
2197 MenuImages[DROPMENUIMAGE_Copy] = NewObject(DtImageClass, NULL,
2198 DTIMG_ImageName, (IPTR) "THEME:Menu/DropMenu/Copy",
2199 TAG_END);
2200 d1(KPrintF("%s/%s/%ld: DROPMENUIMAGE_Copy=%08lx\n", __FILE__, __FUNC__, __LINE__, MenuImages[DROPMENUIMAGE_Copy]));
2201 MenuImages[DROPMENUIMAGE_Move] = NewObject(DtImageClass, NULL,
2202 DTIMG_ImageName, (IPTR) "THEME:Menu/DropMenu/Move",
2203 TAG_END);
2204 d1(KPrintF("%s/%s/%ld: DROPMENUIMAGE_Move=%08lx\n", __FILE__, __FUNC__, __LINE__, MenuImages[DROPMENUIMAGE_Move]));
2205 MenuImages[DROPMENUIMAGE_CreateLink] = NewObject(DtImageClass, NULL,
2206 DTIMG_ImageName, (IPTR) "THEME:Menu/DropMenu/CreateLink",
2207 TAG_END);
2208 d1(KPrintF("%s/%s/%ld: DROPMENUIMAGE_CreateLink=%08lx\n", __FILE__, __FUNC__, __LINE__, MenuImages[DROPMENUIMAGE_CreateLink]));
2209
2210 pm = PM_MakeMenu(PM_Item, (IPTR) PM_MakeItem(PM_TitleID, MSGID_DROPMENU_DROPMENUTITLE,
2211 PM_NoSelect, TRUE,
2212 PM_ShinePen, TRUE,
2213 PM_Shadowed, TRUE,
2214 PM_Center, TRUE,
2215 TAG_END),
2216 PM_Item, (IPTR) (pmLast = PM_MakeItem(PM_WideTitleBar, TRUE,
2217 TAG_END)),
2218 PM_Item, (IPTR) PM_MakeItem(PM_TitleBar, TRUE,
2219 TAG_END),
2220 PM_Item, (IPTR) PM_MakeItem(PM_TitleID, MSGID_DROPMENU_CANCEL,
2221 PM_UserData, DROPMENURESULT_Cancel,
2222 MenuImages[DROPMENUIMAGE_Abort] ? PM_IconUnselected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_Abort],
2223 MenuImages[DROPMENUIMAGE_Abort] ? PM_IconSelected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_Abort],
2224 TAG_END),
2225 TAG_END);
2226
2227 d1(KPrintF("%s/%s/%ld: pm=%08lx pmLast=%08lx\n", __FILE__, __FUNC__, __LINE__, pm, pmLast));
2228 if (pm)
2229 {
2230 ULONG UserData;
2231 struct PopupMenu *pmLastNext;
2232
2233 d1(KPrintF("%s/%s/%ld: drop_Copy=%ld\n", __FILE__, __FUNC__, __LINE__, AllowedDrops->drop_Copy));
2234 d1(KPrintF("%s/%s/%ld: drop_Move=%ld\n", __FILE__, __FUNC__, __LINE__, AllowedDrops->drop_Move));
2235 d1(KPrintF("%s/%s/%ld: drop_CreateLink=%ld\n", __FILE__, __FUNC__, __LINE__, AllowedDrops->drop_CreateLink));
2236
2237 if (AllowedDrops->drop_Copy)
2238 {
2239 d1(KPrintF("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
2240 PM_InsertMenuItem(pm,
2241 PM_Insert_After, (IPTR) pmLast,
2242 PM_Insert_Item, (IPTR) (pmLastNext = PM_MakeItem(PM_TitleID, MSGID_DROPMENU_COPY,
2243 PM_UserData, DROPMENURESULT_Copy,
2244 MenuImages[DROPMENUIMAGE_Copy] ? PM_IconUnselected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_Copy],
2245 MenuImages[DROPMENUIMAGE_Copy] ? PM_IconSelected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_Copy],
2246 TAG_END)),
2247 TAG_END);
2248 pmLast = pmLastNext;
2249 d1(KPrintF("%s/%s/%ld: pmLast=%08lx\n", __FILE__, __FUNC__, __LINE__, pmLast));
2250 }
2251 if (AllowedDrops->drop_Move)
2252 {
2253 d1(KPrintF("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
2254 PM_InsertMenuItem(pm,
2255 PM_Insert_After, (IPTR) pmLast,
2256 PM_Insert_Item, (IPTR) (pmLastNext = PM_MakeItem(PM_TitleID, MSGID_DROPMENU_MOVE,
2257 PM_UserData, DROPMENURESULT_Move,
2258 MenuImages[DROPMENUIMAGE_Move] ? PM_IconUnselected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_Move],
2259 MenuImages[DROPMENUIMAGE_Move] ? PM_IconSelected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_Move],
2260 TAG_END)),
2261 TAG_END);
2262 pmLast = pmLastNext;
2263 d1(KPrintF("%s/%s/%ld: pmLast=%08lx\n", __FILE__, __FUNC__, __LINE__, pmLast));
2264 }
2265 if (AllowedDrops->drop_CreateLink)
2266 {
2267 d1(KPrintF("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
2268 PM_InsertMenuItem(pm,
2269 PM_Insert_After, (IPTR) pmLast,
2270 PM_Insert_Item, (IPTR) (pmLastNext = PM_MakeItem(PM_TitleID, MSGID_DROPMENU_CREATE_LINK,
2271 PM_UserData, DROPMENURESULT_CreateLink,
2272 MenuImages[DROPMENUIMAGE_CreateLink] ? PM_IconUnselected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_CreateLink],
2273 MenuImages[DROPMENUIMAGE_CreateLink] ? PM_IconSelected : TAG_IGNORE, (IPTR) MenuImages[DROPMENUIMAGE_CreateLink],
2274 TAG_END)),
2275 TAG_END);
2276 //pmLast = pmLastNext;
2277 d1(KPrintF("%s/%s/%ld: pmLast=%08lx\n", __FILE__, __FUNC__, __LINE__, pmLast));
2278 }
2279
2280 // PM_OpenPopupMenuA()
2281 UserData = PM_OpenPopupMenu(iwtSrc->iwt_WindowTask.wt_Window,
2282 PM_Menu, (IPTR) pm,
2283 PM_LocaleHook, (IPTR) &PMGetStringHook,
2284 TAG_END);
2285 d1(KPrintF("%s/%s/%ld: UserData=%ld\n", __FILE__, __FUNC__, __LINE__, UserData));
2286
2287 DrInfo->drin_LastAllowedDrops = *AllowedDrops;
2288 DrInfo->drin_LastDropMenuResult = UserData;
2289
2290 switch (UserData)
2291 {
2292 case DROPMENURESULT_Copy:
2293 DrInfo->drin_Drops.drop_Copy = TRUE;
2294 DrInfo->drin_Drops.drop_Move = FALSE;
2295 DrInfo->drin_Drops.drop_CreateLink = FALSE;
2296 break;
2297 case DROPMENURESULT_Move:
2298 DrInfo->drin_Drops.drop_Copy = FALSE;
2299 DrInfo->drin_Drops.drop_Move = TRUE;
2300 DrInfo->drin_Drops.drop_CreateLink = FALSE;
2301 break;
2302 case DROPMENURESULT_CreateLink:
2303 DrInfo->drin_Drops.drop_Copy = FALSE;
2304 DrInfo->drin_Drops.drop_Move = FALSE;
2305 DrInfo->drin_Drops.drop_CreateLink = TRUE;
2306 break;
2307 default:
2308 DoDrop = FALSE;
2309 break;
2310 }
2311 }
2312
2313 for (n = 0; n < Sizeof(MenuImages); n++)
2314 {
2315 if (MenuImages[n])
2316 DisposeObject(MenuImages[n]);
2317 }
2318 }
2319 }
2320
2321 ClosePopupWindows(TRUE);
2322
2323 return DoDrop;
2324 }
2325
Mirror of AROS' Contrib svn.