rom/intuition/refreshwindowframe.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 <intuition/gadgetclass.h>
   8 #include <intuition/intuitionbase.h>
   9 #include <intuition/windecorclass.h>
  10 #include <graphics/rpattr.h>
  11 #include <cybergraphx/cybergraphics.h>
  12
  13 #include <proto/layers.h>
  14 #include <proto/graphics.h>
  15 #include <proto/layers.h>
  16
  17 #include <string.h>
  18
  19 #include "inputhandler_actions.h"
  20 #include "intuition_intern.h"
  21
  22 // #define GADGETCLIPPING
  23
  24 #ifdef GADGETCLIPPING
  25 void clipbordergadgets(struct Region *region,struct Window *w,struct IntuitionBase *IntuitionBase);
  26 #endif
  27
  28 /*****************************************************************************
  29
  30     NAME */
  31 #include <proto/intuition.h>
  32
  33         AROS_LH1(void, RefreshWindowFrame,
  34
  35 /*  SYNOPSIS */
  36         AROS_LHA(struct Window *, window, A0),
  37
  38 /*  LOCATION */
  39         struct IntuitionBase *, IntuitionBase, 76, Intuition)
  40
  41 /*  FUNCTION
  42         Redraw window borders.
  43
  44     INPUTS
  45         window - pointer to a window whose borders should be redrawn
  46
  47     RESULT
  48
  49     NOTES
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56
  57     INTERNALS
  58
  59 *****************************************************************************/
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     EnterFunc(bug("RefreshWindowFrame(window=%p)\n", window));
  64
  65     int_refreshwindowframe(window, 0, 0, IntuitionBase);
  66
  67     ReturnVoid("RefreshWindowFrame");
  68
  69     AROS_LIBFUNC_EXIT
  70 } /* RefreshWindowFrame */
  71
  72 VOID int_RefreshWindowFrame(struct Window *window,
  73                             LONG mustbe, LONG mustnotbe, LONG mode,
  74                             struct IntuitionBase *IntuitionBase)
  75 {
  76     /* Draw a frame around the window */
  77     struct LayersBase *LayersBase = GetPrivIBase(IntuitionBase)->LayersBase;
  78     struct RastPort *rp = window->BorderRPort;
  79     struct DrawInfo *dri;
  80     struct Region   *old_clipregion;
  81
  82 #ifdef GADGETCLIPPING
  83     struct Region   *gadgetclipregion;
  84 #endif
  85
  86     WORD             old_scroll_x, old_scroll_y;
  87
  88     if (!(window->Flags & WFLG_BORDERLESS))
  89     {
  90         dri = GetScreenDrawInfo(window->WScreen);
  91         if (dri)
  92         {
  93             LOCK_REFRESH(window->WScreen);
  94             LOCKGADGET(IntuitionBase)
  95         #if 1
  96             if ((rp->Layer==NULL) ||
  97                     ((!(window->Flags & WFLG_GIMMEZEROZERO)) && (rp->Layer != window->RPort->Layer)))
  98             {
  99                 dprintf("RefreshWindowFrame: Window 0x%lx\n",window);
 100                 dprintf("RefreshWindowFrame: WLayer 0x%lx\n",window->WLayer);
 101                 dprintf("RefreshWindowFrame: RPort 0x%lx BorderRPort 0x%lx\n",window->RPort,window->BorderRPort);
 102                 dprintf("RefreshWindowFrame: RPort's layer 0x%lx BorderRPort's layer 0x%lx\n",window->RPort,window->RPort->Layer,window->BorderRPort,window->BorderRPort->Layer);
 103             }
 104
 105         #endif
 106
 107             LockLayer(0,rp->Layer);
 108
 109             old_scroll_x = rp->Layer->Scroll_X;
 110             old_scroll_y = rp->Layer->Scroll_Y;
 111
 112             rp->Layer->Scroll_X = 0;
 113             rp->Layer->Scroll_Y = 0;
 114
 115         #ifdef GADGETCLIPPING
 116             gadgetclipregion = NewRegion();
 117             if (gadgetclipregion)
 118             {
 119                 struct Rectangle rect;
 120
 121                 /* add all gadgets to region */
 122                 clipbordergadgets(gadgetclipregion,window,IntuitionBase);
 123
 124                 /* then remove them with xor */
 125                 rect.MinX = 0;
 126                 rect.MinY = 0;
 127                 rect.MaxX = window->Width - 1;
 128                 rect.MaxY = window->Height - 1;
 129                 XorRectRegion(gadgetclipregion,&rect);
 130
 131             }
 132
 133             old_clipregion = InstallClipRegion(rp->Layer, gadgetclipregion);
 134         #else
 135             old_clipregion = InstallClipRegion(rp->Layer, NULL);
 136         #endif
 137
 138             {
 139                 struct wdpDrawWinBorder  msg;
 140
 141                 msg.MethodID            = WDM_DRAW_WINBORDER;
 142                 msg.wdp_TrueColor       = (((struct IntScreen *)window->WScreen)->DInfo.dri_Flags & DRIF_DIRECTCOLOR) ? TRUE : FALSE;
 143                 msg.wdp_Window          = window;
 144                 msg.wdp_RPort           = rp;
 145                 msg.wdp_Flags           = (mustbe == REFRESHGAD_TOPBORDER) ? WDF_DWB_TOP_ONLY : 0;
 146                 msg.wdp_Dri             = dri;
 147                 msg.wdp_UserBuffer      = ((struct IntWindow *)window)->DecorUserBuffer;
 148                 DoMethodA(((struct IntScreen *)(window->WScreen))->WinDecorObj, (Msg)&msg);
 149             }
 150
 151         #ifdef GADGETCLIPPING
 152             InstallClipRegion(rp->Layer,NULL);
 153         #endif
 154
 155             /* Emm: RefreshWindowFrame() is documented to refresh *all* the gadgets,
 156              * but when a window is activated/deactivated, only border gadgets
 157              * are refreshed. */
 158         #if 1
 159             /* Refresh rel gadgets first, since wizard.library (burn in hell!) seems
 160              * to rely on that. */
 161             int_refreshglist(window->FirstGadget,
 162                              window,
 163                              NULL,
 164                              -1,
 165                              mustbe | REFRESHGAD_REL,
 166                              mustnotbe,
 167                              IntuitionBase);
 168             int_refreshglist(window->FirstGadget,
 169                              window,
 170                              NULL,
 171                              -1,
 172                              mustbe,
 173                              mustnotbe | REFRESHGAD_REL,
 174                              IntuitionBase);
 175         #else
 176             int_refreshglist(window->FirstGadget,
 177                              window,
 178                              NULL,
 179                              -1,
 180                              mustbe,
 181                              mustnotbe,
 182                              IntuitionBase);
 183         #endif
 184
 185             InstallClipRegion(rp->Layer,old_clipregion);
 186
 187         #ifdef GADGETCLIPPING
 188             if (gadgetclipregion) DisposeRegion(gadgetclipregion);
 189         #endif
 190
 191             rp->Layer->Scroll_X = old_scroll_x;
 192             rp->Layer->Scroll_Y = old_scroll_y;
 193
 194             UnlockLayer(rp->Layer);
 195             UNLOCKGADGET(IntuitionBase)
 196
 197             UNLOCK_REFRESH(window->WScreen);
 198
 199             FreeScreenDrawInfo(window->WScreen, (struct DrawInfo *)dri);
 200
 201         } /* if (dri) */
 202
 203     } /* if (!(win->Flags & WFLG_BORDERLESS)) */
 204 }
 205
 206 #ifdef GADGETCLIPPING
 207 void clipbordergadgets(struct Region *region,struct Window *w,struct IntuitionBase *IntuitionBase)
 208 {
 209     struct Gadget *gad;
 210
 211     for (gad = w->FirstGadget; gad; gad = gad->NextGadget)
 212     {
 213         BOOL qualified = FALSE;
 214         WORD left,top,right,bottom;
 215
 216         top = gad->TopEdge;
 217         left = gad->LeftEdge;
 218
 219         if (gad->Flags & GFLG_RELBOTTOM) top = w->Height - 1 + gad->TopEdge;
 220         if (gad->Flags & GFLG_RELRIGHT) left = w->Width - 1 + gad->LeftEdge;
 221
 222         /* we need to be prepared for GFLG_GADGIMAGE and IA_Left set to -1, etc */
 223         if (gad->Flags & GFLG_GADGIMAGE && gad->SelectRender)
 224             left += ((struct Image *)gad->SelectRender)->LeftEdge;
 225
 226         right = left + gad->Width - 1;
 227         bottom = top + gad->Height - 1;
 228
 229         /* let's do some clipping now */
 230
 231         if (left >= w->Width) continue;
 232         if (top >= w->Height) continue;
 233         if (right < 0) continue;
 234         if (bottom < 0) continue;
 235
 236         if (left < 0) left = 0;
 237         if (top < 0) top = 0;
 238         if (right > w->Width) right = w->Width;
 239         if (top > w->Height) top = w->Height;
 240
 241         /* sanity check */
 242
 243         if (right < left) continue;
 244         if (bottom < top) continue;
 245
 246         /* clip this gadget ? */
 247
 248         if (top >= w->Height - 1 - w->BorderBottom) qualified = TRUE;
 249         if (left >= w->Width - 1 - w->BorderRight) qualified = TRUE;
 250         if (top + gad->Height - 1 <= w->BorderTop) qualified = TRUE;
 251         if (left + gad->Width - 1 <= w->BorderLeft) qualified = TRUE;
 252
 253         if (qualified)
 254         {
 255             struct Rectangle rect;
 256
 257             rect.MinX = left;
 258             rect.MinY = top;
 259             rect.MaxX = right;
 260             rect.MaxY = bottom;
 261
 262             OrRectRegion(region,&rect);
 263
 264         }
 265
 266     }
 267 };
 268 #endif
 269