rom/intuition/refreshwindowframe_aros.c

   1 /*
   2     Copyright  1995-2007, 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 RastPort *rp = window->BorderRPort;
  78     struct DrawInfo *dri;
  79     struct Region   *old_clipregion;
  80
  81 #ifdef GADGETCLIPPING
  82     struct Region   *gadgetclipregion;
  83 #endif
  84
  85     WORD             old_scroll_x, old_scroll_y;
  86
  87     if (!(window->Flags & WFLG_BORDERLESS))
  88     {
  89         dri = GetScreenDrawInfo(window->WScreen);
  90         if (dri)
  91         {
  92             LOCK_REFRESH(window->WScreen);
  93             LOCKGADGET
  94         #if 1
  95             if ((rp->Layer==NULL) ||
  96                     ((!(window->Flags & WFLG_GIMMEZEROZERO)) && (rp->Layer != window->RPort->Layer)))
  97             {
  98                 dprintf("RefreshWindowFrame: Window 0x%lx\n",window);
  99                 dprintf("RefreshWindowFrame: WLayer 0x%lx\n",window->WLayer);
 100                 dprintf("RefreshWindowFrame: RPort 0x%lx BorderRPort 0x%lx\n",window->RPort,window->BorderRPort);
 101                 dprintf("RefreshWindowFrame: RPort's layer 0x%lx BorderRPort's layer 0x%lx\n",window->RPort,window->RPort->Layer,window->BorderRPort,window->BorderRPort->Layer);
 102             }
 103
 104         #endif
 105
 106             LockLayer(0,rp->Layer);
 107
 108             old_scroll_x = rp->Layer->Scroll_X;
 109             old_scroll_y = rp->Layer->Scroll_Y;
 110
 111             rp->Layer->Scroll_X = 0;
 112             rp->Layer->Scroll_Y = 0;
 113
 114         #ifdef GADGETCLIPPING
 115             gadgetclipregion = NewRegion();
 116             if (gadgetclipregion)
 117             {
 118                 struct Rectangle rect;
 119
 120                 /* add all gadgets to region */
 121                 clipbordergadgets(gadgetclipregion,window,IntuitionBase);
 122
 123                 /* then remove them with xor */
 124                 rect.MinX = 0;
 125                 rect.MinY = 0;
 126                 rect.MaxX = window->Width - 1;
 127                 rect.MaxY = window->Height - 1;
 128                 XorRectRegion(gadgetclipregion,&rect);
 129
 130             }
 131
 132             old_clipregion = InstallClipRegion(rp->Layer, gadgetclipregion);
 133         #else
 134             old_clipregion = InstallClipRegion(rp->Layer, NULL);
 135         #endif
 136
 137             {
 138                 struct wdpDrawWinBorder  msg;
 139
 140                 msg.MethodID            = WDM_DRAW_WINBORDER;
 141                 msg.wdp_TrueColor       = (((struct IntScreen *)window->WScreen)->DInfo.dri.dri_Flags & DRIF_DIRECTCOLOR);
 142                 msg.wdp_Window          = window;
 143                 msg.wdp_RPort           = rp;
 144                 msg.wdp_Flags           = (mustbe == REFRESHGAD_TOPBORDER) ? WDF_DWB_TOP_ONLY : 0;
 145                 msg.wdp_Dri             = dri;
 146                 msg.wdp_UserBuffer      = ((struct IntWindow *)window)->DecorUserBuffer;
 147                 DoMethodA(((struct IntScreen *)(window->WScreen))->WinDecorObj, (Msg)&msg);
 148             }
 149
 150         #ifdef GADGETCLIPPING
 151             InstallClipRegion(rp->Layer,NULL);
 152         #endif
 153
 154             /* Emm: RefreshWindowFrame() is documented to refresh *all* the gadgets,
 155              * but when a window is activated/deactivated, only border gadgets
 156              * are refreshed. */
 157         #if 1
 158             /* Refresh rel gadgets first, since wizard.library (burn in hell!) seems
 159              * to rely on that. */
 160             int_refreshglist(window->FirstGadget,
 161                              window,
 162                              NULL,
 163                              -1,
 164                              mustbe | REFRESHGAD_REL,
 165                              mustnotbe,
 166                              IntuitionBase);
 167             int_refreshglist(window->FirstGadget,
 168                              window,
 169                              NULL,
 170                              -1,
 171                              mustbe,
 172                              mustnotbe | REFRESHGAD_REL,
 173                              IntuitionBase);
 174         #else
 175             int_refreshglist(window->FirstGadget,
 176                              window,
 177                              NULL,
 178                              -1,
 179                              mustbe,
 180                              mustnotbe,
 181                              IntuitionBase);
 182         #endif
 183
 184             InstallClipRegion(rp->Layer,old_clipregion);
 185
 186         #ifdef GADGETCLIPPING
 187             if (gadgetclipregion) DisposeRegion(gadgetclipregion);
 188         #endif
 189
 190             rp->Layer->Scroll_X = old_scroll_x;
 191             rp->Layer->Scroll_Y = old_scroll_y;
 192
 193             UnlockLayer(rp->Layer);
 194             UNLOCKGADGET
 195
 196             UNLOCK_REFRESH(window->WScreen);
 197
 198             FreeScreenDrawInfo(window->WScreen, (struct DrawInfo *)dri);
 199
 200         } /* if (dri) */
 201
 202     } /* if (!(win->Flags & WFLG_BORDERLESS)) */
 203 }
 204
 205 #ifdef GADGETCLIPPING
 206 void clipbordergadgets(struct Region *region,struct Window *w,struct IntuitionBase *IntuitionBase)
 207 {
 208     struct Gadget *gad;
 209
 210     for (gad = w->FirstGadget; gad; gad = gad->NextGadget)
 211     {
 212         BOOL qualified = FALSE;
 213         WORD left,top,right,bottom;
 214
 215         top = gad->TopEdge;
 216         left = gad->LeftEdge;
 217
 218         if (gad->Flags & GFLG_RELBOTTOM) top = w->Height - 1 + gad->TopEdge;
 219         if (gad->Flags & GFLG_RELRIGHT) left = w->Width - 1 + gad->LeftEdge;
 220
 221         /* we need to be prepared for GFLG_GADGIMAGE and IA_Left set to -1, etc */
 222         if (gad->Flags & GFLG_GADGIMAGE && gad->SelectRender)
 223             left += ((struct Image *)gad->SelectRender)->LeftEdge;
 224
 225         right = left + gad->Width - 1;
 226         bottom = top + gad->Height - 1;
 227
 228         /* let's do some clipping now */
 229
 230         if (left >= w->Width) continue;
 231         if (top >= w->Height) continue;
 232         if (right < 0) continue;
 233         if (bottom < 0) continue;
 234
 235         if (left < 0) left = 0;
 236         if (top < 0) top = 0;
 237         if (right > w->Width) right = w->Width;
 238         if (top > w->Height) top = w->Height;
 239
 240         /* sanity check */
 241
 242         if (right < left) continue;
 243         if (bottom < top) continue;
 244
 245         /* clip this gadget ? */
 246
 247         if (top >= w->Height - 1 - w->BorderBottom) qualified = TRUE;
 248         if (left >= w->Width - 1 - w->BorderRight) qualified = TRUE;
 249         if (top + gad->Height - 1 <= w->BorderTop) qualified = TRUE;
 250         if (left + gad->Width - 1 <= w->BorderLeft) qualified = TRUE;
 251
 252         if (qualified)
 253         {
 254             struct Rectangle rect;
 255
 256             rect.MinX = left;
 257             rect.MinY = top;
 258             rect.MaxX = right;
 259             rect.MaxY = bottom;
 260
 261             OrRectRegion(region,&rect);
 262
 263         }
 264
 265     }
 266 };
 267 #endif
 268