src/Fl_Theme_Chooser.fl

   1 # data file for the Fltk User Interface Designer (fluid)
   2 version 1.0300
   3 header_name {../FL/Fl_Theme_Chooser.H}
   4 code_name {.cxx}
   5 decl {\#include "FL/Fl_Theme.H"} {public global
   6 }
   7
   8 decl {\#include <FL/Fl_Button.H>} {public global
   9 }
  10
  11 decl {\#include <FL/Fl_Color_Chooser.H>} {private local
  12 }
  13
  14 decl {\#include <FL/Fl_Double_Window.H>} {private local
  15 }
  16
  17 class Fl_Color_Button {open : {public Fl_Button}
  18 } {
  19   Function {Fl_Color_Button( int X, int Y, int W, int H, const char *L = 0 ) : Fl_Button( X, Y, W, H, L )} {open
  20   } {
  21     code {} {}
  22   }
  23   Function {handle( int m )} {open return_type int
  24   } {
  25     code {switch ( m )
  26 {
  27         case FL_PUSH:
  28         {
  29                 uchar r, g, b;
  30
  31                 Fl::get_color( color(), r, g, b );
  32
  33                 fl_color_chooser( label(), r, g, b );
  34
  35                 color( fl_rgb_color( r, g, b ) );
  36
  37                 do_callback();
  38
  39                 return 1;
  40         }
  41 }
  42
  43 return Fl_Button::handle( m );} {}
  44   }
  45 }
  46
  47 widget_class Fl_Theme_Chooser {
  48   label Theme open
  49   xywh {560 246 435 380} type Double
  50   class Fl_Double_Window visible
  51 } {
  52   Fl_Choice theme_choice {
  53     label {Theme:}
  54     callback {Fl_Theme::set( o->mvalue()->label() );
  55
  56 redraw();} open
  57     xywh {120 20 300 25} down_box BORDER_BOX
  58   } {}
  59   Fl_Choice color_scheme_choice {
  60     label {Color Scheme:}
  61     callback {Fl_Color_Scheme::set( o->mvalue()->label() );
  62
  63 redraw();} open
  64     xywh {120 48 300 25} down_box BORDER_BOX
  65   } {}
  66   Fl_Return_Button {} {
  67     label OK
  68     callback {hide();} selected
  69     xywh {355 345 75 25}
  70   }
  71   Fl_Group {} {
  72     label Example open
  73     xywh {5 215 425 120} box ENGRAVED_FRAME
  74   } {
  75     Fl_Scrollbar {} {
  76       label {Scroll Bar}
  77       xywh {155 240 265 25} type Horizontal align 1
  78     }
  79     Fl_Check_Button {} {
  80       label {Check Button}
  81       xywh {15 230 120 15} down_box DOWN_BOX
  82     }
  83     Fl_Dial {} {
  84       label Dial
  85       xywh {155 275 35 35}
  86     }
  87     Fl_Progress {} {
  88       label Progress
  89       xywh {240 300 185 30}
  90       code0 {o->value( 0.50 );}
  91     }
  92     Fl_Light_Button {} {
  93       label {Light Button}
  94       xywh {15 285 120 35}
  95     }
  96   }
  97   Fl_Button background_color_button {
  98     label {Background 1:}
  99     callback {uchar r,g,b;
 100
 101 Fl::get_color( o->color(), r,g,b );
 102
 103 Fl::background( r,g,b );
 104
 105 o->window()->redraw();
 106
 107 Fl_Color_Scheme::save();}
 108     xywh {120 76 300 25} box BORDER_BOX align 4 when 6
 109     code0 {\#include <FL/fl_ask.H>}
 110     code1 {o->color( FL_BACKGROUND_COLOR );}
 111     class Fl_Color_Button
 112   }
 113   Fl_Button background2_color_button {
 114     label {Background 2:}
 115     callback {uchar r,g,b;
 116
 117 Fl::get_color( o->color(), r,g,b );
 118
 119 Fl::background2( r,g,b );
 120
 121 o->window()->redraw();
 122
 123 Fl_Color_Scheme::save();}
 124     xywh {120 104 300 25} box BORDER_BOX align 4
 125     code1 {o->color( FL_BACKGROUND2_COLOR );}
 126     class Fl_Color_Button
 127   }
 128   Fl_Button foreground_color_button {
 129     label {Foreground:}
 130     callback {uchar r,g,b;
 131
 132 Fl::get_color( o->color(), r,g,b );
 133
 134 Fl::foreground( r,g,b );
 135
 136 o->window()->redraw();
 137
 138 Fl_Color_Scheme::save();}
 139     xywh {120 132 300 25} box BORDER_BOX align 4
 140     code1 {o->color( FL_FOREGROUND_COLOR );}
 141     class Fl_Color_Button
 142   }
 143   Fl_Button selection_color_button {
 144     label {Selection:}
 145     xywh {120 160 300 25} box BORDER_BOX align 4 hide
 146     class Fl_Color_Button
 147   }
 148   code {{
 149 Fl_Theme **ta = Fl_Theme::get();
 150
 151 for ( Fl_Theme **t = ta; *t; t++ )
 152     theme_choice->add( (*t)->name() );
 153
 154 free( ta );
 155
 156 const Fl_Menu_Item *item = theme_choice->find_item( Fl_Theme::current()->name() );
 157
 158 theme_choice->value( item );
 159 }
 160
 161 {
 162 Fl_Color_Scheme **ta = Fl_Color_Scheme::get();
 163
 164 for ( Fl_Color_Scheme **t = ta; *t; t++ )
 165     color_scheme_choice->add( (*t)->name() );
 166
 167 free( ta );
 168 }} {}
 169 }
 170
 171 Function {fl_theme_chooser()} {open C return_type void
 172 } {
 173   code {Fl_Window *w = new Fl_Theme_Chooser();
 174
 175 w->end();
 176 w->show();
 177
 178 while( w->shown() )
 179   Fl::wait();} {}
 180 }