ãã Copyright (c) 1990-2008 Morgan Stanley All rights reserved. ãã See .../src/LICENSE for terms of distribution. $cx rgb set_bg{s;d;i;p;c;v}:set{c;`_B;`bg;`_RB`_GB`_BB} Ý set{c;`_F;`fg;`_RB`_GB`_BB} set_fg{s;d;i;p;c;v}:set{c;`_B;`fg;`_RF`_GF`_BF} Ý set{c;`_F;`bg;`_RF`_GF`_BF} done_bg{s;d;i;p;c;v}:(c%`_BG)û0Ø`bg .of `_B done_fg{s;d;i;p;c;v}:(c%`_FG)û0Ø`fg .of `_B set{c;x;y;z}:(c,x) .has (y;s.c3h{c%@0z}) define{cx}: { WSûs.autows{()}; (cx%¡`_RB`_GB`_BB)û192; (cx%¡`_RF`_GF`_BF)û0; (cx%`_B)û'foreground on background'; (cx%`_F)û'background on foreground'; (cx%`_RGB)û4 2Ò`_B`_F`_RB`_RF`_GB`_GF`_BB`_BF; (cxÖ`_RB`_GB`_BB`_RF`_GF`_BF) .is¡`hscale; (cxÖ`_B`_F) .is¡`color; (cx,`_RGB) .is `layout; (cxÖ`_RB`_GB`_BB`_RF`_GF`_BF) .has¡<(`title;'';`valuejustify;'.n';`displayjustify;'.n';`min;0;`max;255;`resize;'hH';`hlthickness;0); (cxÖ`_RB`_GB`_BB) .has¡<(`set;set_bg); (cxÖ`_RF`_GF`_BF) .has¡<(`set;set_fg); (cxÖ`_RB`_GB`_BB) .has¡<(`done;done_bg); (cxÖ`_RF`_GF`_BF) .has¡<(`done;done_fg); (cxÖ`_RB`_GB`_BB) .has¡(`sliderbg`red;`sliderbg`green;`sliderbg`blue); (cxÖ`_RF`_GF`_BF) .has¡(`sliderbg`red;`sliderbg`green;`sliderbg`blue); (cxÖ`_B`_F) .has¡((`bg;`grey;`fg;`black;`resize;'');(`bg;`black;`fg;`grey;`resize;'')); (cx,`_RGB) .has (`title;'';`bg;`black); (cx%`_FG)û0Ø`fg .of cx,`_B; (cx%`_BG)û0Ø`bg .of cx,`_B; s.autows{WS}; cxÖ`_RGB }