workbench/libs/desktop/createdesktopobjecta.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #include <exec/types.h>
   9 #include <exec/memory.h>
  10 #include <intuition/classusr.h>
  11 #include <libraries/desktop.h>
  12 #include <libraries/mui.h>
  13 #include <utility/tagitem.h>
  14
  15 #include <proto/exec.h>
  16 #include <proto/intuition.h>
  17 #include <proto/muimaster.h>
  18 #include <proto/utility.h>
  19
  20 #include "desktop_intern.h"
  21 #include "support.h"
  22
  23 #include "iconclass.h"
  24 #include "iconobserver.h"
  25 #include "iconcontainerclass.h"
  26 #include "iconcontainerobserver.h"
  27 #include "observer.h"
  28 #include "presentation.h"
  29
  30 #define DEBUG 1
  31 #include <aros/debug.h>
  32
  33 /*****************************************************************************
  34
  35     NAME */
  36
  37         #include <proto/desktop.h>
  38
  39         AROS_LH2(Object *, CreateDesktopObjectA,
  40
  41 /*  SYNOPSIS */
  42
  43         AROS_LHA(ULONG, kind, D0),
  44         AROS_LHA(struct TagItem *, tags, A0),
  45
  46 /*  LOCATION */
  47
  48         struct DesktopBase *, DesktopBase, 8, Desktop)
  49 /*
  50     FUNCTION
  51
  52     INPUTS
  53
  54     RESULT
  55
  56     NOTES
  57
  58         This function is sloppy - sort it out!
  59
  60     EXAMPLE
  61
  62     BUGS
  63
  64     SEE ALSO
  65
  66     INTERNALS
  67
  68     *****************************************************************************
  69 */
  70 {
  71     AROS_LIBFUNC_INIT
  72
  73     Object *newObject      = NULL,
  74            *semanticObject = NULL;
  75
  76     switch (kind)
  77     {
  78         case CDO_IconContainer:
  79             {
  80                 STRPTR          dir = NULL;
  81                 struct TagItem *tag;
  82
  83                 tag = FindTagItem(ICOA_Directory, tags);
  84                 if (tag)
  85                 {
  86                     dir = (STRPTR) tag->ti_Data;
  87                     tag->ti_Tag = TAG_IGNORE;
  88                 }
  89
  90                 newObject = NewObjectA(IconContainer->mcc_Class, NULL, tags);
  91
  92                 semanticObject = NewObject
  93                 (
  94                     IconContainerObserver->mcc_Class, NULL,
  95
  96                     OA_Presentation, (IPTR) newObject,
  97                     ICOA_Directory,  (IPTR) dir,
  98
  99                     TAG_END
 100                 );
 101
 102                 set(newObject, PA_Observer, (IPTR) semanticObject);
 103
 104                 break;
 105             }
 106
 107         case CDO_DiskIcon:
 108             {
 109                 STRPTR          label   = NULL;
 110                 struct TagItem *labelTI = FindTagItem(IA_Label, tags);
 111
 112                 if (labelTI != NULL)
 113                 {
 114                     label = (STRPTR) labelTI->ti_Data;
 115                 }
 116
 117                 newObject = NewObjectA(DiskIcon->mcc_Class, NULL, tags);
 118
 119                 semanticObject = NewObject
 120                 (
 121                     DiskIconObserver->mcc_Class, NULL,
 122
 123                     IOA_Name,        (IPTR) label,
 124                     OA_Presentation, (IPTR) newObject,
 125
 126                     TAG_DONE
 127                 );
 128
 129                 break;
 130             }
 131
 132         case CDO_DrawerIcon:
 133             {
 134                 STRPTR          label       = NULL,
 135                                 directory   = NULL;
 136                 struct TagItem *labelTI     = FindTagItem(IA_Label, tags),
 137                                *directoryTI = FindTagItem(IOA_Directory, tags);
 138
 139                 if (labelTI != NULL)
 140                 {
 141                     label = (STRPTR) labelTI->ti_Data;
 142                 }
 143
 144                 if (directoryTI != NULL)
 145                 {
 146                     directory = (STRPTR) directoryTI->ti_Data;
 147                 }
 148
 149                 newObject = NewObjectA(DrawerIcon->mcc_Class, NULL, tags);
 150
 151                 semanticObject = NewObject
 152                 (
 153                     DrawerIconObserver->mcc_Class, NULL,
 154
 155                     IOA_Name,        (IPTR) label,
 156                     OA_Presentation, (IPTR) newObject,
 157                     IOA_Directory,   (IPTR) directory,
 158
 159                     TAG_DONE
 160                 );
 161
 162                 break;
 163             }
 164
 165         case CDO_ToolIcon:
 166
 167             newObject = NewObjectA(ToolIcon->mcc_Class, NULL, tags);
 168
 169             semanticObject = NewObject(ToolIconObserver->mcc_Class, NULL,
 170                                        OA_Presentation, (IPTR) newObject, TAG_END);
 171             break;
 172
 173         case CDO_ProjectIcon:
 174             newObject = NewObjectA(ProjectIcon->mcc_Class, NULL, tags);
 175
 176             semanticObject = NewObject
 177             (
 178                 ProjectIconObserver->mcc_Class, NULL,
 179                 OA_Presentation, (IPTR) newObject,
 180                 TAG_END
 181             );
 182             break;
 183
 184         case CDO_TrashcanIcon:
 185             newObject = NewObjectA(TrashcanIcon->mcc_Class, NULL, tags);
 186
 187             semanticObject = NewObject
 188             (
 189                 TrashcanIconObserver->mcc_Class, NULL,
 190                 OA_Presentation, (IPTR) newObject,
 191                 TAG_END
 192             );
 193             break;
 194
 195         case CDO_Desktop:
 196             newObject = NewObjectA
 197             (
 198                 DesktopBase->db_Desktop->mcc_Class, NULL, tags
 199             );
 200
 201             semanticObject = NewObject
 202             (
 203                 DesktopObserver->mcc_Class, NULL,
 204                 OA_Presentation, (IPTR) newObject,
 205                 TAG_END
 206             );
 207
 208             break;
 209
 210         case CDO_DirectoryWindow:
 211             {
 212                 STRPTR windowClass;
 213                 Object *windowObject;
 214
 215                 if (DesktopBase->db_DefaultWindow)
 216                 {
 217                     windowClass = DesktopBase->db_DefaultWindow->cl_ID;
 218                 }
 219                 else
 220                 {
 221                     windowClass = MUIC_Window;
 222                 }
 223
 224                 windowObject = MUI_NewObject
 225                 (
 226                     windowClass,
 227
 228                     MUIA_Window_UseBottomBorderScroller, TRUE,
 229                     MUIA_Window_UseRightBorderScroller,  TRUE,
 230
 231                     WindowContents, (IPTR) CreateDesktopObjectA
 232                     (
 233                         CDO_IconContainer, tags
 234                     ),
 235
 236                     TAG_DONE
 237                 );
 238             }
 239             break;
 240     }
 241
 242     return newObject;
 243
 244     AROS_LIBFUNC_EXIT
 245 } /* CreateWorkbenchObjectA */