rom/intuition/openworkbench.c

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