workbench/classes/gadgets/aroslistview/listviewclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     AROS specific listview class implementation.
   6 */
   7
   8 #include <exec/types.h>
   9
  10 #include <proto/exec.h>
  11 #include <proto/intuition.h>
  12 #include <proto/graphics.h>
  13 #include <proto/utility.h>
  14 #include <exec/memory.h>
  15 #include <intuition/intuition.h>
  16 #include <intuition/classes.h>
  17 #include <intuition/classusr.h>
  18 #include <intuition/cghooks.h>
  19 #include <intuition/gadgetclass.h>
  20 #include <intuition/icclass.h>
  21 #include <graphics/gfxbase.h>
  22 #include <aros/asmcall.h>
  23 #include <string.h>
  24 #include <gadgets/aroslistview.h>
  25 #include <gadgets/aroslist.h>
  26
  27 #include "aroslistview_intern.h"
  28
  29
  30 #define SDEBUG 0
  31 #define DEBUG 0
  32
  33
  34 #include <aros/debug.h>
  35
  36
  37 /*****************************************************************************/
  38
  39
  40
  41 #define SETFLAG(flagvar, boolvar, flag) \
  42     if (boolvar)                        \
  43         flagvar |= flag;                \
  44     else                                \
  45         flagvar &= ~flag;
  46
  47
  48 STATIC IPTR _OM_SET(Class *cl, Object *o,struct opSet *msg)
  49 {
  50     IPTR retval = (IPTR)0;
  51
  52     const struct TagItem *tag, *tstate;
  53     struct LVData *data;
  54
  55     EnterFunc(bug("ListView::OM_SET\n"));
  56
  57     data = INST_DATA(cl, o);
  58     tstate = msg->ops_AttrList;
  59
  60     /* Set to 1 to signal visual changes */
  61     while ((tag = NextTagItem(&tstate)) != NULL)
  62     {
  63         switch (tag->ti_Tag)
  64         {
  65             case AROSA_Listview_DisplayHook:
  66                 data->lvd_DisplayHook = (struct Hook *)tag->ti_Data;
  67                 retval = 1UL;
  68                 break;
  69
  70             case AROSA_Listview_FrontPen:
  71                 data->lvd_FrontPen = (UBYTE)tag->ti_Data;
  72                 retval = 1UL;
  73                 break;
  74
  75             case AROSA_Listview_BackPen:
  76                 data->lvd_BackPen = (UBYTE)tag->ti_Data;
  77                 retval = 1UL;
  78                 break;
  79
  80
  81             case AROSA_Listview_Visible:
  82             case AROSA_Listview_Total:
  83             {
  84                 struct TagItem tags[] =
  85                 {
  86                     {tag->ti_Tag,       tag->ti_Data},
  87                     {TAG_END}
  88                 };
  89
  90                 NotifyAttrs(cl, o, msg, tags);
  91             } break;
  92
  93             case AROSA_Listview_List:
  94             {
  95
  96                 ULONG numentries;
  97
  98                 struct TagItem tags[] =
  99                 {
 100                     {AROSA_Listview_First,      0},
 101                     {AROSA_Listview_Total,      0},
 102                     {TAG_END}
 103                 };
 104
 105                 data->lvd_List = (Object *)tag->ti_Data;
 106
 107                 GetAttr(AROSA_List_Entries, data->lvd_List, (IPTR *)&numentries);
 108                 SetAttrs(data->lvd_List,
 109                         AROSA_List_Active, AROSV_List_Active_None,
 110                         TAG_END);
 111
 112                 tags[1].ti_Data = numentries;
 113                 DoMethod(o, OM_SET, (IPTR) tags, (IPTR) msg->ops_GInfo);
 114
 115                 retval = 1UL;
 116             } break;
 117
 118
 119             case AROSA_Listview_HorSpacing:
 120                 data->lvd_HorSpacing = (UBYTE)tag->ti_Data;
 121                 retval = 1UL;
 122                 break;
 123
 124             case AROSA_Listview_VertSpacing:
 125                 data->lvd_VertSpacing = (UBYTE)tag->ti_Data;
 126
 127                 ReCalcEntryHeight(data);
 128                 retval = 1UL;
 129                 break;
 130
 131             case AROSA_Listview_Format:
 132             {
 133                 struct ColumnAttrs *colattrs = data->lvd_ColAttrs;
 134                 ULONG colattrsz = UB(&colattrs[data->lvd_MaxColumns]) - UB(&colattrs[0]);
 135
 136                 memset(colattrs, 0, colattrsz);
 137                 ParseFormatString((STRPTR)tag->ti_Data, data);
 138                 retval = 1UL;
 139             } break;
 140
 141             case AROSA_Listview_First:
 142             {
 143                 struct TagItem tags[] =
 144                 {
 145                     {AROSA_Listview_First, tag->ti_Data},
 146                     {TAG_END}
 147                 };
 148
 149                 LONG old = data->lvd_First;
 150
 151 #if DEBUG
 152                 if (msg->MethodID == OM_SET)
 153                 {
 154                         D(bug("_First OM_SET\n"));
 155                 } else
 156                 {
 157                         D(bug("_First OM_UPDATEd, lvd_NC=%d\n",
 158                                 data->lvd_NotifyCount));
 159                 }
 160 #endif
 161
 162                 retval = 1UL;
 163                 data->lvd_First = (LONG)tag->ti_Data;
 164
 165                 if (    ( msg->MethodID == OM_UPDATE )
 166                      && ( old  != data->lvd_First ))
 167                 {
 168                     struct RastPort *rp;
 169                     WORD steps;
 170                     UWORD visible, abs_steps;
 171                     struct IBox box;
 172
 173                     steps = tag->ti_Data - old;
 174                     abs_steps = steps < 0 ? -steps : steps;
 175
 176                     GetGadgetIBox(o, msg->ops_GInfo, &box);
 177                     visible = NumVisible(&box, data->lvd_EntryHeight);
 178
 179                     if (abs_steps < visible >> 1)
 180                     {
 181                         if ((rp = ObtainGIRPort(msg->ops_GInfo)) != NULL)
 182                         {
 183                             LONG dy;
 184                             /* We make the assumption that the listview
 185                             ** is alvays 'full'. If it isn't, the
 186                             ** Scroll gadget won't be scrollable, and
 187                             ** we won't receive any OM_UPDATEs.
 188                             */
 189
 190                             dy = steps * data->lvd_EntryHeight;
 191
 192
 193                             ScrollRaster(rp, 0, dy,
 194                                 box.Left + LV_BORDERWIDTH_X,
 195                                 box.Top  + LV_BORDERWIDTH_Y,
 196                                 box.Left + box.Width  - 1 - LV_BORDERWIDTH_X,
 197                                 box.Top  + LV_BORDERWIDTH_Y + visible * data->lvd_EntryHeight);
 198
 199                             data->lvd_DamageOffset = ((steps > 0) ?
 200                                         visible - abs_steps : 0);
 201
 202                             data->lvd_NumDamaged = abs_steps;
 203
 204                             DoMethod(o, GM_RENDER, (IPTR) msg->ops_GInfo, (IPTR) rp, GREDRAW_UPDATE);
 205                             ReleaseGIRPort(rp);
 206                             retval = 0UL;
 207
 208
 209
 210                         } /* if (ObtainGIRPort succeed) */
 211
 212                     } /* if (at most half the visible entries scrolled out) */
 213
 214                 } /* if (msg is of type OM_UPDATE) */
 215
 216
 217                 /* Notify change */
 218                 NotifyAttrs(cl, o, msg, tags);
 219
 220             } break;
 221
 222             case AROSA_Listview_RenderHook:
 223                 data->lvd_RenderHook = (struct Hook *)data->lvd_RenderHook;
 224                 retval = 1UL;
 225                 break;
 226
 227             case AROSA_Listview_MultiSelect:
 228                 SETFLAG(data->lvd_Flags, tag->ti_Data, LVFLG_MULTISELECT);
 229                 break;
 230
 231             case GA_TextAttr:
 232             {
 233                 struct TextFont *tf;
 234
 235                 tf = OpenFont((struct TextAttr *)tag->ti_Data);
 236                 if (tf)
 237                 {
 238                     if (data->lvd_Font)
 239                     {
 240                         CloseFont(data->lvd_Font);
 241                     }
 242                     data->lvd_Font = tf;
 243                 }
 244                 ReCalcEntryHeight(data);
 245
 246              } break;
 247
 248
 249             default:
 250                 break;
 251
 252         } /* switch (tag->ti_Tag) */
 253
 254     } /* while (more tags to iterate) */
 255
 256     ReturnPtr("ListView::OM_SET", IPTR, retval);
 257 }
 258
 259 /**********************
 260 **  Listview::Set()  **
 261 **********************/
 262
 263 IPTR AROSListview__OM_SET(Class *cl, Object *o,struct opSet *msg)
 264 {
 265     IPTR retval = DoSuperMethodA(cl, o, (Msg)msg);
 266
 267     retval += (IPTR)_OM_SET(cl, o, (struct opSet *)msg);
 268     return retval;
 269 }
 270
 271 /*************************
 272 **  Listview::Update()  **
 273 *************************/
 274
 275 IPTR AROSListview__OM_UPDATE(Class *cl, Object *o,struct opSet *msg)
 276 {
 277     IPTR retval = DoSuperMethodA(cl, o, (Msg)msg);
 278     struct LVData *data = INST_DATA(cl, o);
 279
 280     retval += (IPTR)_OM_SET(cl, o, (struct opSet *)msg);
 281
 282     /* If we have been subclassed, OM_UPDATE should not cause a GM_RENDER
 283      * because it would circumvent the subclass from fully overriding it.
 284      * The check of cl == OCLASS(o) should fail if we have been
 285      * subclassed, and we have gotten here via DoSuperMethodA().
 286      */
 287     if (    retval
 288          && (cl == OCLASS(o))
 289          && (data->lvd_NotifyCount)
 290     )
 291     {
 292         struct GadgetInfo *gi = ((struct opSet *)msg)->ops_GInfo;
 293         if (gi)
 294         {
 295             struct RastPort *rp = ObtainGIRPort(gi);
 296             if (rp)
 297             {
 298                 struct IBox ibox;
 299
 300                 GetGadgetIBox(o, gi, &ibox);
 301                 data->lvd_DamageOffset = 0;
 302                 data->lvd_NumDamaged = NumVisible(&ibox, data->lvd_EntryHeight);
 303
 304
 305                 D(bug("Major rerender: o=%d, n=%d\n",
 306                       data->lvd_DamageOffset, data->lvd_NumDamaged)
 307                 );
 308
 309                 DoMethod(o, GM_RENDER, (IPTR) gi, (IPTR) rp, GREDRAW_UPDATE);
 310                 ReleaseGIRPort(rp);
 311             }
 312         }
 313     }
 314
 315     return retval;
 316 }
 317
 318 /**********************
 319 **  Listview::New()  **
 320 **********************/
 321
 322
 323 IPTR AROSListview__OM_NEW(Class *cl, Object *o, struct opSet *msg)
 324 {
 325     struct LVData *data;
 326     struct ColumnAttrs *colattrs;
 327     STRPTR *dharray;
 328     ULONG colattrsz;
 329
 330     struct opSet ops, *p_ops = &ops;
 331     struct TagItem tags[] =
 332     {
 333         {GA_RelSpecial, TRUE},
 334         {TAG_MORE, 0}
 335     };
 336
 337     ops.MethodID        = OM_NEW;
 338     ops.ops_AttrList    = &tags[0];
 339     ops.ops_GInfo       = NULL;
 340
 341     tags[1].ti_Data = (IPTR)msg->ops_AttrList;
 342
 343     o = (Object *)DoSuperMethodA(cl, o, (Msg)p_ops);
 344     if(!o)
 345         return (IPTR) NULL;
 346
 347 D(bug("lv: obj created\n"));
 348     data = INST_DATA(cl, o);
 349     memset(data, 0, sizeof (struct LVData));
 350
 351     data->lvd_MaxColumns = GetTagData(AROSA_Listview_MaxColumns, 0, msg->ops_AttrList);
 352     if (!data->lvd_MaxColumns)
 353         goto failure;
 354 D(bug("Maxcolumns found: %d\n", data->lvd_MaxColumns));
 355
 356     /* Allocate mem for storing info parsed from Listview_Format. Do this
 357      * before listview_set() call, because it needs this for parsing the
 358      * format string.
 359      */
 360     colattrsz = data->lvd_MaxColumns * sizeof (struct ColumnAttrs);
 361     colattrs = AllocVec(colattrsz, MEMF_ANY|MEMF_CLEAR);
 362     if (!colattrs)
 363         goto failure;
 364     data->lvd_ColAttrs = colattrs;
 365 D(bug("Colattrs allocated\n"));
 366
 367     /* Only view first column */
 368     data->lvd_ViewedColumns = 1;
 369     colattrs[0].ca_DHIndex = 0;
 370
 371     /* Alloc mem for array to pass to _Listview_DisplayHook */
 372     dharray = AllocVec(data->lvd_MaxColumns * sizeof (STRPTR), MEMF_ANY);
 373     if (!dharray)
 374         goto failure;
 375     data->lvd_DHArray = dharray;
 376 D(bug("disphookarray allocated\n"));
 377
 378     /* Set some defaults */
 379     data->lvd_HorSpacing  = LV_DEFAULTHORSPACING;
 380     data->lvd_VertSpacing = LV_DEFAULTVERTSPACING;
 381
 382     data->lvd_FrontPen = TEXTPEN;
 383     data->lvd_BackPen  = BACKGROUNDPEN;
 384
 385     /* Handle our special tags - overrides defaults */
 386     _OM_SET(cl, o, msg);
 387
 388     /* If not font has been set, use our own. */
 389     if (!data->lvd_Font)
 390     {
 391         struct TextAttr tattr;
 392         struct TextFont *tf = GfxBase->DefaultFont;
 393
 394         memset(&tattr, 0, sizeof (struct TextAttr));
 395         tattr.ta_Name  = tf->tf_Message.mn_Node.ln_Name;
 396         tattr.ta_YSize = tf->tf_YSize;
 397         tattr.ta_Style = tf->tf_Style;
 398         tattr.ta_Flags = tf->tf_Flags;
 399
 400         if ((data->lvd_Font = OpenFont(&tattr)) == NULL)
 401             goto failure;
 402
 403         ReCalcEntryHeight(data);
 404     }
 405
 406     return ((IPTR)o);
 407
 408
 409 failure:
 410     CoerceMethod(cl, o, OM_DISPOSE);
 411     return (IPTR) NULL;
 412 }
 413
 414 /**********************
 415 **  Listview::Get()  **
 416 **********************/
 417 IPTR AROSListview__OM_GET(Class *cl, Object *o, struct opGet *msg)
 418 {
 419     IPTR retval = 1UL;
 420     struct LVData *data;
 421
 422     data = INST_DATA(cl, o);
 423
 424     switch (msg->opg_AttrID)
 425     {
 426         case AROSA_Listview_HorSpacing:
 427             *(msg->opg_Storage) = (IPTR)data->lvd_HorSpacing;
 428             break;
 429
 430         case AROSA_Listview_VertSpacing:
 431             *(msg->opg_Storage) = (IPTR)data->lvd_VertSpacing;
 432             break;
 433
 434         case AROSA_Listview_List:
 435             *(msg->opg_Storage) = (IPTR)data->lvd_List;
 436             break;
 437
 438         case AROSA_Listview_DoubleClick:
 439             *(msg->opg_Storage) = (IPTR)(data->lvd_Flags & LVFLG_DOUBLECLICK) ?
 440                                                 TRUE : FALSE;
 441             break;
 442
 443         default:
 444             retval = DoSuperMethodA(cl, o, (Msg)msg);
 445             break;
 446     }
 447     return (retval);
 448 }
 449
 450
 451 /**************************
 452 **  Listview::Dispose()  **
 453 **************************/
 454 VOID AROSListview__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 455 {
 456     struct LVData *data;
 457
 458     data = INST_DATA(cl, o);
 459
 460     if (data->lvd_DHArray)
 461         FreeVec(data->lvd_DHArray);
 462
 463     if (data->lvd_ColAttrs)
 464         FreeVec(data->lvd_ColAttrs);
 465
 466     if (data->lvd_Font)
 467         CloseFont(data->lvd_Font);
 468
 469    return;
 470 }
 471
 472 /**************************
 473 **  Listview::HitTest()  **
 474 **************************/
 475 IPTR AROSListview__GM_HITTEST(Class *cl, Object *o, struct gpHitTest *msg)
 476 {
 477     IPTR retval;
 478     struct LVData *data = INST_DATA(cl, o);
 479
 480     retval = DoSuperMethodA(cl, o, (Msg)msg);
 481     if (retval == GMR_GADGETHIT)
 482     {
 483         /* If the listview is readonly, we should never reach GM_GOACTIVE */
 484         if (data->lvd_Flags & LVFLG_READONLY)
 485         {
 486             retval = 0UL;
 487
 488         }
 489     }
 490     return (retval);
 491 }
 492
 493 /***************************
 494 **  Listview::GoActive()  **
 495 ***************************/
 496
 497
 498 IPTR AROSListview__GM_GOACTIVE(Class *cl, Object *o, struct gpInput *msg)
 499 {
 500     IPTR retval = GMR_NOREUSE;
 501
 502     struct LVData *data = INST_DATA(cl, o);
 503     struct IBox container;
 504     ULONG numentries;
 505     UWORD shown;
 506     /* pos of the selected inside the listview. Eg the first viewed has clickpos 0 */
 507     UWORD clickpos;
 508     LONG active;
 509     UWORD activepos;
 510
 511     WORD updateoldactive = -1;
 512
 513     BOOL rerender = FALSE;
 514     BOOL singleclick = FALSE, doubleclick = FALSE;
 515
 516
 517     if (data->lvd_Flags & LVFLG_READONLY)
 518         goto exit;
 519
 520     if (!msg->gpi_IEvent)
 521         goto exit;
 522
 523     GetGadgetIBox(o, msg->gpi_GInfo, &container);
 524
 525     GetAttr(AROSA_List_Entries, data->lvd_List, (IPTR *)&numentries);
 526
 527     /* How many entries are currently shown in the listview ? */
 528     shown = ShownEntries(data, &container);
 529
 530     /* offset from top of listview of the entry clicked */
 531     clickpos = (msg->gpi_Mouse.Y - LV_BORDERWIDTH_Y)
 532                  / data->lvd_EntryHeight;
 533
 534     data->lvd_Flags &= ~LVFLG_DOUBLECLICK;
 535
 536     if (clickpos < shown)
 537     {
 538         GetAttr(AROSA_List_Active, data->lvd_List, (IPTR *)&active);
 539
 540         /* Check for a doubleclick */
 541         activepos = active - data->lvd_First;
 542         if (activepos == clickpos)
 543         {
 544
 545
 546             if (DoubleClick(data->lvd_StartSecs,
 547                             data->lvd_StartMicros,
 548                             msg->gpi_IEvent->ie_TimeStamp.tv_secs,
 549                             msg->gpi_IEvent->ie_TimeStamp.tv_micro))
 550             {
 551                 data->lvd_Flags |= LVFLG_DOUBLECLICK;
 552                 doubleclick = TRUE;
 553                 D(bug("\tlv: doubleclick at pos %d\n", clickpos));
 554             }
 555         }
 556         else
 557         {
 558             singleclick = TRUE;
 559
 560             data->lvd_StartSecs   = msg->gpi_IEvent->ie_TimeStamp.tv_secs;
 561             data->lvd_StartMicros = msg->gpi_IEvent->ie_TimeStamp.tv_micro;
 562
 563         }
 564
 565         if (data->lvd_Flags & LVFLG_MULTISELECT)
 566         {
 567             DoMethod
 568         (
 569             data->lvd_List,
 570                     AROSM_List_Select,               data->lvd_First + clickpos,
 571                     AROSV_List_Select_Toggle, (IPTR) NULL
 572         );
 573
 574             data->lvd_DamageOffset = clickpos;
 575             data->lvd_NumDamaged = 1;
 576
 577             rerender = TRUE;
 578         }
 579         else
 580         {
 581             if (activepos != clickpos)
 582             {
 583
 584                 /* Active entry inside lv ? */
 585                 if (    (active >= data->lvd_First)
 586                      && (active < (data->lvd_First + shown)))
 587                 {
 588
 589
 590                     updateoldactive = activepos;
 591                 }
 592
 593                 data->lvd_DamageOffset = clickpos;
 594                 data->lvd_NumDamaged = 1;
 595
 596                 rerender = TRUE;
 597             } /* if (not user reclicked on active entry) */
 598
 599         } /* if (lv is simple or multiselect) */
 600
 601         /* Render the selected-imagery of the new active item */
 602         active = data->lvd_First + clickpos;
 603         SetAttrs(data->lvd_List,
 604                     AROSA_List_Active, active,
 605                     TAG_END);
 606
 607         *(msg->gpi_Termination) = IDCMP_GADGETUP;
 608         D(bug("\t GMR_VERIFY retval set\n"));
 609         retval = GMR_NOREUSE|GMR_VERIFY;
 610
 611
 612         if (rerender)
 613         {
 614             struct RastPort *rp;
 615             rp = ObtainGIRPort(msg->gpi_GInfo);
 616             if (rp)
 617             {
 618                 DoMethod(o, GM_RENDER, (IPTR) msg->gpi_GInfo, (IPTR) rp, GREDRAW_UPDATE);
 619                 if (updateoldactive != -1)
 620                 {
 621                     data->lvd_DamageOffset = updateoldactive;
 622                     data->lvd_NumDamaged   = 1;
 623                     DoMethod(o, GM_RENDER, (IPTR) msg->gpi_GInfo, (IPTR) rp, GREDRAW_UPDATE);
 624                 }
 625
 626                 ReleaseGIRPort(rp);
 627             }
 628         }
 629
 630         /* Tell subclasses that a singleclick occured */
 631         if (singleclick)
 632         {
 633             DoMethod(   o,
 634                         AROSM_Listview_SingleClick,
 635                         (IPTR) msg->gpi_GInfo,
 636                         clickpos + data->lvd_First);
 637         }
 638
 639
 640         /* Tell subclasses that a doubleclick occured */
 641         if (doubleclick)
 642         {
 643             DoMethod(   o,
 644                         AROSM_Listview_DoubleClick,
 645                         (IPTR) msg->gpi_GInfo,
 646                         clickpos + data->lvd_First);
 647         }
 648
 649     } /* if (entry is shown) */
 650
 651
 652 exit:
 653     return (retval);
 654 }
 655
 656 /******************************
 657 **  Listview::HandleInput()  **
 658 ******************************/
 659
 660 IPTR AROSListview__GM_HANDLEINPUT(Class *cl, Object *o, struct gpInput *msg)
 661 {
 662     /* Default: stay active */
 663     IPTR retval = GMR_MEACTIVE;
 664
 665
 666     return (retval);
 667 }
 668
 669 /*************************
 670 **  Listview::Render()  **
 671 *************************/
 672
 673 IPTR AROSListview__GM_RENDER(Class *cl, Object *o, struct gpRender *msg)
 674 {
 675     struct IBox container;
 676     struct LVData *data = INST_DATA(cl, o);
 677
 678     switch (msg->gpr_Redraw)
 679     {
 680         case GREDRAW_REDRAW:
 681
 682             /* Calculate the old bounding box */
 683             GetGadgetIBox(o, msg->gpr_GInfo, &container);
 684
 685             if ((container.Height <= 2 * LV_BORDERWIDTH_Y + data->lvd_VertSpacing) ||
 686                 (container.Width  <= 2 * LV_BORDERWIDTH_X + data->lvd_HorSpacing))
 687                 return (0UL);
 688
 689
 690              /* Erase the old gadget imagery */
 691             SetAPen(msg->gpr_RPort,
 692                     msg->gpr_GInfo->gi_DrInfo->dri_Pens[data->lvd_BackPen]);
 693
 694
 695             RectFill(msg->gpr_RPort,
 696                 container.Left,
 697                 container.Top,
 698                 container.Left + container.Width - 1,
 699                 container.Top + container.Height - 1);
 700
 701             DrawListBorder(msg->gpr_RPort,
 702                 msg->gpr_GInfo->gi_DrInfo->dri_Pens,
 703                 &container,
 704                 (data->lvd_Flags & LVFLG_READONLY)
 705             );
 706
 707
 708             RenderEntries(cl, o, msg,
 709                 data->lvd_First,
 710                 ShownEntries(data, &container),
 711                 FALSE
 712             );
 713
 714             break;
 715
 716         case GREDRAW_UPDATE:
 717         {
 718             /* Redraw all damaged entries */
 719             UWORD offset;
 720
 721             for (offset = data->lvd_DamageOffset; data->lvd_NumDamaged --; offset ++)
 722             {
 723                 RenderEntries(cl, o, msg,
 724                         data->lvd_First + offset,
 725                         1,
 726                         TRUE
 727                 );
 728
 729             }
 730
 731         } break;
 732
 733     }
 734
 735     return (1UL);
 736 }
 737
 738 /*************************
 739 **  Listview::Layout()  **
 740 **************************/
 741 VOID AROSListview__GM_LAYOUT(Class *cl, Object *o, struct gpLayout *msg)
 742 {
 743     #undef RELFLAGS
 744     #define RELFLAGS (GFLG_RELRIGHT|GFLG_RELWIDTH|GFLG_RELHEIGHT|GFLG_RELBOTTOM)
 745     struct IBox container;
 746     struct LVData *data = INST_DATA(cl, o);
 747
 748
 749     D(bug("Listview::Layout()\n"));
 750
 751
 752     /* Only recalculate dimensions if this is the first layout, or we
 753      * are a GFLG_xxx gadget
 754      */
 755     if (msg->gpl_Initial || EG(o)->Flags & RELFLAGS)
 756     {
 757         struct GadgetInfo *gi = msg->gpl_GInfo;
 758         if (gi)
 759         {
 760             struct TagItem tags[] =
 761             {
 762                 {AROSA_Listview_Visible, 0},
 763                 {TAG_END}
 764             };
 765
 766 D(bug("data->lvd_List: %p\n", data->lvd_List));
 767             GetGadgetIBox(o, gi, &container);
 768
 769             /* Compute widths of each column */
 770             ComputeColumnWidths(container.Width, data);
 771
 772             /* Compute left and right offsets for each column */
 773             ComputeColLeftRight(container.Left, data);
 774
 775
 776             tags[0].ti_Data  = ShownEntries(data, &container);
 777 D(bug("Layot: notifying visible=%d, gi=%d\n", tags[0].ti_Data, gi));
 778             DoMethod(o, OM_SET, (IPTR) tags, (IPTR) gi);
 779         } /* if (gadgetinfo supplied) */
 780
 781     } /* if (GFLG_xxx or first layout) */
 782     ReturnVoid("Listview::Layout");
 783 }
 784
 785
 786 /*****************************
 787 **  Listview::GoInActive()  **
 788 *****************************/
 789 IPTR AROSListview__GM_GOINACTIVE(Class *cl, Object *o, struct gpGoInactive *msg)
 790 {
 791     return (IPTR)0;
 792 }
 793
 794 /***********************
 795 ** Listview::Insert() **
 796 ***********************/
 797 IPTR AROSListview__AROSM_Listview_Insert
 798 (
 799     Class *cl,
 800     Object *o,
 801     struct AROSP_Listview_Insert *msg
 802 )
 803 {
 804     struct LVData *data = INST_DATA(cl, o);
 805
 806     return (IPTR)DoMethod(data->lvd_List,
 807                           AROSM_List_Insert,
 808                           (IPTR) msg->ItemArray,
 809                           msg->Position
 810     );
 811 }
 812
 813 /*****************************
 814 ** Listview::InsertSingle() **
 815 *****************************/
 816 IPTR AROSListview__AROSM_Listview_InsertSingle
 817 (
 818     Class *cl,
 819     Object *o,
 820     struct AROSP_Listview_InsertSingle *msg
 821 )
 822 {
 823     struct LVData *data = INST_DATA(cl, o);
 824
 825     return (IPTR)DoMethod(data->lvd_List,
 826                           AROSM_List_InsertSingle,
 827                           (IPTR) msg->Item,
 828                           msg->Position
 829     );
 830 }
 831
 832 /***********************
 833 ** Listview::Remove() **
 834 ***********************/
 835 IPTR AROSListview__AROSM_Listview_Remove
 836 (
 837     Class *cl,
 838     Object *o,
 839     struct AROSP_Listview_Insert *msg
 840 )
 841 {
 842     struct LVData *data = INST_DATA(cl, o);
 843
 844     return (IPTR)DoMethod(data->lvd_List,
 845                           AROSM_List_InsertSingle,
 846                           msg->Position
 847     );
 848 }