rom/intuition/propgclass.c

   1 /*
   2     Copyright  1995-2005, The AROS Development Team. All rights reserved.
   3     Copyright  2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <exec/types.h>
   8
   9 #include <proto/intuition.h>
  10 #include <proto/graphics.h>
  11 #include <proto/utility.h>
  12 #include <intuition/intuition.h>
  13 #include <intuition/classes.h>
  14 #include <intuition/classusr.h>
  15 #include <intuition/gadgetclass.h>
  16 #include <intuition/cghooks.h>
  17 #include <graphics/clip.h>
  18 #include <aros/asmcall.h>
  19 #include <string.h>
  20
  21 #define DEBUG 0
  22 #include <aros/debug.h>
  23
  24 #include "intuition_intern.h"
  25 #include "inputhandler.h"
  26 #include "propgadgets.h"
  27
  28 #define DEBUG_PROP(x)   ;
  29
  30 #ifdef PROPHACK
  31 void PropRefreshTask(struct IntuitionBase *IntuitionBase,struct Gadget *gadget,struct Window *window,struct Requester *requester)
  32 {
  33     ULONG signals;
  34
  35     for (;;)
  36     {
  37         signals = Wait(PSIG_REFRESHALL|PSIG_DIE);
  38
  39         //go_inactive refreshes the gadget on it's own, so we do not need to care about queued refreshes!
  40         if (signals & PSIG_DIE)
  41         {
  42             Forbid();
  43             ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask = 0;
  44             Permit();
  45             Signal(((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->InputDeviceTask,SIGF_INTUITION);
  46             return;
  47         }
  48
  49         if (signals & PSIG_REFRESHALL)
  50         {
  51             RefreshPropGadget (gadget, window, requester, IntuitionBase);
  52         }
  53
  54       //no need to refresh the knob when whole gadget was refreshed already
  55       //if ((signals & PSIG_REFRESHKNOB) && (!(signals & PSIG_REFRESHALL)))
  56       //{
  57       //}
  58
  59     }
  60 }
  61 #endif
  62
  63 /*****************************************************************************************
  64
  65 stegerg: Tested behaviour under AmigaOS:
  66
  67 propgclass object:
  68     renders itself during OM_SET(PGA_Top)    : yes, method retval = 0
  69     renders itself during OM_UPDATE(PGA_Top) : yes, method retval = 0
  70     sends OM_NOTIFY during OM_SET(PGA_Top)   : no
  71     sends OM_NOTIFY during OM_UPDATE(PGA_Top): no
  72     sends OM_NOTIFY when user drags knob     : yes
  73
  74     -> only when user uses gadget, OM_NOTIFY is sent
  75
  76 propgclass subclass object:
  77     renders itself during OM_SET(PGA_Top)    : no, method retval = 1 [*]
  78     renders itself during OM_UPDATE(PGA_Top) : no, method retval = 1 [*]
  79     sends OM_NOTIFY during OM_SET(PGA_Top)   : no
  80     sends OM_NOTIFY during OM_UPDATE(PGA_Top): no
  81     sends OM_NOTIFY when user drags knob     : yes
  82
  83 Here [*], another weird behaviour is, that the ~internal (??) PGA_Top value
  84 stays at the old value, so you can click at the knob where you see it
  85 (although because of the real PGA_Top it could in reality be in some
  86 completely different place) and use it. Only when the gadget is re-rendered
  87 (completely?), or you click somewhere in the prop box to cause a ~one page knob
  88 move, the ~internal PGA_Top gets updated to the real value. Note, that
  89 GetAttr(PGA_Top) will always be correct, so when I say ~internal PGA_Top,
  90 this must be some internal variable only for inputhandling of gadget!!
  91 BTW: With PGA_Total (and most likely also PGA_Visible) it's exactly the
  92 same: imagine before the OM_SET/OM_UPDATE the prop knob was 10 % of the
  93 size of the prop box. And after the OM_SET/OM_UPDATE(PGA_Total) the prop knob
  94 would be 50 % of the size of the prop box -> again - before a rerendering of
  95 the gadget happens, or a jump-one-page click by user - the gadget behaves
  96 like it was still having the old PGA_Total value (-> knob size == 10 % of
  97 prop box).
  98
  99 AROS propgclass at the moment does not copy this behaviour!!!!
 100
 101 *****************************************************************************************/
 102
 103 #undef IntuitionBase
 104 #define IntuitionBase   ((struct IntuitionBase *)(cl->cl_UserData))
 105
 106 /****************************************************************************************/
 107
 108 #define SetGadgetType(gad, type)    ((struct Gadget *)gad)->GadgetType &= ~GTYP_GTYPEMASK; \
 109                                     ((struct Gadget *)gad)->GadgetType |= type;
 110
 111 #define PRIVFLAG_NICERENDER         1
 112 #define PRIVFLAG_NICENOTIFY         2
 113
 114 /****************************************************************************************/
 115
 116 static VOID FindScrollerValues(UWORD total, UWORD visible, UWORD top,
 117                                WORD overlap, UWORD *body, UWORD *pot)
 118 {
 119     UWORD hidden;
 120
 121     if (total > visible)
 122         hidden = total - visible;
 123     else
 124         hidden = 0;
 125
 126     if (top > hidden)
 127         top = hidden;
 128
 129     *body = (hidden > 0) ?
 130             (UWORD)(((ULONG)(visible - overlap) * MAXBODY) / (total - overlap)) :
 131             MAXBODY;
 132
 133     *pot = (hidden > 0) ? (UWORD)(((ULONG) top * MAXPOT) / hidden) : 0;
 134
 135     return;
 136 }
 137
 138 /****************************************************************************************/
 139
 140 static UWORD FindScrollerTop(UWORD total, UWORD visible, UWORD pot)
 141 {
 142     UWORD top, hidden;
 143
 144     if (total > visible)
 145         hidden = total - visible;
 146     else
 147         hidden = 0;
 148
 149     top = (((ULONG) hidden * pot) + (MAXPOT / 2)) / MAXPOT;
 150
 151     return (top);
 152 }
 153
 154 /****************************************************************************************/
 155
 156 static VOID NotifyTop(Class *cl, struct Gadget *g, struct GadgetInfo *gi, BOOL final)
 157 {
 158     struct PropGData *data = INST_DATA(cl, g);
 159     struct opUpdate   notifymsg;
 160     struct TagItem    notifyattrs[3];
 161
 162     D(bug("PropGClass: NotifyTop(top=%d, final=%d)\n",
 163           data->top, final));
 164
 165     notifyattrs[0].ti_Tag   = PGA_Top;
 166     notifyattrs[0].ti_Data  = data->top;
 167     notifyattrs[1].ti_Tag   = GA_ID;
 168     notifyattrs[1].ti_Data  = g->GadgetID;
 169     notifyattrs[2].ti_Tag   = TAG_END;
 170
 171     notifymsg.MethodID      = OM_NOTIFY;
 172     notifymsg.opu_AttrList  = notifyattrs;
 173     notifymsg.opu_GInfo     = gi;
 174     notifymsg.opu_Flags     = (final != FALSE) ? 0 : OPUF_INTERIM;
 175
 176     DoSuperMethodA(cl, (Object *)g, (Msg)&notifymsg);
 177
 178     return;
 179 }
 180
 181 /****************************************************************************************/
 182
 183 static VOID UpdateTop(Class *cl, struct Gadget *g, struct GadgetInfo *gi, BOOL final)
 184 {
 185     /* Updates the PGA_Top attribute accordin to the Bofy/Pot vars.
 186     ** Also triggers notifcation if PGA_Top has changed.
 187     */
 188
 189     struct PropGData    *data = (struct PropGData *)INST_DATA(cl, g);
 190     UWORD                top, pot;
 191
 192     D(bug("PropGClass: UpdateTop()\n"));
 193
 194     pot = (data->propinfo.Flags & FREEVERT) ? data->propinfo.VertPot :
 195           data->propinfo.HorizPot;
 196
 197     top = FindScrollerTop(data->total, data->visible, pot);
 198
 199     D(bug("PropGClass: Found scroller top: %d, old %d\n", top, data->top));
 200
 201     /* PGA_Top changed by user ? */
 202     if ((top != data->top) || final)
 203     {
 204         D(bug("PropGClass: top != data->top, calling NotifyTop\n"));
 205
 206         data->top = top;
 207
 208         NotifyTop(cl, g, gi, final);
 209     }
 210
 211     return;
 212 }
 213
 214 /****************************************************************************************/
 215
 216 #define SETFLAG(flagvar, boolvar, flag) \
 217     if (boolvar)            \
 218         flagvar |= flag;    \
 219     else                    \
 220         flagvar &= ~flag;
 221
 222 /****************************************************************************************/
 223
 224 IPTR PropGClass__OM_SET(Class *cl, struct Gadget *g, struct opSet *msg)
 225 {
 226     struct TagItem      *tag, *tstate;
 227     struct PropGData    *data;
 228     struct BBox          old_knobbox;
 229     struct opSet         method;
 230     UWORD                newtop;
 231     BOOL                 set_flag = FALSE;
 232     BOOL                 was_disabled = FALSE;
 233     BOOL                 full_redraw = FALSE;
 234     BOOL                 old_knobbox_ok = FALSE;
 235     IPTR                 retval;
 236
 237     data = INST_DATA(cl, g);
 238     tstate = msg->ops_AttrList;
 239
 240     was_disabled = (g->Flags & GFLG_DISABLED) ? TRUE : FALSE;
 241
 242     method.MethodID = OM_SET;
 243     method.ops_AttrList = msg->ops_AttrList;
 244     method.ops_GInfo = msg->ops_GInfo;
 245     retval = DoSuperMethodA(cl, (Object *)g, (Msg)&method);
 246
 247     if ( ((g->Flags & GFLG_DISABLED) ? TRUE : FALSE) != was_disabled ) full_redraw = TRUE;
 248
 249     if (msg->ops_GInfo)
 250     {
 251         CalcBBox (msg->ops_GInfo->gi_Window, msg->ops_GInfo->gi_Requester, g, &old_knobbox);
 252         old_knobbox_ok = CalcKnobSize(g, &old_knobbox);
 253     }
 254
 255     newtop = data->top; /* !! */
 256
 257     /* Set to 1 to signal visual changes */
 258     while ((tag = NextTagItem(&tstate)) != NULL)
 259     {
 260         switch (tag->ti_Tag)
 261         {
 262         case PGA_Top:
 263             newtop = (UWORD)tag->ti_Data;
 264             /* This will be poked into data->top later below, because the
 265                value might have to be adjusted. It depends on PGA_Total
 266                and PGA_Visible which might be also set later in the taglist */
 267             set_flag= TRUE;
 268             retval += 1UL;
 269             break;
 270
 271         case PGA_Visible:
 272             data->visible = tag->ti_Data;
 273             set_flag = TRUE;
 274             retval += 1UL;
 275             break;
 276
 277         case PGA_Total:
 278             data->total = tag->ti_Data;
 279             set_flag = TRUE;
 280             retval += 1UL;
 281             break;
 282
 283             /* When one of the four next ones is set, what should then happen
 284             with PGA_Top, Total and Visible ?
 285             For example decreasing Body could mean both a decrease of
 286             Visible or an increase in Total. Which of them it is,
 287             we cannot know. So we say that the PGA_xxxPot/Body
 288             attrs should not be used along with Top, Total and Visible. */
 289
 290         case PGA_HorizPot:
 291             data->propinfo.HorizPot = (UWORD)tag->ti_Data;
 292             retval += 1UL;
 293             break;
 294
 295         case PGA_HorizBody:
 296             data->propinfo.HorizBody= (UWORD)tag->ti_Data;
 297             retval += 1UL;
 298             break;
 299
 300         case PGA_VertPot:
 301             data->propinfo.VertPot  = (UWORD)tag->ti_Data;
 302             retval += 1UL;
 303             break;
 304
 305         case PGA_VertBody:
 306             data->propinfo.VertBody = (UWORD)tag->ti_Data;
 307             retval += 1UL;
 308             break;
 309
 310         case PGA_Freedom:
 311             data->propinfo.Flags &= ~(FREEHORIZ|FREEVERT);
 312             data->propinfo.Flags |= tag->ti_Data;
 313             break;
 314
 315         case PGA_NewLook:
 316             SETFLAG(data->propinfo.Flags, tag->ti_Data, PROPNEWLOOK);
 317             break;
 318
 319         case PGA_Borderless:
 320             SETFLAG(data->propinfo.Flags, tag->ti_Data, PROPBORDERLESS);
 321             break;
 322
 323         case GA_Image:
 324             break;
 325
 326         case GA_Border:
 327             break;
 328
 329         case GA_Highlight:
 330             /* Convert GADGHBOX to GADGHCOMP */
 331             if (tag->ti_Data & GFLG_GADGHBOX)
 332             {
 333                 /* Clear GADCHBOX */
 334                 tag->ti_Data &= ~GFLG_GADGHBOX;
 335                 /* Set GADGHCOMP */
 336                 tag->ti_Data |= GFLG_GADGHCOMP;
 337             }
 338             break;
 339
 340
 341         default:
 342             break;
 343
 344         } /* switch (tag->ti_Tag) */
 345
 346     } /* while ((tag = NextTagItem(&tstate)) != NULL) */
 347
 348     /* Top, Visible or Total set? */
 349
 350     if (set_flag)
 351     {
 352         UWORD *bodyptr, *potptr;
 353
 354         /* fix top  value if necessary */
 355
 356         if (data->total > data->visible)
 357         {
 358             if (newtop > (data->total - data->visible))
 359                 newtop = data->total - data->visible;
 360         }
 361         else
 362         {
 363             newtop = 0;
 364         }
 365
 366         if (data->top != newtop)
 367         {
 368             data->top = newtop;
 369             if (data->flags & PRIVFLAG_NICENOTIFY)
 370             {
 371                 NotifyTop(cl, g, msg->ops_GInfo, TRUE);
 372             }
 373         }
 374
 375         if (data->propinfo.Flags & FREEVERT)
 376         {
 377             bodyptr = &(data->propinfo.VertBody);
 378             potptr  = &(data->propinfo.VertPot);
 379         }
 380         else
 381         {
 382             bodyptr = &(data->propinfo.HorizBody);
 383             potptr  = &(data->propinfo.HorizPot);
 384         }
 385
 386         FindScrollerValues
 387         (
 388             data->total,
 389             data->visible,
 390             data->top,
 391             0,
 392             bodyptr,
 393             potptr
 394         );
 395     }
 396
 397
 398     /* The two last tests below may be redundant */
 399     if ((retval || full_redraw) && (NULL != msg->ops_GInfo) &&
 400             ((OCLASS(g) == cl) || (data->flags & PRIVFLAG_NICERENDER)))
 401     {
 402         struct RastPort *rp;
 403
 404         rp = ObtainGIRPort(msg->ops_GInfo);
 405         if (NULL != rp)
 406         {
 407             struct gpRender method;
 408
 409             data->old_knobbox = old_knobbox_ok ? &old_knobbox : 0;
 410
 411             method.MethodID   = GM_RENDER;
 412             method.gpr_GInfo  = msg->ops_GInfo;
 413             method.gpr_RPort  = rp;
 414             method.gpr_Redraw = full_redraw ? GREDRAW_REDRAW : GREDRAW_UPDATE;
 415
 416             DoMethodA((Object *)g, (Msg)&method);
 417
 418             ReleaseGIRPort(rp);
 419         }
 420         if (!(data->flags & PRIVFLAG_NICERENDER))
 421         {
 422             /* retval of 1 indicates that user needs to rerender gadget
 423                manually, while 0 means he does not need to do so */
 424             retval = 0;
 425         }
 426     }
 427
 428     return (retval);
 429 }
 430
 431 /****************************************************************************************/
 432
 433 IPTR PropGClass__OM_NEW(Class *cl, Object *o, struct opSet *msg)
 434 {
 435     struct Gadget *g = (struct Gadget *)DoSuperMethodA(cl, o, (Msg)msg);
 436
 437     D(bug("PropGClass: new %p\n", o));
 438
 439     if (g)
 440     {
 441         struct PropGData *data = INST_DATA(cl, g);
 442
 443         /* A hack to make the functions in propgadgets.c work
 444         with this class */
 445         g->SpecialInfo = &(data->propinfo);
 446
 447         /* Set some default values in the propinfo structure */
 448         /*
 449           The instance object is cleared memory!
 450           memset(&(data->propinfo), 0, sizeof (struct PropInfo));
 451         */
 452         data->propinfo.Flags    = PROPNEWLOOK|AUTOKNOB|FREEVERT;
 453         data->propinfo.VertPot  = 0;
 454         data->propinfo.VertBody = MAXBODY;
 455         data->propinfo.HorizPot = 0;
 456         data->propinfo.HorizBody = MAXBODY;
 457         data->DisplayHook = GetTagData(PGA_DisplayHook, 0, msg->ops_AttrList);
 458         data->top     = 0;
 459         data->visible = 1;
 460         data->total   = 1;
 461
 462         if (GetTagData(PGA_NotifyBehaviour, PG_BEHAVIOUR_COMPATIBLE, msg->ops_AttrList) ==
 463                 PG_BEHAVIOUR_NICE)
 464         {
 465             data->flags |= PRIVFLAG_NICENOTIFY;
 466         }
 467
 468         if (GetTagData(PGA_RenderBehaviour, PG_BEHAVIOUR_COMPATIBLE, msg->ops_AttrList) ==
 469                 PG_BEHAVIOUR_NICE)
 470         {
 471             data->flags |= PRIVFLAG_NICERENDER;
 472         }
 473
 474         SetGadgetType(g, GTYP_CUSTOMGADGET);
 475
 476         /* Handle our special tags - overrides defaults */
 477         PropGClass__OM_SET(cl, g, msg);
 478
 479     } /* if (object created) */
 480
 481     return (IPTR)g;
 482 }
 483
 484 /****************************************************************************************/
 485
 486 IPTR PropGClass__OM_GET(Class *cl, struct Gadget *g,struct opGet *msg)
 487 {
 488     struct PropGData *data;
 489     IPTR              retval = 1UL;
 490
 491     data = INST_DATA(cl, g);
 492
 493     switch (msg->opg_AttrID)
 494     {
 495     case PGA_Top:
 496         *(msg->opg_Storage) = data->top;
 497         break;
 498
 499     case PGA_Total:
 500         *(msg->opg_Storage) = data->total;
 501         break;
 502
 503    case PGA_DisplayHook:
 504         *(msg->opg_Storage) = data->DisplayHook;
 505         break;
 506
 507     case PGA_Visible:
 508         *(msg->opg_Storage) = data->visible;
 509         break;
 510
 511     case PGA_HorizPot:
 512         *(msg->opg_Storage) = data->propinfo.HorizPot;
 513         break;
 514
 515     case PGA_HorizBody:
 516         *(msg->opg_Storage) = data->propinfo.HorizBody;
 517         break;
 518
 519     case PGA_VertPot:
 520         *(msg->opg_Storage) = data->propinfo.VertPot;
 521         break;
 522
 523     case PGA_VertBody:
 524         *(msg->opg_Storage) = data->propinfo.VertBody;
 525         break;
 526
 527     case PGA_Freedom:
 528         *(msg->opg_Storage) = data->propinfo.Flags & (FREEHORIZ|FREEVERT);
 529         break;
 530
 531     default:
 532         retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 533         break;
 534     }
 535     return (retval);
 536 }
 537
 538 /****************************************************************************************/
 539
 540 IPTR PropGClass__GM_GOACTIVE(Class *cl, struct Gadget *g, struct gpInput *msg)
 541 {
 542     IPTR retval = GMR_NOREUSE;
 543
 544     /* Was GOACTIVE caused by an input event ? */
 545     if (msg->gpi_IEvent)
 546     {
 547         struct PropGData *data = INST_DATA(cl, g);
 548
 549         /* Fake a standard intuition prop gadget.
 550         Of course this is a hack. */
 551         SetGadgetType(g, GTYP_PROPGADGET);
 552
 553         /* Handle SelectDown event */
 554         HandlePropSelectDown
 555         (
 556             g,
 557             msg->gpi_GInfo->gi_Window,
 558             msg->gpi_GInfo->gi_Requester,
 559             msg->gpi_Mouse.X,
 560             msg->gpi_Mouse.Y,
 561             IntuitionBase
 562         );
 563         SetGadgetType(g, GTYP_CUSTOMGADGET);
 564
 565         if (!(data->propinfo.Flags & KNOBHIT))
 566         {
 567             /* If the knob was not hit, swallow hit-event.
 568             (Gadget has allready been updated) */
 569
 570             /* Update PGA_Top. Final update. */
 571             UpdateTop(cl, g, msg->gpi_GInfo, TRUE);
 572
 573             *(msg->gpi_Termination) = data->top;
 574             retval = GMR_NOREUSE|GMR_VERIFY;
 575         }
 576         else
 577         {
 578             /* We must remember mousepos for use in GM_HANDLEINPUT */
 579             data->last_x = msg->gpi_Mouse.X;
 580             data->last_y = msg->gpi_Mouse.Y;
 581
 582             retval = GMR_MEACTIVE; /* Stay active */
 583
 584             /* enable buffering to speed up refresh */
 585             ((struct IntWindow *)(msg->gpi_GInfo->gi_Window))->specialflags |= SPFLAG_WANTBUFFER;
 586
 587         #ifdef PROPHACK
 588             ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask =
 589                 NewCreateTask(TASKTAG_CODETYPE, CODETYPE_PPC, TASKTAG_PC, (ULONG)PropRefreshTask,
 590                                 TASKTAG_PRI,0,
 591                                 TASKTAG_PPC_ARG1,(ULONG)IntuitionBase,
 592                                 TASKTAG_PPC_ARG2,(ULONG)g,
 593                                 TASKTAG_PPC_ARG3,(ULONG)msg->gpi_GInfo->gi_Window,
 594                                 TASKTAG_PPC_ARG4,(ULONG)msg->gpi_GInfo->gi_Requester,
 595                                 TAG_DONE);
 596         #endif
 597
 598         } /* if not knob was hit */
 599
 600     } /* if gadget was activated by an input event */
 601
 602     return (retval);
 603 }
 604
 605 /****************************************************************************************/
 606
 607 IPTR PropGClass__GM_HANDLEINPUT(Class *cl, struct Gadget *g, struct gpInput *msg)
 608 {
 609     struct InputEvent   *ie;
 610     struct PropGData    *data = INST_DATA(cl, g);
 611
 612     /* Default: stay active */
 613     IPTR        retval = GMR_MEACTIVE;
 614
 615     ie = msg->gpi_IEvent;
 616     if (ie->ie_Class == IECLASS_RAWMOUSE)
 617     {
 618         switch (ie->ie_Code)
 619         {
 620         case IECODE_NOBUTTON:
 621             if ((msg->gpi_Mouse.X != data->last_x) || (msg->gpi_Mouse.Y != data->last_y))
 622             {
 623                  /* Fake a standard intuition prop gadget */
 624                 SetGadgetType(g, GTYP_PROPGADGET);
 625                 HandlePropMouseMove
 626                 (
 627                     g,
 628                     msg->gpi_GInfo->gi_Window,
 629                     msg->gpi_GInfo->gi_Requester,
 630                     msg->gpi_Mouse.X, /* - data->last_x, */
 631                     msg->gpi_Mouse.Y, /* - data->last_y, */
 632                     IntuitionBase
 633                 );
 634
 635                 SetGadgetType(g, GTYP_CUSTOMGADGET);
 636
 637                 data->last_x = msg->gpi_Mouse.X;
 638                 data->last_y = msg->gpi_Mouse.Y;
 639
 640                 D(bug("PropGClass: Calling UpdateTop\n"));
 641
 642                 /* Update PGA_Top. Interim update. */
 643                 UpdateTop(cl, g, msg->gpi_GInfo, FALSE);
 644
 645             }
 646             break;
 647
 648         case SELECTUP:
 649             /* User has released the knob. Refresh knob */
 650
 651     #ifdef PROPHACK
 652         if (((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask)
 653         {
 654             ULONG        oldSignals = SetSignal(0,SIGF_INTUITION);
 655             struct Task *task = ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask;
 656             ULONG        signals = 0;
 657
 658             Forbid();
 659             ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask = 0;
 660             Permit();
 661
 662             if (task) //small protection
 663             {
 664                 Signal(task,PSIG_DIE);
 665
 666                 signals = Wait(SIGF_INTUITION);
 667             }
 668
 669             SetSignal(oldSignals | (signals & ~SIGF_INTUITION),0xFFFFFFFF);
 670         }
 671     #endif
 672
 673             SetGadgetType(g, GTYP_PROPGADGET);
 674
 675             HandlePropSelectUp
 676             (
 677                 g,
 678                 msg->gpi_GInfo->gi_Window,
 679                 msg->gpi_GInfo->gi_Requester,
 680                 IntuitionBase
 681             );
 682
 683             SetGadgetType(g, GTYP_CUSTOMGADGET);
 684
 685             /* Update PGA_Top. Final update. */
 686             UpdateTop(cl, g, msg->gpi_GInfo, TRUE);
 687
 688             *(msg->gpi_Termination) = data->top;
 689             retval = GMR_NOREUSE|GMR_VERIFY;
 690             break;
 691
 692         } /* switch (ie->ie_Code) */
 693
 694     } /* if (ie->ie_Class == IECLASS_RAWMOUSE) */
 695
 696     return (retval);
 697 }
 698
 699 /****************************************************************************************/
 700
 701 IPTR PropGClass__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 702 {
 703     struct PropGData *data = INST_DATA(cl, g);
 704
 705     DEBUG_PROP(dprintf("render_propgclass:\n"));
 706
 707 #ifdef PROPHACK
 708     Forbid();
 709     if ((g == ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->ActiveGadget) && (FindTask(0) == ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->InputDeviceTask) && ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask)
 710     {
 711         Signal(((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask,PSIG_REFRESHALL);
 712         return (IPTR)1;
 713     }
 714     Permit();
 715 #endif
 716
 717     /* Fake a standard intuition prop gadget */
 718     SetGadgetType(g, GTYP_PROPGADGET);
 719
 720     if ((msg->gpr_Redraw == GREDRAW_UPDATE) && (data->old_knobbox))
 721     {
 722         struct BBox new_knobbox;
 723
 724         CalcBBox (msg->gpr_GInfo->gi_Window, msg->gpr_GInfo->gi_Requester, g, &new_knobbox);
 725
 726         DEBUG_PROP(dprintf("render_propgclass: BBox Left %ld Top %ld Width %ld Height %ld\n",
 727                            new_knobbox.Left,
 728                            new_knobbox.Width,
 729                            new_knobbox.Top,
 730                            new_knobbox.Height));
 731
 732         if (CalcKnobSize(g, &new_knobbox))
 733         {
 734         #if PROP_RENDER_OPTIMIZATION
 735             RefreshPropGadgetKnob (g, data->old_knobbox, &new_knobbox, msg->gpr_GInfo->gi_Window, msg->gpr_GInfo->gi_Requester, IntuitionBase);
 736         #else
 737             struct BBox gbox;
 738
 739             CalcBBox (msg->gpr_GInfo->gi_Window, msg->gpr_GInfo->gi_Requester, g, &gbox);
 740             RefreshPropGadgetKnob (g, &gbox, &new_knobbox, msg->gpr_GInfo->gi_Window, msg->gpr_GInfo->gi_Requester, IntuitionBase);
 741         #endif
 742         }
 743
 744         data->old_knobbox = 0;
 745     }
 746     else
 747     {
 748         /* Redraw the whole gadget */
 749         RefreshPropGadget
 750         (
 751             g,
 752             msg->gpr_GInfo->gi_Window,
 753             msg->gpr_GInfo->gi_Requester,
 754             IntuitionBase
 755         );
 756     }
 757
 758     SetGadgetType(g, GTYP_CUSTOMGADGET);
 759
 760     return (IPTR)1;
 761
 762 }
 763
 764 /****************************************************************************************/
 765
 766 IPTR PropGClass__GM_GOINACTIVE(Class *cl, struct Gadget *g, struct gpGoInactive *msg)
 767 {
 768     /* Gadget cancelled by intuition ? */
 769
 770     if (msg->gpgi_Abort == 1)
 771     {
 772
 773     #ifdef PROPHACK
 774         if (((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask)
 775         {
 776             ULONG        oldSignals = SetSignal(0,SIGF_INTUITION);
 777             struct Task *task = ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask;
 778             ULONG        signals = 0;
 779
 780             Forbid();
 781             ((struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data)->PropTask = 0;
 782             Permit();
 783
 784             if (task) //small protection
 785             {
 786                 Signal(task,PSIG_DIE);
 787
 788                 signals = Wait(SIGF_INTUITION);
 789             }
 790
 791             SetSignal(oldSignals | (signals & ~SIGF_INTUITION),0xFFFFFFFF);
 792         }
 793     #endif
 794
 795         SetGadgetType(g, GTYP_PROPGADGET);
 796
 797         HandlePropSelectUp
 798         (
 799             g,
 800             msg->gpgi_GInfo->gi_Window,
 801             msg->gpgi_GInfo->gi_Requester,
 802             IntuitionBase
 803         );
 804
 805         SetGadgetType(g, GTYP_CUSTOMGADGET);
 806
 807         ((struct IntWindow *)(msg->gpgi_GInfo->gi_Window ))->specialflags &= ~SPFLAG_WANTBUFFER;
 808
 809         /* Update PGA_Top. Final update */
 810         UpdateTop(cl, g, msg->gpgi_GInfo, TRUE);
 811     }
 812     return (IPTR)0;
 813 }
 814
 815 /****************************************************************************************/