Macintosh-Tools
/
executor
mirror of https://github.com/ctm/executor.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
executor/src/windDisplay.c

361 lines
9.2 KiB
C
Raw Permalink Blame History

/* Copyright 1986, 1989, 1990, 1995 by Abacus Research and
* Development, Inc. All rights reserved.
*/
#if !defined (OMIT_RCSID_STRINGS)
char ROMlib_rcsid_windDisplay[] =
"$Id: windDisplay.c 63 2004-12-24 18:19:43Z ctm $";
#endif
/* Forward declarations in WindowMgr.h (DO NOT DELETE THIS LINE) */
#include "rsys/common.h"
#include "WindowMgr.h"
#include "OSUtil.h"
#include "MemoryMgr.h"
/* get {C}PORT_... accessors */
#include "rsys/cquick.h"
#include "rsys/wind.h"
#include "rsys/glue.h"
P2(PUBLIC pascal trap, void, SetWTitle, WindowPtr, w, StringPtr, t)
{
if (!w)
return;
PtrToXHand((Ptr) t, (Handle) WINDOW_TITLE (w), (LONGINT) t[0] + 1);
THEPORT_SAVE_EXCURSION
(MR (wmgr_port),
{
WINDOW_TITLE_WIDTH_X (w) = CW (StringWidth (t));
if (WINDOW_VISIBLE_X (w))
{
SetClip (WINDOW_STRUCT_REGION (w));
ClipAbove ((WindowPeek) w);
WINDCALL (w, wDraw, 0);
}
});
}
P2(PUBLIC pascal trap, void, GetWTitle, WindowPtr, w, StringPtr, t)
{
if (!w)
/*-->*/ return;
str255assign (t, STARH (WINDOW_TITLE (w)));
}
A1(PUBLIC, WindowPeek, ROMlib_firstvisible, WindowPtr, w) /* INTERNAL */
{
WindowPeek wp;
for (wp = (WindowPeek) w;
wp && (!WINDOW_VISIBLE_X (wp)
|| wp == (WindowPeek) MR (GhostWindow));
wp = WINDOW_NEXT_WINDOW (wp))
;
return wp;
}
P0(PUBLIC pascal trap, WindowPtr, FrontWindow)
{
WindowPtr retval;
retval = (WindowPtr) ROMlib_firstvisible ((WindowPtr) MR (WindowList));
return retval;
}
P2(PUBLIC pascal trap, void, HiliteWindow, WindowPtr, w, BOOLEAN, flag)
{
if (!w)
return;
THEPORT_SAVE_EXCURSION
(MR (wmgr_port),
{
SetClip (WINDOW_STRUCT_REGION (w));
ClipAbove ((WindowPeek) w);
if (flag && !WINDOW_HILITED_X (w))
{
WINDOW_HILITED_X (w) = TRUE;
WINDCALL(w, wDraw, 0);
}
else if (!flag && WINDOW_HILITED_X (w))
{
WINDOW_HILITED_X (w) = FALSE;
WINDCALL(w, wDraw, 0);
}
});
}
P1(PUBLIC pascal trap, void, BringToFront, WindowPtr, w)
{
WindowPeek wp;
RgnHandle hidden;
if (MR (WindowList) != (WindowPeek) w)
THEPORT_SAVE_EXCURSION
(MR (wmgr_port),
{
SetClip (MR (GrayRgn));
for (wp = MR (WindowList);
wp && WINDOW_NEXT_WINDOW (wp) != (WindowPeek) w;
wp = WINDOW_NEXT_WINDOW (wp))
;
if (wp)
{
WINDOW_NEXT_WINDOW_X (wp) = WINDOW_NEXT_WINDOW_X (w);
WINDOW_NEXT_WINDOW_X (w) = WindowList;
WindowList = RM ((WindowPeek) w);
if (WINDOW_VISIBLE_X (w))
{
/* notify the palette manager that the `FrontWindow ()'
may have changed */
pm_front_window_maybe_changed_hook ();
hidden = NewRgn ();
CopyRgn (PORT_VIS_REGION (w), hidden);
OffsetRgn (hidden,
- Cx (PORT_BOUNDS (w).left),
- Cx (PORT_BOUNDS (w).top));
XorRgn (WINDOW_STRUCT_REGION (w), hidden, hidden);
PaintOne ((WindowPeek) w, hidden);
CalcVisBehind ((WindowPeek) w, hidden);
DisposeRgn (hidden);
}
}
});
}
P1(PUBLIC pascal trap, void, SelectWindow, WindowPtr, w)
{
WindowPtr cactive;
cactive = FrontWindow ();
if (cactive != w)
{
HiliteWindow (cactive, FALSE);
CurDeactive = RM (cactive);
CurActivate = RM (w);
}
BringToFront (w);
HiliteWindow (w, TRUE);
}
P2(PUBLIC pascal trap, void, ShowHide, WindowPtr, w, BOOLEAN, flag)
{
if (flag && !WINDOW_VISIBLE_X (w))
{
WINDOW_VISIBLE_X (w) = TRUE;
/* notify the palette manager that the `FrontWindow ()' may have
changed */
pm_front_window_maybe_changed_hook ();
THEPORT_SAVE_EXCURSION
(MR (wmgr_port),
{
AuxWinHandle aux_w;
RGBColor *content_color = NULL;
CTabHandle w_ctab;
/*
* Energy Scheming suggests that this test is incorrect. They change portRect
* and then call ShowHide twice (once to hide, once to show) to see their
* changes. With this test in place, their code fails.
*
* if (EmptyRgn (WINDOW_STRUCT_REGION (w)))
*/
WINDCALL(w, wCalcRgns, 0);
SetClip (WINDOW_STRUCT_REGION (w));
ClipAbove ((WindowPeek) w);
CalcVisBehind ((WindowPeek) w, PORT_CLIP_REGION (MR (wmgr_port)));
WINDCALL (w, wDraw, 0);
CopyRgn (WINDOW_CONT_REGION (w), WINDOW_UPDATE_REGION (w));
aux_w = MR (*lookup_aux_win (w));
w_ctab = HxP (aux_w, awCTable);
if (w_ctab)
{
int i;
ColorSpec *w_ctab_table = CTAB_TABLE (w_ctab);
for (i = 0; i < CTAB_SIZE (w_ctab); i ++)
{
if (w_ctab_table[i].value == wContentColor)
content_color = &w_ctab_table[i].rgb;
}
}
if (content_color)
RGBBackColor (content_color);
FillRgn (WINDOW_CONT_REGION (w), white);
if (content_color)
RGBBackColor (&ROMlib_white_rgb_color);
});
}
else if (!flag && WINDOW_VISIBLE_X (w))
{
WINDOW_VISIBLE_X (w) = FALSE;
/* notify the palette manager that the `FrontWindow ()' may have
changed */
pm_front_window_maybe_changed_hook ();
THEPORT_SAVE_EXCURSION
(MR (wmgr_port),
{
SetClip (MR (GrayRgn));
SetEmptyRgn (PORT_VIS_REGION (w));
PaintBehind (WINDOW_NEXT_WINDOW (w), WINDOW_STRUCT_REGION (w));
CalcVisBehind (WINDOW_NEXT_WINDOW (w), WINDOW_STRUCT_REGION (w));
});
}
}
P1(PUBLIC pascal trap, void, HideWindow, WindowPtr, w)
{
WindowPeek nextvis;
if (!w)
return;
if (WINDOW_VISIBLE_X (w))
{
if (w == FrontWindow())
{
nextvis = ROMlib_firstvisible ((WindowPtr) WINDOW_NEXT_WINDOW (w));
if (nextvis)
SelectWindow ((WindowPtr) nextvis);
else
CurDeactive = RM (w);
WINDOW_HILITED_X (w) = FALSE;
}
ShowHide(w, FALSE);
}
}
P1(PUBLIC pascal trap, void, ShowWindow, WindowPtr, w)
{
WindowPeek t;
if (!w)
/*-->*/ return;
if (!WINDOW_VISIBLE_X (w))
{
TRAPBEGIN ();
ShowHide (w, TRUE);
if (FrontWindow () == w && !WINDOW_HILITED_X (w))
{
HiliteWindow (w, TRUE);
CurActivate = RM (w);
for (t = WINDOW_NEXT_WINDOW (w);
t && !WINDOW_HILITED_X (t);
t = WINDOW_NEXT_WINDOW (t))
;
HiliteWindow ((WindowPtr) t, FALSE);
CurDeactive = (WindowPtr) RM (t);
}
TRAPEND();
}
}
P2(PUBLIC pascal trap, void, SendBehind, WindowPtr, w, WindowPtr, behind)
{
HIDDEN_WindowPeek *wpp;
WindowPeek oldfront, newfront, oldbehind;
RgnHandle temprgn;
Rect r;
oldfront = (WindowPeek) FrontWindow();
/* NOTE: the following nasty code is to make our SendBehind behave like the Mac
send behind, which is that it looks for a new FrontWindow with the
WindowList as it would be if w were totally removed from the list
BEGINNING of nasty code */
if (oldfront == (WindowPeek) w &&
(newfront = ROMlib_firstvisible ((WindowPtr) WINDOW_NEXT_WINDOW (oldfront))))
SelectWindow ((WindowPtr) newfront);
/* END of nasty code */
if ((!WINDOW_NEXT_WINDOW (w) && !behind)
|| WINDOW_NEXT_WINDOW (w) == (WindowPeek) w)
/*-->*/ return;
for (wpp = (HIDDEN_WindowPeek *) &WindowList;
(*wpp).p && STARH(wpp) != (WindowPeek) w;
wpp = (HIDDEN_WindowPeek *) &WINDOW_NEXT_WINDOW_X (STARH (wpp)))
;
if (! (*wpp).p)
/*-->*/ return;
(*wpp).p = WINDOW_NEXT_WINDOW_X (w);
oldbehind = STARH (wpp);
if (behind)
{
WINDOW_NEXT_WINDOW_X (w) = WINDOW_NEXT_WINDOW_X (behind);
WINDOW_NEXT_WINDOW_X (behind) = (WindowPeek) RM (w);
}
else
{
#define SEND_BEHIND
#if defined (SEND_BEHIND)
if (!(*wpp).p) /* what if 'w' is the only window? */
wpp = (HIDDEN_WindowPeek *) &WindowList;
for (; WINDOW_NEXT_WINDOW_X (STARH (wpp));
wpp = (HIDDEN_WindowPeek *) &WINDOW_NEXT_WINDOW_X (STARH (wpp)))
;
if (STARH (wpp) != (WindowPeek) w)
WINDOW_NEXT_WINDOW_X (STARH (wpp)) = (WindowPeek) RM (w);
#endif /* SEND_BEHIND */
WINDOW_NEXT_WINDOW_X (w) = 0;
}
CalcVis ((WindowPeek) w);
temprgn = NewRgn ();
CopyRgn (PORT_VIS_REGION (w), temprgn);
OffsetRgn (temprgn,
- Cx (PORT_BOUNDS (w).left),
- Cx (PORT_BOUNDS (w).top));
XorRgn (WINDOW_STRUCT_REGION (w), temprgn, temprgn);
CalcVisBehind (oldbehind, temprgn);
PaintBehind (oldbehind, temprgn);
DisposeRgn (temprgn);
#if 0
newfront = (WindowPeek) FrontWindow ();
if (oldfront != newfront) {
CurDeactive = CL((WindowPtr) oldfront);
HiliteWindow((WindowPtr) oldfront, FALSE);
CurActivate = CL((WindowPtr) newfront);
HiliteWindow((WindowPtr) newfront, TRUE);
}
#else /* 0 */
if (oldfront == (WindowPeek) w && MR (WindowList) != (WindowPeek) w)
{
THEPORT_SAVE_EXCURSION
(w,
{
r = HxX (PORT_VIS_REGION (w), rgnBBox);
EraseRect(&r); /* ick! The bad Mac made me do it */
InvalRect(&r);
});
}
#endif /* 0 */
}
P1(PUBLIC pascal trap, void, DrawGrowIcon, WindowPtr, w)
{
if (!ROMlib_emptyvis && WINDOW_VISIBLE (w))
THEPORT_SAVE_EXCURSION
(MR (wmgr_port),
{
SetClip (PORT_CLIP_REGION (w));
OffsetRgn (WINDOW_STRUCT_REGION (w),
CW (PORT_BOUNDS (w).left),
CW (PORT_BOUNDS (w).top));
SectRgn (PORT_CLIP_REGION (thePort), WINDOW_STRUCT_REGION (w),
PORT_CLIP_REGION (thePort));
OffsetRgn (WINDOW_STRUCT_REGION (w),
- CW (PORT_BOUNDS (w).left),
- CW (PORT_BOUNDS (w).top));
OffsetRgn (PORT_CLIP_REGION (thePort),
- CW (PORT_BOUNDS (w).left),
- CW (PORT_BOUNDS (w).top));
ClipAbove ((WindowPeek) w);
WINDCALL(w, wDrawGIcon, 0);
});
}
Reference in New Issue View Git Blame Copy Permalink