rom/intuition/monitorclass.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7 #include <cybergraphx/cybergraphics.h>
   8 #include <hidd/graphics.h>
   9 #include <hidd/hidd.h>
  10 #include <graphics/driver.h>
  11 #include <graphics/sprite.h>
  12 #include <intuition/intuition.h>
  13 #include <intuition/intuitionbase.h>
  14 #include <intuition/classes.h>
  15 #include <intuition/classusr.h>
  16 #include <intuition/monitorclass.h>
  17 #include <proto/alib.h>
  18 #include <proto/exec.h>
  19 #include <proto/intuition.h>
  20 #include <proto/oop.h>
  21 #include <proto/utility.h>
  22
  23 #include "intuition_intern.h"
  24 #include "monitorclass_intern.h"
  25 #include "monitorclass_private.h"
  26
  27 /*****************************************************************************************
  28
  29     NAME
  30         --background--
  31
  32     LOCATION
  33         MONITORCLASS
  34
  35     NOTES
  36         In AROS display drivers have associated BOOPSI objects of MONITORCLASS class.
  37         This class provides information about relative physical placement of monitors
  38         in user's workspace as well as some additional properties.
  39
  40         MONITORCLASS is a pseudo name. This class is in fact private to the system and
  41         does not have a public ID. The user can't create objects of this class manually.
  42
  43         This class is fully compatible with MorphOS starting from v2.6.
  44
  45 *****************************************************************************************/
  46
  47 Object *DisplayDriverNotify(APTR obj, BOOL add, struct IntuitionBase *IntuitionBase)
  48 {
  49     if (add)
  50     {
  51         Object *mon = NewObject(GetPrivIBase(IntuitionBase)->monitorclass, NULL, MA_MonitorHandle, obj, TAG_DONE);
  52
  53         D(bug("[monitorclass] Created monitorclass object 0x%p\n", mon));
  54         if (mon) {
  55             /* Install default mouse pointer on the new monitor */
  56             Object *ptr = GetPrivIBase(IntuitionBase)->DefaultPointer;
  57
  58             if (ptr) {
  59                 struct SharedPointer *pointer;
  60
  61                 GetAttr(POINTERA_SharedPointer, ptr, (IPTR *)&pointer);
  62                 DoMethod(mon, MM_SetPointerShape, pointer);
  63             }
  64         }
  65
  66         return mon;
  67     }
  68     else
  69     {
  70         DisposeObject(obj);
  71         return NULL;
  72     }
  73 }
  74
  75 /***********************************************************************************/
  76
  77 static void SetPointerPos(struct MonitorData *data, struct IntuitionBase *IntuitionBase)
  78 {
  79     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
  80     ULONG x = data->mouseX;
  81     ULONG y = data->mouseY;
  82
  83     DB2(bug("[monitorclass] SetPointerPos(%d, %d), pointer 0x%p\n", x, y, data->pointer));
  84     if (data->pointer)
  85     {
  86         /* Take HotSpot into account */
  87         x += data->pointer->xoffset;
  88         y += data->pointer->yoffset;
  89
  90         /* Update sprite position, just for backwards compatibility */
  91         data->pointer->sprite->es_SimpleSprite.x = x;
  92         data->pointer->sprite->es_SimpleSprite.y = y;
  93     }
  94
  95     DB2(bug("[monitorclass] Physical coordinates: (%d, %d)\n", x, y));
  96     HIDD_Gfx_SetCursorPos(data->handle->gfxhidd, x, y);
  97 }
  98
  99 /***********************************************************************************/
 100
 101 static void ActivationHandler(Object *mon, OOP_Object *bitmap)
 102 {
 103     Class *cl = OCLASS(mon);
 104     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 105
 106     /* NewMonitor will be picked up by input handler when the next event arrives, so no signals etc */
 107     GetPrivIBase(IntuitionBase)->NewMonitor = mon;
 108 }
 109
 110 /***********************************************************************************/
 111
 112 static BYTE const pixelformats[] = {
 113     -1,
 114     -1,
 115     -1,
 116     PIXFMT_RGB24,
 117     PIXFMT_BGR24,
 118     PIXFMT_RGB16,
 119     PIXFMT_RGB16PC,
 120     PIXFMT_BGR16,
 121     PIXFMT_BGR16PC,
 122     PIXFMT_RGB15,
 123     PIXFMT_RGB15PC,
 124     PIXFMT_BGR15,
 125     PIXFMT_BGR15PC,
 126     PIXFMT_ARGB32,
 127     PIXFMT_BGRA32,
 128     PIXFMT_RGBA32,
 129     -1,
 130     PIXFMT_ARGB32,
 131     PIXFMT_BGRA32,
 132     PIXFMT_RGBA32,
 133     -1,
 134     PIXFMT_LUT8,
 135     -1
 136 };
 137
 138 Object *MonitorClass__OM_NEW(Class *cl, Object *o, struct opSet *msg)
 139 {
 140     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 141     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
 142     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
 143     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
 144     OOP_AttrBase HiddGfxAttrBase = GetPrivIBase(IntuitionBase)->HiddGfxAttrBase;
 145     OOP_AttrBase HiddPixFmtAttrBase = GetPrivIBase(IntuitionBase)->HiddPixFmtAttrBase;
 146     struct MonitorHandle *handle = (struct MonitorHandle *)GetTagData(MA_MonitorHandle, 0, msg->ops_AttrList);
 147     HIDDT_ModeID mode = vHidd_ModeID_Invalid;
 148     struct MonitorData *data;
 149     OOP_Object *sync, *pixfmt;
 150     /* Tags order is important because CallBackData needs to be set before
 151        function pointer. Otherwise the function can be called with a wrong
 152        pointer. */
 153     struct TagItem tags[] = {
 154         {aHidd_Gfx_ActiveCallBackData, 0                      },
 155         {aHidd_Gfx_ActiveCallBack    , (IPTR)ActivationHandler},
 156         {TAG_DONE                    , 0                      }
 157     };
 158
 159     D(kprintf("[monitorclass] OM_NEW\n"));
 160
 161     if (!handle)
 162         return NULL;
 163
 164     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
 165     if (!o)
 166         return NULL;
 167
 168     data = INST_DATA(cl, o);
 169
 170     data->handle = handle;
 171
 172     /* We can't list driver's pixelformats, we can list only modes. This does not harm however,
 173        just some pixelformats will be processed more than once */
 174     while ((mode = HIDD_Gfx_NextModeID(handle->gfxhidd, mode, &sync, &pixfmt)) != vHidd_ModeID_Invalid) {
 175         IPTR stdpf;
 176         BYTE cgxpf;
 177
 178         OOP_GetAttr(pixfmt, aHidd_PixFmt_StdPixFmt, &stdpf);
 179         cgxpf = pixelformats[stdpf];
 180         D(bug("[monitorclass] Mode 0x%08lX, StdPixFmt %lu, CGX pixfmt %d\n", mode, stdpf, cgxpf));
 181
 182         if (cgxpf != -1) {
 183             data->pfobjects[cgxpf] = pixfmt;
 184             data->pixelformats[cgxpf] = TRUE;
 185         }
 186     }
 187
 188     tags[0].ti_Data = (IPTR)o;
 189     OOP_SetAttrs(handle->gfxhidd, tags);
 190
 191     ObtainSemaphore(&GetPrivIBase(IntuitionBase)->MonitorListSem);
 192     AddTail((struct List *)&GetPrivIBase(IntuitionBase)->MonitorList, (struct Node *)data);
 193     ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->MonitorListSem);
 194
 195     return o;
 196 }
 197
 198 /*****************************************************************************************
 199
 200     NAME
 201         MA_MonitorName
 202
 203     SYNOPSIS
 204         [..G], STRPTR
 205
 206     LOCATION
 207         MONITORCLASS
 208
 209     FUNCTION
 210         Query monitor driver name
 211
 212     NOTES
 213
 214     EXAMPLE
 215
 216     BUGS
 217
 218     SEE ALSO
 219
 220     INTERNALS
 221
 222 *****************************************************************************************/
 223
 224 /*****************************************************************************************
 225
 226     NAME
 227         MA_Manufacturer
 228
 229     SYNOPSIS
 230         [..G], STRPTR
 231
 232     LOCATION
 233         MONITORCLASS
 234
 235     FUNCTION
 236         Query video card hardware manufacturer name
 237
 238     NOTES
 239         Not all drivers may specify manufacturer string. NULL is a valid return value.
 240
 241     EXAMPLE
 242
 243     BUGS
 244
 245     SEE ALSO
 246
 247     INTERNALS
 248
 249 *****************************************************************************************/
 250
 251 /*****************************************************************************************
 252
 253     NAME
 254         MA_ManufacturerID
 255
 256     SYNOPSIS
 257         [..G], ULONG
 258
 259     LOCATION
 260         MONITORCLASS
 261
 262     FUNCTION
 263         Query video card hardware's numeric manufacturer ID (which may come from PCI,
 264         Zorro, etc).
 265
 266     NOTES
 267         Not all drivers may have assigned IDs. For example VGA driver and virtual
 268         hosted drivers do not associate themselves with any IDs.
 269
 270     EXAMPLE
 271
 272     BUGS
 273
 274     SEE ALSO
 275         MA_ProductID
 276
 277     INTERNALS
 278
 279 *****************************************************************************************/
 280
 281 /*****************************************************************************************
 282
 283     NAME
 284         MA_ProductID
 285
 286     SYNOPSIS
 287         [..G], ULONG
 288
 289     LOCATION
 290         MONITORCLASS
 291
 292     FUNCTION
 293         Query video card hardware's numeric product ID (which may come from PCI, Zorro, etc).
 294
 295     NOTES
 296         Not all drivers may have assigned IDs. For example VGA driver and virtual
 297         hosted drivers do not associate themselves with any IDs.
 298
 299     EXAMPLE
 300
 301     BUGS
 302
 303     SEE ALSO
 304         MA_ManufacturerID
 305
 306     INTERNALS
 307
 308 *****************************************************************************************/
 309
 310 /*****************************************************************************************
 311
 312     NAME
 313         MA_MemorySize
 314
 315     SYNOPSIS
 316         [..G], ULONG
 317
 318     LOCATION
 319         MONITORCLASS
 320
 321     FUNCTION
 322         Query total size of video card memory in bytes.
 323
 324     NOTES
 325
 326     EXAMPLE
 327
 328     BUGS
 329
 330     SEE ALSO
 331         MA_MemoryClock
 332
 333     INTERNALS
 334
 335 *****************************************************************************************/
 336
 337 /*****************************************************************************************
 338
 339     NAME
 340         MA_PixelFormats
 341
 342     SYNOPSIS
 343         [..G], ULONG *
 344
 345     LOCATION
 346         MONITORCLASS
 347
 348     FUNCTION
 349         Query table of supported pixelformats.
 350
 351         A returned value is a pointer to static array of ULONGs, one ULONG per CyberGraphX
 352         pixelformat. Values of these ULONGs are actually booleans. TRUE value in the array
 353         says that the pixelformat is supported, FALSE means it's not.
 354
 355     NOTES
 356
 357     EXAMPLE
 358         ULONG *pfs;
 359
 360         GetAttr(MA_PixelFormats, monitor, (IPTR *)&pfs);
 361         if (pfs[PUXFMT_LUT8])
 362             printf("The display driver supports LUT8 format\n");
 363
 364     BUGS
 365
 366     SEE ALSO
 367         MA_ManufacturerID
 368
 369     INTERNALS
 370
 371 *****************************************************************************************/
 372
 373 /*****************************************************************************************
 374
 375     NAME
 376         MA_TopLeftMonitor
 377
 378     SYNOPSIS
 379         [.SG], Object *
 380
 381     LOCATION
 382         MONITORCLASS
 383
 384     FUNCTION
 385         Get a pointer to a monitor placed in top-left diagonal direction relative to
 386         the current one.
 387
 388         This attribute is used to describe relative placement of monitors in user's
 389         physical environment.
 390
 391     NOTES
 392
 393     EXAMPLE
 394
 395     BUGS
 396         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 397         monitor object.
 398
 399     SEE ALSO
 400         MA_TopMiddleMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor, MA_MiddleRightMonitor,
 401         MA_BottomLeftMonitor, MA_BottomMiddleMonitor, MA_BottomRightMonitor
 402
 403     INTERNALS
 404
 405 *****************************************************************************************/
 406
 407 /*****************************************************************************************
 408
 409     NAME
 410         MA_TopMiddleMonitor
 411
 412     SYNOPSIS
 413         [.SG], Object *
 414
 415     LOCATION
 416         MONITORCLASS
 417
 418     FUNCTION
 419         Get a pointer to a monitor placed in top direction relative to the current one.
 420
 421         This attribute is used to describe relative placement of monitors in user's
 422         physical environment.
 423
 424     NOTES
 425
 426     EXAMPLE
 427
 428     BUGS
 429         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 430         monitor object.
 431
 432     SEE ALSO
 433         MA_TopLeftMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor, MA_MiddleRightMonitor,
 434         MA_BottomLeftMonitor, MA_BottomMiddleMonitor, MA_BottomRightMonitor
 435
 436     INTERNALS
 437
 438 *****************************************************************************************/
 439
 440 /*****************************************************************************************
 441
 442     NAME
 443         MA_TopRightMonitor
 444
 445     SYNOPSIS
 446         [.SG], Object *
 447
 448     LOCATION
 449         MONITORCLASS
 450
 451     FUNCTION
 452         Get a pointer to a monitor placed in top-right diagonal direction relative to
 453         the current one.
 454
 455         This attribute is used to describe relative placement of monitors in user's
 456         physical environment.
 457
 458     NOTES
 459
 460     EXAMPLE
 461
 462     BUGS
 463         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 464         monitor object.
 465
 466     SEE ALSO
 467         MA_TopLeftMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor, MA_MiddleRightMonitor,
 468         MA_BottomLeftMonitor, MA_BottomMiddleMonitor, MA_BottomRightMonitor
 469
 470     INTERNALS
 471
 472 *****************************************************************************************/
 473
 474 /*****************************************************************************************
 475
 476     NAME
 477         MA_MiddleLeftMonitor
 478
 479     SYNOPSIS
 480         [.SG], Object *
 481
 482     LOCATION
 483         MONITORCLASS
 484
 485     FUNCTION
 486         Get a pointer to a monitor placed in left direction relative to
 487         the current one.
 488
 489         This attribute is used to describe relative placement of monitors in user's
 490         physical environment.
 491
 492     NOTES
 493
 494     EXAMPLE
 495
 496     BUGS
 497         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 498         monitor object.
 499
 500     SEE ALSO
 501         MA_TopLeftMonitor, MA_TopMiddleMonitor, MA_TopRightMonior, MA_MiddleRightMonitor,
 502         MA_BottomLeftMonitor, MA_BottomMiddleMonitor, MA_BottomRightMonitor
 503
 504     INTERNALS
 505
 506 *****************************************************************************************/
 507
 508 /*****************************************************************************************
 509
 510     NAME
 511         MA_MiddleRightMonitor
 512
 513     SYNOPSIS
 514         [.SG], Object *
 515
 516     LOCATION
 517         MONITORCLASS
 518
 519     FUNCTION
 520         Get a pointer to a monitor placed in right direction relative to
 521         the current one.
 522
 523         This attribute is used to describe relative placement of monitors in user's
 524         physical environment.
 525
 526     NOTES
 527
 528     EXAMPLE
 529
 530     BUGS
 531         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 532         monitor object.
 533
 534     SEE ALSO
 535         MA_TopLeftMonitor, MA_TopMiddleMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor,
 536         MA_BottomLeftMonitor, MA_BottomMiddleMonitor, MA_BottomRightMonitor
 537
 538     INTERNALS
 539
 540 *****************************************************************************************/
 541
 542 /*****************************************************************************************
 543
 544     NAME
 545         MA_BottomLeftMonitor
 546
 547     SYNOPSIS
 548         [.SG], Object *
 549
 550     LOCATION
 551         MONITORCLASS
 552
 553     FUNCTION
 554         Get a pointer to a monitor placed in bottom-left diagonal direction relative to
 555         the current one.
 556
 557         This attribute is used to describe relative placement of monitors in user's
 558         physical environment.
 559
 560     NOTES
 561
 562     EXAMPLE
 563
 564     BUGS
 565         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 566         monitor object.
 567
 568     SEE ALSO
 569         MA_TopLeftMonitor, MA_TopMiddleMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor,
 570         MA_MiddleRightMonitor, MA_BottomMiddleMonitor, MA_BottomRightMonitor
 571
 572     INTERNALS
 573
 574 *****************************************************************************************/
 575
 576 /*****************************************************************************************
 577
 578     NAME
 579         MA_BottomMiddleMonitor
 580
 581     SYNOPSIS
 582         [.SG], Object *
 583
 584     LOCATION
 585         MONITORCLASS
 586
 587     FUNCTION
 588         Get a pointer to a monitor placed in bottom direction relative to the current one.
 589
 590         This attribute is used to describe relative placement of monitors in user's
 591         physical environment.
 592
 593     NOTES
 594
 595     EXAMPLE
 596
 597     BUGS
 598         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 599         monitor object.
 600
 601     SEE ALSO
 602         MA_TopLeftMonitor, MA_TopMiddleMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor,
 603         MA_MiddleRightMonitor, MA_BottomLeftMonitor, MA_BottomRightMonitor
 604
 605     INTERNALS
 606
 607 *****************************************************************************************/
 608
 609 /*****************************************************************************************
 610
 611     NAME
 612         MA_BottomRightMonitor
 613
 614     SYNOPSIS
 615         [.SG], Object *
 616
 617     LOCATION
 618         MONITORCLASS
 619
 620     FUNCTION
 621         Get a pointer to a monitor placed in bottom-right diagonal direction relative to
 622         the current one.
 623
 624         This attribute is used to describe relative placement of monitors in user's
 625         physical environment.
 626
 627     NOTES
 628
 629     EXAMPLE
 630
 631     BUGS
 632         In MorphOS up to v2.5 this attribute returns monitor ID, not a pointer to a
 633         monitor object.
 634
 635     SEE ALSO
 636         MA_TopLeftMonitor, MA_TopMiddleMonitor, MA_TopRightMonior, MA_MiddleLeftMonitor,
 637         MA_MiddleRightMonitor, MA_BottomLeftMonitor, MA_BottomMiddleMonitor
 638
 639     INTERNALS
 640
 641 *****************************************************************************************/
 642
 643 /*****************************************************************************************
 644
 645     NAME
 646         MA_GammaControl
 647
 648     SYNOPSIS
 649         [..G], BOOL
 650
 651     LOCATION
 652         MONITORCLASS
 653
 654     FUNCTION
 655         Query if the display driver supports gamma control
 656
 657     NOTES
 658
 659     EXAMPLE
 660
 661     BUGS
 662
 663     SEE ALSO
 664         MM_GetDefaultGammaTables, MM_SetDefaultGammaTables
 665
 666     INTERNALS
 667
 668 *****************************************************************************************/
 669
 670 /*****************************************************************************************
 671
 672     NAME
 673         MA_PointerType
 674
 675     SYNOPSIS
 676         [..G], ULONG
 677
 678     LOCATION
 679         MONITORCLASS
 680
 681     FUNCTION
 682         Query supported mouse pointer sprite formats.
 683
 684         The returned value is a combination of the following bit flags:
 685           PointerType_3Plus1 - color 0 transparent, 1-3 visible (Amiga(tm) chipset sprite)
 686           PointerType_2Plus1 - color 0 transparent, 1 undefined (can be for example clear or
 687                                inverse), 2-3 visible
 688           PointerType_ARGB   - Direct color bitmap (hi-color or truecolor, possibly with alpha
 689                                channel
 690
 691     NOTES
 692
 693     EXAMPLE
 694
 695     BUGS
 696
 697     SEE ALSO
 698         MM_GetPointerBounds
 699
 700     INTERNALS
 701
 702 *****************************************************************************************/
 703
 704 /*****************************************************************************************
 705
 706     NAME
 707         MA_DriverName
 708
 709     SYNOPSIS
 710         [..G], STRPTR
 711
 712     LOCATION
 713         MONITORCLASS
 714
 715     FUNCTION
 716         Query CyberGraphX driver name. It is the name which can be given to
 717         cybergraphics.library/BestCModeIDTagList() as CYBRBIDTG_BoardName value.
 718
 719     NOTES
 720
 721     EXAMPLE
 722
 723     BUGS
 724
 725     SEE ALSO
 726         MM_GetPointerBounds
 727
 728     INTERNALS
 729
 730 *****************************************************************************************/
 731
 732 /*****************************************************************************************
 733
 734     NAME
 735         MA_MemoryClock
 736
 737     SYNOPSIS
 738         [..G], ULONG
 739
 740     LOCATION
 741         MONITORCLASS
 742
 743     FUNCTION
 744         Query video card's memory clock in Hz. 0 is a valid value meaning 'unknown'.
 745
 746     NOTES
 747
 748     EXAMPLE
 749
 750     BUGS
 751
 752     SEE ALSO
 753         MA_MemorySize
 754
 755     INTERNALS
 756
 757 *****************************************************************************************/
 758
 759 /*****************************************************************************************
 760
 761     NAME
 762         MA_Windowed
 763
 764     SYNOPSIS
 765         [..G], BOOL
 766
 767     LOCATION
 768         MONITORCLASS
 769
 770     FUNCTION
 771         Check if this monitor is a window on hosted OS desktop.
 772
 773         This means that the host OS is responsible for handling mouse input and display
 774         activation. Monitors with this attribute set to TRUE should be ignored by
 775         multi-display desktop configuration software.
 776
 777         These monitors should have no spatial links to other monitors. Activation of these
 778         monitors is done by clicking on their windows on the host's desktop and is handled
 779         by the driver itself.
 780
 781     NOTES
 782         This attribute is AROS-specific, it does not exist in MorphOS.
 783
 784     EXAMPLE
 785
 786     BUGS
 787
 788     SEE ALSO
 789
 790     INTERNALS
 791
 792 *****************************************************************************************/
 793
 794 /***********************************************************************************/
 795
 796 IPTR MonitorClass__OM_GET(Class *cl, Object *o, struct opGet *msg)
 797 {
 798     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 799     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
 800     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
 801     OOP_AttrBase HiddAttrBase = GetPrivIBase(IntuitionBase)->HiddAttrBase;
 802     OOP_AttrBase HiddGfxAttrBase = GetPrivIBase(IntuitionBase)->HiddGfxAttrBase;
 803     struct MonitorData *data = INST_DATA(cl, o);
 804
 805     D(kprintf("[monitorclass] OM_GET\n"));
 806
 807     switch (msg->opg_AttrID)
 808     {
 809     case MA_MonitorName:
 810         OOP_GetAttr(data->handle->gfxhidd, aHidd_Name, msg->opg_Storage);
 811         break;
 812
 813     case MA_Manufacturer:
 814         OOP_GetAttr(data->handle->gfxhidd, aHidd_ProducerName, msg->opg_Storage);
 815         break;
 816
 817     case MA_ManufacturerID:
 818         OOP_GetAttr(data->handle->gfxhidd, aHidd_Producer, msg->opg_Storage);
 819         break;
 820
 821     case MA_ProductID:
 822         OOP_GetAttr(data->handle->gfxhidd, aHidd_Product, msg->opg_Storage);
 823         break;
 824
 825     case MA_MemorySize:
 826         OOP_GetAttr(data->handle->gfxhidd, aHidd_Gfx_MemorySize, msg->opg_Storage);
 827         break;
 828
 829     case MA_PixelFormats:
 830         *msg->opg_Storage = (IPTR)data->pixelformats;
 831         break;
 832
 833     case MA_TopLeftMonitor:
 834         *msg->opg_Storage = (IPTR)data->topleft;
 835         break;
 836
 837     case MA_TopMiddleMonitor:
 838         *msg->opg_Storage = (IPTR)data->topmiddle;
 839         break;
 840
 841     case MA_TopRightMonitor:
 842         *msg->opg_Storage = (IPTR)data->topright;
 843         break;
 844
 845     case MA_MiddleLeftMonitor:
 846         *msg->opg_Storage = (IPTR)data->middleleft;
 847         break;
 848
 849     case MA_MiddleRightMonitor:
 850         *msg->opg_Storage = (IPTR)data->middleright;
 851         break;
 852
 853     case MA_BottomLeftMonitor:
 854         *msg->opg_Storage = (IPTR)data->bottomleft;
 855         break;
 856
 857     case MA_BottomMiddleMonitor:
 858         *msg->opg_Storage = (IPTR)data->bottommiddle;
 859         break;
 860
 861     case MA_BottomRightMonitor:
 862         *msg->opg_Storage = (IPTR)data->bottomright;
 863         break;
 864
 865     case MA_GammaControl:
 866         *msg->opg_Storage = HIDD_Gfx_GetGamma(data->handle->gfxhidd, NULL, NULL, NULL);
 867         break;
 868
 869     case MA_PointerType:
 870         OOP_GetAttr(data->handle->gfxhidd, aHidd_Gfx_HWSpriteTypes, msg->opg_Storage);
 871         break;
 872
 873     case MA_DriverName:
 874         OOP_GetAttr(data->handle->gfxhidd, aHidd_Gfx_DriverName, msg->opg_Storage);
 875         break;
 876
 877     case MA_MemoryClock:
 878         OOP_GetAttr(data->handle->gfxhidd, aHidd_Gfx_MemoryClock, msg->opg_Storage);
 879         break;
 880
 881     case MA_Windowed:
 882         OOP_GetAttr(data->handle->gfxhidd, aHidd_Gfx_IsWindowed, msg->opg_Storage);
 883         break;
 884
 885     default:
 886         return DoSuperMethodA(cl, o, (Msg)msg);
 887     }
 888
 889     return TRUE;
 890 }
 891
 892 /***********************************************************************************/
 893
 894 IPTR MonitorClass__OM_SET(Class *cl, Object *o, struct opSet *msg)
 895 {
 896     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 897     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
 898     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
 899     struct MonitorData *data = INST_DATA(cl, o);
 900     struct TagItem  *tag, *tstate;
 901
 902     tstate = msg->ops_AttrList;
 903     while((tag = NextTagItem((const struct TagItem **)&tstate))) {
 904         switch (tag->ti_Tag) {
 905         case MA_TopLeftMonitor:
 906             data->topleft = (Object *)tag->ti_Data;
 907             break;
 908
 909         case MA_TopMiddleMonitor:
 910             data->topmiddle = (Object *)tag->ti_Data;
 911             break;
 912
 913         case MA_TopRightMonitor:
 914             data->topright = (Object *)tag->ti_Data;
 915             break;
 916
 917         case MA_MiddleLeftMonitor:
 918             data->middleleft = (Object *)tag->ti_Data;
 919             break;
 920
 921         case MA_MiddleRightMonitor:
 922             data->middleright = (Object *)tag->ti_Data;
 923             break;
 924
 925         case MA_BottomLeftMonitor:
 926             data->bottomleft = (Object *)tag->ti_Data;
 927             break;
 928
 929         case MA_BottomMiddleMonitor:
 930             data->bottommiddle = (Object *)tag->ti_Data;
 931             break;
 932
 933         case MA_BottomRightMonitor:
 934             data->bottomright = (Object *)tag->ti_Data;
 935             break;
 936
 937         case MA_PointerVisible:
 938             HIDD_Gfx_SetCursorVisible(data->handle->gfxhidd, tag->ti_Data);
 939             break;
 940         }
 941     }
 942     return DoSuperMethodA(cl, o, (Msg)msg);
 943 }
 944
 945 /***********************************************************************************/
 946
 947 #define Relink(nextAttr, prev, prevAttr, next)          \
 948     if (prev)                                           \
 949         SetAttrs(prev, nextAttr, next, TAG_DONE);       \
 950     if (next)                                           \
 951         SetAttrs(next, prevAttr, prev, TAG_DONE)
 952
 953 IPTR MonitorClass__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 954 {
 955     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
 956     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
 957     OOP_AttrBase HiddGfxAttrBase = GetPrivIBase(IntuitionBase)->HiddGfxAttrBase;
 958     struct MonitorData *data = INST_DATA(cl, o);
 959     struct TagItem tags[] = {
 960         {aHidd_Gfx_ActiveCallBack, 0},
 961         {TAG_DONE                , 0}
 962     };
 963
 964     D(kprintf("MonitorClass: OM_DISPOSE\n"));
 965
 966     /* Disable activation callback */
 967     OOP_SetAttrs(data->handle->gfxhidd, tags);
 968
 969     ObtainSemaphore(&GetPrivIBase(IntuitionBase)->MonitorListSem);
 970     Remove((struct Node *)data);
 971
 972     /* Remove this monitor from spatial links */
 973     Relink(MA_BottomRightMonitor, data->topleft, MA_TopLeftMonitor, data->bottomright);
 974     Relink(MA_BottomMiddleMonitor, data->topmiddle, MA_TopMiddleMonitor, data->bottommiddle);
 975     Relink(MA_BottomLeftMonitor, data->topright, MA_TopRightMonitor, data->bottomleft);
 976     Relink(MA_MiddleLeftMonitor, data->middleright, MA_MiddleRightMonitor, data->middleleft);
 977
 978     /* If an active monitor is being removed, we should activate another one */
 979     if (GetPrivIBase(IntuitionBase)->ActiveMonitor == o)
 980         ActivateMonitor((Object *)GetHead(&GetPrivIBase(IntuitionBase)->MonitorList), -1, -1, IntuitionBase);
 981
 982     ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->MonitorListSem);
 983
 984     return DoSuperMethodA(cl, o, msg);
 985 }
 986
 987 /************************************************************************************
 988
 989     NAME
 990         MM_GetRootBitMap
 991
 992     SYNOPSIS
 993         DoMethod(Object *obj, ULONG MethodID, ULONG PixelFormat, struct BitMap **Store);
 994
 995         DoMethodA(Object *obj, struct msGetRootBitMap *msg);
 996
 997     LOCATION
 998
 999     FUNCTION
1000         This method is provided only for source code compatibility with MorphOS operating
1001         system.
1002
1003         Under MorphOS this method returns a pointer to internal root bitmap of the
1004         display driver corresponding to the specified pixelformat. Displayable bitmaps are
1005         supposed to be created as friends of the root bitmap.
1006
1007         In AROS displayable bitmaps need complete display mode information and not
1008         only pixelformat. So this method will never be implemented and will always return NULL
1009         pointer. In order to create a displayable RTG bitmap on AROS the user needs to supply
1010         a taglist with BMATags_DisplayID specification to AllocBitMap() function.
1011
1012     INPUTS
1013         obj         - A monitor object
1014         MethodID    - MM_GetRootBitMap
1015         PixelFormat - A CyberGraphX pixelformat code to get root bitmap for
1016         Store       - A storage where root bitmap pointer will be placed.
1017
1018     RESULT
1019         Undefined.
1020
1021     NOTES
1022
1023     EXAMPLE
1024
1025     BUGS
1026
1027     SEE ALSO
1028         graphics.library/AllocBitMap()
1029
1030     INTERNALS
1031
1032 ************************************************************************************/
1033
1034 IPTR MonitorClass__MM_GetRootBitMap(Class *cl, Object *obj, struct msGetRootBitMap *msg)
1035 {
1036     *msg->Store = NULL;
1037
1038     return 0;
1039 }
1040
1041 /************************************************************************************
1042
1043     NAME
1044         MM_Query3DSupport
1045
1046     SYNOPSIS
1047         DoMethod(Object *obj, ULONG MethodID, ULONG PixelFormat, ULONG *Store);
1048
1049         DoMethodA(Object *obj, struct msQuery3DSupport *msg);
1050
1051     LOCATION
1052
1053     FUNCTION
1054         Ask the display driver for type of 3D support for the given pixelformat.
1055
1056         Supplied storage will be filled with one of:
1057             MSQUERY3D_UNKNOWN  - Unsupported pixelformat or some internal error
1058             MSQUERY3D_NODRIVER - There is no 3D support for the given pixelformat
1059             MSQUERY3D_SWDRIVER - A software 3D support is available for the given
1060                                  pixelformat
1061             MSQUERY3D_HWDRIVER - A hardware 3D support is available for the given
1062                                  pixelformat
1063
1064     INPUTS
1065         obj         - A monitor object to query
1066         MethodID    - MM_Query3DSupport
1067         PixelFormat - A CyberGraphX pixelformat code
1068         Store       - A pointer to a storage where return value will be placed
1069
1070     RESULT
1071         Undefined.
1072
1073     NOTES
1074
1075     EXAMPLE
1076
1077     BUGS
1078
1079     SEE ALSO
1080
1081     INTERNALS
1082
1083 ************************************************************************************/
1084
1085 IPTR MonitorClass__MM_Query3DSupport(Class *cl, Object *obj, struct msQuery3DSupport *msg)
1086 {
1087     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1088     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
1089     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
1090     OOP_AttrBase HiddPixFmtAttrBase = GetPrivIBase(IntuitionBase)->HiddPixFmtAttrBase;
1091     struct MonitorData *data = INST_DATA(cl, obj);
1092     OOP_Object *pf = data->pfobjects[msg->PixelFormat];
1093
1094     if (pf) {
1095         if (HIDD_Gfx_QueryHardware3D(data->handle->gfxhidd, pf))
1096             *msg->Store = MSQUERY3D_HWDRIVER;
1097         else {
1098             IPTR depth;
1099
1100             OOP_GetAttr(pf, aHidd_PixFmt_Depth, &depth);
1101             if (depth > 8)
1102                 *msg->Store = MSQUERY3D_SWDRIVER;
1103             else
1104                 *msg->Store = MSQUERY3D_NODRIVER;
1105         }
1106     } else
1107         *msg->Store = MSQUERY3D_UNKNOWN;
1108
1109     return *msg->Store;
1110 }
1111
1112 /************************************************************************************
1113
1114     NAME
1115         MM_GetDefaultGammaTables
1116
1117     SYNOPSIS
1118         DoMethod(Object *obj, ULONG MethodID, UBYTE *Red, UBYTE *Green, UBYTE *Blue);
1119
1120         DoMethodA(Object *obj, struct msGetDefaultGammaTables *msg);
1121
1122     LOCATION
1123
1124     FUNCTION
1125         Get default gamma correction tables for the monitor
1126
1127     INPUTS
1128         obj      - A monitor object to query
1129         MethodID - MM_GetDefaultGammaTables
1130         Red      - A pointer to an array of 256 bytes where gamma correction data for
1131                    red component will be placed. You may speciy a NULL pointer in order
1132                    to ignore this component.
1133         Green    - A pointer to an array of 256 bytes where gamma correction data for
1134                    green component will be placed. You may speciy a NULL pointer in order
1135                    to ignore this component.
1136         Blue     - A pointer to an array of 256 bytes where gamma correction data for
1137                    blue component will be placed. You may speciy a NULL pointer in order
1138                    to ignore this component.
1139
1140     RESULT
1141         Undefined.
1142
1143     NOTES
1144
1145     EXAMPLE
1146
1147     BUGS
1148
1149     SEE ALSO
1150         MM_SetDefaultGammaTables
1151
1152     INTERNALS
1153
1154 ************************************************************************************/
1155
1156 IPTR MonitorClass__MM_GetDefaultGammaTables(Class *cl, Object *obj, struct msGetDefaultGammaTables *msg)
1157 {
1158     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1159     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
1160     struct MonitorData *data = INST_DATA(cl, obj);
1161
1162     /* Currently we don't use per-screen gamma tables, so we just forward the request
1163        to the driver.
1164        If we implement per-screen gamma correction, we'll need more sophisticated
1165        management here */
1166     return HIDD_Gfx_GetGamma(data->handle->gfxhidd, msg->Red, msg->Green, msg->Blue);
1167 }
1168
1169 /************************************************************************************
1170
1171     NAME
1172         MM_GetDefaultPixelFormat
1173
1174     SYNOPSIS
1175         DoMethod(Object *obj, ULONG MethodID, ULONG Depth, ULONG *Store);
1176
1177         DoMethodA(Object *obj, struct msGetDefaultPixelFormat *msg);
1178
1179     LOCATION
1180
1181     FUNCTION
1182         Get driver's preferred pixelformat for specified bitmap depth.
1183
1184     INPUTS
1185         obj      - A monitor object
1186         MethodID - MM_GetDefaultPixelFormat
1187         Depth    - Depth to ask about
1188         Store    - A pointer to an ULONG location where CyberGraphX pixelformat
1189                    number will be placed. -1 means unsupported depth.
1190
1191     RESULT
1192         Undefined.
1193
1194     NOTES
1195
1196     EXAMPLE
1197
1198     BUGS
1199
1200     SEE ALSO
1201
1202     INTERNALS
1203
1204 ************************************************************************************/
1205
1206 IPTR MonitorClass__MM_GetDefaultPixelFormat(Class *cl, Object *obj, struct msGetDefaultPixelFormat *msg)
1207 {
1208     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1209     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
1210     OOP_AttrBase HiddPixFmtAttrBase = GetPrivIBase(IntuitionBase)->HiddPixFmtAttrBase;
1211     struct MonitorData *data = INST_DATA(cl, obj);
1212     ULONG i;
1213
1214     for (i = 0; i < MONITOR_MAXPIXELFORMATS; i++) {
1215         if (data->pfobjects[i]) {
1216             IPTR depth;
1217
1218             OOP_GetAttr(data->pfobjects[i], aHidd_PixFmt_Depth, &depth);
1219             if (depth == msg->Depth) {
1220                 *msg->Store = i;
1221                 break;
1222             }
1223         }
1224     }
1225
1226     if (i == MONITOR_MAXPIXELFORMATS)
1227         *msg->Store = -1;
1228
1229     return *msg->Store;
1230 }
1231
1232 /************************************************************************************
1233
1234     NAME
1235         MM_GetPointerBounds
1236
1237     SYNOPSIS
1238         DoMethod(Object *obj, ULONG MethodID, ULONG PointerType, ULONG *Width, ULONG *Height);
1239
1240         DoMethodA(Object *obj, struct msGetPointerBounds *msg);
1241
1242     LOCATION
1243         monitorclass
1244
1245     FUNCTION
1246         Get maximum allowed size of mouse pointer sprite.
1247
1248     INPUTS
1249         obj         - A monitor object
1250         MethodID    - MM_GetPointerBounds
1251         PointerType - Pointer type (one of PointerType_...)
1252         Width       - A pointer to an ULONG location where width will be placed.
1253         Height      - A pointer to an ULONG location where height will be placed.
1254
1255     RESULT
1256         FALSE is given pointer type is not supported, TRUE otherwise.
1257
1258     NOTES
1259         Width and Height are considered undefined if the method returns FALSE.
1260
1261     EXAMPLE
1262
1263     BUGS
1264
1265     SEE ALSO
1266         MA_PointerType
1267
1268     INTERNALS
1269
1270 ************************************************************************************/
1271
1272 IPTR MonitorClass__MM_GetPointerBounds(Class *cl, Object *obj, struct msGetPointerBounds *msg)
1273 {
1274     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1275     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
1276     struct MonitorData *data = INST_DATA(cl, obj);
1277
1278     return HIDD_Gfx_GetMaxSpriteSize(data->handle->gfxhidd, msg->PointerType, msg->Width, msg->Height);
1279 }
1280
1281 /************************************************************************************
1282
1283     NAME
1284         MM_RunBlanker
1285
1286     SYNOPSIS
1287         DoMethod(Object *obj, ULONG MethodID);
1288
1289         DoMethodA(Object *obj, Msg *msg);
1290
1291     LOCATION
1292
1293     FUNCTION
1294         Starts screensaver on the monitor.
1295
1296         At the moment AROS has no integrated screensaver support. The method is
1297         considered reserved and not implemented.
1298
1299     INPUTS
1300         obj         - A monitor object
1301         MethodID    - MM_RunBlanker
1302
1303     RESULT
1304         Undefined.
1305
1306     NOTES
1307
1308     EXAMPLE
1309
1310     BUGS
1311
1312     SEE ALSO
1313         MM_EnterPowerSaveMode, MM_ExitBlanker
1314
1315     INTERNALS
1316
1317 ************************************************************************************/
1318
1319 IPTR MonitorClass__MM_RunBlanker(Class *cl, Object *obj, Msg *msg)
1320 {
1321     /* We have no integrated screensaver support */
1322
1323     return FALSE;
1324 }
1325
1326 /************************************************************************************
1327
1328     NAME
1329         MM_EnterPowerSaveMode
1330
1331     SYNOPSIS
1332         DoMethod(Object *obj, ULONG MethodID);
1333
1334         DoMethodA(Object *obj, Msg *msg);
1335
1336     LOCATION
1337
1338     FUNCTION
1339         Starts power saving mode on the monitor.
1340
1341     INPUTS
1342         obj         - A monitor object
1343         MethodID    - MM_EnterPowerSaveMode
1344
1345     RESULT
1346         Undefined.
1347
1348     NOTES
1349
1350     EXAMPLE
1351
1352     BUGS
1353
1354     SEE ALSO
1355         MM_RunBlanker, MM_ExitBlanker
1356
1357     INTERNALS
1358         Current implementation just immediately sets DMPS level to "Off" for the
1359         monitor.
1360
1361 ************************************************************************************/
1362
1363 IPTR MonitorClass__MM_EnterPowerSaveMode(Class *cl, Object *obj, Msg *msg)
1364 {
1365     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1366     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
1367     OOP_AttrBase HiddGfxAttrBase = GetPrivIBase(IntuitionBase)->HiddGfxAttrBase;
1368     struct MonitorData *data = INST_DATA(cl, obj);
1369     struct TagItem tags[] =
1370     {
1371         {aHidd_Gfx_DPMSLevel, vHidd_Gfx_DPMSLevel_Off},
1372         {TAG_DONE           , 0                      }
1373     };
1374
1375     return OOP_SetAttrs(data->handle->gfxhidd, tags);
1376 }
1377
1378 /************************************************************************************
1379
1380     NAME
1381         MM_ExitBlanker
1382
1383     SYNOPSIS
1384         DoMethod(Object *obj, ULONG MethodID);
1385
1386         DoMethodA(Object *obj, Msg *msg);
1387
1388     LOCATION
1389
1390     FUNCTION
1391         Stops screensaver and/or power saving mode on the monitor.
1392
1393     INPUTS
1394         obj         - A monitor object
1395         MethodID    - MM_ExitBlanker
1396
1397     RESULT
1398         Undefined.
1399
1400     NOTES
1401
1402     EXAMPLE
1403
1404     BUGS
1405
1406     SEE ALSO
1407         MM_EnterPowerSaveMode, MM_RunBlanker
1408
1409     INTERNALS
1410
1411 ************************************************************************************/
1412
1413 IPTR MonitorClass__MM_ExitBlanker(Class *cl, Object *obj, Msg *msg)
1414 {
1415     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1416     struct Library *OOPBase = GetPrivIBase(IntuitionBase)->OOPBase;
1417     OOP_AttrBase HiddGfxAttrBase = GetPrivIBase(IntuitionBase)->HiddGfxAttrBase;
1418     struct MonitorData *data = INST_DATA(cl, obj);
1419     struct TagItem tags[] =
1420     {
1421         {aHidd_Gfx_DPMSLevel, vHidd_Gfx_DPMSLevel_On},
1422         {TAG_DONE           , 0                     }
1423     };
1424
1425     return OOP_SetAttrs(data->handle->gfxhidd, tags);
1426 }
1427
1428 /************************************************************************************
1429
1430     NAME
1431         MM_SetDefaultGammaTables
1432
1433     SYNOPSIS
1434         DoMethod(Object *obj, ULONG MethodID, UBYTE *Red, UBYTE *Green, UBYTE *Blue);
1435
1436         DoMethodA(Object *obj, struct msSetDefaultGammaTables *msg);
1437
1438     LOCATION
1439
1440     FUNCTION
1441         Set default gamma correction tables for the monitor
1442
1443     INPUTS
1444         obj      - A monitor object to query
1445         MethodID - MM_GetDefaultGammaTables
1446         Red      - A pointer to an array of 256 bytes where gamma correction data for
1447                    red component is placed. You may speciy a NULL pointer in order
1448                    to ignore this component.
1449         Green    - A pointer to an array of 256 bytes where gamma correction data for
1450                    green component is placed. You may speciy a NULL pointer in order
1451                    to ignore this component.
1452         Blue     - A pointer to an array of 256 bytes where gamma correction data for
1453                    blue component is placed. You may speciy a NULL pointer in order
1454                    to ignore this component.
1455
1456     RESULT
1457         Undefined.
1458
1459     NOTES
1460         This method is AROS-specific.
1461
1462     EXAMPLE
1463
1464     BUGS
1465
1466     SEE ALSO
1467         MM_GetDefaultGammaTables
1468
1469     INTERNALS
1470
1471 ************************************************************************************/
1472
1473 IPTR MonitorClass__MM_SetDefaultGammaTables(Class *cl, Object *obj, struct msSetDefaultGammaTables *msg)
1474 {
1475     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1476     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
1477     struct MonitorData *data = INST_DATA(cl, obj);
1478
1479     /* Currently we don't use per-screen gamma tables, so we just forward the request
1480        to the driver.
1481        If we implement per-screen gamma correction, we'll need more sophisticated
1482        management here */
1483     return HIDD_Gfx_SetGamma(data->handle->gfxhidd, msg->Red, msg->Green, msg->Blue);
1484 }
1485
1486 /************************************************************************************/
1487
1488 ULONG MonitorClass__MM_GetCompositionFlags(Class *cl, Object *obj, struct msGetCompositionFlags *msg)
1489 {
1490     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1491     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
1492     struct MonitorData *data = INST_DATA(cl, obj);
1493     struct HIDD_ModeProperties modeprops;
1494
1495     HIDD_Gfx_ModeProperties(data->handle->gfxhidd, msg->ModeID & (!data->handle->mask),
1496                             &modeprops, sizeof(modeprops));
1497     return modeprops.CompositionFlags;
1498 }
1499
1500 /************************************************************************************/
1501
1502 void MonitorClass__MM_SetPointerPos(Class *cl, Object *obj, struct msSetPointerPos *msg)
1503 {
1504     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1505     struct MonitorData *data = INST_DATA(cl, obj);
1506
1507     data->mouseX = msg->x;
1508     data->mouseY = msg->y;
1509     SetPointerPos(data, IntuitionBase);
1510 }
1511
1512 /************************************************************************************/
1513
1514 IPTR MonitorClass__MM_CheckID(Class *cl, Object *obj, struct msGetCompositionFlags *msg)
1515 {
1516     struct MonitorData *data = INST_DATA(cl, obj);
1517
1518     return ((msg->ModeID & data->handle->mask) == data->handle->id);
1519 }
1520
1521 /************************************************************************************/
1522
1523 IPTR MonitorClass__MM_SetPointerShape(Class *cl, Object *obj, struct msSetPointerShape *msg)
1524 {
1525     struct IntuitionBase *IntuitionBase = (struct IntuitionBase *)cl->cl_UserData;
1526     OOP_MethodID HiddGfxBase = GetPrivIBase(IntuitionBase)->ib_HiddGfxBase;
1527     struct MonitorData *data = INST_DATA(cl, obj);
1528     struct BitMap *bm;
1529     BOOL res;
1530
1531     D(bug("[monitorclass] SetPointerShape(0x%p), old pointer 0x%p\n", msg->pointer, data->pointer));
1532     /* Don't do anything if already set */
1533     if (data->pointer == msg->pointer)
1534         return TRUE;
1535
1536     bm = msg->pointer->sprite->es_BitMap;
1537     /* Currently we don't work with planar sprites */
1538     if (!(bm->Flags & BMF_SPECIALFMT))
1539         return FALSE;
1540
1541     res = HIDD_Gfx_SetCursorShape(data->handle->gfxhidd, (OOP_Object *)bm->Planes[0], msg->pointer->xoffset, msg->pointer->yoffset);
1542     D(bug("[monitorclass] SetCursorShape() returned %d\n", res));
1543     if (res) {
1544         data->pointer = msg->pointer;
1545         /* This will fix up sprite position if hotspot changed */
1546         SetPointerPos(data, IntuitionBase);
1547     }
1548
1549     return res;
1550 }