?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
fix properties
[AROS.git] / rom / intuition / openscreen.c
blob143cb048043fad17178713ec7eb45b32e322fb30
1 /*
2 Copyright 1995-2010, The AROS Development Team. All rights reserved.
3 Copyright 2001-2003, The MorphOS Development Team. All Rights Reserved.
4 $Id$
5
6 Open a new screen.
7 */
8
9 #include <exec/memory.h>
10 #include <utility/tagitem.h>
11 #include <intuition/screens.h>
12 #include <intuition/intuition.h>
13 #include <intuition/imageclass.h>
14 #include <intuition/windecorclass.h>
15 #include <intuition/scrdecorclass.h>
16 #include <intuition/gadgetclass.h>
17 #include <intuition/extensions.h>
18 #include <graphics/modeid.h>
19 #include <graphics/videocontrol.h>
20 #include <graphics/displayinfo.h>
21 #include <prefs/screenmode.h>
22 #include <proto/exec.h>
23 #include <proto/graphics.h>
24 #include <proto/layers.h>
25 #include <proto/utility.h>
26 #include <proto/intuition.h>
27 #include <proto/dos.h>
28 #include <string.h>
29 #include <proto/cybergraphics.h>
30 #include <cybergraphx/cybergraphics.h>
31 #include "intuition_intern.h"
32 #include "intuition_customize.h"
33 #include "intuition_extend.h"
34 #include "inputhandler.h"
35 #include "inputhandler_support.h"
36 #include "inputhandler_actions.h"
37 #include "menus.h"
38 #include "monitorclass_private.h"
39
40 #ifndef DEBUG_OpenScreen
41 #define DEBUG_OpenScreen 0
42 #endif
43 #undef DEBUG
44 #if DEBUG_OpenScreen
45 #define DEBUG 1
46 #endif
47 #include <aros/debug.h>
48
49 struct OpenScreenActionMsg
50 {
51 struct IntuiActionMsg msg;
52 struct IntScreen *Screen;
53 struct NewScreen *NewScreen;
54 struct List *List;
55 };
56
57 static VOID int_openscreen(struct OpenScreenActionMsg *msg,
58 struct IntuitionBase *IntuitionBase);
59
60 #ifdef SKINS
61 extern const ULONG defaultdricolors[DRIPEN_NUMDRIPENS];
62 #endif
63
64 /*****************************************************************************
65
66 NAME */
67
68 AROS_LH1(struct Screen *, OpenScreen,
69
70 /* SYNOPSIS */
71 AROS_LHA(struct NewScreen *, newScreen, A0),
72
73 /* LOCATION */
74 struct IntuitionBase *, IntuitionBase, 33, Intuition)
75
76 /* FUNCTION
77
78 INPUTS
79
80 RESULT
81
82 NOTES
83
84 EXAMPLE
85
86 BUGS
87
88 SEE ALSO
89
90 INTERNALS
91 The function relies on display driver object being passed in DimensionInfo.reserved[0]
92 by graphics.library/GetDisplayInfoData()
93
94 HISTORY
95 29-10-95 digulla automatically created from
96 intuition_lib.fd and clib/intuition_protos.h
97
98 *****************************************************************************/
99 {
100 AROS_LIBFUNC_INIT
101
102 struct NewScreen ns;
103 struct TagItem *tag, *tagList;
104 IPTR vctl = 0;
105 struct IntScreen *screen;
106 int success;
107 struct Hook *layer_info_hook = NULL;
108 struct ColorSpec *colors = NULL;
109 ULONG *errorPtr; /* Store error at user specified location */
110 UWORD *customdripens = NULL;
111 ULONG *colors32 = NULL;
112 WORD sysfont = -1;
113 BOOL ok = TRUE, rp_inited = FALSE, li_inited = FALSE, sharepens = FALSE;
114 #ifdef USEWINDOWLOCK
115 BOOL windowlock = FALSE;
116 #endif
117 struct Rectangle *dclip = NULL;
118 LONG overscan = OSCAN_TEXT;
119 DisplayInfoHandle displayinfo;
120 struct DimensionInfo dimensions;
121 #ifdef __MORPHOS__
122 struct MonitorInfo monitor;
123 #endif
124 ULONG allocbitmapflags = BMF_DISPLAYABLE;
125 //ULONG lock;
126 WORD numcolors = 0;
127 UWORD spritebase;
128 BOOL workbench = FALSE;
129 BOOL draggable = TRUE;
130 struct TagItem modetags[] =
131 {
132 { BIDTAG_Depth , 0UL },
133 { BIDTAG_DesiredWidth , 0UL },
134 { BIDTAG_DesiredHeight , 0UL },
135 { TAG_DONE }
136 };
137 ULONG modeid = INVALID_ID;
138
139 /* Intuition not up yet? */
140 if (!GetPrivIBase(IntuitionBase)->DefaultPointer)
141 return FALSE;
142
143 ASSERT_VALID_PTR_ROMOK(newScreen);
144
145 #define COPY(x) screen->Screen.x = ns.x
146 #define SetError(x) if (errorPtr != NULL) *errorPtr = x;
147
148 D(bug("OpenScreen (%p = { Left=%d Top=%d Width=%d Height=%d Depth=%d })\n"
149 , newScreen
150 , newScreen->LeftEdge
151 , newScreen->TopEdge
152 , newScreen->Width
153 , newScreen->Height
154 , newScreen->Depth
155 ));
156
157 FireScreenNotifyMessage((IPTR) newScreen, SNOTIFY_BEFORE_OPENSCREEN, IntuitionBase);
158
159 ns = *newScreen;
160
161 if (newScreen->Type & NS_EXTENDED)
162 {
163 tagList = ((struct ExtNewScreen *)newScreen)->Extension;
164 }
165 else
166 {
167 tagList = NULL;
168 }
169
170 DEBUG_OPENSCREEN(dprintf("OpenScreen: Left %d Top %d Width %d Height %d Depth %d Tags 0x%lx\n",
171 ns.LeftEdge, ns.TopEdge, ns.Width, ns.Height, ns.Depth, tagList));
172
173 #ifdef __MORPHOS__
174 if (!LocaleBase) LocaleBase = OpenLibrary("locale.library",0);
175 if (!LocaleBase) return NULL;
176 #endif
177
178 #ifdef USEGETIPREFS //needs INTUITION_THEME_ENCHANCEMENT!
179 if (!GetPrivIBase(IntuitionBase)->IPrefsLoaded && FindPort(SKINMANAGERPORTNAME))
180 {
181 /* let's init prefs before 1st OpenScreen that needs them*/
182 int_SkinAction(SKA_GetIPrefs,0,0,IntuitionBase);
183 }
184 #endif
185
186 screen = AllocMem(sizeof (struct IntScreen), MEMF_ANY | MEMF_CLEAR);
187
188 DEBUG_OPENSCREEN(dprintf("OpenScreen: screen 0x%lx\n", screen));
189
190 /* Do this really early to be able to report errors */
191 errorPtr = (ULONG *)GetTagData(SA_ErrorCode, 0, tagList);
192
193 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_ErrorCode 0x%lx\n",errorPtr));
194
195 if (screen == NULL)
196 {
197 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
198 SetError(OSERR_NOMEM);
199 return NULL;
200 }
201
202 if (tagList)
203 {
204 if (GetTagData(SA_LikeWorkbench, FALSE, tagList))
205 {
206
207 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_LikeWorkbench\n"));
208
209 ns.Width = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Width;
210 ns.Height = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Height;
211 ns.Depth = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Depth;
212 modeid = GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_DisplayID;
213
214 if (GetPrivIBase(IntuitionBase)->ScreenModePrefs.smp_Control & SMF_AUTOSCROLL)
215 {
216 /* need to mark autoscroll */
217 ns.Type |= AUTOSCROLL;
218 }
219 sysfont = 1;
220 sharepens = TRUE; /* not sure */
221 }
222
223 while((tag = NextTagItem ((const struct TagItem **)&tagList)))
224 {
225 DEBUG_OPENSCREEN(dprintf("OpenScreen: Tag 0x%08lx Data 0x%08lx\n",
226 tag->ti_Tag, tag->ti_Data));
227 switch(tag->ti_Tag)
228 {
229 case SA_Left:
230 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Left %ld\n",tag->ti_Data));
231 ns.LeftEdge = tag->ti_Data;
232 break;
233
234 case SA_Top:
235 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Top %ld\n",tag->ti_Data));
236 ns.TopEdge = tag->ti_Data;
237 break;
238
239 case SA_Width:
240 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Width %ld\n",tag->ti_Data));
241 ns.Width = tag->ti_Data;
242 break;
243
244 case SA_Height:
245 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Height %ld\n",tag->ti_Data));
246 ns.Height = tag->ti_Data;
247 break;
248
249 case SA_Depth:
250 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Depth %ld\n",tag->ti_Data));
251 ns.Depth = tag->ti_Data;
252 break;
253
254 case SA_DetailPen:
255 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_DetailPen %ld\n",tag->ti_Data));
256 ns.DetailPen = tag->ti_Data;
257 break;
258
259 case SA_BlockPen:
260 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_BlockPen %ld\n",tag->ti_Data));
261 ns.BlockPen = tag->ti_Data;
262 break;
263
264 case SA_Type:
265 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Type 0x%lx\n",tag->ti_Data));
266 ns.Type &= ~SCREENTYPE;
267 ns.Type |= tag->ti_Data;
268 break;
269
270 case SA_Title:
271 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Title <%s>\n",tag->ti_Data));
272 ns.DefaultTitle = (UBYTE *)tag->ti_Data;
273 break;
274
275 case SA_ID:
276 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_ID <%s>\n",tag->ti_Data));
277 screen->ID = StrDup((STRPTR)tag->ti_Data);
278 break;
279
280 case SA_Font:
281 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Font 0x%lx\n",tag->ti_Data));
282 ns.Font = (struct TextAttr *)tag->ti_Data;
283 break;
284
285 case SA_Colors32:
286 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Colors32 0x%lx\n",tag->ti_Data));
287 colors32 = (ULONG *)tag->ti_Data;
288 break;
289
290 case SA_Colors:
291 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Colors 0x%lx\n",tag->ti_Data));
292 colors = (struct ColorSpec *)tag->ti_Data;
293 break;
294
295 case SA_SysFont:
296 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_SysFont 0x%lx\n",tag->ti_Data));
297 sysfont = (WORD)tag->ti_Data;
298 break;
299
300 case SA_BitMap:
301 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_BitMap 0x%lx\n",tag->ti_Data));
302 if(tag->ti_Data)
303 {
304 ns.Type |= CUSTOMBITMAP;
305 ns.CustomBitMap = (struct BitMap *)tag->ti_Data;
306 }
307 else
308 {
309 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_BitMap==NULL specified, custom bitmap use disabled\n"));
310 }
311 break;
312
313 /* Name of this public screen. */
314 case SA_PubName:
315 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_PubName <%s>\n",tag->ti_Data));
316 if (!tag->ti_Data)
317 {
318 screen->pubScrNode = AllocMem(sizeof(struct PubScreenNode), MEMF_CLEAR);
319 break;
320 }
321 else
322 {
323 struct Screen *old;
324
325 LockPubScreenList();
326
327 if (strcasecmp((char *)tag->ti_Data, "Workbench") == 0)
328 {
329 /* FIXME: This would still not be safe, if a normal app tried to open its own screen with SA_PubName=Workbench */
330 if (GetPrivIBase(IntuitionBase)->WorkBench)
331 {
332 UnlockPubScreenList();
333
334 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
335
336 return NULL;
337 }
338 workbench = TRUE;
339 }
340 else
341 {
342 old = LockPubScreen((STRPTR)tag->ti_Data);
343
344 if (old != NULL)
345 {
346 UnlockPubScreen(NULL, old);
347 SetError(OSERR_PUBNOTUNIQUE);
348 UnlockPubScreenList();
349 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
350
351 return NULL;
352 }
353 }
354
355 UnlockPubScreenList();
356 }
357
358 screen->pubScrNode = AllocMem(sizeof(struct PubScreenNode), MEMF_CLEAR);
359
360 DEBUG_OPENSCREEN(dprintf("OpenScreen: pubScrNode 0x%lx\n",screen->pubScrNode));
361
362 if (screen->pubScrNode == NULL)
363 {
364 SetError(OSERR_NOMEM);
365 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
366
367 return NULL;
368 }
369
370 if ((ns.Type & SCREENTYPE) == CUSTOMSCREEN)
371 {
372 ns.Type &= ~SCREENTYPE;
373 ns.Type |= PUBLICSCREEN;
374 }
375
376 screen->pubScrNode->psn_Node.ln_Name = AllocVec(MAXPUBSCREENNAME + 1,
377 MEMF_ANY);
378
379 if (screen->pubScrNode->psn_Node.ln_Name == NULL)
380 {
381 SetError(OSERR_NOMEM);
382 FreeMem(screen->pubScrNode, sizeof(struct PubScreenNode));
383 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
384
385 return NULL;
386 }
387
388 /* Always open public screens in private mode. */
389 screen->pubScrNode->psn_Flags |= PSNF_PRIVATE;
390 strcpy(screen->pubScrNode->psn_Node.ln_Name, (STRPTR)tag->ti_Data);
391 break;
392
393 /* Signal bit number to use when signalling public screen
394 signal task. */
395 case SA_PubSig:
396 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_PubSig 0x%lx\n",tag->ti_Data));
397 if (screen->pubScrNode == NULL)
398 {
399 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
400
401 return NULL;
402 }
403 /* If no PubTask is set, we set the calling task as default */
404 if (screen->pubScrNode->psn_SigTask == NULL)
405 screen->pubScrNode->psn_SigTask = FindTask(NULL);
406
407 screen->pubScrNode->psn_SigBit = (UBYTE)tag->ti_Data;
408 break;
409
410 /* Task that should be signalled when the public screen loses
411 its last visitor window. */
412 case SA_PubTask:
413 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_PubTask 0x%lx\n",tag->ti_Data));
414 if (screen->pubScrNode == NULL)
415 {
416 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
417 return NULL;
418 }
419 screen->pubScrNode->psn_SigTask = (struct Task *)tag->ti_Data;
420 break;
421
422 case SA_BackFill:
423 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_BackFill Hook 0x%lx\n",tag->ti_Data));
424 layer_info_hook = (struct Hook *)tag->ti_Data;
425 break;
426
427 case SA_Quiet:
428 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Quiet 0x%lx\n",tag->ti_Data));
429 if (tag->ti_Data)
430 {
431 ns.Type |= SCREENQUIET;
432 }
433 else
434 {
435 ns.Type &= ~SCREENQUIET;
436 }
437 break;
438
439 case SA_ShowTitle:
440 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_ShowTitle 0x%lx\n",tag->ti_Data));
441 if (tag->ti_Data)
442 {
443 ns.Type |= SHOWTITLE;
444 }
445 else
446 {
447 ns.Type &= ~SHOWTITLE;
448 }
449 break;
450
451 case SA_Pens:
452 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Pens 0x%lx\n",tag->ti_Data));
453 customdripens = (UWORD *)tag->ti_Data;
454 break;
455
456 case SA_DisplayID:
457 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_DisplayID 0x%lx\n",tag->ti_Data));
458 //if (modeid == INVALID_ID)
459 modeid = tag->ti_Data;
460 break;
461
462 case SA_SharePens:
463 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_SharePens 0x%lx\n",tag->ti_Data));
464 sharepens = tag->ti_Data ? TRUE : FALSE;
465 if (tag->ti_Data)
466 {
467 ns.Type |= PENSHARED;
468 }
469 else
470 {
471 ns.Type &= ~PENSHARED;
472 }
473 break;
474
475 case SA_Interleaved:
476 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Interleaved 0x%lx\n",tag->ti_Data));
477 if (tag->ti_Data)
478 {
479 allocbitmapflags |= BMF_INTERLEAVED;
480 }
481 else
482 {
483 allocbitmapflags &= ~BMF_INTERLEAVED;
484 }
485 break;
486
487 case SA_Behind:
488 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Behind 0x%lx\n",tag->ti_Data));
489 if (tag->ti_Data)
490 {
491 ns.Type |= SCREENBEHIND;
492 }
493 else
494 {
495 ns.Type &= ~SCREENBEHIND;
496 }
497 break;
498
499 case SA_DClip:
500 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_DClip 0x%lx\n",tag->ti_Data));
501 dclip = (struct Rectangle *)tag->ti_Data;
502 break;
503
504 case SA_Overscan:
505 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_OverScan 0x%lx\n",tag->ti_Data));
506 overscan = tag->ti_Data;
507 break;
508
509 case SA_LikeWorkbench:
510 case SA_ErrorCode:
511 /*
512 * handled elsewhere
513 */
514 break;
515
516 case SA_AutoScroll:
517 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_AutoScroll 0x%lx\n",tag->ti_Data));
518 ns.Type |= AUTOSCROLL;
519 break;
520
521 case SA_FullPalette:
522 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_FullPalette 0x%lx\n",tag->ti_Data));
523 break;
524
525 case SA_ColorMapEntries:
526 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_ColorMapEntries 0x%lx\n",tag->ti_Data));
527 numcolors = tag->ti_Data;
528 break;
529
530 case SA_Parent:
531 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Parent 0x%lx\n",tag->ti_Data));
532 break;
533
534 case SA_Draggable:
535 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Draggable 0x%lx\n",tag->ti_Data));
536 draggable = tag->ti_Data;
537 break;
538
539 case SA_Exclusive:
540 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_Exclusive 0x%lx\n",tag->ti_Data));
541 break;
542
543 case SA_VideoControl:
544 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_VideoControl 0x%p\n",tag->ti_Data));
545 vctl = tag->ti_Data;
546 break;
547
548 case SA_FrontChild:
549 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_FrontChild 0x%lx\n",tag->ti_Data));
550 break;
551
552 case SA_BackChild:
553 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_BackChild 0x%lx\n",tag->ti_Data));
554 break;
555
556 case SA_MinimizeISG:
557 DEBUG_OPENSCREEN(dprintf("OpenScreen: SA_MinimizeISG 0x%lx\n",tag->ti_Data));
558 break;
559
560 /* TODO: Missing SA_ Tags */
561 default:
562 DEBUG_OPENSCREEN(dprintf("OpenScreen: unknown tag 0x%lx data 0x%lx\n",
563 tag->ti_Tag,
564 tag->ti_Data));
565 break;
566
567 } /* switch (tag->ti_Tag) */
568
569 } /* while ((tag = NextTagItem (&tagList))) */
570
571 } /* if (tagList) */
572
573 DEBUG_OPENSCREEN(dprintf("OpenScreen: Requested: Left %d Top %d Width %d Height %d Depth %d Tags 0x%lx\n",
574 ns.LeftEdge, ns.TopEdge, ns.Width, ns.Height, ns.Depth, tagList));
575
576 /* First Init the RastPort then get the BitPlanes!! */
577
578 modetags[0].ti_Data = ns.Depth;
579 if (ns.Width != STDSCREENWIDTH)
580 {
581 modetags[1].ti_Data = ns.Width;
582 }
583 else
584 {
585 modetags[1].ti_Tag = TAG_IGNORE;
586 }
587
588 if (ns.Height != STDSCREENHEIGHT)
589 {
590 modetags[2].ti_Data = ns.Height;
591 }
592 else
593 {
594 modetags[2].ti_Tag = TAG_IGNORE;
595 }
596
597 /* if default HIRES_KEY or HIRESLACE_KEY is passed, make sure we find a replacement mode. */
598 if (INVALID_ID != modeid)
599 {
600 if (FindDisplayInfo(modeid) == NULL)
601 {
602 switch(modeid)
603 {
604 case HIRES_KEY:
605 case HIRESLACE_KEY:
606 {
607 modetags[1].ti_Data = ns.Width;
608 modetags[2].ti_Data = ns.Height;
609
610 DEBUG_OPENSCREEN(dprintf("resetting native mode id !!\n");)
611 DEBUG_OPENSCREEN(dprintf("ns.Width %ld ns.Height %ld ns.Depth %ld !!\n",
612 (LONG) ns.Width, (LONG) ns.Height, (LONG) ns.Depth);)
613
614 modeid = INVALID_ID;
615 }
616 break;
617
618 default:
619 break;
620 }
621 }
622 }
623
624 if (INVALID_ID == modeid)
625 {
626 modeid = BestModeIDA(modetags);
627 if (INVALID_ID == modeid)
628 {
629 DEBUG_OPENSCREEN(dprintf("!!! OpenScreen: Could not find valid modeid !!!\n");)
630 FireScreenNotifyMessage((IPTR) NULL, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
631
632 return NULL;
633 }
634 }
635
636 DEBUG_OPENSCREEN(dprintf("OpenScreen: Corrected ModeID: 0x%08lx\n", modeid));
637
638 InitRastPort(&screen->Screen.RastPort);
639 rp_inited = TRUE;
640 success = FALSE;
641
642 if ((displayinfo = FindDisplayInfo(modeid)) != NULL &&
643 GetDisplayInfoData(displayinfo, (APTR)&dimensions, sizeof(dimensions), DTAG_DIMS, modeid)
644 #ifdef __MORPHOS__
645 && GetDisplayInfoData(displayinfo, &monitor, sizeof(monitor), DTAG_MNTR, modeid)
646 #endif
647 )
648 {
649 #ifdef __MORPHOS__
650 screen->Monitor = monitor.Mspc;
651 #else
652 screen->MonitorObject = (Object *)dimensions.reserved[0];
653 screen->SpecialFlags = DoMethod(screen->MonitorObject, MM_GetCompositionFlags, modeid) << 8;
654 #endif
655 success = TRUE;
656
657 if (dclip == NULL)
658 {
659 switch (overscan)
660 {
661 case OSCAN_STANDARD:
662 dclip = &dimensions.StdOScan;
663 break;
664
665 case OSCAN_MAX:
666 dclip = &dimensions.MaxOScan;
667 break;
668
669 case OSCAN_VIDEO:
670 dclip = &dimensions.VideoOScan;
671 break;
672
673 default:
674 dclip = &dimensions.TxtOScan;
675 break;
676 }
677 }
678
679 if (ns.Width == STDSCREENWIDTH)
680 ns.Width = dclip->MaxX - dclip->MinX + 1;
681 else if (ns.Width < dimensions.MinRasterWidth)
682 ns.Width = dimensions.MinRasterWidth;
683 else if (ns.Width > dimensions.MaxRasterWidth)
684 ns.Width = dimensions.MaxRasterWidth;
685
686 if (ns.Height == STDSCREENHEIGHT)
687 ns.Height = dclip->MaxY - dclip->MinY + 1;
688 else if (ns.Height < dimensions.MinRasterHeight)
689 ns.Height = dimensions.MinRasterHeight;
690 else if (ns.Height > dimensions.MaxRasterHeight)
691 ns.Height = dimensions.MaxRasterHeight;
692
693 DEBUG_OPENSCREEN(dprintf("OpenScreen: Corrected: Width %ld Height %ld\n", ns.Width, ns.Height));
694
695 screen->Screen.RastPort.BitMap = NULL;
696 if (ns.Type & CUSTOMBITMAP)
697 {
698 struct BitMap *custombm;
699
700 custombm = ns.CustomBitMap;
701 #ifdef __MORPHOS__
702 if (IsCyberModeID(modeid) && custombm)
703 {
704 int pixfmt = GetCyberIDAttr(CYBRIDATTR_PIXFMT,modeid);
705
706 if(GetCyberMapAttr(custombm,CYBRMATTR_PIXFMT) != pixfmt)
707 {
708 // incompatible formats !
709 custombm = NULL;
710 }
711 }
712 #else
713 if (!(custombm->Flags & BMF_SPECIALFMT) || (modeid != (ULONG)custombm->Planes[7]))
714 custombm = NULL;
715 #endif
716
717 if(custombm != NULL)
718 {
719 screen->Screen.RastPort.BitMap = custombm;
720 ns.Depth = GetBitMapAttr(ns.CustomBitMap,BMA_DEPTH);
721 DEBUG_OPENSCREEN(dprintf("OpenScreen: CustomBitmap Depth %ld\n",
722 ns.Depth));
723 }
724 else
725 {
726 ns.CustomBitMap = NULL;
727 ns.Type &= ~CUSTOMBITMAP;
728 }
729 }
730
731 if(screen->Screen.RastPort.BitMap == NULL)
732 {
733 ULONG Depth = (dimensions.MaxDepth > 8) ? dimensions.MaxDepth : ns.Depth;
734 #ifdef __MORPHOS__
735 ULONG pixfmt;
736
737 switch(Depth)
738 {
739 case 15:
740 pixfmt = PIXFMT_RGB15;
741 break;
742 case 16:
743 pixfmt = PIXFMT_RGB16;
744 break;
745 case 24:
746 pixfmt = PIXFMT_BGR24;
747 break;
748 case 32:
749 pixfmt = PIXFMT_ARGB32;
750 break;
751 default:
752 pixfmt = PIXFMT_LUT8;
753 break;
754 }
755
756 if (IsCyberModeID(modeid))
757 {
758 pixfmt = GetCyberIDAttr(CYBRIDATTR_PIXFMT,modeid);
759 }
760
761
762 allocbitmapflags |= (BMF_SPECIALFMT|BMF_CLEAR);
763
764 screen->Screen.RastPort.BitMap = AllocBitMap(ns.Width,
765 ns.Height,
766 Depth,
767 allocbitmapflags | (pixfmt << 24),
768 NULL);
769 #else
770 struct TagItem bmtags[] = {
771 {BMATags_DisplayID, modeid},
772 {TAG_DONE , 0 }
773 };
774
775 screen->Screen.RastPort.BitMap = AllocBitMap(ns.Width,
776 ns.Height,
777 Depth,
778 allocbitmapflags | BMF_CHECKVALUE,
779 (struct BitMap *)bmtags);
780 #endif
781 screen->AllocatedBitmap = screen->Screen.RastPort.BitMap;
782
783 memcpy(&screen->Screen.BitMap,screen->Screen.RastPort.BitMap,sizeof(struct BitMap));
784 }
785
786 DEBUG_OPENSCREEN(dprintf("OpenScreen: BitMap 0x%lx\n",
787 screen->Screen.RastPort.BitMap));
788 }
789 else
790 {
791 DEBUG_OPENSCREEN(dprintf("OpenScreen: no displayinfo\n"));
792 SetError(OSERR_UNKNOWNMODE);
793 }
794
795 /* Init screen's viewport */
796 InitVPort(&screen->Screen.ViewPort);
797
798 /* Allocate a RasInfo struct in which we have a pointer
799 to the struct BitMap, into which the driver can
800 store its stuff. (Eg. pointer to a BitMap HIDD object)
801 */
802 screen->Screen.ViewPort.RasInfo = AllocMem(sizeof(struct RasInfo), MEMF_ANY | MEMF_CLEAR);
803
804 DEBUG_OPENSCREEN(dprintf("OpenScreen: RasInfo 0x%lx\n",
805 screen->Screen.ViewPort.RasInfo));
806
807 if (!success ||
808 (screen->Screen.RastPort.BitMap == NULL) ||
809 (screen->Screen.ViewPort.RasInfo == NULL))
810 {
811 ok = FALSE;
812 }
813 else
814 {
815 /* Store pointer to bitmap, so we can get hold of it
816 from withing LoadRGBxx() functions
817 */
818 D(bug("got allocated stuff\n"));
819 screen->Screen.ViewPort.RasInfo->BitMap = screen->Screen.RastPort.BitMap;
820
821 }
822
823 if (ok)
824 {
825 /* Read depth from the bitmap to avoid AttachPalExtra/ObtainPen getting
826 * confused if cgx decided to allocate a higher depth bitmap than what
827 * was asked.
828 */
829 ns.Depth = GetBitMapAttr(screen->Screen.RastPort.BitMap,BMA_DEPTH);
830 DEBUG_OPENSCREEN(bug("OpenScreen: Real bitmap depth is %u\n", ns.Depth));
831
832 if (!numcolors) {
833 if (ns.Depth < 5)
834 numcolors = 32;
835 else if (ns.Depth > 8)
836 numcolors = 256;
837 else
838 numcolors = 1L << ns.Depth;
839 }
840
841 /* Get a color map structure. Sufficient colors?? */
842
843 DEBUG_OPENSCREEN(dprintf("OpenScreen: Colormap Entries %ld\n",
844 numcolors));
845
846 if ((screen->Screen.ViewPort.ColorMap = GetColorMap(numcolors)) != NULL)
847 {
848 if (0 == AttachPalExtra(screen->Screen.ViewPort.ColorMap,
849 &screen->Screen.ViewPort))
850 {
851 #if 0
852 int i = 0;
853 char *alloclist;
854 UWORD *refcnt;
855
856 refcnt =(UWORD*) screen->Screen.ViewPort.ColorMap->PalExtra->pe_RefCnt;
857 alloclist = (UBYTE *)(refcnt + screen->Screen.ViewPort.ColorMap->Count);
858
859 DEBUG_OPENSCREEN(dprintf("OpenScreen: PalExtra alloclist 0x%lx Count %ld\n",alloclist,screen->Screen.ViewPort.ColorMap->Count));
860
861 while(i < screen->Screen.ViewPort.ColorMap->Count)
862 {
863 // initialize alloc list to -1,0,1,2,3,4
864
865 DEBUG_OPENSCREEN(dprintf("OpenScreen: alloclist[%ld]=%ld\n",
866 i,alloclist[i]));
867 i++;
868 }
869 #endif
870 }
871 else
872 {
873 ok = FALSE;
874 }
875 }
876 else
877 {
878 ok = FALSE;
879 }
880
881 DEBUG_OPENSCREEN(dprintf("OpenScreen: ColorMap 0x%lx\n",
882 screen->Screen.ViewPort.ColorMap));
883 }
884
885 #ifdef __MORPHOS__
886 screen->ModeID = modeid;
887 #endif
888
889 if (ok)
890 {
891 struct ViewPortExtra *vpe = (struct ViewPortExtra *)GfxNew(VIEWPORT_EXTRA_TYPE);
892
893 DEBUG_OPENSCREEN(dprintf("OpenScreen: ViewPortExtra 0x%lx\n", vpe));
894
895 ok = FALSE;
896
897 if (vpe)
898 {
899 struct TagItem tags[6];
900
901 memcpy(&vpe->DisplayClip, dclip,sizeof(struct Rectangle));
902
903 screen->Screen.ViewPort.DxOffset = ns.LeftEdge;
904 screen->Screen.ViewPort.DyOffset = ns.TopEdge;
905 screen->Screen.ViewPort.DWidth = dclip->MaxX - dclip->MinX + 1;//ns.Width; /* or from dclip ? */
906 screen->Screen.ViewPort.DHeight = dclip->MaxY - dclip->MinY + 1;//ns.Height;
907
908 tags[0].ti_Tag = VTAG_ATTACH_CM_SET;
909 tags[0].ti_Data = (IPTR)&screen->Screen.ViewPort;
910 tags[1].ti_Tag = VTAG_VIEWPORTEXTRA_SET;
911 tags[1].ti_Data = (IPTR)vpe;
912 tags[2].ti_Tag = VTAG_NORMAL_DISP_SET;
913 tags[2].ti_Data = (IPTR)displayinfo;
914 tags[3].ti_Tag = VTAG_VPMODEID_SET;
915 tags[3].ti_Data = modeid;
916 tags[4].ti_Tag = VTAG_SPEVEN_BASE_SET;
917 tags[5].ti_Tag = VTAG_NEXTBUF_CM; /* if vctl is 0, this will terminate the list */
918 tags[5].ti_Data = vctl;
919
920 /* Originally we could always use palette entries 16-19 for
921 sprites, even if the screen has less than 32 colors. AROS may
922 run on hardware that does not allow this (e.g. VGA cards).
923 In this case we have to shift down sprite colors. Currently
924 we use 4 colors before last 4 colors. For example on VGA cards
925 with only 16 colors we use colors 9 - 12. Remember that last 4 colors
926 of the screen are always used by Intuition.
927 Remember that the first color of the sprite is always transparent. So actually
928 we use 3, not 4 colors.
929 Yes, sprites may look not as expected on screens with low color depth, but at
930 least they will be seen. It's better than nothing.
931
932 Note that because our base color number doesn't always divide by 16, we use MSB to store
933 the remainder (offset in the color bank). Yes, it's a bit hacky, but i have no better idea
934 at the moment.
935
936 FIXME: this mapping scheme assumes that we always have at least 16 colors.
937 For current display modes supported by AROS it's always true, but in future
938 we may support more display modes (for example monochrome ones), and we
939 should take into account that on screens with less than 11 colors this simply
940 won't work
941
942 TODO: I think we should have SpriteBase attribute for the bitmap which
943 defaults to acceptable value. We should just get its default value here.
944 The same attribute would be set by VideoControl() and MakeVPort() in order
945 to actually apply the value. */
946 spritebase = (ns.Depth < 5) ? (1 << ns.Depth) - 8 : 16;
947 DEBUG_OPENSCREEN(bug("OpenScreen: spritebase is %u\n", spritebase));
948 tags[4].ti_Data = ((spritebase & 0x0F) << 8 ) | (spritebase >> 4);
949
950 if (VideoControl(screen->Screen.ViewPort.ColorMap, tags) == 0)
951 {
952 DEBUG_OPENSCREEN(dprintf("OpenScreen: VideoControl ok\n"));
953 ok = TRUE;
954 }
955 else
956 {
957 DEBUG_OPENSCREEN(dprintf("OpenScreen: VideoControl failed\n"));
958 }
959 }
960 }
961
962 if (ok)
963 {
964 struct Color32 *p;
965 int k;
966
967 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set first 4 colors\n"));
968 p = GetPrivIBase(IntuitionBase)->Colors;
969 for (k = 0; k < 4; ++k)
970 {
971 DEBUG_OPENSCREEN(dprintf("OpenScreen: Viewport 0x%p Index %ld R 0x%lx G 0x%lx B 0x%lx\n",
972 &screen->Screen.ViewPort,
973 k, p[k].red, p[k].green, p[k].blue));
974 SetRGB32(&screen->Screen.ViewPort, k, p[k].red, p[k].green, p[k].blue);
975 }
976
977 if (ns.Depth >= 3)
978 {
979 ULONG lastcol = ((ns.Depth > 8) ? 256 : (1 << ns.Depth)) - 4;
980
981 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set last 4 colors (starting from %u)\n", lastcol));
982 for (k = 0; k < 4; ++k)
983 {
984 DEBUG_OPENSCREEN(dprintf("OpenScreen: Viewport 0x%p Index %u R 0x%08X G 0x%08X B 0x%08X\n",
985 &screen->Screen.ViewPort,
986 k + lastcol, p[k+4].red, p[k+4].green, p[k+4].blue));
987
988 if (k + lastcol < numcolors)
989 ObtainPen(screen->Screen.ViewPort.ColorMap, k + lastcol,
990 p[k+4].red, p[k+4].green, p[k+4].blue, 0);
991 else
992 /* Can't be allocated, but can still be set. */
993 SetRGB32(&screen->Screen.ViewPort, k + lastcol,
994 p[k+4].red, p[k+4].green, p[k+4].blue);
995 }
996 }
997 /* Allocate pens for mouse pointer sprite only on LUT screens. On hi- and
998 truecolor screens sprite colors come from colormap attached to the sprite
999 bitmap itself.
1000 See pointerclass::New() for details. */
1001 #ifndef ALWAYS_ALLOCATE_SPRITE_COLORS
1002 if (ns.Depth < 9)
1003 #endif
1004 {
1005 DEBUG_OPENSCREEN(dprintf("OpenScreen: Obtain Mousepointer colors\n"));
1006 /* Allocate pens for the mouse pointer */
1007 for (k = 1; k < 4; ++k)
1008 {
1009 DEBUG_OPENSCREEN(dprintf("OpenScreen: ViewPort 0x%p Index %d R 0x%08X G 0x%08X B 0x%08X\n",
1010 &screen->Screen.ViewPort,
1011 k + spritebase,
1012 p[k+7].red,
1013 p[k+7].green,
1014 p[k+7].blue));
1015 if (k + spritebase < numcolors)
1016 ObtainPen(screen->Screen.ViewPort.ColorMap, k + spritebase,
1017 p[k+7].red, p[k+7].green, p[k+7].blue, 0);
1018 else
1019 SetRGB32(&screen->Screen.ViewPort, k + spritebase,
1020 p[k+4].red, p[k+4].green, p[k+4].blue);
1021 }
1022 }
1023
1024 if (colors) /* if SA_Colors tag exists */
1025 {
1026 DEBUG_OPENSCREEN(dprintf("OpenScreen: set SA_Colors 0x%lx\n",colors));
1027 for(; colors->ColorIndex != (WORD)~0; colors++)
1028 {
1029 DEBUG_OPENSCREEN(dprintf("OpenScreen: SetRGB4 Viewport 0x%lx Index %ld R 0x%lx G 0x%lx B 0x%lx\n",
1030 screen->Screen.ViewPort,
1031 colors,
1032 colors->Red,
1033 colors->Green,
1034 colors->Blue));
1035 SetRGB4(&screen->Screen.ViewPort,
1036 colors->ColorIndex,
1037 colors->Red,
1038 colors->Green,
1039 colors->Blue);
1040 }
1041 }
1042
1043 if (colors32) /* if SA_Colors32 tag exists */
1044 {
1045 DEBUG_OPENSCREEN(dprintf("OpenScreen: LoadRGB32 colors32 0x%lx\n",colors32));
1046 LoadRGB32(&screen->Screen.ViewPort, (const ULONG *)colors32);
1047 }
1048
1049 D(bug("Loaded colors\n"));
1050
1051 MakeVPort(&IntuitionBase->ViewLord, &screen->Screen.ViewPort);
1052 /* Put validated values into screen structure, this is important */
1053 screen->Screen.LeftEdge = screen->Screen.ViewPort.DxOffset;
1054 screen->Screen.TopEdge = screen->Screen.ViewPort.DyOffset;
1055 COPY(Width);
1056 COPY(Height);
1057 COPY(DetailPen);
1058 COPY(BlockPen);
1059 COPY(Font);
1060 COPY(DefaultTitle);
1061
1062 //intui68k filters this
1063 screen->Screen.Flags = (ns.Type & ~NS_EXTENDED);
1064
1065 /* Temporary hack */
1066 if (ns.Width >= 500 || ns.Height >= 300)
1067 screen->Screen.Flags |= SCREENHIRES;
1068
1069 /*
1070 Copy the data from the rastport's bitmap
1071 to the screen's bitmap structure
1072 */
1073 screen->Screen.BitMap = *screen->Screen.RastPort.BitMap;
1074
1075 #ifdef __MORPHOS__
1076 screen->Screen.WBorTop = 2;
1077 screen->Screen.WBorLeft = 4;
1078 screen->Screen.WBorRight = 4;
1079 screen->Screen.WBorBottom = 2;
1080 #else
1081 screen->Screen.WBorTop = 3; /* Amiga default is 2 */
1082 screen->Screen.WBorLeft = 4;
1083 screen->Screen.WBorRight = 4;
1084 screen->Screen.WBorBottom = 2; /* Amiga default is 2 */
1085 #endif
1086
1087 screen->Screen.Title = ns.DefaultTitle;
1088
1089 if (screen->ID == NULL) if (screen->Screen.Title) screen->ID = StrDup(screen->Screen.Title);
1090
1091 DEBUG_OPENSCREEN(dprintf("OpenScreen: init layers\n"));
1092 InitLayers(&screen->Screen.LayerInfo);
1093 li_inited = TRUE;
1094
1095 #if 0
1096 /* Root layer now installed automatically by first call
1097 to CreateLayerTagList */
1098
1099 #ifdef CreateLayerTagList
1100 {
1101 struct TagItem tags[4] =
1102 {
1103 {LA_Visible , FALSE },
1104 {LA_Priority, ROOTPRIORITY },
1105 {TAG_DONE }
1106 };
1107
1108 screen->rootLayer =
1109 CreateLayerTagList(&screen->Screen.LayerInfo,
1110 screen->Screen.RastPort.BitMap,
1111 screen->Screen.LeftEdge,
1112 screen->Screen.TopEdge,
1113 screen->Screen.LeftEdge + screen->Screen.Width - 1,
1114 screen->Screen.TopEdge + screen->Screen.Height - 1,
1115 0,
1116 tags);
1117
1118 DEBUG_OPENSCREEN(dprintf("OpenScreen: rootLayer 0x%lx\n",screen->rootLayer));
1119 }
1120 #endif
1121 #endif
1122
1123 if (NULL != layer_info_hook)
1124 {
1125 DEBUG_OPENSCREEN(dprintf("OpenScreen: instal layerinfohook\n"));
1126 InstallLayerInfoHook(&screen->Screen.LayerInfo, layer_info_hook);
1127 }
1128 D(bug("layers intited screen\n"));
1129
1130 screen->DInfo.dri.dri_Version = DRI_VERSION;
1131 screen->DInfo.dri.dri_NumPens = NUMDRIPENS;
1132 screen->DInfo.dri.dri_Pens = screen->Pens;
1133 /* dri_Depth is 8 on hi/true color screens like in AmigaOS with picasso96/cybergraphx */
1134 screen->DInfo.dri.dri_Depth = (ns.Depth <= 8) ? ns.Depth : 8;
1135 /* FIXME: Resolution should be monitor dependent */
1136 screen->DInfo.dri.dri_Resolution.X = 44;
1137 screen->DInfo.dri.dri_Resolution.Y = 44;
1138
1139 if (ns.Depth > 8) screen->DInfo.dri.dri_Flags = DRIF_DIRECTCOLOR;
1140
1141 screen->DInfo.dri_Screen = &screen->Screen;
1142
1143 /* SA_SysFont overrides SA_Font! */
1144
1145 DEBUG_OPENSCREEN(dprintf("OpenScreen: SysFont = %d, ns.Font = %p\n", sysfont, ns.Font));
1146
1147 if (sysfont == 0)
1148 {
1149 /* Is handled below */
1150 DEBUG_OPENSCREEN(dprintf("OpenScreen: skip SysFont for now\n"));
1151 }
1152 else if (sysfont == 1)
1153 {
1154 #if 1
1155 /* Use safe OpenFont here - Piru
1156 */
1157 screen->DInfo.dri.dri_Font = SafeReopenFont(IntuitionBase, &GetPrivIBase(IntuitionBase)->ScreenFont);
1158 #else
1159 #warning: Really hacky way of re-opening ScreenFont
1160
1161 Forbid();
1162 screen->DInfo.dri.dri_Font = GetPrivIBase(IntuitionBase)->ScreenFont;
1163 screen->DInfo.dri.dri_Font->tf_Accessors++;
1164 Permit();
1165 #endif
1166
1167 screen->SpecialFlags |= SF_SysFont;
1168
1169 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set ScreenFont\n"));
1170
1171 }
1172 else if (ns.Font)
1173 {
1174 screen->DInfo.dri.dri_Font = OpenFont(ns.Font);
1175 DEBUG_OPENSCREEN(dprintf("OpenScreen: custom font 0x%lx\n",screen->DInfo.dri.dri_Font));
1176 }
1177
1178 if (!screen->DInfo.dri.dri_Font)
1179 {
1180 /* GfxBase->DefaultFont is *not* always topaz 8. It
1181 can be set with the Font prefs program!! */
1182
1183 #if 1
1184 /* Use safe OpenFont.. - Piru
1185 */
1186 screen->DInfo.dri.dri_Font = SafeReopenFont(IntuitionBase, &GfxBase->DefaultFont);
1187 #else
1188
1189 #warning: Really hacky way of re-opening system default font
1190
1191 Forbid();
1192 screen->DInfo.dri.dri_Font = GfxBase->DefaultFont;
1193 screen->DInfo.dri.dri_Font->tf_Accessors++;
1194 Permit();
1195 #endif
1196 }
1197
1198 if (!screen->DInfo.dri.dri_Font) ok = FALSE;
1199
1200 } /* if (ok) */
1201
1202 if (ok)
1203 {
1204 /* set default values for pens */
1205 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set Default Pens\n"));
1206
1207 CopyMem(ns.Depth == 1 ? GetPrivIBase(IntuitionBase)->DriPens2
1208 : ns.Depth == 4 ? GetPrivIBase(IntuitionBase)->DriPens4
1209 : GetPrivIBase(IntuitionBase)->DriPens8,
1210 screen->Pens,
1211 sizeof(screen->Pens));
1212
1213 if (ns.Depth > 1)
1214 {
1215 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set NewLook\n"));
1216 screen->DInfo.dri.dri_Flags |= DRIF_NEWLOOK;
1217 }
1218
1219
1220 if (customdripens)
1221 {
1222 WORD i;
1223
1224 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set Custom Pens\n"));
1225
1226 screen->Pens[DETAILPEN] = screen->Screen.DetailPen;
1227 screen->Pens[BLOCKPEN] = screen->Screen.BlockPen;
1228
1229 for(i = 0; (i < NUMDRIPENS) && (customdripens[i] != (UWORD)~0); i++)
1230 {
1231 DEBUG_OPENSCREEN(dprintf("OpenScreen: Pen[%ld] %ld\n",i,screen->Pens[i]));
1232 screen->Pens[i] = customdripens[i];
1233 }
1234 }
1235 else
1236 {
1237 /*
1238 * Let`s do some broken software validation of the pens
1239 * so we may not run into a black desktop.
1240 */
1241
1242 DEBUG_OPENSCREEN(dprintf("OpenScreen: Check Default Pens if the make sense\n"));
1243 if (screen->Screen.DetailPen == screen->Screen.BlockPen)
1244 {
1245 DEBUG_OPENSCREEN(dprintf("OpenScreen: DetailPen==BlockPen..correct\n"));
1246 screen->Screen.DetailPen = 0;
1247 screen->Screen.BlockPen = 1;
1248 }
1249 else
1250 if (screen->Screen.BlockPen == 0)
1251 {
1252 DEBUG_OPENSCREEN(dprintf("OpenScreen: BlockPen==0..correct\n"));
1253 screen->Screen.BlockPen = screen->Screen.DetailPen;
1254 screen->Screen.DetailPen = 0;
1255 }
1256
1257 screen->Pens[DETAILPEN] = screen->Screen.DetailPen;
1258 screen->Pens[BLOCKPEN] = screen->Screen.BlockPen;
1259 }
1260
1261 /* Allocate shared/exclusive colors */
1262
1263 {
1264 BYTE color_alloced[256];
1265
1266 WORD i;
1267
1268 for(i = 0; i < 256; i++)
1269 {
1270 color_alloced[i] = FALSE;
1271 }
1272
1273 /* Mouse pointer colors */
1274
1275 color_alloced[17] = TRUE;
1276 color_alloced[18] = TRUE;
1277 color_alloced[19] = TRUE;
1278
1279 /* The Pens in the DrawInfo must be allocated as shared */
1280
1281 DEBUG_OPENSCREEN(dprintf("OpenScreen: ObtainPen DrawInfo Pens as shared\n"));
1282
1283 for(i = 0; i < NUMDRIPENS; i++)
1284 {
1285 int pen = screen->Pens[i];
1286
1287 if (!color_alloced[pen])
1288 {
1289 DEBUG_OPENSCREEN(dprintf("OpenScreen: ObtainPen ColorMap 0x%lx Pen %ld\n",
1290 screen->Screen.ViewPort.ColorMap,
1291 pen));
1292
1293 ObtainPen(screen->Screen.ViewPort.ColorMap,
1294 pen,
1295 0,
1296 0,
1297 0,
1298 PENF_NO_SETCOLOR);
1299 color_alloced[pen] = TRUE;
1300 }
1301 }
1302 DEBUG_OPENSCREEN(dprintf("OpenScreen: done\n"));
1303
1304 /* If SA_SharePens is FALSE then allocate the rest of the colors
1305 in the colormap as exclusive */
1306
1307 if (!sharepens)
1308 {
1309 DEBUG_OPENSCREEN(dprintf("OpenScreen: ObtainPen the remaining Pens as exclusive\n"));
1310
1311 for(i = 0; i < numcolors; i++)
1312 {
1313 if (!color_alloced[i])
1314 {
1315 DEBUG_OPENSCREEN(dprintf("OpenScreen: ObtainPen ColorMap 0x%lx Pen %ld\n",
1316 screen->Screen.ViewPort.ColorMap,
1317 i));
1318 ObtainPen(screen->Screen.ViewPort.ColorMap,
1319 i,
1320 0,
1321 0,
1322 0,
1323 PENF_EXCLUSIVE | PENF_NO_SETCOLOR);
1324 }
1325 }
1326
1327 } /* if (!sharepens) */
1328
1329 }
1330 }
1331
1332 #ifdef SKINS
1333 if (ok)
1334 {
1335 ULONG realdepth;
1336
1337 screen->DInfo.dri_Screen = &screen->Screen; //useful sometimes ;)
1338
1339 realdepth = GetBitMapAttr( screen->Screen.RastPort.BitMap, BMA_DEPTH );
1340 if (realdepth > 8)
1341 {
1342 screen->DInfo.dri_Flags |= DRIF_DIRECTCOLOR;
1343 }
1344 else
1345 {
1346 screen->DInfo.dri_Flags &= ~DRIF_DIRECTCOLOR;
1347 }
1348
1349 if (!(screen->DInfo.dri_Colors = AllocMem(4 * DRIPEN_NUMDRIPENS,MEMF_PUBLIC)))
1350 ok = FALSE;
1351
1352 if (ok)
1353 {
1354 CopyMem(&defaultdricolors,screen->DInfo.dri_Colors,sizeof (defaultdricolors));
1355 memset(((UBYTE *) screen->DInfo.dri_Colors) + sizeof(defaultdricolors), 0, 4 * DRIPEN_NUMDRIPENS - sizeof(defaultdricolors));
1356 }
1357
1358 if (ok)
1359 {
1360 if ((screen->DInfo.dri_Customize = AllocMem(sizeof (struct IntuitionCustomize),MEMF_PUBLIC|MEMF_CLEAR)))
1361 {
1362 struct IntuitionCustomize *ic;
1363 ic = screen->DInfo.dri_Customize;
1364 screen->DInfo.dri_Flags |= DRIF_SKINSSUPPORT;
1365 /* This initializes CustomizePrefs structure */
1366
1367 int_SkinAction(SKA_LoadSkin,(ULONG*)&screen->DInfo,(struct Screen *)screen,IntuitionBase);
1368 }
1369 else
1370 {
1371 ok = FALSE;
1372 }
1373 }
1374 }
1375
1376 if (ok)
1377 {
1378 struct windowclassprefs *wcprefs;
1379
1380 wcprefs = (struct windowclassprefs *)int_GetCustomPrefs(TYPE_WINDOWCLASS,&screen->DInfo,IntuitionBase);
1381 if (wcprefs->flags & WINDOWCLASS_PREFS_1TO1FRAMES)
1382 {
1383 screen->Screen.WBorLeft = screen->Screen.WBorTop;
1384 screen->Screen.WBorRight = screen->Screen.WBorTop;
1385 screen->Screen.WBorBottom = screen->Screen.WBorTop;
1386 }
1387 #ifdef TITLEHACK
1388 screen->Screen.WBorTop += wcprefs->titlebarincrement;
1389 #endif
1390 int_FreeCustomPrefs(TYPE_WINDOWCLASS,&screen->DInfo,IntuitionBase);
1391 }
1392
1393 #endif
1394
1395 if (ok)
1396 {
1397 IPTR userbuffersize;
1398
1399 struct NewDecorator *nd;
1400
1401 nd = ((struct IntIntuitionBase *)(IntuitionBase))->Decorator;
1402
1403 ObtainSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
1404
1405 struct DosLibrary *DOSBase;
1406
1407 DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 40);
1408 if (DOSBase)
1409 {
1410 struct Node *node;
1411 if (!IsListEmpty(&GetPrivIBase(IntuitionBase)->Decorations))
1412 {
1413 node = GetPrivIBase(IntuitionBase)->Decorations.lh_Head;
1414 for (; node->ln_Succ; node = node->ln_Succ)
1415 {
1416 struct NewDecorator *d = (struct NewDecorator *) node;
1417 if ((d->nd_IntPattern != NULL) && (screen->ID != NULL)) if (MatchPattern(d->nd_IntPattern, screen->ID)) nd = d;
1418 }
1419 }
1420
1421 CloseLibrary((struct Library *) DOSBase);
1422 }
1423
1424 // if (MatchPattern(tl->parsename, task->tc_Node.ln_Name)) b = tl;
1425
1426 if (nd != NULL)
1427 {
1428 screen->ScrDecorObj = nd->nd_Screen;
1429 screen->WinDecorObj = nd->nd_Window;
1430 screen->MenuDecorObj = nd->nd_Menu;
1431 }
1432 else
1433 {
1434 screen->ScrDecorObj = ((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorObj;
1435 screen->WinDecorObj = ((struct IntIntuitionBase *)(IntuitionBase))->WinDecorObj;
1436 screen->MenuDecorObj = ((struct IntIntuitionBase *)(IntuitionBase))->MenuDecorObj;
1437 }
1438 screen->Decorator = nd;
1439
1440 if (screen->Decorator) screen->Decorator->nd_cnt++;
1441
1442 ReleaseSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
1443
1444 GetAttr(SDA_UserBuffer, screen->ScrDecorObj, &userbuffersize);
1445
1446 if (userbuffersize)
1447 {
1448 screen->DecorUserBufferSize = userbuffersize;
1449 screen->DecorUserBuffer = (IPTR) AllocMem(userbuffersize, MEMF_ANY | MEMF_CLEAR);
1450 if (!screen->DecorUserBuffer) ok = FALSE;
1451 }
1452 }
1453
1454 if (ok)
1455 {
1456 struct TagItem sysi_tags[] =
1457 {
1458 {SYSIA_Which , MENUCHECK },
1459 {SYSIA_DrawInfo , (IPTR)&screen->DInfo },
1460 {SYSIA_UserBuffer, screen->DecorUserBuffer },
1461
1462 {TAG_DONE }
1463 };
1464
1465 screen->DInfo.dri.dri_CheckMark = NewObjectA(NULL, "sysiclass", sysi_tags);
1466 DEBUG_OPENSCREEN(dprintf("OpenScreen: CheckMark 0x%lx\n",
1467 screen->DInfo.dri.dri_CheckMark));
1468
1469 sysi_tags[0].ti_Data = AMIGAKEY;
1470
1471 screen->DInfo.dri.dri_AmigaKey = NewObjectA(NULL, "sysiclass", sysi_tags);
1472 DEBUG_OPENSCREEN(dprintf("OpenScreen: AmigaKey 0x%lx\n",
1473 screen->DInfo.dri.dri_AmigaKey));
1474
1475 sysi_tags[0].ti_Data = SUBMENUIMAGE;
1476
1477 screen->DInfo.dri.dri_SubMenuImage = NewObjectA(NULL, "sysiclass", sysi_tags);
1478 DEBUG_OPENSCREEN(dprintf("OpenScreen: SubMenuImage 0x%lx\n",
1479 screen->DInfo.dri.dri_SubMenuImage));
1480
1481 #ifdef SKINS
1482 sysi_tags[0].ti_Data = SUBMENUIMAGE;
1483 screen->DInfo.dri_Customize->submenu = NewObjectA(NULL, "sysiclass", sysi_tags);
1484 sysi_tags[0].ti_Data = MENUTOGGLEIMAGE;
1485 screen->DInfo.dri_Customize->menutoggle = NewObjectA(NULL, "sysiclass", sysi_tags);
1486 if (!screen->DInfo.dri_Customize->submenu ||
1487 !screen->DInfo.dri_Customize->menutoggle) ok = FALSE;
1488 #endif
1489
1490 if (!screen->DInfo.dri.dri_CheckMark || !screen->DInfo.dri.dri_AmigaKey || !screen->DInfo.dri.dri_SubMenuImage) ok = FALSE;
1491 }
1492
1493
1494
1495 if (ok)
1496 {
1497 SetFont(&screen->Screen.RastPort, screen->DInfo.dri.dri_Font);
1498
1499 AskFont(&screen->Screen.RastPort, (struct TextAttr *) &screen->textattr);
1500
1501 screen->Screen.Font = (struct TextAttr *) &screen->textattr;
1502
1503 DEBUG_OPENSCREEN(dprintf("OpenScreen: Font %s/%d\n",
1504 screen->textattr.tta_Name, screen->textattr.tta_YSize));
1505
1506 screen->Screen.BarVBorder = 1; /* on the Amiga it is (usually?) 1 */
1507 screen->Screen.BarHBorder = 5;
1508 screen->Screen.MenuVBorder = 2; /* on the Amiga it is (usually?) 2 */
1509 screen->Screen.MenuHBorder = 4;
1510
1511 struct sdpInitScreen msg;
1512
1513 msg.MethodID = SDM_INITSCREEN;
1514 msg.sdp_Screen = &screen->Screen;
1515 msg.sdp_TrueColor = screen->DInfo.dri.dri_Flags & DRIF_DIRECTCOLOR;
1516 msg.sdp_FontHeight = screen->DInfo.dri.dri_Font->tf_YSize;
1517 msg.sdp_BarVBorder = screen->Screen.BarVBorder;
1518 msg.sdp_BarHBorder = screen->Screen.BarHBorder;
1519 msg.sdp_MenuVBorder = screen->Screen.MenuVBorder;
1520 msg.spd_MenuHBorder = screen->Screen.MenuHBorder;
1521 msg.sdp_WBorTop = screen->Screen.WBorTop;
1522 msg.sdp_WBorLeft = screen->Screen.WBorLeft;
1523 msg.sdp_WBorRight = screen->Screen.WBorRight;
1524 msg.sdp_WBorBottom = screen->Screen.WBorBottom;
1525
1526 #ifdef TITLEHACK
1527 msg.sdp_TitleHack = screen->Screen.WBorTop-2;
1528 #else
1529 msg.sdp_TitleHack = 0;
1530 #endif
1531
1532 msg.sdp_BarHeight = msg.sdp_FontHeight + msg.sdp_BarVBorder * 2 + msg.sdp_TitleHack;
1533 msg.sdp_UserBuffer = ((struct IntScreen *)screen)->DecorUserBuffer;
1534
1535 if (!DoMethodA(((struct IntScreen *)(screen))->ScrDecorObj, (Msg)&msg)) ok = FALSE;
1536 if (ok)
1537 {
1538 screen->Screen.BarHeight = msg.sdp_BarHeight;
1539 screen->Screen.BarVBorder = msg.sdp_BarVBorder;
1540 screen->Screen.BarHBorder = msg.sdp_BarHBorder;
1541 screen->Screen.MenuVBorder = msg.sdp_MenuVBorder;
1542 screen->Screen.MenuHBorder = msg.spd_MenuHBorder;
1543 screen->Screen.WBorTop = msg.sdp_WBorTop;
1544 screen->Screen.WBorLeft = msg.sdp_WBorLeft;
1545 screen->Screen.WBorRight = msg.sdp_WBorRight;
1546 screen->Screen.WBorBottom = msg.sdp_WBorBottom;
1547 }
1548 }
1549
1550
1551 if (ok)
1552 {
1553 #define SDEPTH_HEIGHT (screen->Screen.BarHeight + 1)
1554 #ifdef IA_Screen
1555 #undef IA_Screen
1556 #endif
1557 #define IA_Screen (IA_Dummy + 0x1f) /* OS v44 includes!*/
1558
1559 struct TagItem sdepth_tags[] =
1560 {
1561 {GA_Image , 0 },
1562 {GA_Top , 0 },
1563 #if SQUARE_WIN_GADGETS
1564 {GA_Width , SDEPTH_HEIGHT },
1565 #endif
1566 {GA_Height , SDEPTH_HEIGHT },
1567 {GA_SysGadget , TRUE },
1568 {GA_SysGType , GTYP_SDEPTH },
1569 {GA_RelVerify , TRUE },
1570 {TAG_DONE }
1571 };
1572
1573 Object *im = 0;
1574
1575 if (!(screen->Screen.Flags & SCREENQUIET))
1576 {
1577 im = CreateStdSysImage(SDEPTHIMAGE, SDEPTH_HEIGHT, &screen->Screen, (APTR) ((struct IntScreen *)screen)->DecorUserBuffer,
1578 (struct DrawInfo *)&screen->DInfo, IntuitionBase);
1579 }
1580
1581 sdepth_tags[0].ti_Data = (IPTR)im;
1582
1583 screen->depthgadget = NewObjectA(NULL, BUTTONGCLASS, sdepth_tags );
1584
1585 DEBUG_OPENSCREEN(dprintf("OpenScreen: DepthGadget 0x%lx\n",
1586 screen->depthgadget));
1587
1588 screen->Screen.FirstGadget = (struct Gadget *)screen->depthgadget;
1589 if (screen->Screen.FirstGadget)
1590 {
1591 struct sdpLayoutScreenGadgets msg;
1592
1593 screen->Screen.FirstGadget->GadgetType |= GTYP_SCRGADGET;
1594
1595 msg.MethodID = SDM_LAYOUT_SCREENGADGETS;
1596 msg.sdp_TrueColor = screen->DInfo.dri.dri_Flags & DRIF_DIRECTCOLOR;
1597 msg.sdp_Layer = screen->Screen.BarLayer;
1598 msg.sdp_Gadgets = screen->Screen.FirstGadget;
1599 msg.sdp_Flags = SDF_LSG_INITIAL | SDF_LSG_MULTIPLE;
1600 msg.sdp_UserBuffer = ((struct IntScreen *)screen)->DecorUserBuffer;
1601
1602 DoMethodA(((struct IntScreen *)(screen))->ScrDecorObj, (Msg)&msg);
1603
1604 #if 0
1605 struct TagItem gadtags[] =
1606 {
1607 {GA_RelRight, 0 },
1608 {TAG_DONE }
1609 };
1610 IPTR width;
1611
1612 GetAttr(GA_Width, screen->depthgadget, &width);
1613
1614 gadtags[0].ti_Data = -width + 1;
1615 SetAttrsA(screen->depthgadget, gadtags);
1616 #endif
1617
1618 }
1619 else
1620 {
1621 if (im) DisposeObject(im);
1622 }
1623
1624
1625 #if DEBUG_OpenScreen
1626 {
1627 int i;
1628
1629 for (i = 0; i <= screen->DInfo.dri.dri_NumPens; i++)
1630 {
1631 dprintf("OpenScreen: dri_Pen[%ld] = %ld\n", i, screen->DInfo.dri.dri_Pens[i]);
1632 }
1633 }
1634 #endif
1635
1636 #ifdef USEWINDOWLOCK
1637 /* let's wait for user to finish window drag/size actions to avoid
1638 deadlocks and not break user's input */
1639 ObtainSemaphore(&GetPrivIBase(IntuitionBase)->WindowLock);
1640 windowlock = TRUE;
1641 #endif
1642
1643 #ifdef SKINS
1644 int_CalcSkinInfo(&screen->Screen,IntuitionBase);
1645 int_InitTitlebarBuffer(screen,IntuitionBase);
1646 #endif
1647
1648 D(bug("Calling SetRast()\n"));
1649
1650 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set background color Pen %ld\n",screen->Pens[BACKGROUNDPEN]));
1651 /* Set screen to background color */
1652 SetRast(&screen->Screen.RastPort, screen->Pens[BACKGROUNDPEN]);
1653
1654 D(bug("SetRast() called\n"));
1655
1656 DEBUG_OPENSCREEN(dprintf("OpenScreen: Creating screen bar\n"));
1657
1658 #ifdef SKINS
1659 if (workbench)
1660 {
1661 if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_NOWBTITLEBAR) screen->SpecialFlags |= SF_InvisibleBar;
1662 if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_DISAPPEARINGTITLEBAR) screen->SpecialFlags |= SF_AppearingBar;
1663 }
1664 #endif
1665 if (draggable)
1666 screen->SpecialFlags |= SF_Draggable;
1667 DEBUG_OPENSCREEN(bug("OpenScreen: Special flags: 0x%04X\n", screen->SpecialFlags));
1668
1669 //jDc: ALL screens MUST have BarLayer!
1670 CreateScreenBar(&screen->Screen, IntuitionBase);
1671
1672 DEBUG_OPENSCREEN(bug("OpenScreen: ScreenBar = %p\n", screen->Screen.BarLayer));
1673
1674 if (!screen->Screen.BarLayer) ok = FALSE;
1675
1676 /*
1677 ** jDc: better modify the screen list in sync with inputhandler, this for example allows us to scan the list
1678 ** without any locks when we are on input.device context
1679 */
1680 if (ok)
1681 {
1682 struct OpenScreenActionMsg msg;
1683 struct List *list = LockPubScreenList();
1684
1685 msg.Screen = screen;
1686 msg.NewScreen = &ns;
1687 msg.List = list;
1688
1689 DEBUG_OPENSCREEN(dprintf("OpenScreen: Calling DoSyncAction()\n"));
1690
1691 DoSyncAction((APTR)int_openscreen,&msg.msg,IntuitionBase);
1692
1693 DEBUG_OPENSCREEN(dprintf("OpenScreen: DoSyncAction returned\n"));
1694
1695 UnlockPubScreenList();
1696 }
1697
1698 } /* if (ok) */
1699
1700 if (ok)
1701 {
1702 GetAttr(POINTERA_SharedPointer, GetPrivIBase(IntuitionBase)->DefaultPointer, (IPTR *)&screen->Pointer);
1703 ObtainSharedPointer(screen->Pointer, IntuitionBase);
1704 DEBUG_OPENSCREEN(dprintf("OpenScreen: Sprite DefaultPtr 0x%lx\n",&screen->Pointer));
1705 }
1706
1707 #ifdef __MORPHOS__
1708 if (ok)
1709 {
1710 ok = MakeScreen(&screen->Screen) == 0;
1711 DEBUG_OPENSCREEN(dprintf("OpenScreen: MakeScreen %s\n", ok ? "ok" : "failed"));
1712 }
1713 #endif
1714 if (ok)
1715 {
1716 ok = RethinkDisplay() == 0;
1717 DEBUG_OPENSCREEN(dprintf("OpenScreen: RethinkDisplay %s\n", ok ? "ok" : "failed"));
1718 }
1719
1720 #ifdef SKINS
1721 if (ok)
1722 {
1723 FireMenuMessage(MMCODE_STARTCLOCK,NULL,NULL,IntuitionBase);
1724 }
1725 #endif
1726
1727 #ifdef USEWINDOWLOCK
1728 if (windowlock) ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->WindowLock);
1729 #endif
1730
1731 if (!ok)
1732 {
1733 if (li_inited)
1734 {
1735 DEBUG_OPENSCREEN(dprintf("OpenScreen: Get ThinLayerInfo\n"));
1736 ThinLayerInfo(&screen->Screen.LayerInfo);
1737 }
1738
1739 if (screen->Screen.ViewPort.ColorMap)
1740 {
1741 FreeColorMap(screen->Screen.ViewPort.ColorMap);
1742 }
1743
1744 if (screen->Screen.BarLayer)
1745 {
1746 DEBUG_OPENSCREEN(dprintf("OpenScreen: KillScreenBar\n"));
1747 KillScreenBar(&screen->Screen, IntuitionBase);
1748 }
1749
1750 #ifdef SKINS
1751 DisposeObject(screen->DInfo.dri_Customize->submenu);
1752 DisposeObject(screen->DInfo.dri_Customize->menutoggle);
1753 if (screen->DInfo.dri_Customize) FreeMem(screen->DInfo.dri_Customize,sizeof (struct IntuitionCustomize));
1754 if (screen->DInfo.dri_Colors) FreeMem(screen->DInfo.dri_Colors,4 * DRIPEN_NUMDRIPENS);
1755 #endif
1756 if (screen->DInfo.dri.dri_AmigaKey)
1757 {
1758 DEBUG_OPENSCREEN(dprintf("OpenScreen: Dispose AmigaKey Object\n"));
1759 DisposeObject(screen->DInfo.dri.dri_AmigaKey);
1760 }
1761 if (screen->DInfo.dri.dri_CheckMark)
1762 {
1763 DEBUG_OPENSCREEN(dprintf("OpenScreen: Dispose CheckMark Object\n"));
1764 DisposeObject(screen->DInfo.dri.dri_CheckMark);
1765 }
1766
1767 if (screen->DInfo.dri.dri_SubMenuImage)
1768 {
1769 DEBUG_OPENSCREEN(dprintf("OpenScreen: Dispose SubMenuImage Object\n"));
1770 DisposeObject(screen->DInfo.dri.dri_SubMenuImage);
1771 }
1772
1773 if (screen->DInfo.dri.dri_Font)
1774 {
1775 DEBUG_OPENSCREEN(dprintf("OpenScreen: Close Font\n"));
1776 CloseFont(screen->DInfo.dri.dri_Font);
1777 }
1778
1779 if (screen->AllocatedBitmap && !(ns.Type & CUSTOMBITMAP))
1780 {
1781 DEBUG_OPENSCREEN(dprintf("OpenScreen: Free BitMap\n"));
1782 FreeBitMap(screen->AllocatedBitmap);
1783 }
1784
1785 if (screen->Screen.ViewPort.RasInfo)
1786 {
1787 DEBUG_OPENSCREEN(dprintf("OpenScreen: Free RasInfo\n"));
1788 FreeMem(screen->Screen.ViewPort.RasInfo, sizeof (struct RasInfo));
1789 }
1790
1791 if (rp_inited)
1792 {
1793 DEBUG_OPENSCREEN(dprintf("OpenScreen: Trash Rastport\n"));
1794 DeinitRastPort(&screen->Screen.RastPort);
1795 }
1796
1797 if (screen->DecorUserBuffer)
1798 {
1799 FreeMem((void *)screen->DecorUserBuffer, screen->DecorUserBufferSize);
1800 }
1801
1802 if (screen->Decorator) screen->Decorator->nd_cnt--;
1803
1804 if (screen->ID) FreeVec(screen->ID);
1805
1806 DEBUG_OPENSCREEN(dprintf("OpenScreen: Free Screen\n"));
1807 FreeMem (screen, sizeof (struct IntScreen));
1808
1809 screen = 0;
1810
1811 } /* if (!ok) */
1812
1813 DEBUG_OPENSCREEN(dprintf("OpenScreen: return 0x%lx\n", screen));
1814
1815 FireScreenNotifyMessage((IPTR) screen, SNOTIFY_AFTER_OPENSCREEN, IntuitionBase);
1816
1817 ReturnPtr ("OpenScreen", struct Screen *, (struct Screen *)screen);
1818
1819 AROS_LIBFUNC_EXIT
1820
1821 } /* OpenScreen */
1822
1823 static VOID int_openscreen(struct OpenScreenActionMsg *msg,
1824 struct IntuitionBase *IntuitionBase)
1825 {
1826 ULONG lock;
1827 struct IntScreen *screen = msg->Screen;
1828 struct NewScreen *ns = msg->NewScreen;
1829 struct List *list = msg->List;
1830 struct Screen *oldFirstScreen;
1831
1832 DEBUG_OPENSCREEN(dprintf("OpenScreen: Checking for pubScrNode (0x%lx)\n",screen->pubScrNode));
1833
1834 /* If this is a public screen, we link it into the intuition global
1835 public screen list */
1836 if (screen->pubScrNode != NULL)
1837 {
1838 /* Set the pointer to ourselves */
1839 GetPrivScreen(screen)->pubScrNode->psn_Screen = &screen->Screen;
1840
1841 DEBUG_OPENSCREEN(dprintf("OpenScreen: Add Screen to PubList\n"));
1842 AddTail(list, (struct Node *)GetPrivScreen(screen)->pubScrNode);
1843 }
1844
1845 lock = LockIBase(0);
1846
1847 oldFirstScreen = IntuitionBase->FirstScreen;
1848
1849 if (ns->Type & SCREENBEHIND)
1850 {
1851 struct Screen **ptr = &IntuitionBase->FirstScreen;
1852
1853 DEBUG_OPENSCREEN(dprintf("OpenScreen: Sort Behind\n"));
1854 if (!*ptr)
1855 IntuitionBase->ActiveScreen = &screen->Screen;
1856 while (*ptr)
1857 ptr = &(*ptr)->NextScreen;
1858 *ptr = &screen->Screen;
1859 }
1860 else
1861 {
1862 screen->Screen.NextScreen = IntuitionBase->FirstScreen;
1863 IntuitionBase->FirstScreen =
1864 IntuitionBase->ActiveScreen = &screen->Screen;
1865 DEBUG_OPENSCREEN(dprintf("OpenScreen: Set as ActiveScreen\n"));
1866 }
1867
1868 /* If it's the first screen being opened, activate its monitor */
1869 if (!oldFirstScreen)
1870 ActivateMonitor(screen->MonitorObject, -1, -1, IntuitionBase);
1871
1872 /* set the default pub screen */
1873 if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_DEFPUBSCREEN)
1874 {
1875 if ((IntuitionBase->FirstScreen == &screen->Screen) && screen->pubScrNode && (screen->Screen.Flags & (PUBLICSCREEN | WBENCHSCREEN)))
1876 {
1877 GetPrivIBase(IntuitionBase)->DefaultPubScreen = &screen->Screen;
1878 }
1879 }
1880
1881 UnlockIBase(lock);
1882
1883 D(bug("set active screen\n"));
1884
1885 AddResourceToList(screen, RESOURCE_SCREEN, IntuitionBase);
1886
1887 }
Mirror of AROS' svn.