QtCollider/primitives/prim_QPalette.cpp

   1 /************************************************************************
   2 *
   3 * Copyright 2012 Jakob Leben (jakob.leben@gmail.com)
   4 *
   5 * This file is part of SuperCollider Qt GUI.
   6 *
   7 * This program is free software: you can redistribute it and/or modify
   8 * it under the terms of the GNU General Public License as published by
   9 * the Free Software Foundation, either version 3 of the License, or
  10 * (at your option) any later version.
  11 *
  12 * This program is distributed in the hope that it will be useful,
  13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 * GNU General Public License for more details.
  16 *
  17 * You should have received a copy of the GNU General Public License
  18 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19 *
  20 ************************************************************************/
  21
  22 #include "prim_QPalette.hpp"
  23 #include "primitives.h"
  24 #include "../Common.h"
  25 #include "../Slot.h"
  26
  27 #include <PyrKernel.h>
  28
  29 #include <QPalette>
  30
  31 #include <cassert>
  32
  33 namespace QtCollider {
  34
  35 int QPalette_Finalize( struct VMGlobals *g, struct PyrObject *obj )
  36 {
  37   delete QPALETTE_FROM_OBJECT(obj);
  38   return errNone;
  39 }
  40
  41 void QPalette_Init( struct VMGlobals *g, struct PyrObject *obj, const QPalette & palette )
  42 {
  43   assert( obj->classptr == SC_CLASS(QPalette) );
  44   assert( IsNil(obj->slots) && IsNil(obj->slots+1) );
  45
  46   QPalette *p = new QPalette(palette);
  47   SetPtr( obj->slots, p );
  48   InstallFinalizer( g, obj, 1, QPalette_Finalize );
  49 }
  50
  51 QC_LANG_PRIMITIVE( QPalette_New, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  52 {
  53   QPalette_Init( g, slotRawObject(r) );
  54   return errNone;
  55 }
  56
  57 QC_LANG_PRIMITIVE( QPalette_Auto, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  58 {
  59   QColor button( Slot::toColor(a) );
  60   QColor window( Slot::toColor(a+1) );
  61   QPalette_Init( g, slotRawObject(r), QPalette(button, window) );
  62   return errNone;
  63 }
  64
  65 QC_LANG_PRIMITIVE( QPalette_System, 0, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  66 {
  67   QPalette_Init( g, slotRawObject(r), QtCollider::systemPalette() );
  68   return errNone;
  69 }
  70
  71 QC_LANG_PRIMITIVE( QPalette_Color, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  72 {
  73   QPalette *p = QPALETTE_FROM_OBJECT(slotRawObject(r));
  74
  75   if(NotInt(a)) return errWrongType;
  76   QPalette::ColorRole role = (QPalette::ColorRole)(slotRawInt(a));
  77
  78   if( IsInt(a+1) ) {
  79     QPalette::ColorGroup group = (QPalette::ColorGroup)(slotRawInt(a+1));
  80     Slot::setColor( r, p->color( group, role ) );
  81   }
  82   else {
  83     Slot::setColor( r, p->color( role ) );
  84   }
  85
  86   return errNone;
  87 }
  88
  89 QC_LANG_PRIMITIVE( QPalette_SetColor, 3, PyrSlot *r, PyrSlot *a, VMGlobals *g )
  90 {
  91   QPalette *p = QPALETTE_FROM_OBJECT(slotRawObject(r));
  92
  93   QColor color( Slot::toColor(a) );
  94
  95   if(NotInt(a+1)) return errWrongType;
  96   QPalette::ColorRole role = (QPalette::ColorRole)(slotRawInt(a+1));
  97
  98   if( IsInt(a+2) ) {
  99     QPalette::ColorGroup group = (QPalette::ColorGroup)(slotRawInt(a+2));
 100     p->setColor( group, role, color );
 101   }
 102   else {
 103     p->setColor( role, color );
 104   }
 105
 106   return errNone;
 107 }
 108
 109 QC_LANG_PRIMITIVE( QPalette_HasColor, 2, PyrSlot *r, PyrSlot *a, VMGlobals *g )
 110 {
 111   QPalette *p = QPALETTE_FROM_OBJECT(slotRawObject(r));
 112
 113   if(NotInt(a)) return errWrongType;
 114   QPalette::ColorRole role = (QPalette::ColorRole)(slotRawInt(a));
 115
 116   QPalette::ColorGroup group;
 117   group = IsInt(a+1) ? (QPalette::ColorGroup)(slotRawInt(a+1)) : QPalette::Normal;
 118
 119   SetBool( r, p->isBrushSet( group, role ) );
 120
 121   return errNone;
 122 }
 123
 124 void defineQPalettePrimitives()
 125 {
 126   LangPrimitiveDefiner definer;
 127   definer.define<QPalette_New>();
 128   definer.define<QPalette_Auto>();
 129   definer.define<QPalette_System>();
 130   definer.define<QPalette_Color>();
 131   definer.define<QPalette_SetColor>();
 132   definer.define<QPalette_HasColor>();
 133 }
 134
 135 } // namespace QtCollider