workbench/prefs/PSI/syspenfield_class.c

   1 /*
   2     Copyright © 1995-1997 Stefan Stuntz.
   3     Copyright © 2009-2010, The AROS Development Team.
   4     All rights reserved.
   5
   6     $Id$
   7 */
   8
   9 #include <proto/muimaster.h>
  10 #include <proto/intuition.h>
  11
  12 #include "syspenfield_class.h"
  13
  14 /****************************************************************************************/
  15
  16 struct SysPenField_Data
  17 {
  18     LONG dummy;
  19 };
  20
  21 /****************************************************************************************/
  22
  23 IPTR SysPenField_DragQuery(struct IClass *cl, Object *obj, struct MUIP_DragQuery *msg)
  24 {
  25     if (msg->obj==obj)
  26         return MUIV_DragQuery_Refuse;
  27
  28     if (muiUserData(msg->obj) < 1 || muiUserData(msg->obj) > 8)
  29         return MUIV_DragQuery_Refuse;
  30
  31     return MUIV_DragQuery_Accept;
  32 }
  33
  34 /****************************************************************************************/
  35
  36 IPTR SysPenField_DragDrop(struct IClass *cl, Object *obj, struct MUIP_DragDrop *msg)
  37 {
  38     set(obj,MUIA_Pendisplay_Reference,msg->obj);
  39     return 0;
  40 }
  41
  42 /****************************************************************************************/
  43
  44 BOOPSI_DISPATCHER(IPTR, SysPenField_Dispatcher, cl, obj, msg)
  45 {
  46     switch (msg->MethodID)
  47     {
  48         case MUIM_DragQuery  : return(SysPenField_DragQuery  (cl,obj,(APTR)msg));
  49         case MUIM_DragDrop   : return(SysPenField_DragDrop   (cl,obj,(APTR)msg));
  50     }
  51     return DoSuperMethodA(cl,obj,msg);
  52 }
  53 BOOPSI_DISPATCHER_END
  54
  55 /****************************************************************************************/
  56
  57 Object *MakePalette(void)
  58 {
  59     Object *obj;
  60
  61     obj = MUI_NewObject(MUIC_Poppen,
  62         MUIA_CycleChain, 1,
  63         MUIA_Window_Title, "Adjust Color",
  64         MUIA_Penadjust_PSIMode, 2,
  65         MUIA_MaxHeight, 20,
  66     TAG_DONE);
  67
  68     return obj;
  69 }
  70
  71 /****************************************************************************************/
  72
  73 Object *MakeMUIPen(int nr, Object **adr)
  74 {
  75     Object *obj;
  76
  77     obj = VGroup, MUIA_Group_Spacing, 1,
  78         Child, *adr = MUI_NewObject(MUIC_Poppen,
  79             MUIA_CycleChain, 1,
  80             MUIA_Window_Title, "Adjust MUI Pen",
  81             MUIA_Penadjust_PSIMode, 1,
  82             MUIA_MaxHeight, 20,
  83         TAG_DONE),
  84         Child, TextObject,
  85             MUIA_Text_Contents, GetStr(nr),
  86             MUIA_Text_PreParse, "\33c",
  87             MUIA_Font, MUIV_Font_Tiny,
  88         End,
  89     End;
  90
  91     return obj;
  92 }
  93
  94 /****************************************************************************************/
  95
  96 Object *MakeSysPen(int nr, Object **adr)
  97 {
  98     Object *obj;
  99
 100     obj = VGroup, MUIA_Group_Spacing, 1,
 101         Child, *adr = NewObject(CL_SysPenField->mcc_Class,NULL,
 102             TextFrame,
 103             MUIA_Background, MUII_BACKGROUND,
 104             MUIA_InnerLeft  , 4,
 105             MUIA_InnerRight , 4,
 106             MUIA_InnerTop   , 4,
 107             MUIA_InnerBottom, 4,
 108         TAG_DONE),
 109         Child, TextObject,
 110             MUIA_Font, MUIV_Font_Tiny,
 111             MUIA_Text_Contents, GetStr(nr),
 112             MUIA_Text_PreParse, "\33c",
 113         End,
 114     End;
 115
 116     return obj;
 117 }
 118
 119 /****************************************************************************************/
 120
 121 VOID SysPenField_Init(VOID)
 122 {
 123     CL_SysPenField = MUI_CreateCustomClass
 124     (
 125         NULL, MUIC_Pendisplay, NULL,
 126         sizeof(struct SysPenField_Data ), SysPenField_Dispatcher
 127     );
 128 }
 129
 130 /****************************************************************************************/
 131
 132 VOID SysPenField_Exit(VOID)
 133 {
 134     if (CL_SysPenField )
 135         MUI_DeleteCustomClass(CL_SysPenField );
 136 }