workbench/system/Wanderer/panel_toolbar.c

   1 /*
   2   Copyright  2004-2010, The AROS Development Team. All rights reserved.
   3   $Id$
   4 */
   5
   6 #include "portable_macros.h"
   7 #ifdef __AROS__
   8 #define MUIMASTER_YES_INLINE_STDARG
   9 #endif
  10
  11 #define ICONWINDOW_OPTION_NOSEARCHBUTTON
  12
  13 #ifdef __AROS__
  14 #define DEBUG 0
  15 #include <aros/debug.h>
  16 #endif
  17
  18 #include <exec/types.h>
  19 #include <libraries/mui.h>
  20
  21 #ifdef __AROS__
  22 #include <zune/customclasses.h>
  23 #else
  24 #include <zune_AROS/customclasses.h>
  25 #endif
  26
  27 #include <proto/utility.h>
  28
  29 #include <proto/graphics.h>
  30
  31 #include <proto/exec.h>
  32 #include <proto/datatypes.h>
  33
  34 #include <dos/dos.h>
  35 #include <proto/dos.h>
  36
  37 #include <proto/icon.h>
  38
  39 #include <stdio.h>
  40 #include <string.h>
  41
  42 #include <intuition/screens.h>
  43 #include <datatypes/pictureclass.h>
  44 #include <clib/macros.h>
  45
  46 #ifdef __AROS__
  47 #include <clib/alib_protos.h>
  48
  49 #include <prefs/wanderer.h>
  50 #else
  51 #include <prefs_AROS/wanderer.h>
  52 #endif
  53
  54 #if defined(__AMIGA__) && !defined(__PPC__)
  55 #define NO_INLINE_STDARG
  56 #endif
  57 #ifndef _PROTO_INTUITION_H
  58 #include <proto/intuition.h>
  59 #endif
  60 #include <proto/muimaster.h>
  61
  62 #include "Classes/iconlist.h"
  63 #include "Classes/iconlistview.h"
  64 #include "Classes/iconlist_attributes.h"
  65 #include "wanderer.h"
  66 #include "wandererprefs.h"
  67
  68 #include "iconwindow.h"
  69 #include "iconwindow_attributes.h"
  70
  71 extern struct List                     iconwindow_Extensions;
  72
  73 /*** Private Data *********************************************************/
  74
  75 static CONST_STRPTR                     extension_Name = "IconWindow ToolBar Extension";
  76 static CONST_STRPTR                     extension_PrefsFile = "ENV:SYS/Wanderer/toolbar.prefs";
  77 static STRPTR                           extension_PrefsData;
  78 static struct iconWindow_Extension      panelToolBar__Extension;
  79 struct List                             panelToolBar__ToolBars;
  80 struct NotifyRequest                    panelToolBar__PrefsNotifyRequest;
  81 Object                                  *panelToolBar__PrefsNotificationObject;
  82
  83 struct panel_ToolBar_DATA
  84 {
  85     struct Node                         iwp_Node;
  86
  87     Object                              *iwp_ToolBar_ToolBarObj;
  88     Object                              *iwp_ToolBar_LocationStringObj;
  89 #ifdef __AROS__
  90     struct Hook                         iwp_ToolBar_LocationStrHook;
  91 #else
  92     struct Hook                         *iwp_ToolBar_LocationStrHook;
  93 #endif
  94 };
  95
  96 ///ExpandEnvName()
  97 /* Expand a passed in env: string to its full location */
  98 /* Wanderer doesnt free this mem at the moment but should
  99    incase it is every closed */
 100 static STRPTR ExpandEnvName(STRPTR env_path)
 101 {
 102     BOOL     ok = FALSE;
 103     char     tmp_envbuff[1024];
 104     STRPTR   fullpath = NULL;
 105     BPTR     env_lock = (BPTR) NULL;
 106
 107     env_lock = Lock("ENV:", SHARED_LOCK);
 108     if (env_lock)
 109     {
 110         if (NameFromLock(env_lock, tmp_envbuff, 256)) ok = TRUE;
 111         UnLock(env_lock);
 112     }
 113
 114     if (ok)
 115     {
 116         if ((fullpath = AllocVec(strlen(tmp_envbuff) + strlen(env_path) + 1 + 1 - 4, MEMF_CLEAR | MEMF_PUBLIC)) != NULL)
 117         {
 118             strcpy(fullpath, tmp_envbuff);
 119             AddPart(fullpath, env_path + 4, 1019);
 120             return fullpath;
 121         }
 122     }
 123
 124     //We couldnt expand it so just use as is ..
 125     return env_path;
 126 }
 127 ///
 128
 129 /*** Hook functions *********************************************************/
 130
 131 ///panelToolBar__HookFunc_LocationStringFunc()
 132 #ifdef __AROS__
 133 AROS_UFH3(
 134   void, panelToolBar__HookFunc_LocationStringFunc,
 135   AROS_UFHA(struct Hook *,    hook,   A0),
 136   AROS_UFHA(APTR *,           obj,    A2),
 137   AROS_UFHA(APTR,             param,  A1)
 138 )
 139 {
 140 #else
 141 HOOKPROTO(panelToolBar__HookFunc_LocationStringFunc, void, APTR *obj, APTR param)
 142 {
 143 #endif
 144     AROS_USERFUNC_INIT
 145
 146     /* Get data */
 147     Object                              *self = ( Object *)obj;
 148     Class                               *CLASS = *( Class **)param;
 149     STRPTR                              str = NULL;
 150     BPTR                                fp = (BPTR) NULL;
 151     struct FileInfoBlock                *fib;
 152     struct panel_ToolBar_DATA           *panelToolBarPrivate = NULL;
 153
 154 #warning "stegerg: doesn't allocate fib with AllocDOSObject"
 155
 156     SETUP_ICONWINDOW_INST_DATA;
 157
 158     /* Only change dir if it is a valid directory/volume */
 159     if ((panelToolBarPrivate = (struct panel_ToolBar_DATA *)data->iwd_TopPanel.iwp_PanelPrivate) != NULL)
 160     {
 161         if (panelToolBarPrivate->iwp_Node.ln_Name != extension_Name)
 162             return;
 163
 164         GET(panelToolBarPrivate->iwp_ToolBar_LocationStringObj, MUIA_String_Contents, &str);
 165
 166 #warning "TODO: Signal that it is a wrong path"
 167         /* so that the user understands (here where we abort with return) */
 168
 169         fib = AllocDosObject(DOS_FIB, NULL);
 170         if (!fib)
 171             return;
 172
 173         if (!(fp = Lock(str, ACCESS_READ)))
 174         {
 175             FreeDosObject(DOS_FIB, fib);
 176             return;
 177         }
 178
 179         if (!(Examine(fp, fib)))
 180         {
 181             UnLock (fp );
 182             FreeDosObject(DOS_FIB, fib);
 183             return;
 184         }
 185
 186         /* Change directory! */
 187         if (fib->fib_DirEntryType >= 0)
 188         {
 189             SET(self, MUIA_IconWindow_Location, (IPTR)str);
 190         }
 191
 192         UnLock(fp);
 193
 194         FreeDosObject(DOS_FIB, fib);
 195     }
 196
 197     AROS_USERFUNC_EXIT
 198 }
 199 #ifndef __AROS__
 200 MakeStaticHook(ToolBar_locationstrHook, panelToolBar__HookFunc_LocationStringFunc);
 201 #endif
 202
 203 #define TOOLBAR_PREFSSIZE     1024
 204 IPTR panelToolBar__HandleFSUpdate(Object *WandererObj, struct NotifyMessage *msg)
 205 {
 206     if (GetVar(extension_PrefsFile, extension_PrefsData, TOOLBAR_PREFSSIZE, GVF_GLOBAL_ONLY) != -1)
 207     {
 208         D(bug("[IW.toolbar] %s: Prefs contain '%s'\n", __PRETTY_FUNCTION__, extension_PrefsData));
 209         if ((strcasecmp(extension_PrefsData, "True")) == 0)
 210         {
 211             SET(panelToolBar__PrefsNotificationObject, MUIA_ShowMe, TRUE);
 212         }
 213         else
 214         {
 215             SET(panelToolBar__PrefsNotificationObject, MUIA_ShowMe, FALSE);
 216         }
 217     }
 218     return NULL;
 219 }
 220
 221 /*** Main Functions ****************************************************************/
 222
 223 ///panelToolBar__PrefsSetup()
 224 IPTR panelToolBar__PrefsSetup(Class *CLASS, Object *self, struct opSet *message)
 225 {
 226     IPTR                                panelToolBarFSNotifyPort = 0;
 227     struct panel_ToolBar_DATA           *panelToolBarPrivate = NULL;
 228     struct List                         *panelToolBarFSNotifyList = NULL;
 229
 230     SETUP_ICONWINDOW_INST_DATA;
 231
 232     panelToolBarFSNotifyPort = GetTagData(MUIA_Wanderer_FileSysNotifyPort, (IPTR) NULL, message->ops_AttrList);
 233     panelToolBarFSNotifyList = GetTagData(MUIA_Wanderer_FileSysNotifyList, (IPTR) NULL, message->ops_AttrList);
 234
 235     D(bug("[IW.toolbar]: %s()\n", __PRETTY_FUNCTION__));
 236
 237     if ((panelToolBarPrivate = (struct panel_ToolBar_DATA *)data->iwd_TopPanel.iwp_PanelPrivate) != (IPTR)NULL)
 238     {
 239         if (panelToolBarPrivate->iwp_Node.ln_Name != extension_Name)
 240             return NULL;
 241
 242         extension_PrefsData = AllocVec(TOOLBAR_PREFSSIZE, MEMF_CLEAR);
 243
 244         /* Setup notification on prefs file --------------------------------*/
 245         struct Wanderer_FSHandler *_prefsNotifyHandler = NULL;
 246
 247         if ((_prefsNotifyHandler = AllocMem(sizeof(struct Wanderer_FSHandler), MEMF_CLEAR)) != NULL)
 248         {
 249             _prefsNotifyHandler->fshn_Node.ln_Name                      = ExpandEnvName(extension_PrefsFile);
 250             panelToolBar__PrefsNotifyRequest.nr_Name                    = _prefsNotifyHandler->fshn_Node.ln_Name;
 251             panelToolBar__PrefsNotifyRequest.nr_Flags                   = NRF_SEND_MESSAGE;
 252             panelToolBar__PrefsNotifyRequest.nr_stuff.nr_Msg.nr_Port    = panelToolBarFSNotifyPort;
 253             _prefsNotifyHandler->HandleFSUpdate                         = panelToolBar__HandleFSUpdate;
 254
 255             if (StartNotify(&panelToolBar__PrefsNotifyRequest))
 256             {
 257                 D(bug("[IW.toolbar]%s: Prefs-notification setup on '%s'\n", __PRETTY_FUNCTION__, panelToolBar__PrefsNotifyRequest.nr_Name));
 258             }
 259             else
 260             {
 261                 D(bug("[IW.toolbar] %s: FAILED to setup Prefs-notification!\n", __PRETTY_FUNCTION__));
 262             }
 263             AddTail(panelToolBarFSNotifyList, &_prefsNotifyHandler->fshn_Node);
 264         }
 265 #ifdef __AROS__
 266         panelToolBar__PrefsNotificationObject = (Object *)NotifyObject, End;
 267 #else
 268         panelToolBar__PrefsNotificationObject = MUI_NewObject(MUIC_Notify, TAG_DONE);
 269 #endif
 270         if (GetVar(extension_PrefsFile, extension_PrefsData, TOOLBAR_PREFSSIZE, GVF_GLOBAL_ONLY) != -1)
 271         {
 272             D(bug("[IW.toolbar] %s: Prefs contain '%s'\n", __PRETTY_FUNCTION__, extension_PrefsData));
 273         }
 274     }
 275 }
 276 ///
 277
 278 ///panelToolBar__Setup()
 279 IPTR panelToolBar__Setup(Class *CLASS, Object *self, struct opSet *message)
 280 {
 281     SETUP_ICONWINDOW_INST_DATA;
 282
 283     Object                              *panel_ToolBar;
 284     Object                              *panelToolBar_ButtonDirUp = NULL,
 285                                         *panelToolBar_ButtonSearch = NULL,
 286                                         *panelToolBar_StringLocation = NULL;
 287
 288     struct panel_ToolBar_DATA           *panelToolBarPrivate = NULL;
 289
 290     if (!(!(data->iwd_Flags & IWDFLAG_ISROOT) && data->iwd_TopPanel.iwp_PanelContainerObj))
 291         return (IPTR)NULL;
 292
 293 #if !defined(ICONWINDOW_OPTION_NOSEARCHBUTTON)
 294     panelToolBar_ButtonSearch = ImageButton("", "THEME:Images/Gadgets/Prefs/Test");
 295 #endif
 296
 297     D(bug("[IW.toolbar]: %s()\n", __PRETTY_FUNCTION__));
 298
 299     if (data->iwd_TopPanel.iwp_PanelPrivate == (IPTR)NULL)
 300     {
 301         if ((data->iwd_TopPanel.iwp_PanelPrivate = (IPTR)AllocVec(sizeof(struct panel_ToolBar_DATA), MEMF_CLEAR)) == (IPTR)NULL)
 302             return NULL;
 303
 304         panelToolBarPrivate = (struct panel_ToolBar_DATA *)data->iwd_TopPanel.iwp_PanelPrivate;
 305         panelToolBarPrivate->iwp_Node.ln_Name = extension_Name;
 306
 307         /* Create the "ToolBar" panel object .. */
 308         panel_ToolBar = MUI_NewObject(MUIC_Group,
 309             MUIA_InnerLeft,(0),
 310             MUIA_InnerRight,(0),
 311             MUIA_InnerTop,(0),
 312             MUIA_InnerBottom,(0),
 313             MUIA_Frame, MUIV_Frame_None,
 314             Child, (IPTR)MUI_NewObject(MUIC_Group, MUIA_Group_Horiz, TRUE                      ,
 315                 MUIA_InnerLeft,(4),
 316                 MUIA_InnerRight,(4),
 317                 MUIA_InnerTop,(4),
 318                 MUIA_InnerBottom,(4),
 319                 MUIA_Frame, MUIV_Frame_None,
 320                 MUIA_Weight, 100,
 321                 Child, (IPTR)MUI_NewObject(MUIC_Group, MUIA_Group_Horiz, TRUE                      ,
 322                     MUIA_InnerLeft,(0),
 323                     MUIA_InnerRight,(0),
 324                     MUIA_InnerTop,(0),
 325                     MUIA_InnerBottom,(0),
 326                     MUIA_Weight, 100,
 327                     Child, (IPTR)( panelToolBar_StringLocation = MUI_NewObject(MUIC_String,
 328                         MUIA_String_Contents, (IPTR)"",
 329                         MUIA_CycleChain, 1,
 330                         MUIA_Frame, MUIV_Frame_String,
 331                     TAG_DONE) ),
 332                 TAG_DONE),
 333                 Child, (IPTR)MUI_NewObject(MUIC_Group, MUIA_Group_Horiz, TRUE                      ,
 334                     MUIA_InnerLeft,(0),
 335                     MUIA_InnerRight,(0),
 336                     MUIA_InnerTop,(0),
 337                     MUIA_InnerBottom,(0),
 338                     MUIA_HorizWeight,   0,
 339                     MUIA_VertWeight,    100,
 340                     Child, (IPTR) (panelToolBar_ButtonDirUp = ImageButton("", "THEME:Images/Gadgets/Prefs/Revert")),
 341                     (panelToolBar_ButtonSearch ? Child : TAG_IGNORE), (IPTR) (panelToolBar_ButtonSearch),
 342                 TAG_DONE),
 343             TAG_DONE),
 344             Child, (IPTR)MUI_NewObject(MUIC_Group, MUIA_Group_Horiz, TRUE                      ,
 345                 MUIA_InnerLeft,(0),
 346                 MUIA_InnerRight,(0),
 347                 MUIA_InnerTop,(0),
 348                 MUIA_InnerBottom,(0),
 349                 MUIA_Group_Spacing, 0,
 350                 MUIA_FixHeight, 1,
 351                 MUIA_Frame, MUIV_Frame_None,
 352                 MUIA_Background, MUII_SHADOW,
 353                 Child, (IPTR)MUI_NewObject(MUIC_Rectangle,
 354                     MUIA_Frame, MUIV_Frame_None,
 355                 TAG_DONE),
 356             TAG_DONE),
 357         TAG_DONE);
 358
 359         /* Got a toolbarpanel? setup notifies and other values are
 360          copied to the data of the object */
 361         if ( panel_ToolBar != NULL )
 362         {
 363             D(bug("[IW.toolbar] %s: ToolBar Obj @ 0x%p\n", __PRETTY_FUNCTION__, panel_ToolBar));
 364
 365             SET(panelToolBar_ButtonDirUp, MUIA_Background, XGET( panel_ToolBar, MUIA_Background ) );
 366             SET(panelToolBar_ButtonDirUp, MUIA_CycleChain, 1);
 367             SET(panelToolBar_ButtonDirUp, MUIA_Frame, MUIV_Frame_None );
 368 #if !defined(ICONWINDOW_OPTION_NOSEARCHBUTTON)
 369             SET(panelToolBar_ButtonSearch, MUIA_Background, XGET( panel_ToolBar, MUIA_Background ) );
 370             SET(panelToolBar_ButtonSearch, MUIA_CycleChain, 1);
 371             SET(panelToolBar_ButtonSearch, MUIA_Frame, MUIV_Frame_None );
 372 #endif
 373             panelToolBarPrivate->iwp_ToolBar_ToolBarObj = panel_ToolBar;
 374
 375             if (DoMethod(data->iwd_TopPanel.iwp_PanelGroupObj, MUIM_Group_InitChange ))
 376             {
 377                 DoMethod(data->iwd_TopPanel.iwp_PanelGroupObj, OM_ADDMEMBER, (IPTR)panel_ToolBar);
 378                 if (data->iwd_TopPanel.iwp_PanelGroupSpacerObj)
 379                 {
 380                     DoMethod(data->iwd_TopPanel.iwp_PanelGroupObj, OM_REMMEMBER, (IPTR)data->iwd_TopPanel.iwp_PanelGroupSpacerObj);
 381                     data->iwd_TopPanel.iwp_PanelGroupSpacerObj = NULL;
 382                 }
 383
 384                 DoMethod(data->iwd_TopPanel.iwp_PanelGroupObj, MUIM_Group_ExitChange);
 385             }
 386
 387             if (panelToolBarPrivate->iwp_ToolBar_ToolBarObj)
 388             {
 389                 DoMethod(
 390                     panelToolBar_ButtonDirUp, MUIM_Notify, MUIA_Pressed, FALSE,
 391                     (IPTR)self, 1, MUIM_IconWindow_DirectoryUp
 392                   );
 393
 394                 panelToolBarPrivate->iwp_ToolBar_LocationStringObj = panelToolBar_StringLocation;
 395 #ifdef __AROS__
 396                 panelToolBarPrivate->iwp_ToolBar_LocationStrHook.h_Entry = ( HOOKFUNC )panelToolBar__HookFunc_LocationStringFunc;
 397 #else
 398                 panelToolBarPrivate->iwp_ToolBar_LocationStrHook= &ToolBar_locationstrHook;
 399 #endif
 400
 401                 NNSET(
 402                     panelToolBarPrivate->iwp_ToolBar_LocationStringObj, MUIA_String_Contents,
 403                     XGET(data->iwd_IconListObj, MUIA_IconDrawerList_Drawer)
 404                   );
 405
 406                 /* Make changes to string contents change dir on enter */
 407                 DoMethod (
 408                     panelToolBarPrivate->iwp_ToolBar_LocationStringObj, MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
 409                     (IPTR)self, 3, MUIM_CallHook, &panelToolBarPrivate->iwp_ToolBar_LocationStrHook, (IPTR)CLASS
 410                   );
 411
 412                 if (!(panelToolBar__PrefsNotificationObject))
 413                     panelToolBar__PrefsSetup(CLASS, self, message);
 414
 415                 DoMethod
 416                 (
 417                     panelToolBar__PrefsNotificationObject, MUIM_Notify, MUIA_ShowMe, MUIV_EveryTime,
 418                     (IPTR)data->iwd_TopPanel.iwp_PanelContainerObj, 3, MUIM_Set, MUIA_ShowMe, MUIV_TriggerValue
 419                   );
 420
 421                 if ((strcasecmp(extension_PrefsData, "True")) == 0)
 422                 {
 423                     SET(data->iwd_TopPanel.iwp_PanelContainerObj, MUIA_ShowMe, TRUE);
 424                 }
 425
 426                 AddTail(&panelToolBar__ToolBars, &panelToolBarPrivate->iwp_Node);
 427             }
 428         }
 429         else
 430         {
 431             panelToolBarPrivate->iwp_ToolBar_ToolBarObj = NULL;
 432         }
 433     }
 434     return NULL;
 435 }
 436 ///
 437
 438 IPTR panelToolBar__Cleanup(Class *CLASS, Object *self, struct opSet *message)
 439 {
 440     SETUP_ICONWINDOW_INST_DATA;
 441
 442     struct panel_ToolBar_DATA *panelToolBarPrivate;
 443
 444     D(bug("[IW.toolbar]: %s()\n", __PRETTY_FUNCTION__));
 445
 446     if ((panelToolBarPrivate = (struct panel_ToolBar_DATA *)data->iwd_TopPanel.iwp_PanelPrivate) != (IPTR)NULL)
 447     {
 448         if (panelToolBarPrivate->iwp_Node.ln_Name != extension_Name)
 449             return NULL;
 450
 451         if (panelToolBar__PrefsNotificationObject)
 452         {
 453             DoMethod
 454               (
 455                 panelToolBar__PrefsNotificationObject, MUIM_KillNotifyObj, MUIA_ShowMe,
 456                 (IPTR)data->iwd_TopPanel.iwp_PanelContainerObj
 457               );
 458         }
 459         if (panelToolBarPrivate->iwp_ToolBar_LocationStringObj)
 460         {
 461             DoMethod
 462               (
 463                 panelToolBarPrivate->iwp_ToolBar_LocationStringObj, MUIM_KillNotifyObj, MUIA_String_Acknowledge,
 464                 (IPTR)self
 465               );
 466         }
 467     }
 468     return NULL;
 469 }
 470
 471 ///OM_GET()
 472 IPTR panelToolBar__OM_GET(Class *CLASS, Object *self, struct opGet *message)
 473 {
 474     SETUP_ICONWINDOW_INST_DATA;
 475
 476     struct panel_ToolBar_DATA   *panelToolBarPrivate = NULL;
 477     IPTR                        *store = message->opg_Storage;
 478     IPTR                        rv    = FALSE;
 479
 480     D(bug("[IW.toolbar]: %s()\n", __PRETTY_FUNCTION__));
 481
 482     if ((panelToolBarPrivate = (struct panel_ToolBar_DATA *)data->iwd_TopPanel.iwp_PanelPrivate) != (IPTR)NULL)
 483     {
 484         if (panelToolBarPrivate->iwp_Node.ln_Name != extension_Name)
 485             return rv;
 486
 487         switch (message->opg_AttrID)
 488         {
 489         }
 490     }
 491
 492     return rv;
 493 }
 494
 495 ///OM_SET()
 496 IPTR panelToolBar__OM_SET(Class *CLASS, Object *self, struct opSet *message)
 497 {
 498     SETUP_ICONWINDOW_INST_DATA;
 499
 500     struct panel_ToolBar_DATA   *panelToolBarPrivate = NULL;
 501     struct TagItem              *tstate = message->ops_AttrList, *tag;
 502     BOOL                        UpdateIconlist = FALSE;
 503     IPTR                        focusicon = (IPTR) NULL;
 504     IPTR                        rv = FALSE;
 505
 506     D(bug("[IW.toolbar]: %s()\n", __PRETTY_FUNCTION__));
 507
 508     if ((panelToolBarPrivate = (struct panel_ToolBar_DATA *)data->iwd_TopPanel.iwp_PanelPrivate) != (IPTR)NULL)
 509     {
 510         if (panelToolBarPrivate->iwp_Node.ln_Name != extension_Name)
 511             return rv;
 512
 513         while ((tag = NextTagItem((TAGITEM)&tstate)) != NULL)
 514         {
 515             switch (tag->ti_Tag)
 516             {
 517             case MUIA_IconWindow_Location:
 518                 D(bug("[IW.toolbar] %s: MUIA_IconWindow_Location '%s'\n", __PRETTY_FUNCTION__, data->iwd_DirectoryPath));
 519
 520                 SET(panelToolBarPrivate->iwp_ToolBar_LocationStringObj, MUIA_String_Contents, (IPTR)data->iwd_DirectoryPath);
 521
 522                 break;
 523             }
 524         }
 525     }
 526
 527     return rv;
 528 }
 529
 530 #define PANELTOOLBAR_PRIORITY 10
 531
 532 IPTR panelToolBar__Init()
 533 {
 534     D(bug("[IW.toolbar]: %s()\n", __PRETTY_FUNCTION__));
 535
 536     panelToolBar__Extension.iwe_Node.ln_Pri = PANELTOOLBAR_PRIORITY;
 537     panelToolBar__Extension.iwe_Node.ln_Name = extension_Name;
 538     panelToolBar__Extension.iwe_Setup = panelToolBar__Setup;
 539     panelToolBar__Extension.iwe_Cleanup = panelToolBar__Cleanup;
 540     panelToolBar__Extension.iwe_Set = panelToolBar__OM_SET;
 541     panelToolBar__Extension.iwe_Get = panelToolBar__OM_GET;
 542
 543     NewList(&panelToolBar__ToolBars);
 544
 545     Enqueue(&iconwindow_Extensions, (struct Node *)&panelToolBar__Extension);
 546
 547     D(bug("[IconWindow] %s: Added Extension '%s' @ %p to list @ %p\n", __PRETTY_FUNCTION__, panelToolBar__Extension.iwe_Node.ln_Name, &panelToolBar__Extension.iwe_Node, &iconwindow_Extensions));
 548
 549     return TRUE;
 550 }
 551
 552 ADD2INIT(panelToolBar__Init, PANELTOOLBAR_PRIORITY);