workbench/prefs/Zune/buttonsp.c

   1 /*
   2     Copyright © 2002-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7 #include <graphics/gfx.h>
   8 #include <graphics/view.h>
   9 #include <clib/alib_protos.h>
  10 #include <libraries/asl.h>
  11 #include <libraries/mui.h>
  12 #include <proto/exec.h>
  13 #include <proto/graphics.h>
  14 #include <proto/utility.h>
  15 #include <proto/intuition.h>
  16 #include <proto/muimaster.h>
  17
  18 #ifdef __AROS__
  19 #include <proto/alib.h>
  20 #endif
  21
  22 #include "zunestuff.h"
  23
  24 extern struct Library *MUIMasterBase;
  25
  26 struct MUI_ButtonsPData
  27 {
  28     Object *text_font_string;
  29     Object *text_background_popimage;
  30     Object *text_selbackground_popimage;
  31     Object *spacing_vert_slider;
  32     Object *spacing_horiz_slider;
  33     Object *radio_look_popimage;
  34     Object *checkmark_look_popimage;
  35     Object *button_popframe;
  36     Object *imagebutton_popframe;
  37 };
  38
  39 static IPTR ButtonsP_New(struct IClass *cl, Object *obj, struct opSet *msg)
  40 {
  41     struct MUI_ButtonsPData *data;
  42     struct MUI_ButtonsPData d;
  43
  44     obj = (Object *) DoSuperNewTags
  45     (
  46         cl, obj, NULL,
  47
  48         Child, (IPTR) HGroup,
  49             Child, (IPTR) VGroup, /* Text Buttons */
  50                 MUIA_Weight, 130,
  51                 Child, (IPTR) ColGroup(2),
  52                     GroupFrameT(_(MSG_GENERAL)),
  53                     MUIA_Group_SameHeight, TRUE,
  54                     MUIA_Group_VertSpacing, 1,
  55                     Child, (IPTR) FreeLabel(_(MSG_BACKGROUND_COLON)),
  56                     Child, (IPTR) (d.text_background_popimage = MakeBackgroundPopimage()),
  57         Child, RectangleObject, MUIA_MaxHeight, 0, End,
  58         Child, HGroup,
  59         Child, RectangleObject, MUIA_MaxHeight, 0, MUIA_FixWidth, 28, End,
  60         Child, RectangleObject, MUIA_MaxHeight, 0, End,
  61         End,
  62                     Child, (IPTR) FreeLabel(_(MSG_BACKGROUND_PRESSED)),
  63                     Child, (IPTR) (d.text_selbackground_popimage = MakeBackgroundPopimage()),
  64                     End,
  65                 Child, (IPTR) ColGroup(2),
  66                     GroupFrameT(_(MSG_TEXT_BUTTONS)),
  67                     MUIA_Group_VertSpacing, 2,
  68                     Child, (IPTR) FreeLabel(_(MSG_FRAME_COLON)),
  69                     Child, (IPTR) (d.button_popframe = MakePopframe()),
  70                     Child, (IPTR) Label(_(MSG_FONT)),
  71                     Child, (IPTR) (d.text_font_string = MakePopfont(FALSE)),
  72                 End,
  73             End, /* Text Buttons */
  74             Child, (IPTR) VGroup, /* other buttons */
  75                 Child, (IPTR) HGroup, /* Image Buttons */
  76                     GroupFrameT(_(MSG_IMAGE_BUTTONS)),
  77
  78                     Child, (IPTR) HSpace(0),
  79                     Child, (IPTR) FreeLabel(_(MSG_FRAME_COLON)),
  80                     Child, (IPTR) (d.imagebutton_popframe = MUI_NewObject
  81                     (
  82                         MUIC_Popframe,
  83                         MUIA_CycleChain,          1,
  84                         MUIA_FixWidth,            28,
  85                         MUIA_Window_Title, (IPTR) _(MSG_ADJUST_FRAME),
  86                         TAG_DONE
  87                     )),
  88                     Child, (IPTR) HSpace(0),
  89                 End, /* Image Buttons */
  90                 Child, (IPTR) HGroup, /* Checkmarks */
  91                     GroupFrameT(_(MSG_CHECKMARKS)),
  92                     Child, (IPTR) HSpace(0),
  93                     Child, (IPTR) FreeLabel(_(MSG_LOOK_COLON)),
  94                     Child, (IPTR) (d.checkmark_look_popimage = MUI_NewObject
  95                     (
  96                         MUIC_Popimage,
  97                         MUIA_Imageadjust_Type,       MUIV_Imageadjust_Type_Image,
  98                         MUIA_CycleChain,             1,
  99                         MUIA_FixWidth,               28,
 100                         MUIA_MaxHeight,              28,
 101                         MUIA_Imagedisplay_FreeHoriz, FALSE,
 102                         MUIA_Imagedisplay_FreeVert,  FALSE,
 103                         MUIA_Window_Title,           (IPTR) _(MSG_CHECKMARK),
 104                         TAG_DONE
 105                     )),
 106                     Child, (IPTR) HSpace(0),
 107                     End, /* Checkmarks */
 108                 Child, (IPTR) HGroup, /* Radio Buttons */
 109                     GroupFrameT(_(MSG_RADIO_BUTTONS)),
 110                     /* MUIA_Group_SameHeight, TRUE, */
 111
 112                     Child, (IPTR) HSpace(0),
 113                     Child, (IPTR) VGroup,
 114                         MUIA_Group_VertSpacing, 1,
 115                         Child, (IPTR) (d.radio_look_popimage = MUI_NewObject
 116                         (
 117                             MUIC_Popimage,
 118                             MUIA_Imageadjust_Type, MUIV_Imageadjust_Type_Image,
 119                             MUIA_CycleChain, 1,
 120                             MUIA_MaxWidth, 28,
 121                             MUIA_FixHeight, 28,
 122                             MUIA_Weight, 300,
 123                             MUIA_Imagedisplay_FreeHoriz, FALSE,
 124                             MUIA_Imagedisplay_FreeVert, FALSE,
 125                             MUIA_Window_Title, (IPTR) _(MSG_RADIOBUTTON),
 126                             TAG_DONE
 127                         )),
 128                         Child, (IPTR) CLabel(_(MSG_LOOK)),
 129                     End,
 130                     Child, (IPTR) HSpace(4),
 131                     Child, (IPTR) ColGroup(2),
 132                         MUIA_Group_VertSpacing, 1,
 133                         MUIA_Group_HorizSpacing, 2,
 134                         Child, (IPTR) Label(_(MSG_H)),
 135                         Child, (IPTR) (d.spacing_horiz_slider = MakeSpacingSlider()),
 136                         Child, (IPTR) Label(_(MSG_V)),
 137                         Child, (IPTR) (d.spacing_vert_slider = MakeSpacingSlider()),
 138                         Child, (IPTR) HVSpace,
 139                         Child, (IPTR) CLabel(_(MSG_SPACING)),
 140                         End, /* ColGroup */
 141                     Child, (IPTR) HSpace(0),
 142                     End, /* Radio Buttons */
 143                 End, /* other buttons */
 144             End, /* obj */
 145         TAG_MORE, (IPTR) msg->ops_AttrList
 146     );
 147
 148     if (!obj) return FALSE;
 149
 150     data = INST_DATA(cl, obj);
 151     *data = d;
 152
 153     return (IPTR)obj;
 154 }
 155
 156
 157 static IPTR ButtonsP_ConfigToGadgets(struct IClass *cl, Object *obj,
 158                                      struct MUIP_Settingsgroup_ConfigToGadgets *msg)
 159 {
 160     struct MUI_ButtonsPData *data = INST_DATA(cl, obj);
 161     STRPTR spec;
 162
 163 /* Font */
 164     setstring(data->text_font_string, (IPTR)FindFont(MUICFG_Font_Button));
 165
 166 /* Backgrounds */
 167     spec = (STRPTR)DoMethod(msg->configdata, MUIM_Configdata_GetString,
 168                             MUICFG_Background_Button);
 169     set(data->text_background_popimage, MUIA_Imagedisplay_Spec, (IPTR)spec);
 170
 171     spec = (STRPTR)DoMethod(msg->configdata, MUIM_Configdata_GetString,
 172                             MUICFG_Background_Selected);
 173     set(data->text_selbackground_popimage, MUIA_Imagedisplay_Spec, (IPTR)spec);
 174
 175 /* Frames */
 176     spec = (STRPTR)DoMethod(msg->configdata, MUIM_Configdata_GetString,
 177                             MUICFG_Frame_Button);
 178     set(data->button_popframe, MUIA_Framedisplay_Spec, (IPTR)spec);
 179     spec = (STRPTR)DoMethod(msg->configdata, MUIM_Configdata_GetString,
 180                             MUICFG_Frame_ImageButton);
 181     set(data->imagebutton_popframe, MUIA_Framedisplay_Spec, (IPTR)spec);
 182
 183 /* Looks */
 184     spec = (STRPTR)DoMethod(msg->configdata, MUIM_Configdata_GetString,
 185                             MUICFG_Image_RadioButton);
 186     set(data->radio_look_popimage, MUIA_Imagedisplay_Spec, (IPTR)spec);
 187
 188     spec = (STRPTR)DoMethod(msg->configdata, MUIM_Configdata_GetString,
 189                             MUICFG_Image_CheckMark);
 190     set(data->checkmark_look_popimage, MUIA_Imagedisplay_Spec, (IPTR)spec);
 191
 192 /* Spacing */
 193     setslider(data->spacing_horiz_slider,
 194               DoMethod(msg->configdata, MUIM_Configdata_GetULong,
 195                        MUICFG_Radio_HSpacing));
 196     setslider(data->spacing_vert_slider,
 197               DoMethod(msg->configdata, MUIM_Configdata_GetULong,
 198                        MUICFG_Radio_VSpacing));
 199     return 1;
 200 }
 201
 202
 203 static IPTR ButtonsP_GadgetsToConfig(struct IClass *cl, Object *obj,
 204                                      struct MUIP_Settingsgroup_GadgetsToConfig *msg)
 205 {
 206     struct MUI_ButtonsPData *data = INST_DATA(cl, obj);
 207     STRPTR str;
 208
 209 /* Font */
 210     str = getstring(data->text_font_string);
 211     DoMethod(msg->configdata, MUIM_Configdata_SetFont, MUICFG_Font_Button, (IPTR)str);
 212
 213 /* Backgrounds */
 214     str = (STRPTR)XGET(data->text_background_popimage, MUIA_Imagedisplay_Spec);
 215     DoMethod(msg->configdata, MUIM_Configdata_SetImspec, MUICFG_Background_Button,
 216              (IPTR)str);
 217
 218     str = (STRPTR)XGET(data->text_selbackground_popimage, MUIA_Imagedisplay_Spec);
 219     DoMethod(msg->configdata, MUIM_Configdata_SetImspec, MUICFG_Background_Selected,
 220              (IPTR)str);
 221
 222 /* Frames */
 223     str = (STRPTR)XGET(data->button_popframe, MUIA_Framedisplay_Spec);
 224     DoMethod(msg->configdata, MUIM_Configdata_SetFramespec, MUICFG_Frame_Button,
 225              (IPTR)str);
 226     str = (STRPTR)XGET(data->imagebutton_popframe, MUIA_Framedisplay_Spec);
 227     DoMethod(msg->configdata, MUIM_Configdata_SetFramespec, MUICFG_Frame_ImageButton,
 228              (IPTR)str);
 229
 230 /* Looks */
 231     str = (STRPTR)XGET(data->radio_look_popimage, MUIA_Imagedisplay_Spec);
 232     DoMethod(msg->configdata, MUIM_Configdata_SetImspec, MUICFG_Image_RadioButton,
 233              (IPTR)str);
 234
 235     str = (STRPTR)XGET(data->checkmark_look_popimage, MUIA_Imagedisplay_Spec);
 236     DoMethod(msg->configdata, MUIM_Configdata_SetImspec, MUICFG_Image_CheckMark,
 237              (IPTR)str);
 238
 239 /* Spacing */
 240     DoMethod(msg->configdata, MUIM_Configdata_SetULong, MUICFG_Radio_HSpacing,
 241              XGET(data->spacing_horiz_slider, MUIA_Numeric_Value));
 242     DoMethod(msg->configdata, MUIM_Configdata_SetULong, MUICFG_Radio_VSpacing,
 243              XGET(data->spacing_vert_slider, MUIA_Numeric_Value));
 244
 245     return TRUE;
 246 }
 247
 248
 249 BOOPSI_DISPATCHER(IPTR, ButtonsP_Dispatcher, cl, obj, msg)
 250 {
 251     switch (msg->MethodID)
 252     {
 253         case OM_NEW: return ButtonsP_New(cl, obj, (struct opSet *)msg);
 254         case MUIM_Settingsgroup_ConfigToGadgets: return ButtonsP_ConfigToGadgets(cl,obj,(APTR)msg);break;
 255         case MUIM_Settingsgroup_GadgetsToConfig: return ButtonsP_GadgetsToConfig(cl,obj,(APTR)msg);break;
 256     }
 257
 258     return DoSuperMethodA(cl, obj, msg);
 259 }
 260 BOOPSI_DISPATCHER_END
 261
 262 /*
 263  * Class descriptor.
 264  */
 265 const struct __MUIBuiltinClass _MUIP_Buttons_desc = {
 266     "Buttons",
 267     MUIC_Group,
 268     sizeof(struct MUI_ButtonsPData),
 269     (void*)ButtonsP_Dispatcher
 270 };