workbench/system/Wanderer/iconwindow_drawerlist.c

   1 /*
   2   Copyright  2004-2009, The AROS Development Team. All rights reserved.
   3   $Id$
   4 */
   5
   6 #define ZCC_QUIET
   7
   8 #include "portable_macros.h"
   9
  10 #ifdef __AROS__
  11 #define MUIMASTER_YES_INLINE_STDARG
  12 #endif
  13
  14 #define TXTBUFF_LEN 1024
  15
  16 #ifdef __AROS__
  17 #define DEBUG 0
  18 #include <aros/debug.h>
  19 #endif
  20
  21 #include <exec/types.h>
  22 #include <libraries/mui.h>
  23
  24 #ifdef __AROS__
  25 #include <zune/customclasses.h>
  26 #else
  27 #include <zune_AROS/customclasses.h>
  28 #endif
  29
  30
  31 #include <proto/utility.h>
  32
  33 #include <proto/graphics.h>
  34 #include <proto/exec.h>
  35 #include <proto/datatypes.h>
  36 #include <proto/icon.h>
  37
  38 #include <dos/dos.h>
  39 #include <proto/dos.h>
  40
  41 #include <stdio.h>
  42 #include <string.h>
  43
  44 #include <intuition/screens.h>
  45 #include <datatypes/pictureclass.h>
  46 #include <clib/macros.h>
  47
  48 #if defined(__AMIGA__) && !defined(__PPC__)
  49 #define NO_INLINE_STDARG
  50 #endif
  51 #ifndef _PROTO_INTUITION_H
  52 #include <proto/intuition.h>
  53 #endif
  54 #include <proto/muimaster.h>
  55
  56 #include "Classes/iconlist.h"
  57 #include "Classes/iconlist_attributes.h"
  58 #include "Classes/icon_attributes.h"
  59
  60 #include "wanderer.h"
  61 #include "wandererprefs.h"
  62 #include "iconwindow.h"
  63 #include "iconwindow_iconlist.h"
  64
  65
  66 #ifndef __AROS__
  67 #define DEBUG 1
  68
  69 #ifdef DEBUG
  70   #define D(x) if (DEBUG) x
  71   #ifdef __amigaos4__
  72   #define bug DebugPrintF
  73   #else
  74   #define bug kprintf
  75   #endif
  76 #else
  77   #define  D(...)
  78 #endif
  79 #endif
  80
  81 extern struct IconWindow_BackFill_Descriptor  *iconwindow_BackFill_Active;
  82
  83 #define WIWDLVERS       1
  84 #define WIWDLREV        0
  85
  86 #define BG_DRAWFLAG     0xf00dd00f
  87
  88 /*** Instance Data **********************************************************/
  89
  90 struct IconWindowDrawerList_DATA
  91 {
  92     Object                      *iwidld_IconWindow;
  93     struct RastPort             *iwidld_RastPort;
  94     struct MUI_EventHandlerNode iwidld_EventHandlerNode;
  95 #ifdef __AROS__
  96     struct Hook                 iwidld_ProcessIconListPrefs_hook;
  97 #else
  98     struct Hook                 *iwidld_ProcessIconListPrefs_hook;
  99 #endif
 100
 101     IPTR                        iwidld_ViewPrefs_ID;
 102     Object                      *iwidld_ViewPrefs_NotificationObject;
 103
 104     /* File System update handling */
 105     struct Wanderer_FSHandler   iwidld_FSHandler;
 106     struct NotifyRequest        iwidld_DrawerNotifyRequest;
 107     ULONG                       iwidld_LastRefresh; /* In seconds */
 108     BOOL                        iwidld_FSChanged;
 109 };
 110
 111 // static char __icwc_intern_TxtBuff[TXTBUFF_LEN];
 112
 113 /*** Macros *****************************************************************/
 114 #define SETUP_INST_DATA struct IconWindowDrawerList_DATA *data = INST_DATA(CLASS, self)
 115
 116 /*** Hook functions *********************************************************/
 117 ///IconWindowDrawerList__HookFunc_ProcessIconListPrefsFunc()
 118 #ifdef __AROS__
 119 AROS_UFH3(
 120     void, IconWindowDrawerList__HookFunc_ProcessIconListPrefsFunc,
 121     AROS_UFHA(struct Hook *,    hook,   A0),
 122     AROS_UFHA(APTR *,           obj,    A2),
 123     AROS_UFHA(IPTR *,             param,  A1)
 124 )
 125 {
 126 #else
 127 HOOKPROTO(IconWindowDrawerList__HookFunc_ProcessIconListPrefsFunc, void, APTR *obj, IPTR *param)
 128 {
 129 #endif
 130     AROS_USERFUNC_INIT
 131
 132     /* Get our private data */
 133     Object *self = ( Object *)obj;
 134     IPTR CHANGED_ATTRIB = *param;
 135     Class *CLASS = OCLASS(self);
 136
 137     SETUP_INST_DATA;
 138
 139     Object *prefs = NULL;
 140
 141     D(bug("[Wanderer:DrawerList]: %s()\n", __PRETTY_FUNCTION__));
 142
 143     GET(_app(self), MUIA_Wanderer_Prefs, &prefs);
 144
 145     if (prefs)
 146     {
 147         IPTR attrib_Current = 0, attrib_Prefs, prefs_Processing = 0;
 148         BOOL options_changed = FALSE;
 149
 150         D(bug("[Wanderer:DrawerList] %s: Setting IconList options ..\n", __PRETTY_FUNCTION__));
 151
 152         GET(prefs, MUIA_WandererPrefs_Processing, &prefs_Processing);
 153
 154         switch (CHANGED_ATTRIB)
 155         {
 156         case MUIA_IconList_IconListMode:
 157             GET(self, MUIA_IconList_IconListMode, &attrib_Current);
 158
 159             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_IconListMode)) != -1) &&
 160                 (attrib_Current != attrib_Prefs))
 161             {
 162                 D(bug("[Wanderer:DrawerList] %s: IconList ListMode changed - updating ..\n", __PRETTY_FUNCTION__));
 163                 options_changed = TRUE;
 164                 if (prefs_Processing)
 165                 {
 166                     NNSET(self, MUIA_IconList_IconListMode, attrib_Prefs);
 167                 }
 168                 else
 169                 {
 170                     SET(self, MUIA_IconList_IconListMode, attrib_Prefs);
 171                 }
 172             }
 173             break;
 174
 175         case MUIA_IconList_LabelText_Mode:
 176             GET(self, MUIA_IconList_LabelText_Mode, &attrib_Current);
 177
 178             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_Mode)) != -1) &&
 179                 (attrib_Current != attrib_Prefs))
 180             {
 181                 D(bug("[Wanderer:DrawerList] %s: IconList TextRenderMode changed - updating ..\n", __PRETTY_FUNCTION__));
 182                 options_changed = TRUE;
 183                 if (prefs_Processing)
 184                 {
 185                     NNSET(self, MUIA_IconList_LabelText_Mode, attrib_Prefs);
 186                 }
 187                 else
 188                 {
 189                     SET(self, MUIA_IconList_LabelText_Mode, attrib_Prefs);
 190                 }
 191             }
 192             break;
 193
 194         case MUIA_IconList_LabelText_MaxLineLen:
 195             GET(self, MUIA_IconList_LabelText_MaxLineLen, &attrib_Current);
 196
 197             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_MaxLineLen)) != -1) &&
 198                 (attrib_Current != attrib_Prefs))
 199             {
 200                 D(bug("[Wanderer:DrawerList] %s: IconList Max Text Length changed - updating ..\n", __PRETTY_FUNCTION__));
 201                 options_changed = TRUE;
 202                 if (prefs_Processing)
 203                 {
 204                     NNSET(self, MUIA_IconList_LabelText_MaxLineLen, attrib_Prefs);
 205                 }
 206                 else
 207                 {
 208                     SET(self, MUIA_IconList_LabelText_MaxLineLen, attrib_Prefs);
 209                 }
 210             }
 211             break;
 212
 213         case MUIA_IconList_LabelText_MultiLine:
 214             GET(self, MUIA_IconList_LabelText_MultiLine, &attrib_Current);
 215
 216             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_MultiLine)) != -1) &&
 217                 (attrib_Current != attrib_Prefs))
 218             {
 219                 D(bug("[Wanderer:DrawerList] %s: IconList Multi-Line changed - updating ..\n", __PRETTY_FUNCTION__));
 220                 options_changed = TRUE;
 221                 if (prefs_Processing)
 222                 {
 223                     NNSET(self, MUIA_IconList_LabelText_MultiLine, attrib_Prefs);
 224                 }
 225                 else
 226                 {
 227                     SET(self, MUIA_IconList_LabelText_MultiLine, attrib_Prefs);
 228                 }
 229             }
 230             break;
 231
 232         case MUIA_IconList_LabelText_MultiLineOnFocus:
 233             GET(self, MUIA_IconList_LabelText_MultiLineOnFocus, &attrib_Current);
 234
 235             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_MultiLineOnFocus)) != -1) &&
 236                 (attrib_Current != attrib_Prefs))
 237             {
 238                 D(bug("[Wanderer:DrawerList] %s: Multi-Line on Focus changed - updating ..\n", __PRETTY_FUNCTION__));
 239                 options_changed = TRUE;
 240                 if (prefs_Processing)
 241                 {
 242                     NNSET(self, MUIA_IconList_LabelText_MultiLineOnFocus, attrib_Prefs);
 243                 }
 244                 else
 245                 {
 246                     SET(self, MUIA_IconList_LabelText_MultiLineOnFocus, attrib_Prefs);
 247                 }
 248             }
 249             break;
 250
 251         case MUIA_IconList_Icon_HorizontalSpacing:
 252             GET(self, MUIA_IconList_Icon_HorizontalSpacing, &attrib_Current);
 253
 254             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_Icon_HorizontalSpacing)) != -1) &&
 255                 (attrib_Current != attrib_Prefs))
 256             {
 257                 D(bug("[Wanderer:DrawerList] %s: Icon Horizontal Spacing changed - updating ..\n", __PRETTY_FUNCTION__));
 258                 options_changed = TRUE;
 259                 if (prefs_Processing)
 260                 {
 261                     NNSET(self, MUIA_IconList_Icon_HorizontalSpacing, attrib_Prefs);
 262                 }
 263                 else
 264                 {
 265                     SET(self, MUIA_IconList_Icon_HorizontalSpacing, attrib_Prefs);
 266                 }
 267             }
 268             break;
 269
 270         case MUIA_IconList_Icon_VerticalSpacing:
 271             GET(self, MUIA_IconList_Icon_VerticalSpacing, &attrib_Current);
 272
 273             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_Icon_VerticalSpacing)) != -1) &&
 274                 (attrib_Current != attrib_Prefs))
 275             {
 276                 D(bug("[Wanderer:DrawerList] %s: Icon Vertical Spacing changed - updating ..\n", __PRETTY_FUNCTION__));
 277                 options_changed = TRUE;
 278                 if (prefs_Processing)
 279                 {
 280                     NNSET(self, MUIA_IconList_Icon_VerticalSpacing, attrib_Prefs);
 281                 }
 282                 else
 283                 {
 284                     SET(self, MUIA_IconList_Icon_VerticalSpacing, attrib_Prefs);
 285                 }
 286             }
 287             break;
 288
 289         case MUIA_IconList_Icon_ImageSpacing:
 290             GET(self, MUIA_IconList_Icon_ImageSpacing, &attrib_Current);
 291
 292             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_Icon_ImageSpacing)) != -1) &&
 293                 (attrib_Current != attrib_Prefs))
 294             {
 295                 D(bug("[Wanderer:DrawerList] %s: Icon Label Image Spacing changed - updating ..\n", __PRETTY_FUNCTION__));
 296                 options_changed = TRUE;
 297                 if (prefs_Processing)
 298                 {
 299                     NNSET(self, MUIA_IconList_Icon_ImageSpacing, attrib_Prefs);
 300                 }
 301                 else
 302                 {
 303                     SET(self, MUIA_IconList_Icon_ImageSpacing, attrib_Prefs);
 304                 }
 305             }
 306             break;
 307
 308         case MUIA_IconList_LabelText_HorizontalPadding:
 309             GET(self, MUIA_IconList_LabelText_HorizontalPadding, &attrib_Current);
 310
 311             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_HorizontalPadding)) != -1) &&
 312                 (attrib_Current != attrib_Prefs))
 313             {
 314                 D(bug("[Wanderer:DrawerList] %s: Icon Label Horizontal Padding changed - updating ..\n", __PRETTY_FUNCTION__));
 315                 options_changed = TRUE;
 316                 if (prefs_Processing)
 317                 {
 318                     NNSET(self, MUIA_IconList_LabelText_HorizontalPadding, attrib_Prefs);
 319                 }
 320                 else
 321                 {
 322                     SET(self, MUIA_IconList_LabelText_HorizontalPadding, attrib_Prefs);
 323                 }
 324             }
 325             break;
 326
 327         case MUIA_IconList_LabelText_VerticalPadding:
 328             GET(self, MUIA_IconList_LabelText_VerticalPadding, &attrib_Current);
 329
 330             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_VerticalPadding)) != -1) &&
 331                 (attrib_Current != attrib_Prefs))
 332             {
 333                 D(bug("[Wanderer:DrawerList] %s: Icon Label Vertical Padding changed - updating ..\n", __PRETTY_FUNCTION__));
 334                 options_changed = TRUE;
 335                 if (prefs_Processing)
 336                 {
 337                     NNSET(self, MUIA_IconList_LabelText_VerticalPadding, attrib_Prefs);
 338                 }
 339                 else
 340                 {
 341                     SET(self, MUIA_IconList_LabelText_VerticalPadding, attrib_Prefs);
 342                 }
 343             }
 344             break;
 345
 346         case MUIA_IconList_LabelText_BorderWidth:
 347             GET(self, MUIA_IconList_LabelText_BorderWidth, &attrib_Current);
 348
 349             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_BorderWidth)) != -1) &&
 350                 (attrib_Current != attrib_Prefs))
 351             {
 352                 D(bug("[Wanderer:DrawerList] %s: Icon Label Border Width changed - updating ..\n", __PRETTY_FUNCTION__));
 353                 options_changed = TRUE;
 354                 if (prefs_Processing)
 355                 {
 356                     NNSET(self, MUIA_IconList_LabelText_BorderWidth, attrib_Prefs);
 357                 }
 358                 else
 359                 {
 360                     SET(self, MUIA_IconList_LabelText_BorderWidth, attrib_Prefs);
 361                 }
 362             }
 363             break;
 364
 365         case MUIA_IconList_LabelText_BorderHeight:
 366             GET(self, MUIA_IconList_LabelText_BorderHeight, &attrib_Current);
 367
 368             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_BorderHeight)) != -1) &&
 369                 (attrib_Current != attrib_Prefs))
 370             {
 371                 D(bug("[Wanderer:DrawerList] %s: Icon Label Border Height changed - updating ..\n", __PRETTY_FUNCTION__));
 372                 options_changed = TRUE;
 373                 if (prefs_Processing)
 374                 {
 375                     NNSET(self, MUIA_IconList_LabelText_BorderHeight, attrib_Prefs);
 376                 }
 377                 else
 378                 {
 379                     SET(self, MUIA_IconList_LabelText_BorderHeight, attrib_Prefs);
 380                 }
 381             }
 382         case MUIA_IconList_DragImageTransparent:
 383         case MUIA_IconList_SortFlags:
 384             /* Generic code */
 385             GET(self, (ULONG)CHANGED_ATTRIB, &attrib_Current);
 386
 387             if (((attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, (ULONG)CHANGED_ATTRIB)) != -1) &&
 388                 (attrib_Current != attrib_Prefs))
 389             {
 390                 options_changed = TRUE;
 391                 if (prefs_Processing)
 392                 {
 393                     NNSET(self, (ULONG)CHANGED_ATTRIB, attrib_Prefs);
 394                 }
 395                 else
 396                 {
 397                     SET(self, (ULONG)CHANGED_ATTRIB, attrib_Prefs);
 398                 }
 399             }
 400             break;
 401
 402         default:
 403             D(bug("[Wanderer:DrawerList] %s: Unhandled change\n", __PRETTY_FUNCTION__));
 404             break;
 405         }
 406
 407         if (options_changed)
 408         {
 409             if (!(prefs_Processing))
 410             {
 411                 D(bug("[Wanderer:DrawerList] %s: IconList Options have changed, causing an update ..\n", __PRETTY_FUNCTION__));
 412                 DoMethod(self, MUIM_IconList_Update);
 413                 DoMethod(self, MUIM_IconList_Sort);
 414             }
 415             else if (data->iwidld_IconWindow)
 416             {
 417                 SET(data->iwidld_IconWindow, MUIA_IconWindow_Changed, TRUE);
 418             }
 419         }
 420     }
 421     AROS_USERFUNC_EXIT
 422 }
 423 #ifndef __AROS__
 424 MakeStaticHook(Hook_ProcessIconListPrefsFunc, IconWindowDrawerList__HookFunc_ProcessIconListPrefsFunc);
 425 #endif
 426 ///
 427
 428 ///
 429 /*** Methods ****************************************************************/
 430 ///OM_NEW()
 431 Object *IconWindowDrawerList__OM_NEW(Class *CLASS, Object *self, struct opSet *message)
 432 {
 433     IPTR                            _newIconList__FSNotifyPort = 0;
 434
 435     D(bug("[Wanderer:DrawerList]: %s()\n", __PRETTY_FUNCTION__));
 436
 437     _newIconList__FSNotifyPort = GetTagData(MUIA_Wanderer_FileSysNotifyPort, (IPTR) NULL, message->ops_AttrList);
 438
 439     self = (Object *) DoSuperNewTags
 440       (
 441         CLASS, self, NULL,
 442         MUIA_CycleChain, 1,
 443         TAG_MORE, (IPTR) message->ops_AttrList
 444       );
 445
 446     if (self != NULL)
 447     {
 448         SETUP_INST_DATA;
 449         D(bug("[Wanderer:DrawerList] %s: SELF @ 0x%p\n", __PRETTY_FUNCTION__, self));
 450
 451 #ifdef __AROS__
 452         data->iwidld_ProcessIconListPrefs_hook.h_Entry = ( HOOKFUNC )IconWindowDrawerList__HookFunc_ProcessIconListPrefsFunc;
 453 #else
 454         data->iwidld_ProcessIconListPrefs_hook = &Hook_ProcessIconListPrefsFunc;
 455 #endif
 456
 457         if (_newIconList__FSNotifyPort != 0)
 458         {
 459             struct IconWindowDrawerList_DATA *drawerlist_data = (struct IconWindowDrawerList_DATA *)data;
 460             drawerlist_data->iwidld_DrawerNotifyRequest.nr_stuff.nr_Msg.nr_Port = (struct MsgPort *)_newIconList__FSNotifyPort;
 461             D(bug("[Wanderer:DrawerList] %s: FS Notify Port @ 0x%p\n", __PRETTY_FUNCTION__, _newIconList__FSNotifyPort));
 462         }
 463     }
 464
 465     return self;
 466 }
 467 ///
 468
 469 IPTR IconWindowDrawerList__HandleFSUpdate(Object * iconwindow, struct NotifyMessage *msg)
 470 {
 471     return DoMethod(iconwindow, MUIM_IconWindowDrawerList_FileSystemChanged);
 472 }
 473
 474 ULONG GetCurrentTimeInSeconds()
 475 {
 476     struct DateStamp stamp;
 477
 478     DateStamp(&stamp);
 479
 480     return (stamp.ds_Days * 60 * 60 * 24) + (stamp.ds_Minute * 60) + (stamp.ds_Tick / 50);
 481 }
 482
 483 VOID RemoveFSNotification(struct IconWindowDrawerList_DATA *data)
 484 {
 485     if (data->iwidld_DrawerNotifyRequest.nr_Name != NULL)
 486     {
 487         D(bug("[Wanderer:DrawerList] %s: Removing  Drawer FS Notification Request\n", __PRETTY_FUNCTION__));
 488         /* EndNotify also replies all already send messages, so they won't end up hitting dead space in handler->HandleFSUpdate */
 489         EndNotify(&data->iwidld_DrawerNotifyRequest);
 490         FreeVec(data->iwidld_DrawerNotifyRequest.nr_Name);
 491         data->iwidld_DrawerNotifyRequest.nr_Name = NULL;
 492         data->iwidld_FSHandler.fshn_Node.ln_Name = NULL;
 493     }
 494 }
 495
 496 VOID UpdateFSNotification(STRPTR directory_path, struct IconWindowDrawerList_DATA *data, APTR target)
 497 {
 498     /* Remove existing if present */
 499     RemoveFSNotification(data);
 500
 501     /* Setup new */
 502     if (directory_path != NULL)
 503     {
 504         if (data->iwidld_DrawerNotifyRequest.nr_stuff.nr_Msg.nr_Port != NULL)
 505         {
 506             data->iwidld_FSHandler.target                   = target;
 507             data->iwidld_FSHandler.HandleFSUpdate           = IconWindowDrawerList__HandleFSUpdate;
 508             data->iwidld_DrawerNotifyRequest.nr_Name        = StrDup(directory_path);
 509             data->iwidld_DrawerNotifyRequest.nr_Flags       = NRF_SEND_MESSAGE;
 510             data->iwidld_DrawerNotifyRequest.nr_UserData    = (IPTR)&data->iwidld_FSHandler;
 511             data->iwidld_LastRefresh                        = GetCurrentTimeInSeconds();
 512             data->iwidld_FSChanged                          = FALSE;
 513             data->iwidld_FSHandler.fshn_Node.ln_Name        = data->iwidld_DrawerNotifyRequest.nr_Name;
 514
 515             if (StartNotify(&data->iwidld_DrawerNotifyRequest))
 516             {
 517                 D(bug("[Wanderer:DrawerList] %s: Drawer-notification setup on '%s'\n", __PRETTY_FUNCTION__, directory_path));
 518             }
 519             else
 520             {
 521                 D(bug("[Wanderer:DrawerList] %s: FAILED to setup Drawer-notification on '%s'!\n", __PRETTY_FUNCTION__, directory_path));
 522                 FreeVec(data->iwidld_DrawerNotifyRequest.nr_Name);
 523                 data->iwidld_DrawerNotifyRequest.nr_Name = NULL;
 524                 data->iwidld_FSHandler.fshn_Node.ln_Name = NULL;
 525             }
 526         }
 527     }
 528 }
 529
 530 ///OM_SET()
 531 IPTR IconWindowDrawerList__OM_SET(Class *CLASS, Object *self, struct opSet *message)
 532 {
 533     SETUP_INST_DATA;
 534
 535     struct TagItem *tstate = message->ops_AttrList, *tag;
 536
 537     while ((tag = NextTagItem((const struct TagItem**)&tstate)) != NULL)
 538     {
 539         switch (tag->ti_Tag)
 540         {
 541         case MUIA_Background:
 542             {
 543                 D(bug("[Wanderer:DrawerList] %s: MUIA_Background\n", __PRETTY_FUNCTION__));
 544                 break;
 545             }
 546         case MUIA_IconWindow_Window:
 547             {
 548                 D(bug("[Wanderer:DrawerList] %s: MUIA_IconWindow_Window @ %p\n", __PRETTY_FUNCTION__, tag->ti_Data));
 549                 data->iwidld_IconWindow = (Object *)tag->ti_Data;
 550                 break;
 551             }
 552         case MUIA_IconList_BufferRastport:
 553             {
 554                 D(bug("[Wanderer:DrawerList] %s: MUIA_IconList_BufferRastport @ %p\n", __PRETTY_FUNCTION__, tag->ti_Data));
 555                 data->iwidld_RastPort = (struct RastPort *)tag->ti_Data;
 556                 break;
 557             }
 558         case MUIA_IconDrawerList_Drawer:
 559             {
 560                 D(bug("[Wanderer:DrawerList] %s: MUIA_IconDrawerList_Drawer @ %p\n", __PRETTY_FUNCTION__, tag->ti_Data));
 561                 UpdateFSNotification((STRPTR)tag->ti_Data, data, self);
 562                 break; /* Fallthrough and handle this in parent class as well */
 563             }
 564         }
 565     }
 566     return DoSuperMethodA(CLASS, self, (Msg) message);
 567 }
 568 ///
 569
 570 ///OM_GET()
 571 IPTR IconWindowDrawerList__OM_GET(Class *CLASS, Object *self, struct opGet *message)
 572 {
 573     //SETUP_INST_DATA;
 574     IPTR *store = message->opg_Storage;
 575     IPTR  rv    = TRUE;
 576
 577     switch (message->opg_AttrID)
 578     {
 579     case MUIA_Version:
 580         *store = (IPTR)WIWDLVERS;
 581         break;
 582
 583     case MUIA_Revision:
 584         *store = (IPTR)WIWDLREV;
 585         break;
 586
 587     default:
 588         rv = DoSuperMethodA(CLASS, self, (Msg) message);
 589     }
 590
 591     return rv;
 592 }
 593 ///
 594
 595 ///IconWindowDrawerList__MUIM_Setup()
 596 IPTR IconWindowDrawerList__MUIM_Setup
 597 (
 598     Class *CLASS, Object *self, Msg message
 599 )
 600 {
 601     SETUP_INST_DATA;
 602
 603     Object *prefs = NULL;
 604
 605     if (!DoSuperMethodA(CLASS, self, message)) return FALSE;
 606
 607     GET(_app(self), MUIA_Wanderer_Prefs, &prefs);
 608
 609     if (prefs)
 610     {
 611         /* Set our initial options */
 612         IPTR    attrib_Prefs;
 613
 614         GET(_win(self), MUIA_IconWindow_BackgroundAttrib, &data->iwidld_ViewPrefs_ID);
 615         D(bug("[Wanderer:DrawerList] %s: Window Background = '%s'\n", __PRETTY_FUNCTION__, data->iwidld_ViewPrefs_ID));
 616         data->iwidld_ViewPrefs_NotificationObject = (Object *)DoMethod(prefs,
 617                                 MUIM_WandererPrefs_ViewSettings_GetNotifyObject,
 618                                 data->iwidld_ViewPrefs_ID);
 619
 620         D(bug("[Wanderer:DrawerList] %s: Background Notification Obj @ 0x%p\n", __PRETTY_FUNCTION__, data->iwidld_ViewPrefs_NotificationObject));
 621
 622         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_IconListMode);
 623         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_IconListMode))) SET(self, MUIA_IconList_IconListMode, attrib_Prefs);
 624
 625         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_Mode);
 626         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_Mode)))  SET(self, MUIA_IconList_LabelText_Mode, attrib_Prefs);
 627
 628         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_SortFlags);
 629         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_SortFlags)))  SET(self, MUIA_IconList_SortFlags, attrib_Prefs);
 630
 631         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_DragImageTransparent);
 632         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_DragImageTransparent)))  SET(self, MUIA_IconList_DragImageTransparent, attrib_Prefs);
 633
 634         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_MaxLineLen);
 635         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_MaxLineLen)))  SET(self, MUIA_IconList_LabelText_MaxLineLen, attrib_Prefs);
 636
 637         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_MultiLine);
 638         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_MultiLine)))  SET(self, MUIA_IconList_LabelText_MultiLine, attrib_Prefs);
 639
 640         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_MultiLineOnFocus);
 641         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_MultiLineOnFocus)))  SET(self, MUIA_IconList_LabelText_MultiLineOnFocus, attrib_Prefs);
 642
 643         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_Icon_HorizontalSpacing);
 644         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_Icon_HorizontalSpacing)))  SET(self, MUIA_IconList_Icon_HorizontalSpacing, attrib_Prefs);
 645
 646         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_Icon_VerticalSpacing);
 647         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_Icon_VerticalSpacing)))  SET(self, MUIA_IconList_Icon_VerticalSpacing, attrib_Prefs);
 648
 649         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_Icon_ImageSpacing);
 650         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_Icon_ImageSpacing)))  SET(self, MUIA_IconList_Icon_ImageSpacing, attrib_Prefs);
 651
 652         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_HorizontalPadding);
 653         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_HorizontalPadding)))  SET(self, MUIA_IconList_LabelText_HorizontalPadding, attrib_Prefs);
 654
 655         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_VerticalPadding);
 656         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_VerticalPadding)))  SET(self, MUIA_IconList_LabelText_VerticalPadding, attrib_Prefs);
 657
 658         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_BorderWidth);
 659         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_BorderWidth)))  SET(self, MUIA_IconList_LabelText_BorderWidth, attrib_Prefs);
 660
 661         attrib_Prefs = DoMethod(prefs, MUIM_WandererPrefs_ViewSettings_GetAttribute, data->iwidld_ViewPrefs_ID, MUIA_IconList_LabelText_BorderHeight);
 662         if ((attrib_Prefs != (IPTR)-1)  && (attrib_Prefs != XGET(self, MUIA_IconList_LabelText_BorderHeight)))  SET(self, MUIA_IconList_LabelText_BorderHeight, attrib_Prefs);
 663
 664         /* Configure notifications incase they get updated =) */
 665         DoMethod
 666           (
 667             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_IconListMode, MUIV_EveryTime,
 668             (IPTR) self, 3,
 669             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_IconListMode
 670           );
 671
 672         DoMethod
 673           (
 674             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_Mode, MUIV_EveryTime,
 675             (IPTR) self, 3,
 676             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_Mode
 677           );
 678
 679         DoMethod
 680           (
 681             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_SortFlags, MUIV_EveryTime,
 682             (IPTR) self, 3,
 683             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_SortFlags
 684           );
 685
 686         DoMethod
 687           (
 688             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_DragImageTransparent, MUIV_EveryTime,
 689             (IPTR) self, 3,
 690             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_DragImageTransparent
 691           );
 692
 693         DoMethod
 694           (
 695             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_MaxLineLen, MUIV_EveryTime,
 696             (IPTR) self, 3,
 697             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_MaxLineLen
 698           );
 699
 700         DoMethod
 701           (
 702             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_MultiLine, MUIV_EveryTime,
 703             (IPTR) self, 3,
 704             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_MultiLine
 705           );
 706
 707         DoMethod
 708           (
 709             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_MultiLineOnFocus, MUIV_EveryTime,
 710             (IPTR) self, 3,
 711             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_MultiLineOnFocus
 712           );
 713
 714         DoMethod
 715           (
 716             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_Icon_HorizontalSpacing, MUIV_EveryTime,
 717             (IPTR) self, 3,
 718             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_Icon_HorizontalSpacing
 719           );
 720
 721         DoMethod
 722           (
 723             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_Icon_VerticalSpacing, MUIV_EveryTime,
 724             (IPTR) self, 3,
 725             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_Icon_VerticalSpacing
 726           );
 727
 728         DoMethod
 729           (
 730             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_Icon_ImageSpacing, MUIV_EveryTime,
 731             (IPTR) self, 3,
 732             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_Icon_ImageSpacing
 733           );
 734
 735         DoMethod
 736           (
 737             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_HorizontalPadding, MUIV_EveryTime,
 738             (IPTR) self, 3,
 739             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_HorizontalPadding
 740           );
 741
 742         DoMethod
 743           (
 744             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_VerticalPadding, MUIV_EveryTime,
 745             (IPTR) self, 3,
 746             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_VerticalPadding
 747           );
 748
 749         DoMethod
 750           (
 751             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_BorderWidth, MUIV_EveryTime,
 752             (IPTR) self, 3,
 753             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_BorderWidth
 754           );
 755
 756         DoMethod
 757           (
 758             data->iwidld_ViewPrefs_NotificationObject, MUIM_Notify, MUIA_IconList_LabelText_BorderHeight, MUIV_EveryTime,
 759             (IPTR) self, 3,
 760             MUIM_CallHook, &data->iwidld_ProcessIconListPrefs_hook, (IPTR)MUIA_IconList_LabelText_BorderHeight
 761           );
 762     }
 763
 764     /* Setup notification on the directory -------------------------------- */
 765     STRPTR directory_path = NULL;
 766     GET(self, MUIA_IconDrawerList_Drawer, &directory_path);
 767
 768     UpdateFSNotification(directory_path, data, self);
 769
 770     D(bug("[Wanderer:DrawerList] %s: Setup complete!\n", __PRETTY_FUNCTION__));
 771
 772     return TRUE;
 773 }
 774 ///
 775
 776 ///IconWindowDrawerList__MUIM_Cleanup()
 777 IPTR IconWindowDrawerList__MUIM_Cleanup
 778 (
 779     Class *CLASS, Object *self, Msg message
 780 )
 781 {
 782     SETUP_INST_DATA;
 783
 784     Object *prefs = NULL;
 785
 786     D(bug("[Wanderer:DrawerList]: %s()\n", __PRETTY_FUNCTION__));
 787
 788     GET(_app(self), MUIA_Wanderer_Prefs, &prefs);
 789
 790     if (prefs)
 791     {
 792         DoMethod
 793           (
 794             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_IconListMode, (IPTR)self
 795           );
 796
 797         DoMethod
 798           (
 799             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_Mode, (IPTR)self
 800           );
 801
 802         DoMethod
 803           (
 804             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_SortFlags, (IPTR)self
 805           );
 806
 807         DoMethod
 808           (
 809             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_DragImageTransparent, (IPTR)self
 810           );
 811
 812         DoMethod
 813           (
 814             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_MaxLineLen, (IPTR)self
 815           );
 816
 817         DoMethod
 818           (
 819             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_MultiLine, (IPTR)self
 820           );
 821
 822         DoMethod
 823           (
 824             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_MultiLineOnFocus, (IPTR)self
 825           );
 826
 827         DoMethod
 828           (
 829             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_Icon_HorizontalSpacing, (IPTR)self
 830           );
 831
 832         DoMethod
 833           (
 834             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_Icon_VerticalSpacing, (IPTR)self
 835           );
 836
 837         DoMethod
 838           (
 839             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_Icon_ImageSpacing, (IPTR)self
 840           );
 841
 842         DoMethod
 843           (
 844             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_HorizontalPadding, (IPTR)self
 845           );
 846
 847         DoMethod
 848           (
 849             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_VerticalPadding, (IPTR)self
 850           );
 851
 852         DoMethod
 853           (
 854             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_BorderWidth, (IPTR)self
 855           );
 856
 857         DoMethod
 858           (
 859             data->iwidld_ViewPrefs_NotificationObject, MUIM_KillNotifyObj, MUIA_IconList_LabelText_BorderHeight, (IPTR)self
 860           );
 861     }
 862
 863     RemoveFSNotification(data);
 864
 865     return DoSuperMethodA(CLASS, self, message);
 866 }
 867 ///
 868
 869 ///IconWindowDrawerList__MUIM_DrawBackground()
 870 IPTR IconWindowDrawerList__MUIM_DrawBackground
 871 (
 872   Class *CLASS, Object *self, struct MUIP_DrawBackground *message
 873 )
 874 {
 875     SETUP_INST_DATA;
 876
 877     IPTR        retVal = (IPTR)TRUE;
 878     IPTR                clip = 0;
 879     struct RastPort           *DrawBackGround_RastPort;
 880     struct IconWindowBackFillMsg  DrawBackGround_BackFillMsg;
 881
 882     D(bug("[Wanderer:DrawerList]: %s()\n", __PRETTY_FUNCTION__));
 883
 884     if ((iconwindow_BackFill_Active == NULL) ||
 885       (data->iwidld_IconWindow == NULL))
 886     {
 887         D(bug("[Wanderer:DrawerList] %s: No Backfill support/Window not set .. causing parent class to render\n", __PRETTY_FUNCTION__));
 888         goto iwc_ParentBackground;
 889     }
 890
 891     DrawBackGround_RastPort = _rp(self);
 892
 893     if ((data->iwidld_RastPort != NULL) && (DrawBackGround_RastPort != data->iwidld_RastPort))
 894     {
 895         DrawBackGround_RastPort = data->iwidld_RastPort;
 896
 897         DrawBackGround_BackFillMsg.AreaBounds.MinX = 0;
 898         DrawBackGround_BackFillMsg.AreaBounds.MinY = 0;
 899         DrawBackGround_BackFillMsg.AreaBounds.MaxX = _mwidth(self) - 1;
 900         DrawBackGround_BackFillMsg.AreaBounds.MaxY = _mheight(self) - 1;
 901
 902         DrawBackGround_BackFillMsg.DrawBounds.MinX = message->left - _mleft(self);
 903         DrawBackGround_BackFillMsg.DrawBounds.MinY = message->top - _mtop(self);
 904         DrawBackGround_BackFillMsg.DrawBounds.MaxX = DrawBackGround_BackFillMsg.DrawBounds.MinX + message->width - 1;
 905         DrawBackGround_BackFillMsg.DrawBounds.MaxY = DrawBackGround_BackFillMsg.DrawBounds.MinY + message->height - 1;
 906     }
 907     else
 908     {
 909         DrawBackGround_BackFillMsg.AreaBounds.MinX = _mleft(self);
 910         DrawBackGround_BackFillMsg.AreaBounds.MinY = _mtop(self);
 911         DrawBackGround_BackFillMsg.AreaBounds.MaxX = _mleft(self) + _mwidth(self) - 1;
 912         DrawBackGround_BackFillMsg.AreaBounds.MaxY = _mtop(self) + _mheight(self) - 1;
 913
 914         DrawBackGround_BackFillMsg.DrawBounds.MinX = message->left;
 915         DrawBackGround_BackFillMsg.DrawBounds.MinY = message->top;
 916         DrawBackGround_BackFillMsg.DrawBounds.MaxX = message->left + message->width - 1;
 917         DrawBackGround_BackFillMsg.DrawBounds.MaxY = message->top + message->height - 1;
 918     }
 919
 920     DrawBackGround_BackFillMsg.Layer = DrawBackGround_RastPort->Layer;
 921
 922     /* Offset into source image (ala scroll bar position) */
 923     DrawBackGround_BackFillMsg.OffsetX = message->xoffset;
 924     DrawBackGround_BackFillMsg.OffsetY = message->yoffset;
 925
 926     D(bug("[Wanderer:DrawerList] %s: RastPort @ 0x%p\n", __PRETTY_FUNCTION__, DrawBackGround_RastPort));
 927
 928     if ((retVal = DoMethod(data->iwidld_IconWindow, MUIM_IconWindow_BackFill_DrawBackground, XGET(data->iwidld_IconWindow, MUIA_IconWindow_BackFillData), &DrawBackGround_BackFillMsg, DrawBackGround_RastPort)) == (IPTR)TRUE)
 929     {
 930         D(bug("[Wanderer:DrawerList] %s: Backfill module rendered background ..\n", __PRETTY_FUNCTION__));
 931         return retVal;
 932     }
 933     D(bug("[Wanderer:DrawerList] %s: Backfill module failed to render background ..\n", __PRETTY_FUNCTION__));
 934
 935 iwc_ParentBackground:
 936
 937     clip = (IPTR)MUI_AddClipping(muiRenderInfo(self), message->left, message->top, message->width, message->height);
 938
 939     message->width = _mwidth(self);
 940     message->height = _mheight(self);
 941     message->left = _mleft(self);
 942     message->top = _mtop(self);
 943
 944     retVal = DoSuperMethodA(CLASS, self, (Msg) message);
 945
 946     MUI_RemoveClipping(muiRenderInfo(self), (APTR)clip);
 947
 948     return retVal;
 949 }
 950 ///
 951
 952 /// IconWindowDrawerList__MUIM_IconWindowDrawerList_FileSystemChanged
 953 IPTR IconWindowDrawerList__MUIM_IconWindowDrawerList_FileSystemChanged
 954 (
 955     Class *CLASS, Object *self, Msg message
 956 )
 957 {
 958     SETUP_INST_DATA;
 959
 960     data->iwidld_FSChanged = TRUE;
 961
 962     return DoMethod(self, MUIM_IconWindowIconList_RateLimitRefresh );
 963 }
 964 ///
 965
 966 /// IconWindowDrawerList__MUIM_IconWindowIconList_RateLimitRefresh
 967 IPTR IconWindowDrawerList__MUIM_IconWindowIconList_RateLimitRefresh
 968 (
 969     Class *CLASS, Object *self, Msg message
 970 )
 971 {
 972     SETUP_INST_DATA;
 973     ULONG current = 0;
 974
 975     if (!data->iwidld_FSChanged)
 976         return (IPTR)FALSE;
 977
 978     current = GetCurrentTimeInSeconds();
 979
 980     if (data->iwidld_LastRefresh <= current - 3) /* At most every 3 seconds */
 981     {
 982         DoMethod(self, MUIM_IconList_Update);
 983         DoMethod(self, MUIM_IconList_Sort);
 984         /* Record finish time */
 985         data->iwidld_LastRefresh = GetCurrentTimeInSeconds();
 986         data->iwidld_FSChanged = FALSE;
 987         return (IPTR)TRUE;
 988     }
 989
 990     return (IPTR)FALSE;
 991 }
 992 ///
 993
 994 /*** Setup ******************************************************************/
 995 #ifdef __AROS__
 996 ICONWINDOWICONDRAWERLIST_CUSTOMCLASS
 997 (
 998     IconWindowDrawerList, NULL, MUIC_IconDrawerList, NULL,
 999     OM_NEW,                                         struct opSet *,
1000     OM_SET,                                         struct opSet *,
1001     OM_GET,                                         struct opGet *,
1002     MUIM_Setup,                                     Msg,
1003     MUIM_Cleanup,                                   Msg,
1004     MUIM_DrawBackground,                            struct MUIP_DrawBackground *,
1005     MUIM_IconWindowDrawerList_FileSystemChanged,    Msg,
1006     MUIM_IconWindowIconList_RateLimitRefresh,       Msg
1007 );
1008 #else
1009 ICONWINDOWICONDRAWERLIST_CUSTOMCLASS
1010 (
1011     IconWindowDrawerList, NULL,  NULL, IconDrawerList_Class,
1012     OM_NEW,                                         struct opSet *,
1013     OM_SET,                                         struct opSet *,
1014     OM_GET,                                         struct opGet *,
1015     MUIM_Setup,                                     Msg,
1016     MUIM_Cleanup,                                   Msg,
1017     MUIM_DrawBackground,                            struct MUIP_DrawBackground *,
1018     MUIM_IconWindowDrawerList_FileSystemChanged,    Msg,
1019     MUIM_IconWindowIconList_RateLimitRefresh,       Msg
1020 );
1021 #endif