rom/intuition/setiprefs_aros.c

   1 /*
   2     Copyright © 1995-2007, 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 <intuition/iprefs.h>
   9
  10 #include "intuition_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/intuition.h>
  16
  17     AROS_LH3(ULONG, SetIPrefs,
  18
  19 /*  SYNOPSIS */
  20          AROS_LHA(APTR , data, A0),
  21          AROS_LHA(ULONG, length, D0),
  22          AROS_LHA(ULONG, type, D1),
  23
  24 /*  LOCATION */
  25          struct IntuitionBase *, IntuitionBase, 96, Intuition)
  26
  27 /*  FUNCTION
  28
  29     INPUTS
  30
  31     RESULT
  32     Depending on the operation
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     ULONG Result = TRUE;
  51     ULONG lock = LockIBase(0);
  52
  53     DEBUG_SETIPREFS(bug("SetIPrefs: data %p length %lu type %lu\n", data, length, type));
  54
  55     switch (type)
  56     {
  57         case IPREFS_TYPE_ICONTROL:
  58             DEBUG_SETIPREFS(bug("SetIPrefs: IPREFS_TYPE_ICONTROL\n"));
  59             if (length > sizeof(struct IIControlPrefs))
  60                 length = sizeof(struct IIControlPrefs);
  61             CopyMem(data, &GetPrivIBase(IntuitionBase)->IControlPrefs, length);
  62             break;
  63
  64         case IPREFS_TYPE_SCREENMODE:
  65         {
  66             struct IScreenModePrefs old_prefs;
  67
  68             DEBUG_SETIPREFS(bug("SetIPrefs: IP_SCREENMODE\n"));
  69             if (length > sizeof(struct IScreenModePrefs))
  70                 length = sizeof(struct IScreenModePrefs);
  71
  72             if (memcmp(&GetPrivIBase(IntuitionBase)->ScreenModePrefs, data,
  73                        sizeof(struct IScreenModePrefs)) == 0)
  74                 break;
  75
  76             old_prefs = GetPrivIBase(IntuitionBase)->ScreenModePrefs;
  77             GetPrivIBase(IntuitionBase)->ScreenModePrefs = *(struct IScreenModePrefs *)data;
  78
  79             if (GetPrivIBase(IntuitionBase)->WorkBench)
  80             {
  81                 BOOL try = TRUE, closed;
  82
  83                 UnlockIBase(lock);
  84
  85                 while (try && !(closed = CloseWorkBench()))
  86                 {
  87                     struct EasyStruct es =
  88                     {
  89                         sizeof(struct EasyStruct),
  90                         0,
  91                         "System Request",
  92                         "Intuition is attempting to reset the screen,\n"
  93                         "please close all windows except Wanderer's ones.",
  94                         "Retry|Cancel"
  95                     };
  96
  97                     try = EasyRequestArgs(NULL, &es, NULL, NULL) == 1;
  98                 }
  99
 100                 if (closed)
 101                     #warning FIXME: handle the error condition!
 102                     /* What to do if OpenWorkBench() fails? Try until it succeeds?
 103                        Try for a finite amount of times? Don't try and do nothing
 104                        at all? */
 105                     OpenWorkBench();
 106                 else
 107                 {
 108                     lock = LockIBase(0);
 109                     GetPrivIBase(IntuitionBase)->ScreenModePrefs = old_prefs;
 110                     UnlockIBase(lock);
 111                     Result = FALSE;
 112                 }
 113
 114                 return Result;
 115
 116             }
 117
 118             break;
 119         }
 120
 121         default:
 122             DEBUG_SETIPREFS(bug("SetIPrefs: Unknown Prefs Type\n"));
 123             Result = FALSE;
 124             break;
 125     }
 126
 127     UnlockIBase(lock);
 128
 129     DEBUG_SETIPREFS(bug("SetIPrefs: Result 0x%lx\n",Result));
 130
 131     return(Result);
 132
 133     AROS_LIBFUNC_EXIT
 134 } /* private1 */