SCClassLibrary/QtCollider/QPalette.sc

   1
   2 QPalette {
   3   var dataptr, finalizer;
   4
   5   *new {
   6     ^super.new.prInit;
   7   }
   8
   9   *auto { arg buttonColor, windowColor;
  10     ^super.new.prAuto(buttonColor, windowColor);
  11   }
  12
  13   *system { ^super.new.prSystem }
  14
  15   *light {
  16     var p;
  17     p = QPalette.auto(Color.grey(0.92), Color.grey(0.86));
  18     p.setColor(Color.grey(0.37), \shadow);
  19     p.setColor(Color.grey(0.6), \dark);
  20     p.setColor(Color.grey(0.7), \middark);
  21     p.highlight = Color(0.3, 0.5, 0.75);
  22     ^p;
  23   }
  24
  25   *dark {
  26     var p;
  27     p = QPalette.auto( Color.grey(0.43), Color.grey(0.3) );
  28     p.base = Color.grey(0.18);
  29     p.setColor(Color.grey(0.08), \shadow);
  30     p.highlight = Color(0.25, 0.37, 0.57);
  31     ^p;
  32   }
  33
  34   color { arg role, group;
  35     ^this.prColor(QColorRole(role), group !? {QColorGroup(group)});
  36   }
  37
  38   setColor { arg color, role, group;
  39     ^this.prSetColor(color, QColorRole(role), group !? {QColorGroup(group)});
  40   }
  41
  42   hasColor { arg role, group;
  43     ^this.prHasColor(QColorRole(role), group !? {QColorGroup(group)});
  44   }
  45
  46   window_ { arg color; this.setColor( color, \window ) }
  47   windowText_ { arg color; this.setColor( color, \windowText ) }
  48   button_ { arg color; this.setColor( color, \button ) }
  49   buttonText_ { arg color; this.setColor( color, \buttonText ) }
  50   base_ { arg color; this.setColor( color, \base ) }
  51   baseText_ { arg color; this.setColor( color, \baseText ) }
  52   highlight_ { arg color; this.setColor( color, \highlight ) }
  53   highlightText_ { arg color; this.setColor( color, \highlightText ) }
  54
  55   window { ^this.color( \window ) }
  56   windowText { ^this.color( \windowText ) }
  57   button { ^this.color( \button ) }
  58   buttonText { ^this.color( \buttonText ) }
  59   base { ^this.color( \base ) }
  60   baseText { ^this.color( \baseText ) }
  61   highlight { ^this.color( \highlight ) }
  62   highlightText { ^this.color( \highlightText ) }
  63
  64   ///// PRIVATE ////
  65
  66   prInit {
  67     _QPalette_New
  68     ^this.primitiveFailed
  69   }
  70
  71   prAuto {
  72     _QPalette_Auto
  73     ^this.primitiveFailed
  74   }
  75
  76   prSystem {
  77     _QPalette_System
  78     ^this.primitiveFailed
  79   }
  80
  81   prColor { arg role, group;
  82     _QPalette_Color
  83     ^this.primitiveFailed
  84   }
  85
  86   prSetColor { arg color, role, group;
  87     _QPalette_SetColor
  88     ^this.primitiveFailed
  89   }
  90
  91   prHasColor { arg role, group;
  92     _QPalette_HasColor
  93     ^this.primitiveFailed
  94   }
  95 }