src/ibex/widget/slider.t

   1 <!-- Copyleft 2004 - see COPYING for details [LGPL] -->
   2
   3 <ibex xmlns="org.ibex.theme.win2k">
   4     <meta:doc>
   5         <name>Slider Widget</name>
   6         <desc>Creates a sliding value selector</desc>
   7         <usage>
   8         </usage>
   9     </meta:doc>
  10
  11     <redirect />
  12     <margin redirect="null" shrink="true">
  13         <pad id="pad">
  14             <slider id="widget">
  15                 .clickable(thisbox);
  16                 .focusable(thisbox);
  17             </slider>
  18         </pad>
  19
  20         // glue code
  21
  22         redirectTo($pad, "fill", "padding", "padding-left", "padding-right", "padding-top", "padding-bottom");
  23         redirectTo($widget, "enabled", "maxvalue", "minvalue", "value");
  24
  25         if ($widget.margin) thisbox.margin = $widget.margin;
  26         if ($widget.padding) $pad.padding = $widget.padding;
  27
  28         $widget.textcolor ++= function(v) { $content.textcolor = v; }
  29
  30     </margin>
  31 </ibex>