rom/intuition/openworkbench.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <aros/config.h>
   8 #include <intuition/intuition.h>
   9 #include <proto/intuition.h>
  10 #include <proto/graphics.h>
  11
  12 #include "intuition_intern.h"
  13
  14 static ULONG FindMode(ULONG width, ULONG height, ULONG depth, struct IntuitionBase *IntuitionBase)
  15 {
  16     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  17     ULONG modeid;
  18     struct TagItem modetags[] =
  19     {
  20         { BIDTAG_DesiredWidth,  width  }, /* 0 */
  21         { BIDTAG_DesiredHeight, height }, /* 1 */
  22         { BIDTAG_Depth,         depth  }, /* 2 */
  23         { TAG_DONE,             0      }
  24     };
  25
  26     /* Try to find the specified mode */
  27     modeid = BestModeIDA(modetags);
  28     D(bug("[OpenWorkbench] Size: %dx%d, depth: %d, ModeID 0x%08X\n", width, height, depth, modeid));
  29
  30     if (modeid == INVALID_ID)
  31     {
  32         /* If failed, we can have this resolution, but not this depth. Try 4 colors. */
  33         modetags[2].ti_Data = 2;
  34
  35         modeid = BestModeIDA(modetags);
  36         D(bug("[OpenWorkbench] Size: %dx%d, depth: 2, ModeID 0x%08X\n", width, height, modeid));
  37     }
  38
  39     return modeid;
  40 }
  41
  42 /*****************************************************************************
  43
  44     NAME */
  45         AROS_LH0(IPTR, OpenWorkBench,
  46
  47 /*  SYNOPSIS */
  48
  49 /*  LOCATION */
  50         struct IntuitionBase *, IntuitionBase, 35, Intuition)
  51
  52 /*  FUNCTION
  53         Attempt to open the Workbench screen.
  54
  55     INPUTS
  56         None.
  57
  58     RESULT
  59         Tries to (re)open WorkBench screen. If successful return value
  60         is a pointer to the screen structure, which shouldn't be used,
  61         because other programs may close the WorkBench and make the
  62         pointer invalid. If this function fails the return value is NULL.
  63
  64     NOTES
  65
  66     EXAMPLE
  67
  68     BUGS
  69
  70     SEE ALSO
  71         CloseWorkBench()
  72
  73     INTERNALS
  74
  75 *****************************************************************************/
  76 {
  77     AROS_LIBFUNC_INIT
  78
  79     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  80     struct Screen *wbscreen;
  81
  82     DEBUG_OPENWORKBENCH(dprintf("OpenWorkBench: <%s>\n",
  83                                 FindTask(NULL)->tc_Node.ln_Name));
  84
  85     /* Intuition not up yet? */
  86     if (!GetPrivIBase(IntuitionBase)->DefaultPointer)
  87         return FALSE;
  88
  89     LockPubScreenList();
  90
  91     wbscreen = GetPrivIBase(IntuitionBase)->WorkBench;
  92
  93     DEBUG_OPENWORKBENCH(dprintf("OpenWorkBench: Workbench 0x%lx\n",
  94                                 (ULONG) wbscreen));
  95
  96     if (wbscreen)
  97     {
  98         DEBUG_OPENWORKBENCH(dprintf("OpenWorkBench: returning Workbench screen at 0x%lx\n",
  99                                     (ULONG) wbscreen));
 100
 101         UnlockPubScreenList();
 102
 103         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_OPENWB, IntuitionBase);
 104
 105         return (IPTR)wbscreen;
 106     }
 107     else
 108     {
 109         /* Open the Workbench screen if we don't have one. */
 110
 111         WORD  width  = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Width;
 112         WORD  height = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Height;
 113         WORD  depth  = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Depth;
 114         ULONG modeid = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_DisplayID;
 115         APTR disphandle;
 116
 117         struct TagItem screenTags[] =
 118         {
 119             { SA_Width,                0                  }, /* 0 */
 120             { SA_Height,               0                  }, /* 1 */
 121             { SA_Depth,                depth              }, /* 2 */
 122             { SA_DisplayID,            0                  }, /* 3 */
 123             { SA_LikeWorkbench,        TRUE               }, /* 4 */
 124             { SA_Type,                 WBENCHSCREEN       }, /* 5 */
 125             { SA_Title,         (IPTR) "Workbench Screen" }, /* 6 */
 126             { SA_PubName,       (IPTR) "Workbench"        }, /* 7 */
 127             { SA_SharePens,            TRUE               }, /* 8 */
 128             { TAG_END,                 0                  }
 129         };
 130
 131         D(bug("[OpenWorkbench] Requested size: %dx%d, depth: %d, ModeID: 0x%08lX\n", width, height, depth, modeid));
 132
 133         /* First check if the specified ModeID exists in the system */
 134         disphandle = FindDisplayInfo(modeid);
 135         if (!disphandle)
 136         {
 137             D(bug("[OpenWorkbench] Invalid ModeID given\n"));
 138             modeid = INVALID_ID;
 139         }
 140
 141         if (modeid == INVALID_ID)
 142         {
 143             /*
 144              * We were unable to find the ModeID specified in our prefs. Need to find a replacement.
 145              * First we'll try to look up a mode corresponding to user-specified width, height and depth.
 146              */
 147
 148             /* Specifying -1's here causes BestModeIDA() to fail, fix up the values */
 149             if (width == STDSCREENWIDTH)
 150             {
 151                 D(bug("[OpenWorkbench] Using default width %d\n", AROS_DEFAULT_WBWIDTH));
 152                 width = AROS_DEFAULT_WBWIDTH;
 153             }
 154             if (height == STDSCREENHEIGHT)
 155             {
 156                 D(bug("[OpenWorkbench] Using default height %d\n", AROS_DEFAULT_WBHEIGHT));
 157                 height = AROS_DEFAULT_WBHEIGHT;
 158             }
 159             if (depth == -1)
 160                 depth = AROS_DEFAULT_WBDEPTH;
 161
 162 #ifdef __mc68000
 163             /* FIXME: less hacky RTG detection */
 164             /* select 640x480 if we appear to have RTG hardware (instead of standard PAL/NTSC mode) */
 165             if (height < 480)
 166             {
 167                 modeid = BestModeID(BIDTAG_DesiredWidth, 800, BIDTAG_DesiredHeight, 600,
 168                                     BIDTAG_Depth, 8, TAG_DONE);
 169
 170                 if (modeid != INVALID_ID)
 171                 {
 172                     /* If we have 800x600 or better mode, we assume we have RTG hardware */
 173                     height = 480;
 174                 }
 175             }
 176 #endif
 177
 178             modeid = FindMode(width, height, depth, IntuitionBase);
 179         }
 180
 181         if (modeid == INVALID_ID)
 182         {
 183             /* We don't have any modes with the specified resolution. Try SVGA default (800x600) */
 184             modeid = FindMode(800, 600, depth, IntuitionBase);
 185         }
 186
 187         if (modeid == INVALID_ID)
 188         {
 189             /* We don't have any modes with the specified resolution. Try VGA default (640x480) */
 190             modeid = FindMode(640, 480, depth, IntuitionBase);
 191         }
 192
 193         if (modeid == INVALID_ID)
 194         {
 195             /* We don't have any modes with the specified resolution. Try Amiga default (640x200) */
 196             modeid = FindMode(640, 200, depth, IntuitionBase);
 197         }
 198
 199         if (modeid == INVALID_ID)
 200         {
 201             /*
 202              * There's no even 640x200. Perhaps we are on some mobile device.
 203              * Here we try the smallest known screen. This size was picked up
 204              * from configure's defaults for old PalmPilot port.
 205              */
 206             modeid = FindMode(160, 160, depth, IntuitionBase);
 207         }
 208
 209         if (modeid != INVALID_ID)
 210         {
 211             struct DimensionInfo dim;
 212
 213             #define BOUND(min, val, max) \
 214                 (((val) == -1) ? -1 : ((min) > (val)) ? (min) : ((max) < (val)) ? (max) : (val))
 215
 216             /* Now fix up our specified size to fit into mode's limits. */
 217             if (GetDisplayInfoData(NULL, (UBYTE *)&dim, sizeof(dim), DTAG_DIMS, modeid))
 218             {
 219                 D(bug("[OpenWorkbench] Minimum size: %dx%d\n", dim.MinRasterWidth, dim.MinRasterHeight));
 220                 D(bug("[OpenWorkbench] Maximum size: %dx%d\n", dim.MaxRasterWidth, dim.MaxRasterHeight));
 221                 D(bug("[OpenWorkbench] Maximum depth: %d\n", dim.MaxDepth));
 222
 223                 width  = BOUND(dim.MinRasterWidth,  width,  dim.MaxRasterWidth);
 224                 height = BOUND(dim.MinRasterHeight, height, dim.MaxRasterHeight);
 225                 depth  = BOUND(0, depth, dim.MaxDepth);
 226                 D(bug("[OpenWorkbench] Corrected size: %dx%d %dbpp\n", width, height, depth));
 227
 228                 GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Width  = width;
 229                 GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Height = height;
 230                 GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Depth  = depth;
 231             }
 232
 233             /*
 234              * Remember this ModeID because OpenScreen() with SA_LikeWorkbench set to TRUE
 235              * looks at this field. We MUST have something valid here.
 236              */
 237             GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_DisplayID = modeid;
 238
 239             screenTags[0].ti_Data = width;
 240             screenTags[1].ti_Data = height;
 241             screenTags[2].ti_Data = depth;
 242             screenTags[3].ti_Data = modeid;
 243
 244             DEBUG_OPENWORKBENCH(dprintf("OpenWorkBench: Trying to open Workbench screen\n"));
 245
 246             FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_BEFORE_OPENWB, IntuitionBase);
 247
 248             wbscreen = OpenScreenTagList(NULL, screenTags);
 249         }
 250
 251         if( !wbscreen )
 252         {
 253             DEBUG_OPENWORKBENCH(dprintf("OpenWorkBench: failed to open Workbench screen !!!!\n"));
 254
 255             UnlockPubScreenList();
 256             return 0;
 257         }
 258
 259         GetPrivIBase(IntuitionBase)->WorkBench = wbscreen;
 260
 261         /* Make the screen public. */
 262         PubScreenStatus( wbscreen, 0 );
 263     }
 264
 265     /* We have opened the Workbench Screen. Now  tell the Workbench process
 266        to open it's windows, if there is one. We still do have the pub screen
 267        list locked. But while sending the Message to the Workbench task we
 268        must unlock the semaphore, otherwise there can be deadlocks if the
 269        Workbench task itself does something which locks the pub screen list.
 270
 271        But if we unlock the pub screen list, then some other task could try
 272        to close the Workbench screen in the meantime. The trick to solve
 273        this problem is to increase the psn_VisitorCount of the Workbench
 274        screen here, before unlocking the pub screen list. This way the
 275        Workbench screen cannot go away. */
 276
 277     GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount++;
 278     DEBUG_VISITOR(dprintf("OpenWorkbench: new VisitorCount %ld\n",
 279                           GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount));
 280
 281     UnlockPubScreenList();
 282
 283     DEBUG_VISITOR(dprintf("OpenWorkbench: notify Workbench\n"));
 284
 285     /* Don't call this function while pub screen list is locked! */
 286     TellWBTaskToOpenWindows(IntuitionBase);
 287
 288     /* Now fix the psn_VisitorCount we have increased by one, above. It's probably
 289        better to do this by hand, instead of calling UnlockPubScreen, because Un-
 290        lockPubScreen can send signal to psn_SigTask. */
 291
 292     LockPubScreenList();
 293     GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount--;
 294     DEBUG_VISITOR(dprintf("OpenWorkbench: new VisitorCount %ld\n",
 295                           GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount));
 296     UnlockPubScreenList();
 297
 298     FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_OPENWB, IntuitionBase);
 299
 300     return (IPTR)wbscreen;
 301
 302     AROS_LIBFUNC_EXIT
 303
 304 } /* OpenWorkBench */