rom/intuition/setiprefs_aros.c

   1 /*
   2     Copyright © 1995-2003, 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     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  50
  51     ULONG Result = TRUE;
  52     ULONG lock = LockIBase(0);
  53
  54     DEBUG_SETIPREFS(bug("SetIPrefs: data %p length %lu type %lu\n", data, length, type));
  55
  56     switch (type)
  57     {
  58         case IPREFS_TYPE_ICONTROL:
  59             DEBUG_SETIPREFS(bug("SetIPrefs: IPREFS_TYPE_ICONTROL\n"));
  60             if (length > sizeof(struct IIControlPrefs))
  61                 length = sizeof(struct IIControlPrefs);
  62             CopyMem(data, &GetPrivIBase(IntuitionBase)->IControlPrefs, length);
  63             break;
  64
  65         case IPREFS_TYPE_SCREENMODE:
  66         {
  67             struct IScreenModePrefs old_prefs;
  68
  69             DEBUG_SETIPREFS(bug("SetIPrefs: IP_SCREENMODE\n"));
  70             if (length > sizeof(struct IScreenModePrefs))
  71                 length = sizeof(struct IScreenModePrefs);
  72
  73             if (memcmp(&GetPrivIBase(IntuitionBase)->ScreenModePrefs, data,
  74                        sizeof(struct IScreenModePrefs)) == 0)
  75                 break;
  76
  77             old_prefs = GetPrivIBase(IntuitionBase)->ScreenModePrefs;
  78             GetPrivIBase(IntuitionBase)->ScreenModePrefs = *(struct IScreenModePrefs *)data;
  79
  80             if (GetPrivIBase(IntuitionBase)->WorkBench)
  81             {
  82                 BOOL try = TRUE, closed;
  83
  84                 UnlockIBase(lock);
  85
  86                 while (try && !(closed = CloseWorkBench()))
  87                 {
  88                     struct EasyStruct es =
  89                     {
  90                         sizeof(struct EasyStruct),
  91                         0,
  92                         "System Request",
  93                         "Intuition is attempting to reset the screen,\n"
  94                         "please close all windows except Wanderer's ones.",
  95                         "Retry|Cancel"
  96                     };
  97
  98                     try = EasyRequestArgs(NULL, &es, NULL, NULL) == 1;
  99                 }
 100
 101                 if (closed)
 102                     #warning FIXME: handle the error condition!
 103                     /* What to do if OpenWorkBench() fails? Try until it succeeds?
 104                        Try for a finite amount of times? Don't try and do nothing
 105                        at all? */
 106                     OpenWorkBench();
 107                 else
 108                 {
 109                     lock = LockIBase(0);
 110                     GetPrivIBase(IntuitionBase)->ScreenModePrefs = old_prefs;
 111                     UnlockIBase(lock);
 112                     Result = FALSE;
 113                 }
 114
 115                 return Result;
 116
 117             }
 118
 119             break;
 120         }
 121
 122         default:
 123             DEBUG_SETIPREFS(bug("SetIPrefs: Unknown Prefs Type\n"));
 124             Result = FALSE;
 125             break;
 126     }
 127
 128     UnlockIBase(lock);
 129
 130     DEBUG_SETIPREFS(bug("SetIPrefs: Result 0x%lx\n",Result));
 131
 132     return(Result);
 133
 134     AROS_LIBFUNC_EXIT
 135 } /* private1 */