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 This function is sloppy - sort it out!
  57
  58     EXAMPLE
  59
  60     BUGS
  61
  62     SEE ALSO
  63
  64     INTERNALS
  65
  66     *****************************************************************************
  67 */
  68 {
  69     AROS_LIBFUNC_INIT
  70
  71     Object *newObject      = NULL,
  72            *semanticObject = NULL;
  73
  74     switch (kind)
  75     {
  76         case CDO_IconContainer:
  77             {
  78                 STRPTR          dir = NULL;
  79                 struct TagItem *tag;
  80
  81                 tag = FindTagItem(ICOA_Directory, tags);
  82                 if (tag)
  83                 {
  84                     dir = (STRPTR) tag->ti_Data;
  85                     tag->ti_Tag = TAG_IGNORE;
  86                 }
  87
  88                 newObject = NewObjectA(IconContainer->mcc_Class, NULL, tags);
  89
  90                 semanticObject = NewObject
  91                 (
  92                     IconContainerObserver->mcc_Class, NULL,
  93
  94                     OA_Presentation, (IPTR) newObject,
  95                     ICOA_Directory,  (IPTR) dir,
  96
  97                     TAG_END
  98                 );
  99
 100                 set(newObject, PA_Observer, (IPTR) semanticObject);
 101
 102                 break;
 103             }
 104
 105         case CDO_DiskIcon:
 106             {
 107                 STRPTR          label   = NULL;
 108                 struct TagItem *labelTI = FindTagItem(IA_Label, tags);
 109
 110                 if (labelTI != NULL)
 111                 {
 112                     label = (STRPTR) labelTI->ti_Data;
 113                 }
 114
 115                 newObject = NewObjectA(DiskIcon->mcc_Class, NULL, tags);
 116
 117                 semanticObject = NewObject
 118                 (
 119                     DiskIconObserver->mcc_Class, NULL,
 120
 121                     IOA_Name,        (IPTR) label,
 122                     OA_Presentation, (IPTR) newObject,
 123
 124                     TAG_DONE
 125                 );
 126
 127                 break;
 128             }
 129
 130         case CDO_DrawerIcon:
 131             {
 132                 STRPTR          label       = NULL,
 133                                 directory   = NULL;
 134                 struct TagItem *labelTI     = FindTagItem(IA_Label, tags),
 135                                *directoryTI = FindTagItem(IOA_Directory, tags);
 136
 137                 if (labelTI != NULL)
 138                 {
 139                     label = (STRPTR) labelTI->ti_Data;
 140                 }
 141
 142                 if (directoryTI != NULL)
 143                 {
 144                     directory = (STRPTR) directoryTI->ti_Data;
 145                 }
 146
 147                 newObject = NewObjectA(DrawerIcon->mcc_Class, NULL, tags);
 148
 149                 semanticObject = NewObject
 150                 (
 151                     DrawerIconObserver->mcc_Class, NULL,
 152
 153                     IOA_Name,        (IPTR) label,
 154                     OA_Presentation, (IPTR) newObject,
 155                     IOA_Directory,   (IPTR) directory,
 156
 157                     TAG_DONE
 158                 );
 159
 160                 break;
 161             }
 162
 163         case CDO_ToolIcon:
 164
 165             newObject = NewObjectA(ToolIcon->mcc_Class, NULL, tags);
 166
 167             semanticObject = NewObject(ToolIconObserver->mcc_Class, NULL,
 168                                        OA_Presentation, (IPTR) newObject, TAG_END);
 169             break;
 170
 171         case CDO_ProjectIcon:
 172             newObject = NewObjectA(ProjectIcon->mcc_Class, NULL, tags);
 173
 174             semanticObject = NewObject
 175             (
 176                 ProjectIconObserver->mcc_Class, NULL,
 177                 OA_Presentation, (IPTR) newObject,
 178                 TAG_END
 179             );
 180             break;
 181
 182         case CDO_TrashcanIcon:
 183             newObject = NewObjectA(TrashcanIcon->mcc_Class, NULL, tags);
 184
 185             semanticObject = NewObject
 186             (
 187                 TrashcanIconObserver->mcc_Class, NULL,
 188                 OA_Presentation, (IPTR) newObject,
 189                 TAG_END
 190             );
 191             break;
 192
 193         case CDO_Desktop:
 194             newObject = NewObjectA
 195             (
 196                 DesktopBase->db_Desktop->mcc_Class, NULL, tags
 197             );
 198
 199             semanticObject = NewObject
 200             (
 201                 DesktopObserver->mcc_Class, NULL,
 202                 OA_Presentation, (IPTR) newObject,
 203                 TAG_END
 204             );
 205
 206             break;
 207
 208         case CDO_DirectoryWindow:
 209             {
 210                 STRPTR windowClass;
 211                 Object *windowObject;
 212
 213                 if (DesktopBase->db_DefaultWindow)
 214                 {
 215                     windowClass = DesktopBase->db_DefaultWindow->cl_ID;
 216                 }
 217                 else
 218                 {
 219                     windowClass = MUIC_Window;
 220                 }
 221
 222                 windowObject = MUI_NewObject
 223                 (
 224                     windowClass,
 225
 226                     MUIA_Window_UseBottomBorderScroller, TRUE,
 227                     MUIA_Window_UseRightBorderScroller,  TRUE,
 228
 229                     WindowContents, (IPTR) CreateDesktopObjectA
 230                     (
 231                         CDO_IconContainer, tags
 232                     ),
 233
 234                     TAG_DONE
 235                 );
 236             }
 237             break;
 238     }
 239
 240     return newObject;
 241
 242     AROS_LIBFUNC_EXIT
 243 } /* CreateWorkbenchObjectA */