scalos/main/DeviceWindowClass.c

   1 // DeviceWindowClass.c
   2 // $Date$
   3 // $Revision$
   4
   5
   6 #include <exec/types.h>
   7 #include <graphics/gels.h>
   8 #include <graphics/rastport.h>
   9 #include <intuition/classes.h>
  10 #include <intuition/classusr.h>
  11 #include <utility/hooks.h>
  12 #include <intuition/gadgetclass.h>
  13 #include <intuition/newmouse.h>
  14 #include <workbench/workbench.h>
  15 #include <workbench/startup.h>
  16 #include <cybergraphx/cybergraphics.h>
  17 #include <dos/dostags.h>
  18 #include <dos/datetime.h>
  19
  20 #define __USE_SYSBASE
  21
  22 #include <proto/dos.h>
  23 #include <proto/exec.h>
  24 #include <proto/layers.h>
  25 #include <proto/intuition.h>
  26 #include <proto/graphics.h>
  27 #include <proto/utility.h>
  28 #include <proto/locale.h>
  29 #include <proto/iconobject.h>
  30 #include <proto/cybergraphics.h>
  31 #include "debug.h"
  32 #include <proto/scalos.h>
  33
  34 #include <clib/alib_protos.h>
  35
  36 #include <defs.h>
  37 #include <datatypes/iconobject.h>
  38 #include <scalos/scalos.h>
  39
  40 #include <stdlib.h>
  41 #include <stdio.h>
  42 #include <string.h>
  43
  44 #include <DefIcons.h>
  45
  46 #include "scalos_structures.h"
  47 #include "FsAbstraction.h"
  48 #include "functions.h"
  49 #include "locale.h"
  50 #include "Variables.h"
  51
  52 //----------------------------------------------------------------------------
  53
  54 // local data definitions
  55
  56 struct DeviceWindowClassInstance
  57         {
  58         ULONG dwci_Dummy;
  59         };
  60
  61 //----------------------------------------------------------------------------
  62
  63 // local functions
  64
  65 static SAVEDS(ULONG) INTERRUPT DeviceWindowClass_Dispatcher(Class *cl, Object *o, Msg msg);
  66 static ULONG DeviceWindowClass_ReadIconList(Class *cl, Object *o, Msg msg);
  67 static ULONG DeviceWindowClass_ReadIcon(Class *cl, Object *o, Msg msg);
  68 static ULONG DeviceWindowClass_RemIcon(Class *cl, Object *o, Msg msg);
  69 static ULONG DeviceWindowClass_RemIcon2(Class *cl, Object *o, Msg msg);
  70 static ULONG DeviceWindowClass_Ping(Class *cl, Object *o, Msg msg);
  71 static ULONG DeviceWindowClass_Message(Class *cl, Object *o, Msg msg);
  72 static ULONG DeviceWindowClass_New(Class *cl, Object *o, Msg msg);
  73 static ULONG DeviceWindowClass_Dispose(Class *cl, Object *o, Msg msg);
  74 static ULONG DeviceWindowClass_CheckUpdate(Class *cl, Object *o, Msg msg);
  75 static ULONG DeviceWindowClass_Update(Class *cl, Object *o, Msg msg);
  76 static struct ScaIconNode *ReadDevIcon_Device(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di);
  77 static struct ScaIconNode *ReadDevIcon_Volume(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di);
  78 static struct ScaIconNode *DevIconOk2(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, Object *iconObj);
  79 static LONG ReadDevBackdrop(struct internalScaWindowTask *iwt, struct ScaIconNode *DevIn);
  80 static struct ScaIconNode *CreateBackdropIcon(struct internalScaWindowTask *iwt,
  81         struct BackDropList *bdl, struct ScaIconNode *DevIn,
  82         CONST_STRPTR BackdropIconName, STRPTR fName);
  83 static Object *ReadDefaultVolumeIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName);
  84 static Object *ReadDefaultDeviceIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName);
  85 static Object *ReadDiskIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName);
  86 static Object *ReadDefaultIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName);
  87 static void FreeBackdropIcon(struct ScaBackdropIcon *bdi);
  88 static BOOL CreateSbi(struct ScaIconNode *DevIn, struct ScaIconNode *in);
  89 static struct ScaIconNode *IconAlreadyExists(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di);
  90 static BOOL FindIconInDrawerWindows(BPTR dirLock, CONST_STRPTR IconName);
  91 static Object *ReadDefaultIconByName(struct internalScaWindowTask *iwt, CONST_STRPTR iconName, STRPTR DevName);
  92 static BOOL StartDeviceIconNotify(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di);
  93 static void SetDeviceIconSupportsFlags(struct ScaIconNode *in);
  94 static void SetBackdropIconSupportsFlags(struct internalScaWindowTask *iwt,
  95         struct BackDropList *bdl, struct ScaIconNode *in);
  96
  97 //----------------------------------------------------------------------------
  98
  99 // public data items :
 100
 101 //----------------------------------------------------------------------------
 102
 103
 104 struct ScalosClass *initDeviceWindowClass(const struct PluginClass *plug)
 105 {
 106         struct ScalosClass *DeviceWindowClass;
 107
 108         DeviceWindowClass = SCA_MakeScalosClass(plug->plug_classname,
 109                         plug->plug_superclassname,
 110                         sizeof(struct DeviceWindowClassInstance),
 111                         NULL);
 112
 113         if (DeviceWindowClass)
 114                 {
 115                 // initialize the cl_Dispatcher Hook
 116                 SETHOOKFUNC(DeviceWindowClass->sccl_class->cl_Dispatcher, DeviceWindowClass_Dispatcher);
 117                 }
 118
 119         return DeviceWindowClass;
 120 }
 121
 122
 123 static SAVEDS(ULONG) INTERRUPT DeviceWindowClass_Dispatcher(Class *cl, Object *o, Msg msg)
 124 {
 125         ULONG Result;
 126
 127         switch (msg->MethodID)
 128                 {
 129         case OM_NEW:
 130                 Result = DeviceWindowClass_New(cl, o, msg);
 131                 break;
 132
 133         case OM_DISPOSE:
 134                 Result = DeviceWindowClass_Dispose(cl, o, msg);
 135                 break;
 136
 137         case SCCM_IconWin_ReadIconList:
 138                 Result = DeviceWindowClass_ReadIconList(cl, o, msg);
 139                 break;
 140
 141         case SCCM_DeviceWin_ReadIcon:
 142                 Result = DeviceWindowClass_ReadIcon(cl, o, msg);
 143                 break;
 144
 145         case SCCM_Ping:
 146                 Result = DeviceWindowClass_Ping(cl, o, msg);
 147                 break;
 148
 149         case SCCM_Message:
 150                 Result = DeviceWindowClass_Message(cl, o, msg);
 151                 break;
 152
 153         case SCCM_IconWin_NewViewMode:
 154                 Result = 0;
 155                 break;
 156
 157         case SCCM_IconWin_Update:
 158                 Result = DeviceWindowClass_Update(cl, o, msg);
 159                 break;
 160
 161         case SCCM_IconWin_ImmediateCheckUpdate:
 162                 Result = DeviceWindowClass_CheckUpdate(cl, o, msg);
 163                 break;
 164
 165         case SCCM_DeviceWin_RemIcon:
 166                 Result = DeviceWindowClass_RemIcon(cl, o, msg);
 167                 break;
 168
 169         case SCCM_IconWin_RemIcon:
 170                 // Only supports left-out icons
 171                 Result = DeviceWindowClass_RemIcon2(cl, o, msg);
 172                 break;
 173
 174         default:
 175                 Result = DoSuperMethodA(cl, o, msg);
 176                 break;
 177                 }
 178
 179         return Result;
 180 }
 181
 182
 183 static ULONG DeviceWindowClass_ReadIconList(Class *cl, Object *o, Msg msg)
 184 {
 185         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 186         struct ScaDeviceIcon *sdi, *diNext;
 187         struct ScaIconNode *NotShownIconList = NULL;
 188
 189         d1(kprintf("%s/%s/%ld: Start iwt=%08lx  ws=%08lx  <%s>\n", \
 190                 __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WindowTask.mt_WindowStruct, iwt->iwt_WinTitle));
 191
 192         SplashAddUser();
 193
 194         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 195
 196         SplashDisplayProgress(GetLocString(MSGID_PROGRESS_READDEVICEICONS), 0);
 197
 198         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 199
 200         DoMethod(iwt->iwt_DevListObject, SCCM_DeviceList_Generate, &iwt->iwt_DevIconList);
 201
 202         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 203
 204         for (sdi = iwt->iwt_DevIconList; sdi; sdi = diNext)
 205                 {
 206                 diNext = (struct ScaDeviceIcon *) sdi->di_Node.mln_Succ;
 207
 208                 d1(kprintf("%s/%s/%ld: di=%08lx  <%s>  Flags=%04lx\n", __FILE__, __FUNC__, __LINE__, \
 209                         sdi, sdi->di_Volume, sdi->di_Flags));
 210
 211                 if (DIBF_DontDisplay & sdi->di_Flags)
 212                         {
 213                         // remove icon from iwt_DevIconList
 214                         d1(kprintf("%s/%s/%ld: Remove di=%08lx  <%s>  di_Flags=%08lx\n", __FILE__, __FUNC__, __LINE__, sdi, sdi->di_Device, sdi->di_Flags));
 215                         RemoveDeviceIcon(iwt, sdi, &NotShownIconList);
 216                         }
 217                 else
 218                         {
 219                         d1(kprintf("%s/%s/%ld: Add di=%08lx  <%s>  di_Flags=%08lx\n", __FILE__, __FUNC__, __LINE__, sdi, sdi->di_Device, sdi->di_Flags));
 220                         DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_DeviceWin_ReadIcon, sdi);
 221                         }
 222                 }
 223         FreeIconList(iwt, &NotShownIconList);
 224
 225         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 226
 227         DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_CleanUp);
 228
 229         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 230
 231         DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_SetVirtSize, SETVIRTF_AdjustBottomSlider | SETVIRTF_AdjustRightSlider);
 232
 233         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 234
 235         SplashDisplayProgress(GetLocString(MSGID_PROGRESS_ENDREADDEVICEICONS), 0);
 236
 237         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
 238
 239         SplashRemoveUser();
 240
 241         d1(kprintf("%s/%s/%ld: Finished iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 242
 243         return 0;
 244 }
 245
 246
 247 static ULONG DeviceWindowClass_ReadIcon(Class *cl, Object *o, Msg msg)
 248 {
 249         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 250         struct msg_DevWinReadIcon *dri = (struct msg_DevWinReadIcon *) msg;
 251         struct ScaIconNode *in;
 252
 253         d1(kprintf("%s/%s/%ld: iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 254         d1(KPrintF("%s/%s/%ld: iwt=%08lx  di=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, dri->dri_DeviceNode, dri->dri_DeviceNode->di_Device));
 255         d1(KPrintF("%s/%s/%ld: deviceNode=%08lx  <%s>  diskType=%08lx\n", __FILE__, __FUNC__, __LINE__, \
 256                 dri->dri_DeviceNode, dri->dri_DeviceNode->di_Device, dri->dri_DeviceNode->di_Info->id_DiskType));
 257
 258         in = IconAlreadyExists(iwt, dri->dri_DeviceNode);
 259         if (in)
 260                 {
 261                 ScalosUnLockIconList(iwt);
 262
 263                 return 1;
 264                 }
 265
 266         d1(KPrintF("%s/%s/%ld: iwt=%08lx  <%s>  di_Volume=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle, dri->dri_DeviceNode->di_Volume));
 267
 268         if (dri->dri_DeviceNode->di_Volume)
 269                 ReadDevIcon_Volume(iwt, dri->dri_DeviceNode);
 270         else
 271                 ReadDevIcon_Device(iwt, dri->dri_DeviceNode);
 272
 273         d1(KPrintF("%s/%s/%ld: iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 274
 275         return 1;
 276 }
 277
 278
 279 static ULONG DeviceWindowClass_RemIcon(Class *cl, Object *o, Msg msg)
 280 {
 281         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 282         struct msg_DevWinRemIcon *dri = (struct msg_DevWinRemIcon *) msg;
 283         struct ScaIconNode *dummyIconList = NULL;
 284
 285         d1(kprintf("%s/%s/%ld: iwt=%08lx  lock=%08lx  IconName=<%s>\n", \
 286                 __FILE__, __FUNC__, __LINE__, iwt, dri->dri_IconNode, GetIconName(dri->dri_IconNode)));
 287
 288         ScalosLockIconListExclusive(iwt);
 289
 290         SCA_MoveIconNode(&iwt->iwt_WindowTask.wt_IconList, &dummyIconList, dri->dri_IconNode);
 291
 292         RemoveIcons(iwt, &dummyIconList);       // visually erase icons
 293
 294         debugLock_d1(dri->dri_IconNode->in_Lock);
 295
 296         FreeIconNode(iwt, &dummyIconList, dri->dri_IconNode);
 297
 298         ScalosUnLockIconList(iwt);
 299
 300         DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_SetVirtSize,
 301                 SETVIRTF_AdjustRightSlider | SETVIRTF_AdjustBottomSlider);
 302
 303         return 1;
 304 }
 305
 306
 307 static ULONG DeviceWindowClass_RemIcon2(Class *cl, Object *o, Msg msg)
 308 {
 309         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 310         struct msg_RemIcon *mri = (struct msg_RemIcon *) msg;
 311         struct ScaIconNode *in, *inNext;
 312         BOOL Found = FALSE;
 313
 314         d1(KPrintF("%s/%s/%ld: iwt=%08lx  lock=%08lx  IconName=<%s>\n", \
 315                 __FILE__, __FUNC__, __LINE__, iwt, mri->mri_Lock, mri->mri_Name));
 316
 317         ScalosLockIconListExclusive(iwt);
 318
 319         for (in = iwt->iwt_WindowTask.wt_IconList; in; in=inNext)
 320                 {
 321                 d1(kprintf("%s/%s/%ld: in_Name=%08lx\n", __FILE__, __FUNC__, __LINE__, in->in_Name));
 322
 323                 inNext = (struct ScaIconNode *) in->in_Node.mln_Succ;
 324
 325                 if (in->in_Lock && (LOCK_SAME == SameLock(in->in_Lock, mri->mri_Lock))
 326                         && in->in_Name && 0 == Stricmp((STRPTR) mri->mri_Name, in->in_Name))
 327                         {
 328                         struct ScaIconNode *dummyIconList = NULL;
 329
 330                         d1(KPrintF("%s/%s/%ld: FOUND in=%08lx\n", __FILE__, __FUNC__, __LINE__, in));
 331
 332                         Found = TRUE;
 333
 334                         SCA_MoveIconNode(&iwt->iwt_WindowTask.wt_IconList, &dummyIconList, in);
 335
 336                         RemoveIcons(iwt, &dummyIconList);       // visually erase icons
 337
 338                         debugLock_d1(in->in_Lock);
 339                         RewriteBackdrop(in);
 340
 341                         FreeIconNode(iwt, &dummyIconList, in);
 342                         }
 343                 }
 344
 345         ScalosUnLockIconList(iwt);
 346
 347         if (Found)
 348                 {
 349                 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_SetVirtSize,
 350                         SETVIRTF_AdjustRightSlider | SETVIRTF_AdjustBottomSlider);
 351                 }
 352
 353         return 1;
 354 }
 355
 356
 357 static ULONG DeviceWindowClass_Ping(Class *cl, Object *o, Msg msg)
 358 {
 359         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 360
 361         d1(KPrintF("%s/%s/%ld: iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 362
 363         if (++iwt->iwt_dRefreshCount >= CurrentPrefs.pref_DiskRefresh)
 364                 {
 365                 iwt->iwt_dRefreshCount = 0;
 366
 367                 IDCMPDiskInserted(iwt, NULL);
 368                 }
 369
 370         return DoSuperMethodA(cl, o, msg);
 371 }
 372
 373
 374 static ULONG DeviceWindowClass_Message(Class *cl, Object *o, Msg msg)
 375 {
 376         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 377         struct msg_Message *msm = (struct msg_Message *) msg;
 378
 379         d1(kprintf("%s/%s/%ld: iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 380
 381         switch (msm->msm_iMsg->Class)
 382                 {
 383         case IDCMP_DISKINSERTED:
 384         case IDCMP_DISKREMOVED:
 385                 IDCMPDiskInserted(iwt, NULL);
 386                 break;
 387                 }
 388
 389         return DoSuperMethodA(cl, o, msg);
 390 }
 391
 392
 393 static ULONG DeviceWindowClass_New(Class *cl, Object *o, Msg msg)
 394 {
 395         d1(kprintf("%s/%s/%ld:  START  o=%08lx\n", __FILE__, __FUNC__, __LINE__, o));
 396
 397         o = (Object *) DoSuperMethodA(cl, o, msg);
 398
 399         if (o)
 400                 {
 401                 struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 402                 struct ScaWindowStruct *ws = iwt->iwt_WindowTask.mt_WindowStruct;
 403                 struct opSet *ops = (struct opSet *) msg;
 404                 ULONG n;
 405
 406                 d1(kprintf("%s/%s/%ld: iwt=%08lx  <%s>  o=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle, o));
 407
 408                 SplashDisplayProgress(GetLocString(MSGID_PROGRESS_INITDEVICEWINDOW), 0);
 409
 410                 // desktop window is ALWAYS displayed as icons
 411                 ws->ws_Viewmodes = IDTV_ViewModes_Icon;
 412
 413                 iwt->iwt_DevListObject = (Object *) SCA_NewScalosObject("DeviceList.sca", ops->ops_AttrList);
 414
 415                 iwt->iwt_IDCMPFlags |= IDCMP_DISKINSERTED | IDCMP_DISKREMOVED;
 416                 iwt->iwt_NeedsTimerFlag = TRUE;
 417                 ws->ws_Flags |= WSV_FlagF_NeedsTimerMsg;
 418
 419                 iwt->iwt_IconFont = IconWindowFont;
 420                 iwt->iwt_IconTTFont = IconWindowTTFont;
 421
 422                 // initialize iwt_IconLayoutInfo
 423                 memset(&iwt->iwt_IconLayoutInfo.ili_LayoutArea, 0, sizeof(iwt->iwt_IconLayoutInfo.ili_LayoutArea));
 424                 memset(&iwt->iwt_IconLayoutInfo.ili_Restricted, 0, sizeof(iwt->iwt_IconLayoutInfo.ili_Restricted));
 425
 426                 for (n = 0; n < Sizeof(iwt->iwt_IconLayoutInfo.ili_IconTypeLayoutModes); n++)
 427                         {
 428                         if (n < Sizeof(CurrentPrefs.pref_DeviceWindowLayoutModes))
 429                                 iwt->iwt_IconLayoutInfo.ili_IconTypeLayoutModes[n] = CurrentPrefs.pref_DeviceWindowLayoutModes[n];
 430                         else
 431                                 iwt->iwt_IconLayoutInfo.ili_IconTypeLayoutModes[n] = ICONLAYOUT_Columns; //default
 432                         }
 433
 434                 d1(kprintf("%s/%s/%ld:  DevListObject=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt->iwt_DevListObject));
 435
 436                 if (NULL == iwt->iwt_DevListObject)
 437                         {
 438                         DoMethod(o, OM_DISPOSE);
 439                         o = NULL;
 440                         }
 441                 }
 442
 443         d1(kprintf("%s/%s/%ld:  END o=%08lx\n", __FILE__, __FUNC__, __LINE__, o));
 444
 445         return (ULONG) o;
 446 }
 447
 448
 449 static ULONG DeviceWindowClass_Dispose(Class *cl, Object *o, Msg msg)
 450 {
 451         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 452
 453         d1(kprintf("%s/%s/%ld: iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 454
 455         SCA_DisposeScalosObject(iwt->iwt_DevListObject);
 456         iwt->iwt_DevListObject = NULL;
 457
 458         return DoSuperMethodA(cl, o, msg);
 459 }
 460
 461
 462 static ULONG DeviceWindowClass_CheckUpdate(Class *cl, Object *o, Msg msg)
 463 {
 464         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 465
 466         d1(kprintf("%s/%s/%ld: iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 467
 468         return DeviceWindowCheckUpdate(iwt);
 469 }
 470
 471
 472 static ULONG DeviceWindowClass_Update(Class *cl, Object *o, Msg msg)
 473 {
 474         struct internalScaWindowTask *iwt = (struct internalScaWindowTask *) ((struct ScaRootList *) o)->rl_WindowTask;
 475         ULONG Result, ReadResult;
 476         struct ScaIconNode *in, *inNext;
 477         ULONG IconType;
 478
 479         d1(KPrintF("%s/%s/%ld: START iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 480
 481         UpdateIconOverlays(iwt);
 482
 483         if (NULL == iwt->iwt_WindowTask.wt_Window)
 484                 return 0;
 485
 486         ScalosLockIconListExclusive(iwt);
 487
 488         d1(Forbid(); KPrintF("%s/%s/%ld: iwt=%08lx  MsgList Head=%08lx  TailPred=%08lx\n", \
 489                 __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WindowTask.wt_IconPort->mp_MsgList.lh_Head, \
 490                 iwt->iwt_WindowTask.wt_IconPort->mp_MsgList.lh_TailPred); Permit());
 491
 492         for (in=iwt->iwt_WindowTask.wt_IconList; in; in = inNext)
 493                 {
 494                 inNext = (struct ScaIconNode *) in->in_Node.mln_Succ;
 495
 496                 GetAttr(IDTA_Type, in->in_Icon, &IconType);
 497
 498                 if (WBAPPICON != IconType)
 499                         FreeIconNode(iwt, &iwt->iwt_WindowTask.wt_IconList, in);
 500                 }
 501
 502         d1(Forbid(); KPrintF("%s/%s/%ld: iwt=%08lx  MsgList Head=%08lx  TailPred=%08lx\n", \
 503                 __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WindowTask.wt_IconPort->mp_MsgList.lh_Head, \
 504                 iwt->iwt_WindowTask.wt_IconPort->mp_MsgList.lh_TailPred); Permit());
 505
 506         for (in=iwt->iwt_WindowTask.wt_LateIconList; in; in = inNext)
 507                 {
 508                 inNext = (struct ScaIconNode *) in->in_Node.mln_Succ;
 509
 510                 GetAttr(IDTA_Type, in->in_Icon, &IconType);
 511
 512                 if (WBAPPICON != IconType)
 513                         FreeIconNode(iwt, &iwt->iwt_WindowTask.wt_LateIconList, in);
 514                 }
 515
 516         d1(Forbid(); KPrintF("%s/%s/%ld: iwt=%08lx  MsgList Head=%08lx  TailPred=%08lx\n", \
 517                 __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WindowTask.wt_IconPort->mp_MsgList.lh_Head, \
 518                 iwt->iwt_WindowTask.wt_IconPort->mp_MsgList.lh_TailPred); Permit());
 519
 520         ScalosUnLockIconList(iwt);
 521
 522         IconActive = FALSE;
 523
 524         SetAttrs(iwt->iwt_WindowTask.mt_MainObject,
 525                 SCCA_IconWin_Reading, TRUE,
 526                 TAG_END);
 527
 528         SetMenuOnOff(iwt);
 529
 530         if (iwt->iwt_WindowTask.wt_Window)
 531                 {
 532                 EraseRect(iwt->iwt_WindowTask.wt_Window->RPort,
 533                         0, 0,
 534                         iwt->iwt_WindowTask.wt_Window->Width - 1,
 535                         iwt->iwt_WindowTask.wt_Window->Height - 1);
 536                 }
 537
 538         RefreshIcons(iwt, NULL);
 539
 540         ReadResult = DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_ReadIconList, 0L);
 541
 542         SetAttrs(iwt->iwt_WindowTask.mt_MainObject,
 543                 SCCA_IconWin_Reading, FALSE,
 544                 TAG_END);
 545
 546         SetMenuOnOff(iwt);
 547
 548         if (ScanDirIsError(ReadResult))
 549                 {
 550                 Result = 1;
 551                 iwt->iwt_CloseWindow = TRUE;
 552                 }
 553         else
 554                 {
 555                 Result = 0;
 556                 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_SetVirtSize, SETVIRTF_AdjustBottomSlider | SETVIRTF_AdjustRightSlider);
 557                 }
 558
 559         d1(KPrintF("%s/%s/%ld: END iwt=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, iwt->iwt_WinTitle));
 560
 561         return Result;
 562 }
 563
 564
 565 static struct ScaIconNode *ReadDevIcon_Device(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di)
 566 {
 567         struct ScaIconNode *in = NULL;
 568         STRPTR DevName;
 569         Object *iconObj;
 570
 571         d1(kprintf("%s/%s/%ld: iwt=%08lx  di=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, di, di->di_Device));
 572
 573         do      {
 574                 DevName = AllocPathBuffer();
 575                 if (NULL == DevName)
 576                         break;
 577
 578                 stccpy(DevName, di->di_Device, Max_PathLen - 4);
 579
 580                 d1(kprintf("%s/%s/%ld: DevName=<%s>\n", __FILE__, __FUNC__, __LINE__, DevName));
 581
 582                 if (MAKE_ID('B','A','D',0) == di->di_Info->id_DiskType)
 583                         SafeStrCat(DevName, GetLocString(MSGID_DISK_UNREADABLE), Max_PathLen);
 584                 else if (MAKE_ID('B','U','S','Y') == di->di_Info->id_DiskType)
 585                         SafeStrCat(DevName, GetLocString(MSGID_DISK_BUSY), Max_PathLen);
 586                 else if (MAKE_ID('N','D','O','S') == di->di_Info->id_DiskType)                  // +jmc+
 587                         SafeStrCat(DevName, GetLocString(MSGID_DISK_NDOS), Max_PathLen);
 588                 else
 589                         strncat(DevName, (STRPTR) &di->di_Info->id_DiskType, 4);
 590
 591                 // GetDefIconObject()
 592                 iconObj = GetDefIconObjectTags(WBKICK,
 593                                 IDTA_InnerBottom, CurrentPrefs.pref_ImageBorders.Bottom,
 594                                 IDTA_InnerRight, CurrentPrefs.pref_ImageBorders.Right,
 595                                 IDTA_InnerTop, CurrentPrefs.pref_ImageBorders.Top,
 596                                 IDTA_InnerLeft, CurrentPrefs.pref_ImageBorders.Left,
 597                                 IDTA_HalfShinePen, PalettePrefs.pal_PensList[PENIDX_HSHINEPEN],
 598                                 IDTA_HalfShadowPen, PalettePrefs.pal_PensList[PENIDX_HSHADOWPEN],
 599                                 IDTA_FrameTypeSel, CurrentPrefs.pref_FrameTypeSel,
 600                                 IDTA_FrameType, CurrentPrefs.pref_FrameType,
 601                                 IDTA_TextSkip, CurrentPrefs.pref_TextSkip,
 602                                 IDTA_MultiLineText, (ULONG) CurrentPrefs.pref_IconTextMuliLine,
 603                                 IDTA_TextPen, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPEN],
 604                                 IDTA_TextPenSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENSEL],
 605                                 IDTA_TextPenShadow, PalettePrefs.pal_PensList[PENIDX_ICONTEXTSHADOWPEN],
 606                                 IDTA_TextPenOutline, PalettePrefs.pal_PensList[PENIDX_ICONTEXTOUTLINEPEN],
 607                                 IDTA_TextPenBgSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENBGSEL],
 608                                 IDTA_SelectedTextRectangle, CurrentPrefs.pref_SelectedTextRectangle,
 609                                 IDTA_SelTextRectBorderX, CurrentPrefs.pref_SelTextRectBorderX,
 610                                 IDTA_SelTextRectBorderY, CurrentPrefs.pref_SelTextRectBorderY,
 611                                 IDTA_SelTextRectRadius, CurrentPrefs.pref_SelTextRectRadius,
 612                                 IDTA_TextMode, CurrentPrefs.pref_TextMode,
 613                                 IDTA_TextDrawMode, FontPrefs.fprf_TextDrawMode,
 614                                 IDTA_TextBackPen, FontPrefs.fprf_FontBackPen,
 615                                 DTA_Name, (ULONG) di->di_Device,
 616                                 IDTA_Text, (ULONG) DevName,
 617                                 IDTA_Font, (ULONG) iwt->iwt_IconFont,
 618                                 IDTA_Fonthandle, (ULONG) &iwt->iwt_IconTTFont,
 619                                 IDTA_FontHook, (ULONG) (TTEngineBase ? &ScalosFontHook : NULL),
 620                                 IDTA_SizeConstraints, (ULONG) &iwt->iwt_WindowTask.mt_WindowStruct->ws_IconSizeConstraints,
 621                                 IDTA_ScalePercentage, iwt->iwt_WindowTask.mt_WindowStruct->ws_IconScaleFactor,
 622                                 TAG_END);
 623                 if (NULL == iconObj)
 624                         break;
 625
 626                 in = DevIconOk2(iwt, di, iconObj);
 627                 } while (0);
 628
 629         if (DevName)
 630                 FreePathBuffer(DevName);
 631
 632         return in;
 633 }
 634
 635
 636 static struct ScaIconNode *ReadDevIcon_Volume(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di)
 637 {
 638         BPTR dLock;
 639         BPTR oldDir = NOT_A_LOCK;
 640         STRPTR DevName = NULL;
 641         struct ScaIconNode *in = NULL;
 642         Object *iconObj = NULL;
 643
 644         d1(kprintf("%s/%s/%ld: iwt=%08lx  di=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, di, di->di_Volume));
 645
 646         do      {
 647                 dLock = Lock(di->di_Device, ACCESS_READ);
 648                 if ((BPTR)NULL == dLock)
 649                         break;
 650
 651                 debugLock_d1(dLock);
 652
 653                 oldDir = CurrentDir(dLock);
 654
 655                 DevName = AllocPathBuffer();
 656                 if (NULL == DevName)
 657                         break;
 658
 659                 stccpy(DevName, di->di_Volume, Max_PathLen - 1);
 660                 StripTrailingColon(DevName);
 661
 662                 d1(KPrintF("%s/%s/%ld: DevName=<%s>\n", __FILE__, __FUNC__, __LINE__, DevName));
 663                 d1(KPrintF("%s/%s/%ld: pref_DefIconsFirst=%ld\n", __FILE__, __FUNC__, __LINE__, CurrentPrefs.pref_DefIconsFirst));
 664
 665                 if (CurrentPrefs.pref_DefIconsFirst)
 666                         {
 667                         iconObj = ReadDefaultVolumeIcon(iwt, di, DevName);
 668                         d1(KPrintF("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 669
 670                         if (NULL == iconObj)
 671                                 iconObj = ReadDefaultDeviceIcon(iwt, di, DevName);
 672
 673                         d1(KPrintF("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 674                         if (NULL == iconObj)
 675                                 iconObj = ReadDiskIcon(iwt, di, DevName);
 676                         }
 677                 else
 678                         {
 679                         iconObj = ReadDiskIcon(iwt, di, DevName);
 680
 681                         d1(KPrintF("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 682                         if (NULL == iconObj)
 683                                 iconObj = ReadDefaultVolumeIcon(iwt, di, DevName);
 684
 685                         d1(KPrintF("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 686                         if (NULL == iconObj)
 687                                 iconObj = ReadDefaultDeviceIcon(iwt, di, DevName);
 688                         }
 689
 690                 d1(KPrintF("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 691                 if (NULL == iconObj)
 692                         {
 693                         iconObj = ReturnDefIconObjTags(dLock, "",
 694                                 IDTA_InnerBottom, CurrentPrefs.pref_ImageBorders.Bottom,
 695                                 IDTA_InnerRight, CurrentPrefs.pref_ImageBorders.Right,
 696                                 IDTA_InnerTop, CurrentPrefs.pref_ImageBorders.Top,
 697                                 IDTA_InnerLeft, CurrentPrefs.pref_ImageBorders.Left,
 698                                 IDTA_HalfShinePen, PalettePrefs.pal_PensList[PENIDX_HSHINEPEN],
 699                                 IDTA_HalfShadowPen, PalettePrefs.pal_PensList[PENIDX_HSHADOWPEN],
 700                                 IDTA_FrameTypeSel, CurrentPrefs.pref_FrameTypeSel,
 701                                 IDTA_FrameType, CurrentPrefs.pref_FrameType,
 702                                 IDTA_TextSkip, CurrentPrefs.pref_TextSkip,
 703                                 IDTA_MultiLineText, (ULONG) CurrentPrefs.pref_IconTextMuliLine,
 704                                 IDTA_TextPen, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPEN],
 705                                 IDTA_TextPenSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENSEL],
 706                                 IDTA_TextPenShadow, PalettePrefs.pal_PensList[PENIDX_ICONTEXTSHADOWPEN],
 707                                 IDTA_TextPenOutline, PalettePrefs.pal_PensList[PENIDX_ICONTEXTOUTLINEPEN],
 708                                 IDTA_TextPenBgSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENBGSEL],
 709                                 IDTA_SelectedTextRectangle, CurrentPrefs.pref_SelectedTextRectangle,
 710                                 IDTA_SelTextRectBorderX, CurrentPrefs.pref_SelTextRectBorderX,
 711                                 IDTA_SelTextRectBorderY, CurrentPrefs.pref_SelTextRectBorderY,
 712                                 IDTA_SelTextRectRadius, CurrentPrefs.pref_SelTextRectRadius,
 713                                 IDTA_TextMode, CurrentPrefs.pref_TextMode,
 714                                 IDTA_TextDrawMode, FontPrefs.fprf_TextDrawMode,
 715                                 IDTA_TextBackPen, FontPrefs.fprf_FontBackPen,
 716                                 DTA_Name, (ULONG) di->di_Device,
 717                                 IDTA_Text, (ULONG) DevName,
 718                                 IDTA_Font, (ULONG) iwt->iwt_IconFont,
 719                                 IDTA_Fonthandle, (ULONG) &iwt->iwt_IconTTFont,
 720                                 IDTA_FontHook, (ULONG) (TTEngineBase ? &ScalosFontHook : NULL),
 721                                 IDTA_SizeConstraints, (ULONG) &iwt->iwt_WindowTask.mt_WindowStruct->ws_IconSizeConstraints,
 722                                 IDTA_ScalePercentage, iwt->iwt_WindowTask.mt_WindowStruct->ws_IconScaleFactor,
 723                                 TAG_END);
 724                         }
 725
 726                 d1(KPrintF("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 727                 if (NULL == iconObj)
 728                         iconObj = ReadDefaultIcon(iwt, di, DevName);
 729                 } while (0);
 730
 731         if (iconObj)
 732                 in = DevIconOk2(iwt, di, iconObj);
 733
 734         if (IS_VALID_LOCK(oldDir))
 735                 CurrentDir(oldDir);
 736         if (dLock)
 737                 UnLock(dLock);
 738         if (DevName)
 739                 FreePathBuffer(DevName);
 740
 741         return in;
 742 }
 743
 744
 745 // try to read <pref_DefIconPath>/<VolumeName>.info
 746 static Object *ReadDefaultVolumeIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName)
 747 {
 748         Object *iconObj;
 749         STRPTR iconName = DevName + strlen(DevName) + 1;
 750         size_t iconNameLen = Max_PathLen - strlen(DevName) - 2;
 751
 752         stccpy(iconName, CurrentPrefs.pref_DefIconPath, iconNameLen);
 753         d1(kprintf("%s/%s/%ld: iconName=<%s>  Len=%ld\n", __FILE__, __FUNC__, __LINE__, iconName, iconNameLen));
 754         AddPart(iconName, "", iconNameLen);
 755         d1(kprintf("%s/%s/%ld: iconName=<%s>  Len=%ld\n", __FILE__, __FUNC__, __LINE__, iconName, iconNameLen));
 756         SafeStrCat(iconName, "def_", iconNameLen);
 757         d1(kprintf("%s/%s/%ld: iconName=<%s>  Len=%ld\n", __FILE__, __FUNC__, __LINE__, iconName, iconNameLen));
 758         SafeStrCat(iconName, di->di_Volume, iconNameLen);
 759         d1(kprintf("%s/%s/%ld: iconName=<%s>  Len=%ld\n", __FILE__, __FUNC__, __LINE__, iconName, iconNameLen));
 760         StripTrailingColon(iconName);
 761
 762         d1(kprintf("%s/%s/%ld: iconName=<%s>\n", __FILE__, __FUNC__, __LINE__, iconName));
 763
 764         iconObj = ReadDefaultIconByName(iwt, iconName, DevName);
 765
 766         if (NULL == iconObj)
 767                 {
 768                 // Try again, but remove spaces from di->di_Volume
 769                 STRPTR dlp;
 770                 CONST_STRPTR slp;
 771                 size_t Len;
 772
 773                 stccpy(iconName, CurrentPrefs.pref_DefIconPath, iconNameLen);
 774                 AddPart(iconName, "", iconNameLen);
 775                 SafeStrCat(iconName, "def_", iconNameLen);
 776
 777                 Len = iconNameLen - 1 - strlen(iconName);
 778
 779                 dlp = iconName + strlen(iconName);
 780                 slp = di->di_Volume;
 781                 while (Len && *slp)
 782                         {
 783                         if (' ' != *slp)
 784                                 {
 785                                 *dlp++ = *slp;
 786                                 Len--;
 787                                 }
 788                         slp++;
 789                         }
 790                 StripTrailingColon(iconName);
 791
 792                 d1(kprintf("%s/%s/%ld: iconName=<%s>\n", __FILE__, __FUNC__, __LINE__, iconName));
 793
 794                 iconObj = ReadDefaultIconByName(iwt, iconName, DevName);
 795                 }
 796
 797         d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 798
 799         return iconObj;
 800 }
 801
 802
 803 // try to read <pref_DefIconPath>/<DeviceName>.info
 804 static Object *ReadDefaultDeviceIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName)
 805 {
 806         Object *iconObj;
 807         STRPTR iconName = DevName + strlen(DevName) + 1;
 808         size_t iconNameLen = Max_PathLen - strlen(DevName) - 2;
 809
 810         stccpy(iconName, CurrentPrefs.pref_DefIconPath, iconNameLen);
 811         AddPart(iconName, "", iconNameLen);
 812         SafeStrCat(iconName, "def_", iconNameLen);
 813         SafeStrCat(iconName, di->di_Device, iconNameLen);
 814         StripTrailingColon(iconName);
 815
 816         d1(kprintf("%s/%s/%ld: iconName=<%s>\n", __FILE__, __FUNC__, __LINE__, iconName));
 817
 818         iconObj = ReadDefaultIconByName(iwt, iconName, DevName);
 819
 820         d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 821
 822         return iconObj;
 823 }
 824
 825
 826 // try to read "disk.info" icon from volume
 827 static Object *ReadDiskIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName)
 828 {
 829         Object *iconObj;
 830
 831         d1(kprintf("%s/%s/%ld: iwt=%08lx  di=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, di, di->di_Volume));
 832
 833         // NewIconObject()
 834         iconObj = NewIconObjectTags("disk",
 835                         IDTA_InnerBottom, CurrentPrefs.pref_ImageBorders.Bottom,
 836                         IDTA_InnerRight, CurrentPrefs.pref_ImageBorders.Right,
 837                         IDTA_InnerTop, CurrentPrefs.pref_ImageBorders.Top,
 838                         IDTA_InnerLeft, CurrentPrefs.pref_ImageBorders.Left,
 839                         IDTA_HalfShinePen, PalettePrefs.pal_PensList[PENIDX_HSHINEPEN],
 840                         IDTA_HalfShadowPen, PalettePrefs.pal_PensList[PENIDX_HSHADOWPEN],
 841                         IDTA_FrameTypeSel, CurrentPrefs.pref_FrameTypeSel,
 842                         IDTA_FrameType, CurrentPrefs.pref_FrameType,
 843                         IDTA_TextSkip, CurrentPrefs.pref_TextSkip,
 844                         IDTA_MultiLineText, (ULONG) CurrentPrefs.pref_IconTextMuliLine,
 845                         IDTA_TextPen, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPEN],
 846                         IDTA_TextPenSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENSEL],
 847                         IDTA_TextPenShadow, PalettePrefs.pal_PensList[PENIDX_ICONTEXTSHADOWPEN],
 848                         IDTA_TextPenOutline, PalettePrefs.pal_PensList[PENIDX_ICONTEXTOUTLINEPEN],
 849                         IDTA_TextPenBgSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENBGSEL],
 850                         IDTA_SelectedTextRectangle, CurrentPrefs.pref_SelectedTextRectangle,
 851                         IDTA_SelTextRectBorderX, CurrentPrefs.pref_SelTextRectBorderX,
 852                         IDTA_SelTextRectBorderY, CurrentPrefs.pref_SelTextRectBorderY,
 853                         IDTA_SelTextRectRadius, CurrentPrefs.pref_SelTextRectRadius,
 854                         IDTA_TextMode, CurrentPrefs.pref_TextMode,
 855                         IDTA_TextDrawMode, FontPrefs.fprf_TextDrawMode,
 856                         IDTA_TextBackPen, FontPrefs.fprf_FontBackPen,
 857                         IDTA_Font, (ULONG) iwt->iwt_IconFont,
 858                         IDTA_Fonthandle, (ULONG) &iwt->iwt_IconTTFont,
 859                         IDTA_FontHook, (ULONG) (TTEngineBase ? &ScalosFontHook : NULL),
 860                         IDTA_SupportedIconTypes, CurrentPrefs.pref_SupportedIconTypes,
 861                         IDTA_SizeConstraints, (ULONG) &iwt->iwt_WindowTask.mt_WindowStruct->ws_IconSizeConstraints,
 862                         IDTA_ScalePercentage, iwt->iwt_WindowTask.mt_WindowStruct->ws_IconScaleFactor,
 863                         TAG_END);
 864
 865         d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 866
 867         if (iconObj)
 868                 {
 869                 ULONG IconType;
 870
 871                 GetAttr(IDTA_Type, iconObj, &IconType);
 872
 873                 d1(kprintf("%s/%s/%ld: iconObj=%08lx  IconType=%ld\n", __FILE__, __FUNC__, __LINE__, iconObj, IconType));
 874
 875                 if (WBDISK == IconType)
 876                         {
 877                         SetAttrs(iconObj,
 878                                 IDTA_Text, (ULONG) DevName,
 879                                 TAG_END);
 880                         }
 881                 else
 882                         {
 883                         DisposeIconObject(iconObj);
 884                         iconObj = NULL;
 885                         }
 886                 }
 887
 888         d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 889
 890         return iconObj;
 891 }
 892
 893
 894 // try to get default WBDISK icon
 895 static Object *ReadDefaultIcon(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, STRPTR DevName)
 896 {
 897         Object *iconObj;
 898         ULONG IconType = WBDISK;
 899
 900         d1(kprintf("%s/%s/%ld: iwt=%08lx  di=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, iwt, di, di->di_Volume));
 901
 902         switch (di->di_Info->id_DiskType)
 903                 {
 904         case ID_NOT_REALLY_DOS:
 905         case ID_KICKSTART_DISK:
 906                 IconType = WBKICK;
 907                 break;
 908                 }
 909
 910         // GetDefIconObject()
 911         iconObj = GetDefIconObjectTags(IconType,
 912                         IDTA_InnerBottom, CurrentPrefs.pref_ImageBorders.Bottom,
 913                         IDTA_InnerRight, CurrentPrefs.pref_ImageBorders.Right,
 914                         IDTA_InnerTop, CurrentPrefs.pref_ImageBorders.Top,
 915                         IDTA_InnerLeft, CurrentPrefs.pref_ImageBorders.Left,
 916                         IDTA_HalfShinePen, PalettePrefs.pal_PensList[PENIDX_HSHINEPEN],
 917                         IDTA_HalfShadowPen, PalettePrefs.pal_PensList[PENIDX_HSHADOWPEN],
 918                         IDTA_FrameTypeSel, CurrentPrefs.pref_FrameTypeSel,
 919                         IDTA_FrameType, CurrentPrefs.pref_FrameType,
 920                         IDTA_TextSkip, CurrentPrefs.pref_TextSkip,
 921                         IDTA_MultiLineText, (ULONG) CurrentPrefs.pref_IconTextMuliLine,
 922                         IDTA_TextPen, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPEN],
 923                         IDTA_TextPenSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENSEL],
 924                         IDTA_TextPenShadow, PalettePrefs.pal_PensList[PENIDX_ICONTEXTSHADOWPEN],
 925                         IDTA_TextPenOutline, PalettePrefs.pal_PensList[PENIDX_ICONTEXTOUTLINEPEN],
 926                         IDTA_TextPenBgSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENBGSEL],
 927                         IDTA_SelectedTextRectangle, CurrentPrefs.pref_SelectedTextRectangle,
 928                         IDTA_SelTextRectBorderX, CurrentPrefs.pref_SelTextRectBorderX,
 929                         IDTA_SelTextRectBorderY, CurrentPrefs.pref_SelTextRectBorderY,
 930                         IDTA_SelTextRectRadius, CurrentPrefs.pref_SelTextRectRadius,
 931                         IDTA_TextMode, CurrentPrefs.pref_TextMode,
 932                         IDTA_TextDrawMode, FontPrefs.fprf_TextDrawMode,
 933                         IDTA_TextBackPen, FontPrefs.fprf_FontBackPen,
 934                         DTA_Name, (ULONG) di->di_Device,
 935                         IDTA_Text, (ULONG) DevName,
 936                         IDTA_Font, (ULONG) iwt->iwt_IconFont,
 937                         IDTA_Fonthandle, (ULONG) &iwt->iwt_IconTTFont,
 938                         IDTA_FontHook, (ULONG) (TTEngineBase ? &ScalosFontHook : NULL),
 939                         TAG_END);
 940
 941         if (iconObj)
 942                 {
 943                 SetAttrs(iconObj,
 944                         IDTA_Type, WBDISK,
 945                         TAG_END);
 946                 }
 947
 948         d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
 949
 950         return iconObj;
 951 }
 952
 953
 954 static struct ScaIconNode *DevIconOk2(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di, Object *iconObj)
 955 {
 956         struct ScaIconNode *in;
 957         STRPTR tt;
 958         ULONG IconType;
 959         struct ExtGadget *gg = (struct ExtGadget *) iconObj;
 960
 961         d1(kprintf("%s/%s/%ld: iwt=%08lx  di=%08lx iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt, di, iconObj));
 962
 963         tt = NULL;
 964         if (DoMethod(iconObj, IDTM_FindToolType, "SCALOS_NOTEXT", &tt))
 965                 {
 966                 d1(kprintf("%s/%s/%ld: SCALOS_NOTEXT\n", __FILE__, __FUNC__, __LINE__));
 967
 968                 SetAttrs(iconObj,
 969                         IDTA_Text, NULL,
 970                         TAG_END);
 971                 }
 972
 973         d1(kprintf("%s/%s/%ld: iwt=%08lx  di=%08lx iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt, di, iconObj));
 974
 975         DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_LayoutIcon, iconObj, IOLAYOUTF_NormalImage);
 976
 977         ScalosLockIconListExclusive(iwt);
 978
 979         d1(KPrintF("%s/%s/%ld: iwt=%08lx  di=%08lx iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iwt, di, iconObj));
 980
 981         if (IsNoIconPosition(gg))
 982                 in = SCA_AllocIconNode(&iwt->iwt_WindowTask.wt_LateIconList);
 983         else
 984                 in = SCA_AllocIconNode(&iwt->iwt_WindowTask.wt_IconList);
 985         if (NULL == in)
 986                 {
 987                 ScalosUnLockIconList(iwt);
 988                 return in;
 989                 }
 990
 991         SetAttrs(iconObj,
 992                 IDTA_Type, WBDISK,
 993                 TAG_END);
 994
 995         StartDeviceIconNotify(iwt, di);
 996
 997         SetIconName(iconObj, in);
 998
 999         in->in_Icon = di->di_Icon = iconObj;
1000         in->in_DeviceIcon = di;
1001 //        in->in_FileType = (struct TypeNode *) WBDISK;
1002         in->in_FileType = DefIconsIdentify(BNULL, di->di_Volume, WBDISK);
1003         in->in_Flags |= INF_Identified;
1004
1005         d1(KPrintF("%s/%s/%ld: <%s>  in_FileType=%08lx\n", __FILE__, __FUNC__, __LINE__, GetIconName(in), in->in_FileType));
1006         DateStamp(&in->in_DateStamp);
1007
1008         if (!ClassCheckInfoData(di->di_Info))
1009                 {
1010                 in->in_Flags |= INF_VolumeWriteProtected;
1011                 AddIconOverlay(in->in_Icon, ICONOVERLAYF_ReadOnly);
1012                 }
1013
1014         SetDeviceIconSupportsFlags(in);
1015
1016         if (!(in->in_SupportFlags & INF_SupportsOpen))
1017                 {
1018                 struct ExtGadget *gg = (struct ExtGadget *) in->in_Icon;
1019
1020                 gg->Flags |= GFLG_DISABLED;
1021                 }
1022
1023         d1(kprintf("%s/%s/%ld: <%s>  SupportFlags=%08lx\n", __FILE__, __FUNC__, __LINE__, \
1024                 GetIconName(in), in->in_SupportFlags));
1025
1026         tt = NULL;
1027         if (DoMethod(iconObj, IDTM_FindToolType, "SCALOS_NODRAG", &tt))
1028                 {
1029                 in->in_Flags |= INF_Sticky;
1030                 }
1031
1032         ScalosUnLockIconList(iwt);
1033
1034         if (!IsNoIconPosition(gg))
1035                 {
1036                 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
1037
1038                 if ((!iwt->iwt_BackDrop || !CheckPosition(iwt, in)) && !CheckOverlap(iwt, in))
1039                         DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_DrawIcon, iconObj);
1040                 }
1041
1042         GetAttr(IDTA_Type, iconObj, &IconType);
1043
1044         if (WBDISK == IconType)
1045                 {
1046                 // Read and display backdrop icons
1047                 ReadDevBackdrop(iwt, in);
1048                 }
1049
1050         return in;
1051 }
1052
1053
1054 static LONG ReadDevBackdrop(struct internalScaWindowTask *iwt, struct ScaIconNode *DevIn)
1055 {
1056         STRPTR fName = NULL;
1057         struct BackDropList bdl;
1058         LONG Result;
1059         BPTR oldDir = NOT_A_LOCK;
1060         BPTR vLock;
1061
1062         d1(kprintf("%s/%s/%ld: START iwt=%08lx  DevIn=%08lx <%s>  in_DeviceIcon=%08lx\n", \
1063                 __FILE__, __FUNC__, __LINE__, iwt, DevIn, DevIn->in_Name, DevIn->in_DeviceIcon));
1064
1065         BackDropInitList(&bdl);
1066
1067         do      {
1068                 struct ChainedLine *cnl;
1069
1070                 d1(kprintf("%s/%s/%ld: di_Device=<%s>\n", __FILE__, __FUNC__, __LINE__, DevIn->in_DeviceIcon->di_Device));
1071
1072                 vLock = Lock(DevIn->in_DeviceIcon->di_Device, ACCESS_READ);
1073                 d1(kprintf("%s/%s/%ld: vLock=%08lx\n", __FILE__, __FUNC__, __LINE__, vLock));
1074                 debugLock_d1(vLock);
1075                 if (BNULL == vLock)
1076                         {
1077                         Result = IoErr();
1078                         d1(kprintf("%s/%s/%ld: vLock=NULL,  Result=%ld\n", __FILE__, __FUNC__, __LINE__, Result));
1079                         break;
1080                         }
1081
1082                 oldDir = CurrentDir(vLock);
1083
1084                 Result = BackdropLoadList(&bdl);
1085                 if (RETURN_OK != Result)
1086                         {
1087                         d1(kprintf("%s/%s/%ld: BackdropLoadList() failed,  Result=%ld\n", __FILE__, __FUNC__, __LINE__, Result));
1088                         break;
1089                         }
1090
1091                 fName = AllocPathBuffer();
1092                 if (NULL == fName)
1093                         {
1094                         Result = ERROR_NO_FREE_STORE;
1095                         d1(kprintf("%s/%s/%ld: AllocPathBuffer() failed,  Result=%ld\n", __FILE__, __FUNC__, __LINE__, Result));
1096                         break;
1097                         }
1098
1099                 for (cnl = (struct ChainedLine *) bdl.bdl_LinesList.lh_Head;
1100                         RETURN_OK == Result && cnl != (struct ChainedLine *) &bdl.bdl_LinesList.lh_Tail;
1101                         cnl = (struct ChainedLine *) cnl->cnl_Node.ln_Succ)
1102                         {
1103                         d1(kprintf("%s/%s/%ld: Line=<%s>\n", __FILE__, __FUNC__, __LINE__, cnl->cnl_Line));
1104                         CreateBackdropIcon(iwt, &bdl, DevIn, cnl->cnl_Line, fName);
1105                         }
1106                 } while (0);
1107
1108         if (DevIn && DevIn->in_DeviceIcon)
1109                 {
1110                 d1(kprintf("%s/%s/%ld: setting DIBF_BackdropReadComplete flag\n", __FILE__, __FUNC__, __LINE__));
1111                 DevIn->in_DeviceIcon->di_Flags |= DIBF_BackdropReadComplete;
1112                 }
1113
1114         BackdropFreeList(&bdl);
1115
1116         d1(kprintf("%s/%s/%ld: vLock=%08lx\n", __FILE__, __FUNC__, __LINE__, vLock));
1117
1118         if (IS_VALID_LOCK(oldDir))
1119                 CurrentDir(oldDir);
1120         if (vLock)
1121                 UnLock(vLock);
1122         if (fName)
1123                 FreePathBuffer(fName);
1124
1125         d1(kprintf("%s/%s/%ld: END  Result=%ld\n", __FILE__, __FUNC__, __LINE__, Result));
1126
1127         return Result;
1128 }
1129
1130
1131 static struct ScaIconNode *CreateBackdropIcon(struct internalScaWindowTask *iwt,
1132         struct BackDropList *bdl, struct ScaIconNode *DevIn,
1133         CONST_STRPTR BackdropIconName, STRPTR fName)
1134 {
1135         char ch;
1136         STRPTR lp;
1137         STRPTR tt;
1138         ULONG IconType;
1139         Object *iconObj = NULL;
1140         struct ScaIconNode *in = NULL;
1141         struct ExtGadget *gg;
1142         BPTR dirLock = (BPTR)NULL;
1143         BPTR oldDir = NOT_A_LOCK;
1144         BPTR iLock;                             // +++ JMC 28.11.2004
1145         T_ExamineData *fib = NULL;              // +++ JMC 28.11.2004
1146
1147
1148         d1(kprintf("%s/%s/%ld: START BackdropIconName=<%s>\n", __FILE__, __FUNC__, __LINE__, BackdropIconName));
1149
1150         do      {
1151
1152                 if (strlen(BackdropIconName) < 1)
1153                         break;
1154
1155                 stccpy(fName, BackdropIconName, Max_PathLen - 1);
1156
1157                 lp = PathPart(fName);
1158                 ch = *lp;
1159                 *lp = '\0';
1160
1161                 d1(kprintf("%s/%s/%ld: PathPart=<%s>\n", __FILE__, __FUNC__, __LINE__, fName));
1162
1163                 dirLock = Lock(fName, ACCESS_READ);
1164
1165
1166                 *lp = ch;
1167                 debugLock_d1(dirLock);
1168                 if ((BPTR)NULL == dirLock)
1169                         break;
1170
1171                 oldDir = CurrentDir(dirLock);
1172
1173                 lp = FilePart(fName);
1174                 d1(kprintf("%s/%s/%ld: FilePart=<%s>\n", __FILE__, __FUNC__, __LINE__, lp));
1175
1176 //-----------------------------------------------------------------------------
1177 // +++ JMC 28.11.2004
1178 // Check if the object got
1179 // a Hidden protection bit activated before to display it on desktop.
1180
1181                 if (CurrentPrefs.pref_HideProtectHiddenFlag)
1182                         {
1183                         if (!ScalosExamineBegin(&fib))
1184                         if (NULL == fib)
1185                                 {
1186                                 d1(kprintf("%s/%s/%ld: AllocDosObject failed\n", __FILE__, __FUNC__, __LINE__));
1187                                 break;
1188                                 }
1189                         iLock = Lock(PathPart(fName), SHARED_LOCK);
1190                         if (iLock)
1191                                 {
1192                                 ScalosExamineLock(iLock, &fib);
1193                                 if (ScalosExamineGetProtection(fib) & FIBF_HIDDEN)
1194                                         {
1195                                         d1(kprintf("%s/%s/%ld: <%s> FIBF_HIDDEN found!\n", __FILE__, __FUNC__, __LINE__, PathPart(fName)));
1196                                         UnLock(iLock);
1197                                         break;
1198                                         }
1199                                 UnLock(iLock);
1200                                 }
1201                         }
1202
1203 //-----------------------------------------------------------------------------
1204
1205                 if (FindIconInDrawerWindows(dirLock, lp))
1206                         {
1207                         d1(kprintf("%s/%s/%ld: <%s> Icon found in drawer window!\n", __FILE__, __FUNC__, __LINE__, PathPart(fName)));
1208                         break;
1209                         }
1210
1211                 iconObj = NewIconObjectTags(lp,
1212                         IDTA_Text, (ULONG) lp,
1213                         IDTA_InnerBottom, CurrentPrefs.pref_ImageBorders.Bottom,
1214                         IDTA_InnerRight, CurrentPrefs.pref_ImageBorders.Right,
1215                         IDTA_InnerTop, CurrentPrefs.pref_ImageBorders.Top,
1216                         IDTA_InnerLeft, CurrentPrefs.pref_ImageBorders.Left,
1217                         IDTA_HalfShinePen, PalettePrefs.pal_PensList[PENIDX_HSHINEPEN],
1218                         IDTA_HalfShadowPen, PalettePrefs.pal_PensList[PENIDX_HSHADOWPEN],
1219                         IDTA_FrameTypeSel, CurrentPrefs.pref_FrameTypeSel,
1220                         IDTA_FrameType, CurrentPrefs.pref_FrameType,
1221                         IDTA_TextSkip, CurrentPrefs.pref_TextSkip,
1222                         IDTA_MultiLineText, (ULONG) CurrentPrefs.pref_IconTextMuliLine,
1223                         IDTA_TextPen, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPEN],
1224                         IDTA_TextPenSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENSEL],
1225                         IDTA_TextPenShadow, PalettePrefs.pal_PensList[PENIDX_ICONTEXTSHADOWPEN],
1226                         IDTA_TextPenOutline, PalettePrefs.pal_PensList[PENIDX_ICONTEXTOUTLINEPEN],
1227                         IDTA_TextPenBgSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENBGSEL],
1228                         IDTA_SelectedTextRectangle, CurrentPrefs.pref_SelectedTextRectangle,
1229                         IDTA_SelTextRectBorderX, CurrentPrefs.pref_SelTextRectBorderX,
1230                         IDTA_SelTextRectBorderY, CurrentPrefs.pref_SelTextRectBorderY,
1231                         IDTA_SelTextRectRadius, CurrentPrefs.pref_SelTextRectRadius,
1232                         IDTA_TextMode, CurrentPrefs.pref_TextMode,
1233                         IDTA_TextDrawMode, FontPrefs.fprf_TextDrawMode,
1234                         IDTA_TextBackPen, FontPrefs.fprf_FontBackPen,
1235                         IDTA_Font, (ULONG) iwt->iwt_IconFont,
1236                         IDTA_Fonthandle, (ULONG) &iwt->iwt_IconTTFont,
1237                         IDTA_FontHook, (ULONG) (TTEngineBase ? &ScalosFontHook : NULL),
1238                         IDTA_SupportedIconTypes, CurrentPrefs.pref_SupportedIconTypes,
1239                         IDTA_SizeConstraints, (ULONG) &iwt->iwt_WindowTask.mt_WindowStruct->ws_IconSizeConstraints,
1240                         IDTA_ScalePercentage, iwt->iwt_WindowTask.mt_WindowStruct->ws_IconScaleFactor,
1241                         IDTA_OverlayType, ICONOVERLAYF_LeftOut,
1242                         TAG_END);
1243
1244                 d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
1245                 if (NULL == iconObj)
1246                         break;
1247
1248                 gg = (struct ExtGadget *) iconObj;
1249
1250                 GetAttr(IDTA_Type, iconObj, &IconType);
1251
1252                 d1(kprintf("%s/%s/%ld: IconType=%ld\n", __FILE__, __FUNC__, __LINE__, IconType));
1253                 if (WBDISK == IconType)
1254                         break;
1255
1256                 tt = NULL;
1257                 if (DoMethod(iconObj, IDTM_FindToolType, "SCALOS_NOTEXT", &tt))
1258                         {
1259                         d1(kprintf("%s/%s/%ld: SCALOS_NOTEXT\n", __FILE__, __FUNC__, __LINE__));
1260                         SetAttrs(iconObj,
1261                                 IDTA_Text, NULL,
1262                                 TAG_END);
1263                         }
1264
1265                 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_LayoutIcon, iconObj, IOLAYOUTF_NormalImage);
1266
1267                 ScalosLockIconListExclusive(iwt);
1268
1269                 if (IsNoIconPosition(gg))
1270                         in = SCA_AllocIconNode(&iwt->iwt_WindowTask.wt_LateIconList);
1271                 else
1272                         in = SCA_AllocIconNode(&iwt->iwt_WindowTask.wt_IconList);
1273                 if (NULL == in)
1274                         break;
1275
1276                 SetIconName(iconObj, in);
1277
1278                 DateStamp(&in->in_DateStamp);
1279
1280                 in->in_Icon = iconObj;
1281                 in->in_Lock = CurrentDir(oldDir);
1282                 oldDir = NOT_A_LOCK;
1283                 dirLock = (BPTR)NULL;         // do not UnLock() !!!s
1284
1285                 if (WBTOOL == IconType || WBPROJECT == IconType)
1286                         {
1287                         in->in_Flags |= INF_File;
1288                         }
1289
1290                 SetBackdropIconSupportsFlags(iwt, bdl, in);
1291
1292                 tt = NULL;
1293                 if (DoMethod(iconObj, IDTM_FindToolType, "SCALOS_NODRAG", &tt))
1294                         {
1295                         in->in_Flags |= INF_Sticky;
1296                         }
1297
1298                 if (!ClassCheckInfoData(DevIn->in_DeviceIcon->di_Info))
1299                         {
1300                         in->in_Flags |= INF_VolumeWriteProtected;
1301                         AddIconOverlay(in->in_Icon, ICONOVERLAYF_ReadOnly);
1302                         }
1303
1304                 ScalosUnLockIconList(iwt);
1305
1306                 if (!IsNoIconPosition(gg))
1307                         {
1308                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
1309
1310                         if ((!iwt->iwt_BackDrop || !CheckPosition(iwt, in)) && !CheckOverlap(iwt, in))
1311                                 DoMethod(iwt->iwt_WindowTask.mt_MainObject, SCCM_IconWin_DrawIcon, iconObj);
1312                         }
1313
1314                 CreateSbi(DevIn, in);
1315
1316                 iconObj = NULL;
1317                 } while (0);
1318
1319         if (IS_VALID_LOCK(oldDir))
1320                 CurrentDir(oldDir);
1321         if (dirLock)
1322                 UnLock(dirLock);
1323         if (iconObj)
1324                 DisposeIconObject(iconObj);
1325         ScalosExamineEnd(&fib);
1326
1327         d1(kprintf("%s/%s/%ld: END  in=%08lx\n", __FILE__, __FUNC__, __LINE__, in));
1328
1329         return in;
1330 }
1331
1332
1333 // Frees everything inside the ScaBackdropIcon, but does not free the node itself !!
1334 static void FreeBackdropIcon(struct ScaBackdropIcon *bdi)
1335 {
1336         d1(kprintf("%s/%s/%ld: bdi=%08lx  sbi_NotifyReq=%08lx  sbi_DrawerName=%08lx <%s>\n", \
1337                 __FILE__, __FUNC__, __LINE__, bdi, bdi->sbi_NotifyReq, bdi->sbi_DrawerName, bdi->sbi_DrawerName));
1338
1339         if (NULL == bdi)
1340                 return;
1341
1342         if (bdi->sbi_NotifyReq)
1343                 {
1344                 ScalosEndNotify(bdi->sbi_NotifyReq);
1345
1346                 ScalosFree(bdi->sbi_NotifyReq);
1347                 bdi->sbi_NotifyReq = NULL;
1348                 }
1349         if (bdi->sbi_DrawerName)
1350                 {
1351                 FreePathBuffer(bdi->sbi_DrawerName);
1352                 bdi->sbi_DrawerName = NULL;
1353                 }
1354 }
1355
1356
1357 void FreeBackdropIconList(struct ScaBackdropIcon **bdiList)
1358 {
1359         struct ScaBackdropIcon *bdi, *bdiNext;
1360
1361         d1(kprintf("%s/%s/%ld: START *bdiList=%08lx\n", __FILE__, __FUNC__, __LINE__, *bdiList));
1362
1363         for (bdi=*bdiList; bdi; bdi = bdiNext)
1364                 {
1365                 bdiNext = (struct ScaBackdropIcon *) bdi->sbi_Node.mln_Succ;
1366
1367                 d1(kprintf("%s/%s/%ld: bdi=%08lx  bdiNext=%08lx\n", __FILE__, __FUNC__, __LINE__, bdi, bdiNext));
1368
1369                 FreeBackdropIcon(bdi);
1370                 SCA_FreeNode((struct ScalosNodeList *) bdiList, &bdi->sbi_Node);
1371                 }
1372
1373         d1(kprintf("%s/%s/%ld: END *bdiList=%08lx\n", __FILE__, __FUNC__, __LINE__, *bdiList));
1374 }
1375
1376
1377 // remove ScalosBackdropIcon from in_IconList of the parent device icon
1378 void RemoveScalosBackdropIcon(struct ScaIconNode *in)
1379 {
1380         struct internalScaWindowTask *iwtMain;
1381         struct ScaBackdropIcon *bdiList = NULL;
1382         struct ScaIconNode *inDev;
1383
1384         d1(kprintf("%s/%s/%ld: in=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, in, GetIconName(in)));
1385
1386         if (NULL== iInfos.xii_iinfos.ii_MainWindowStruct)
1387                 return;
1388
1389         iwtMain = (struct internalScaWindowTask *) iInfos.xii_iinfos.ii_MainWindowStruct->ws_WindowTask;
1390
1391         ScalosLockIconListExclusive(iwtMain);
1392
1393         for (inDev=iwtMain->iwt_WindowTask.wt_IconList; inDev; inDev = (struct ScaIconNode *) inDev->in_Node.mln_Succ)
1394                 {
1395                 if (inDev->in_IconList)
1396                         {
1397                         struct ScaBackdropIcon *sbi, *sbiNext;
1398
1399                         for (sbi=inDev->in_IconList; sbi; sbi = sbiNext)
1400                                 {
1401                                 sbiNext = (struct ScaBackdropIcon *) sbi->sbi_Node.mln_Succ;
1402
1403                                 if (sbi->sbi_Icon == in->in_Icon)
1404                                         {
1405                                         d1(kprintf("%s/%s/%ld: sbi=%08lx  sbi_NotifyReq=%08lx  sbi_DrawerName=%08lx <%s>\n",\
1406                                                  __FILE__, __FUNC__, __LINE__, sbi, sbi->sbi_NotifyReq, sbi->sbi_DrawerName, sbi->sbi_DrawerName));
1407
1408                                         SCA_MoveNode((struct ScalosNodeList *)(APTR) &inDev->in_IconList,
1409                                                 (struct ScalosNodeList *)(APTR) &bdiList,
1410                                                 &sbi->sbi_Node);
1411
1412                                         d1(kprintf("%s/%s/%ld: sbi=%08lx  sbi_NotifyReq=%08lx  sbi_DrawerName=%08lx <%s>\n",\
1413                                                  __FILE__, __FUNC__, __LINE__, sbi, sbi->sbi_NotifyReq, sbi->sbi_DrawerName, sbi->sbi_DrawerName));
1414                                         }
1415                                 }
1416                         }
1417                 }
1418
1419         d1(kprintf("%s/%s/%ld: bdiList=%08lx\n", __FILE__, __FUNC__, __LINE__, bdiList));
1420
1421         FreeBackdropIconList(&bdiList);
1422
1423         ScalosUnLockIconList(iwtMain);
1424 }
1425
1426
1427 // Create <ScaBackdropIcon> entry for <in> in <DevIn->in_IconList>
1428 static BOOL CreateSbi(struct ScaIconNode *DevIn, struct ScaIconNode *in)
1429 {
1430         struct internalScaWindowTask *iwtMain = (struct internalScaWindowTask *) iInfos.xii_iinfos.ii_MainWindowStruct->ws_WindowTask;
1431         struct ScaBackdropIcon *bdi;
1432         BOOL NotifySuccess = FALSE;
1433         BOOL Success = FALSE;
1434
1435         d1(kprintf("%s/%s/%ld: DevIn=%08lx <%s>  in=%08lx <%s>\n", \
1436                 __FILE__, __FUNC__, __LINE__, DevIn, GetIconName(DevIn), in, GetIconName(in)));
1437
1438         do      {
1439                 bdi = (struct ScaBackdropIcon *) SCA_AllocNode((struct ScalosNodeList *) &DevIn->in_IconList,
1440                         sizeof(struct ScaBackdropIcon) - sizeof(struct MinNode));
1441                 if (NULL == bdi)
1442                         break;
1443
1444                 bdi->sbi_Icon = in->in_Icon;
1445
1446                 bdi->sbi_NotifyReq = ScalosAlloc(sizeof(struct NotifyRequest));
1447                 if (NULL == bdi->sbi_NotifyReq)
1448                         break;
1449
1450                 memset(bdi->sbi_NotifyReq, 0, sizeof(struct NotifyRequest));
1451
1452                 d1(kprintf("%s/%s/%ld: bdi=%08lx  NotifyReq=%08lx\n", \
1453                                 __FILE__, __FUNC__, __LINE__, bdi, bdi->sbi_NotifyReq));
1454
1455                 bdi->sbi_DrawerName = AllocPathBuffer();
1456                 if (NULL == bdi->sbi_DrawerName)
1457                         break;
1458
1459                 d1(kprintf("%s/%s/%ld: sbi=%08lx  sbi_DrawerName=%08lx\n", __FILE__, __FUNC__, __LINE__, bdi, bdi->sbi_DrawerName));
1460
1461                 if (!NameFromLock(in->in_Lock, bdi->sbi_DrawerName, MAX_FileName-1))
1462                         break;
1463
1464                 bdi->sbi_NotifyReq->nr_Name = bdi->sbi_DrawerName;
1465                 bdi->sbi_NotifyReq->nr_stuff.nr_Msg.nr_Port = iwtMain->iwt_WindowTask.wt_IconPort;
1466                 bdi->sbi_NotifyReq->nr_Flags = NRF_SEND_MESSAGE;
1467                 bdi->sbi_NotifyReq->nr_UserData = (ULONG)NULL;
1468
1469                 d1(kprintf("%s/%s/%ld: starting notification on <%s>\n", \
1470                         __FILE__, __FUNC__, __LINE__, bdi->sbi_NotifyReq->nr_Name));
1471
1472                 Success = TRUE;
1473
1474                 if (!StartNotify(bdi->sbi_NotifyReq))
1475                         break;
1476
1477                 d1(kprintf("%s/%s/%ld: started notification on <%s>\n", \
1478                         __FILE__, __FUNC__, __LINE__, bdi->sbi_NotifyReq->nr_Name));
1479
1480                 NotifySuccess = TRUE;
1481                 } while (0);
1482
1483         if (Success)
1484                 {
1485                 if (!NotifySuccess)
1486                         {
1487                         if (bdi->sbi_NotifyReq)
1488                                 {
1489                                 ScalosFree(bdi->sbi_NotifyReq);
1490                                 bdi->sbi_NotifyReq = NULL;
1491                                 }
1492                         }
1493
1494                 d1(kprintf("%s/%s/%ld: sbi=%08lx  sbi_DrawerName=%08lx\n", __FILE__, __FUNC__, __LINE__, bdi, bdi->sbi_DrawerName));
1495                 }
1496         else
1497                 {
1498                 if (bdi)
1499                         {
1500                         if (bdi->sbi_DrawerName)
1501                                 {
1502                                 FreePathBuffer(bdi->sbi_DrawerName);
1503                                 bdi->sbi_DrawerName = NULL;
1504                                 }
1505                         if (bdi->sbi_NotifyReq)
1506                                 {
1507                                 ScalosFree(bdi->sbi_NotifyReq);
1508                                 bdi->sbi_NotifyReq = NULL;
1509                                 }
1510
1511                         SCA_FreeNode((struct ScalosNodeList *) &DevIn->in_IconList, &bdi->sbi_Node);
1512                         }
1513                 }
1514
1515         d1(kprintf("%s/%s/%ld: Success=%ld  NotifySuccess=%ld\n", __FILE__, __FUNC__, __LINE__, Success, NotifySuccess));
1516
1517         return NotifySuccess;
1518 }
1519
1520
1521 // Look for Device icon for <in>,
1522 // and create <ScaBackdropIcon> entry for <in>
1523 void CreateSbiForIcon(struct ScaIconNode *in)
1524 {
1525         struct internalScaWindowTask *iwtMain = (struct internalScaWindowTask *) iInfos.xii_iinfos.ii_MainWindowStruct->ws_WindowTask;
1526         struct ScaIconNode *inDev;
1527         BOOL Finished = FALSE;
1528
1529         d1(kprintf("%s/%s/%ld: START in=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, in, GetIconName(in)));
1530         debugLock_d1(in->in_Lock);
1531
1532         if ((BPTR)NULL == in->in_Lock)
1533                 return;         // only useful for left-out icons
1534
1535         ScalosLockIconListExclusive(iwtMain);
1536
1537         for (inDev=iwtMain->iwt_WindowTask.wt_IconList; !Finished && inDev; inDev = (struct ScaIconNode *) inDev->in_Node.mln_Succ)
1538                 {
1539                 if (inDev->in_DeviceIcon)
1540                         {
1541                         BPTR DeviceIconLock = DiskInfoLock(inDev);
1542
1543                         if (DeviceIconLock)
1544                                 {
1545                                 LONG IsSameLock;
1546
1547                                 d1(kprintf("%s/%s/%ld: inDev=%08lx  <%s>\n", __FILE__, __FUNC__, __LINE__, inDev, GetIconName(inDev)));
1548
1549                                 IsSameLock = ScaSameLock(DeviceIconLock, in->in_Lock);
1550                                 d1(kprintf("%s/%s/%ld: SameLock()=%ld\n", __FILE__, __FUNC__, __LINE__, IsSameLock));
1551
1552                                 switch (IsSameLock)
1553                                         {
1554                                 case LOCK_SAME_VOLUME:
1555                                 case LOCK_SAME:
1556                                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
1557                                         CreateSbi(inDev, in);
1558                                         Finished = TRUE;
1559                                         break;
1560                                 default:
1561                                         break;
1562                                         }
1563
1564                                 UnLock(DeviceIconLock);
1565                                 }
1566                         }
1567                 }
1568
1569         ScalosUnLockIconList(iwtMain);
1570
1571         d1(kprintf("%s/%s/%ld: END\n", __FILE__, __FUNC__, __LINE__));
1572 }
1573
1574
1575
1576 static struct ScaIconNode *IconAlreadyExists(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di)
1577 {
1578         struct ScaIconNode *in;
1579         struct ScaIconNode *inFound = NULL;
1580
1581         ScalosLockIconListShared(iwt);
1582
1583         d1(kprintf("%s/%s/%ld:\n", __FILE__, __FUNC__, __LINE__));
1584
1585         for (in=iwt->iwt_WindowTask.wt_IconList; NULL == inFound && in; in = (struct ScaIconNode *) in->in_Node.mln_Succ)
1586                 {
1587                 if (in->in_DeviceIcon && in->in_DeviceIcon->di_Handler == di->di_Handler)
1588                         {
1589                         d1(kprintf("%s/%s/%ld:  Found in=%08lx <%s>\n", __FILE__, __FUNC__, __LINE__, in, GetIconName(in)));
1590                         inFound = in;
1591                         }
1592                 }
1593
1594         if (NULL == inFound)
1595                 ScalosUnLockIconList(iwt);
1596
1597         return inFound;
1598 }
1599
1600
1601 static BOOL FindIconInDrawerWindows(BPTR dirLock, CONST_STRPTR IconName)
1602 {
1603         struct ScaWindowStruct *ws;
1604         BOOL Found = FALSE;
1605
1606         SCA_LockWindowList(SCA_LockWindowList_Shared);
1607
1608         for (ws=winlist.wl_WindowStruct; !Found && ws; ws = (struct ScaWindowStruct *) ws->ws_Node.mln_Succ)
1609                 {
1610                 struct internalScaWindowTask *iwtx = (struct internalScaWindowTask *) ws->ws_WindowTask;
1611
1612                 if (ws->ws_Lock && LOCK_SAME == SameLock(dirLock, ws->ws_Lock))
1613                         {
1614                         struct ScaIconNode *in;
1615
1616                         ScalosLockIconListShared(iwtx);
1617
1618                         for (in=iwtx->iwt_WindowTask.wt_IconList; !Found && in; in = (struct ScaIconNode *) in->in_Node.mln_Succ)
1619                                 {
1620                                 if (0 == Stricmp((STRPTR) IconName, (STRPTR) GetIconName(in)))
1621                                         Found = TRUE;
1622                                 }
1623
1624                         ScalosUnLockIconList(iwtx);
1625                         }
1626                 }
1627
1628         if (!Found)
1629                 {
1630                 // Search in desktop window if backdrop icon is already present
1631                 struct internalScaWindowTask *iwtx;
1632                 struct ScaIconNode *in;
1633
1634                 ws = iInfos.xii_iinfos.ii_MainWindowStruct;
1635                 iwtx = (struct internalScaWindowTask *) ws->ws_WindowTask;
1636
1637                 ScalosLockIconListShared(iwtx);
1638
1639                 for (in=iwtx->iwt_WindowTask.wt_IconList; !Found && in; in = (struct ScaIconNode *) in->in_Node.mln_Succ)
1640                         {
1641                         if (in->in_Lock && LOCK_SAME == SameLock(dirLock, in->in_Lock)
1642                                 && (0 == Stricmp((STRPTR) IconName, (STRPTR) GetIconName(in))))
1643                                 Found = TRUE;
1644                         }
1645
1646                 ScalosUnLockIconList(iwtx);
1647                 }
1648         SCA_UnLockWindowList();
1649
1650         return Found;
1651 }
1652
1653
1654 static Object *ReadDefaultIconByName(struct internalScaWindowTask *iwt, CONST_STRPTR iconName, STRPTR DevName)
1655 {
1656         Object *iconObj;
1657
1658         d1(kprintf("%s/%s/%ld: iconName=<%s>\n", __FILE__, __FUNC__, __LINE__, iconName));
1659
1660         iconObj = NewIconObjectTags(iconName,
1661                 IDTA_InnerBottom, CurrentPrefs.pref_ImageBorders.Bottom,
1662                 IDTA_InnerRight, CurrentPrefs.pref_ImageBorders.Right,
1663                 IDTA_InnerTop, CurrentPrefs.pref_ImageBorders.Top,
1664                 IDTA_InnerLeft, CurrentPrefs.pref_ImageBorders.Left,
1665                 IDTA_HalfShinePen, PalettePrefs.pal_PensList[PENIDX_HSHINEPEN],
1666                 IDTA_HalfShadowPen, PalettePrefs.pal_PensList[PENIDX_HSHADOWPEN],
1667                 IDTA_FrameTypeSel, CurrentPrefs.pref_FrameTypeSel,
1668                 IDTA_FrameType, CurrentPrefs.pref_FrameType,
1669                 IDTA_TextSkip, CurrentPrefs.pref_TextSkip,
1670                 IDTA_MultiLineText, (ULONG) CurrentPrefs.pref_IconTextMuliLine,
1671                 IDTA_TextPen, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPEN],
1672                 IDTA_TextPenSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENSEL],
1673                 IDTA_TextPenShadow, PalettePrefs.pal_PensList[PENIDX_ICONTEXTSHADOWPEN],
1674                 IDTA_TextPenOutline, PalettePrefs.pal_PensList[PENIDX_ICONTEXTOUTLINEPEN],
1675                 IDTA_TextPenBgSel, PalettePrefs.pal_PensList[PENIDX_ICONTEXTPENBGSEL],
1676                 IDTA_SelectedTextRectangle, CurrentPrefs.pref_SelectedTextRectangle,
1677                 IDTA_SelTextRectBorderX, CurrentPrefs.pref_SelTextRectBorderX,
1678                 IDTA_SelTextRectBorderY, CurrentPrefs.pref_SelTextRectBorderY,
1679                 IDTA_SelTextRectRadius, CurrentPrefs.pref_SelTextRectRadius,
1680                 IDTA_TextMode, CurrentPrefs.pref_TextMode,
1681                 IDTA_TextDrawMode, FontPrefs.fprf_TextDrawMode,
1682                 IDTA_TextBackPen, FontPrefs.fprf_FontBackPen,
1683                 IDTA_Font, (ULONG) iwt->iwt_IconFont,
1684                 IDTA_Fonthandle, (ULONG) &iwt->iwt_IconTTFont,
1685                 IDTA_FontHook, (ULONG) (TTEngineBase ? &ScalosFontHook : NULL),
1686                 IDTA_SupportedIconTypes, CurrentPrefs.pref_SupportedIconTypes,
1687                 IDTA_SizeConstraints, (ULONG) &iwt->iwt_WindowTask.mt_WindowStruct->ws_IconSizeConstraints,
1688                 IDTA_ScalePercentage, iwt->iwt_WindowTask.mt_WindowStruct->ws_IconScaleFactor,
1689                 TAG_END);
1690
1691         if (iconObj)
1692                 {
1693                 ULONG IconType;
1694
1695                 GetAttr(IDTA_Type, iconObj, &IconType);
1696
1697                 d1(kprintf("%s/%s/%ld: iconObj=%08lx  IconType=%ld\n", __FILE__, __FUNC__, __LINE__, iconObj, IconType));
1698
1699                 SetAttrs(iconObj,
1700                         IDTA_Type, WBDISK,
1701                         IDTA_Text, (ULONG) DevName,
1702                         TAG_END);
1703                 }
1704
1705         d1(kprintf("%s/%s/%ld: iconObj=%08lx\n", __FILE__, __FUNC__, __LINE__, iconObj));
1706
1707         return iconObj;
1708 }
1709
1710
1711 static BOOL StartDeviceIconNotify(struct internalScaWindowTask *iwt, struct ScaDeviceIcon *di)
1712 {
1713         BOOL Success = FALSE;
1714
1715         if (di->di_NotifyReq.nr_Name)
1716                 {
1717                 ScalosEndNotify(&di->di_NotifyReq);
1718                 memset(&di->di_NotifyReq, 0, sizeof(di->di_NotifyReq));
1719                 }
1720         if (di->di_DiskIconName)
1721                 {
1722                 FreePathBuffer(di->di_DiskIconName);
1723                 di->di_DiskIconName = NULL;
1724                 }
1725
1726         do      {
1727                 BPTR fLock;
1728                 CONST_STRPTR NotifyReqName = "disk.info";
1729
1730                 di->di_DiskIconName = AllocPathBuffer();
1731                 if (NULL == di->di_DiskIconName)
1732                         break;
1733
1734                 fLock = Lock(NotifyReqName, ACCESS_READ);
1735                 if (BNULL != fLock)
1736                         {
1737                         if (!NameFromLock(fLock, di->di_DiskIconName, Max_PathLen))
1738                                 {
1739                                 FreePathBuffer(di->di_DiskIconName);
1740                                 di->di_DiskIconName = NULL;
1741                                 }
1742
1743                         UnLock(fLock);
1744                         }
1745                 else
1746                         {
1747                         stccpy(di->di_DiskIconName, di->di_Device, Max_PathLen);
1748                         AddPart(di->di_DiskIconName, NotifyReqName, Max_PathLen);
1749                         }
1750
1751                 d1(kprintf("%s/%s/%ld: start notify for <%s>\n", __FILE__, __FUNC__, __LINE__, di->di_Device));
1752
1753                 di->di_NotifyReq.nr_Name = di->di_Device;
1754                 di->di_NotifyReq.nr_stuff.nr_Msg.nr_Port = iwt->iwt_WindowTask.wt_IconPort;
1755                 di->di_NotifyReq.nr_Flags = NRF_SEND_MESSAGE;
1756
1757                 Success = StartNotify(&di->di_NotifyReq);
1758                 } while (0);
1759
1760         return Success;
1761 }
1762
1763
1764 static void SetDeviceIconSupportsFlags(struct ScaIconNode *in)
1765 {
1766         if (NULL == in)
1767                 return;
1768
1769         in->in_SupportFlags |= INF_SupportsOpen | INF_SupportsCopy | INF_SupportsInformation
1770                 | INF_SupportsSnapshot | INF_SupportsUnSnapshot | INF_SupportsRename;
1771
1772         if (in->in_DeviceIcon)
1773                 {
1774                 if (ID_WRITE_PROTECTED != in->in_DeviceIcon->di_Info->id_DiskState)
1775                         in->in_SupportFlags |= INF_SupportsFormatDisk;
1776
1777                 d1(kprintf("%s/%s/%ld: <%s> DiskType=%08lx  DiskState=%08lx\n", __FILE__, __FUNC__, __LINE__, \
1778                         GetIconName(in), in->in_DeviceIcon->di_Info->id_DiskType, in->in_DeviceIcon->di_Info->id_DiskState));
1779
1780                 SetIconSupportsFlags(in, ClassCheckInfoData(in->in_DeviceIcon->di_Info));
1781
1782                 if (NULL == in->in_DeviceIcon->di_Volume)
1783                         {
1784                         in->in_SupportFlags |= INF_SupportsFormatDisk;
1785                         in->in_SupportFlags &= ~(INF_SupportsOpen | INF_SupportsCopy | INF_SupportsInformation
1786                                 | INF_SupportsSnapshot | INF_SupportsUnSnapshot | INF_SupportsRename);
1787                         }
1788                 }
1789 }
1790
1791
1792 static void SetBackdropIconSupportsFlags(struct internalScaWindowTask *iwt,
1793         struct BackDropList *bdl, struct ScaIconNode *in)
1794 {
1795         BOOL isWriteable;
1796
1797         if (NULL == in)
1798                 return;
1799
1800         isWriteable = ClassIsDiskWritable(in->in_Lock);
1801
1802         in->in_SupportFlags |= INF_SupportsOpen | INF_SupportsCopy | INF_SupportsInformation;
1803
1804         d1(kprintf("%s/%s/%ld: <%s>  isWriteable=%ld\n", __FILE__, __FUNC__, __LINE__, GetIconName(in), isWriteable));
1805         if (isWriteable)
1806                 {
1807                 in->in_SupportFlags |= INF_SupportsSnapshot | INF_SupportsUnSnapshot
1808                         | INF_SupportsDelete | INF_SupportsRename;
1809
1810                 d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
1811
1812                 if (IsPermanentBackDropIcon(iwt, bdl, in->in_Lock, GetIconName(in)))
1813                         {
1814                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
1815                         in->in_SupportFlags |= INF_SupportsPutAway;
1816                         in->in_SupportFlags &= ~INF_SupportsLeaveOut;
1817                         }
1818                 else
1819                         {
1820                         d1(kprintf("%s/%s/%ld: \n", __FILE__, __FUNC__, __LINE__));
1821                         in->in_SupportFlags &= ~INF_SupportsPutAway;
1822                         in->in_SupportFlags |= INF_SupportsLeaveOut;
1823                         }
1824                 }
1825
1826         SetIconSupportsFlags(in, isWriteable);
1827 }
1828
1829