rom/intuition/setprefs.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/exec.h>
   8 #include <proto/graphics.h>
   9 #include "intuition_intern.h"
  10 #include <intuition/preferences.h>
  11 #include <devices/input.h>
  12 #include <devices/inputevent.h>
  13 #include <prefs/pointer.h>
  14
  15 #include <stddef.h>
  16
  17 static void SetColors(UWORD *p, UBYTE first, UBYTE cnt, struct IntuitionBase *IntuitionBase)
  18 {
  19     struct Color32 *q = GetPrivIBase(IntuitionBase)->Colors;
  20     UBYTE i;
  21
  22     for (i = 0; i < cnt; i++) {
  23         q[i + first].red   = ((p[i] >> 8) & 0x0F) * 0x11111111;
  24         q[i + first].green = ((p[i] >> 4) & 0x0F) * 0x11111111;
  25         q[i + first].blue  = (p[i] & 0x0F) * 0x11111111;
  26     }
  27 }
  28
  29 /*****************************************************************************
  30
  31     NAME */
  32 #include <proto/intuition.h>
  33
  34     AROS_LH3(struct Preferences *, SetPrefs,
  35
  36 /*  SYNOPSIS */
  37          AROS_LHA(struct Preferences * , prefbuffer, A0),
  38          AROS_LHA(LONG                 , size, D0),
  39          AROS_LHA(BOOL                 , inform, D1),
  40
  41 /*  LOCATION */
  42          struct IntuitionBase *, IntuitionBase, 54, Intuition)
  43
  44 /*  FUNCTION
  45     Sets the current Preferences structure.
  46
  47     INPUTS
  48     prefbuffer - The buffer which contains your settings for the
  49         preferences.
  50     size - The number of bytes of the buffer you want to be copied.
  51     inform - If TRUE, all windows with IDCMP_NEWPREFS IDCMPFlags set
  52         get an IDCMP_NEWPREFS message.
  53
  54     RESULT
  55     Returns your parameter buffer.
  56
  57     NOTES
  58
  59     EXAMPLE
  60
  61     BUGS
  62
  63     SEE ALSO
  64     GetDefPrefs(), GetPrefs()
  65
  66     INTERNALS
  67
  68     HISTORY
  69
  70 *****************************************************************************/
  71 {
  72     AROS_LIBFUNC_INIT
  73
  74     DEBUG_SETPREFS(dprintf("SetPrefs: Buffer 0x%p Size 0x%d Inform %d\n", prefbuffer, size, inform));
  75     if (size > 0 && NULL != prefbuffer)
  76     {
  77         ULONG lock = LockIBase(0);
  78         BOOL  changepointer = FALSE;
  79
  80         if (size > offsetof(struct Preferences, PointerMatrix))
  81         {
  82             if (memcmp(&prefbuffer->PointerMatrix,&GetPrivIBase(IntuitionBase)->ActivePreferences->PointerMatrix,POINTERSIZE) != 0)
  83                 changepointer = TRUE;
  84         }
  85
  86         if (size > offsetof(struct Preferences, color17))
  87         {
  88             if (memcmp(&prefbuffer->color17, &GetPrivIBase(IntuitionBase)->ActivePreferences->color17, sizeof(UWORD) * 3) != 0)
  89                 changepointer = TRUE;
  90         }
  91
  92         CopyMem(prefbuffer,
  93                 GetPrivIBase(IntuitionBase)->ActivePreferences,
  94                 size <= sizeof(struct Preferences) ? size : sizeof(struct Preferences));
  95
  96         UnlockIBase(lock);
  97
  98         DEBUG_SETPREFS(dprintf("SetPrefs: DoubleClick %ld.%ld\n",
  99                                GetPrivIBase(IntuitionBase)->ActivePreferences->DoubleClick.tv_secs,
 100                                GetPrivIBase(IntuitionBase)->ActivePreferences->DoubleClick.tv_micro));
 101
 102         if (GetPrivIBase(IntuitionBase)->InputIO)
 103         {
 104             struct timerequest req =
 105             {
 106                 {{{0}, 0}, 0},
 107                 {{0}}
 108             };
 109
 110             if (size > offsetof(struct Preferences, KeyRptDelay))
 111             {
 112             #ifdef __MORPHOS__
 113                 /* No need to setup a reply port, this command is guaranteed to support
 114                  * quick I/O.
 115                  */
 116             #else
 117                 struct MsgPort *port = CreateMsgPort();
 118
 119                 if (port)
 120                 {
 121                     req.tr_node.io_Message.mn_ReplyPort = port;
 122
 123             #endif
 124                     DEBUG_SETPREFS(dprintf("SetPrefs: KeyRptDelay %ld secs micros %ld\n",
 125                                            GetPrivIBase(IntuitionBase)->ActivePreferences->KeyRptDelay.tv_secs,
 126                                            GetPrivIBase(IntuitionBase)->ActivePreferences->KeyRptDelay.tv_micro));
 127                     req.tr_node.io_Device = GetPrivIBase(IntuitionBase)->InputIO->io_Device;
 128                     req.tr_node.io_Unit = GetPrivIBase(IntuitionBase)->InputIO->io_Unit;
 129                     req.tr_node.io_Command = IND_SETTHRESH;
 130                     req.tr_time = GetPrivIBase(IntuitionBase)->ActivePreferences->KeyRptDelay;
 131                     DoIO(&req.tr_node);
 132
 133             #ifndef __MORPHOS__
 134                     DeleteMsgPort(port);
 135                 }
 136             #endif
 137             }
 138
 139             if (size > offsetof(struct Preferences, KeyRptSpeed))
 140             {
 141             #ifdef __MORPHOS__
 142                 /* No need to setup a reply port, this command is guaranteed to support
 143                  * quick I/O.
 144                  */
 145             #else
 146                 struct MsgPort *port = CreateMsgPort();
 147
 148                 if (port)
 149                 {
 150                     req.tr_node.io_Message.mn_ReplyPort = port;
 151             #endif
 152
 153                 DEBUG_SETPREFS(dprintf("SetPrefs: KeyRptSpeed secs %ld micros %ld\n",
 154                                        GetPrivIBase(IntuitionBase)->ActivePreferences->KeyRptSpeed.tv_secs,
 155                                        GetPrivIBase(IntuitionBase)->ActivePreferences->KeyRptSpeed.tv_micro));
 156
 157                 req.tr_node.io_Device = GetPrivIBase(IntuitionBase)->InputIO->io_Device;
 158                 req.tr_node.io_Unit = GetPrivIBase(IntuitionBase)->InputIO->io_Unit;
 159                 req.tr_node.io_Command = IND_SETPERIOD;
 160                 req.tr_time = GetPrivIBase(IntuitionBase)->ActivePreferences->KeyRptSpeed;
 161                 DoIO(&req.tr_node);
 162
 163             #ifndef __MORPHOS__
 164                 DeleteMsgPort(port);
 165                 }
 166             #endif
 167             }
 168         }
 169         else
 170         {
 171             DEBUG_SETPREFS(dprintf("SetPrefs: no InputIO..don't set Key prefs\n"));
 172         }
 173
 174         if (changepointer)
 175         {
 176             Object *pointer;
 177
 178             SetColors(&GetPrivIBase(IntuitionBase)->ActivePreferences->color17, 8, 3, IntuitionBase);
 179             pointer = MakePointerFromPrefs(IntuitionBase, GetPrivIBase(IntuitionBase)->ActivePreferences);
 180             if (pointer)
 181             {
 182                 InstallPointer(IntuitionBase, WBP_NORMAL, &GetPrivIBase(IntuitionBase)->DefaultPointer, pointer);
 183             }
 184         }
 185         if (size > offsetof(struct Preferences, color3))
 186             SetColors(&GetPrivIBase(IntuitionBase)->ActivePreferences->color0, 0, 4, IntuitionBase);
 187
 188         /*
 189         ** If inform == TRUE then notify all windows that want to know about
 190         ** an update on the preferences.
 191         ** Do that by creating an inputevent, that will be handled by our
 192         ** handler and converted to idcmp messages, as well as by all other
 193         ** input handlers (not sure it should be that way, but that shouldn't
 194         ** do any harm).
 195         */
 196
 197         if (inform)
 198         {
 199             struct MsgPort *port = CreateMsgPort();
 200
 201             DEBUG_SETPREFS(dprintf("SetPrefs: Send NEWPREFS event\n"));
 202
 203             if (port)
 204             {
 205                 struct InputEvent ie;
 206                 struct IOStdReq   req;
 207
 208                 ie.ie_NextEvent     = NULL;
 209                 ie.ie_Class         = IECLASS_NEWPREFS;
 210                 ie.ie_SubClass      = 0;
 211                 ie.ie_Code          = 0;
 212                 ie.ie_Qualifier     = 0;
 213                 ie.ie_EventAddress  = NULL;
 214
 215                 req.io_Message.mn_ReplyPort     = port;
 216                 req.io_Device                   = GetPrivIBase(IntuitionBase)->InputIO->io_Device;
 217                 req.io_Unit                     = GetPrivIBase(IntuitionBase)->InputIO->io_Unit;
 218                 req.io_Command                  = IND_WRITEEVENT;
 219                 req.io_Length                   = sizeof(ie);
 220                 req.io_Data                     = &ie;
 221
 222                 DoIO((struct IORequest *)&req);
 223
 224                 DeleteMsgPort(port);
 225             }
 226         }
 227     }
 228
 229     /* TODO: Is there any further immediate action to be taken when the prefences are updated? */
 230
 231     return prefbuffer;
 232
 233     AROS_LIBFUNC_EXIT
 234 } /* SetPrefs() */