src/ibex/widget/bevel.t

   1 <!-- Copyleft 2004 - see COPYING for details [LGPL] -->
   2
   3 <ibex xmlns="org.ibex.theme.win2k">
   4     <meta:doc>
   5         <name>Basic Button</name>
   6         <desc>Creates a button widget</desc>
   7         <usage>
   8             Put to the text property of a button for a basic label,
   9             or simply wrap the button around more complex content
  10         </usage>
  11     </meta:doc>
  12
  13     <redirect />
  14     <margin redirect="$content">
  15         <bevel form="up" id="widget">
  16             <pad id="pad">
  17                 <ui:box id="content" />
  18             </pad>
  19         </bevel>
  20
  21         // glue code
  22
  23         redirectTo($content, "fill", "text", "textcolor");
  24         redirectTo($pad, "padding", "padding-left", "padding-right", "padding-top", "padding-bottom");
  25         redirectTo($widget, "form");
  26
  27         if ($widget.margin) thisbox.margin = $widget.margin;
  28         if ($widget.padding) $content.padding = $widget.padding;
  29
  30     </margin>
  31 </ibex>