src/ibex/widget/tabpane.t

   1 <!-- Copyleft 2004 - see COPYING for details [LGPL] -->
   2
   3 <ibex xmlns="org.ibex.theme.win2k">
   4     <meta:doc>
   5         <name>Tabpane</name>
   6         <desc>Creates a tabpane wigdet for tabbing between views</desc>
   7         <usage>
   8             Each child box of a tabpane is used as a card with a tab,
   9             with the tabtext property of each card defining tab text
  10         </usage>
  11     </meta:doc>
  12
  13     <redirect />
  14     <margin redirect="$content">
  15         <tabpane id="widget">
  16             th_content = $content;
  17             <pad id="pad">
  18                 <cardpane id="content" />
  19             </pad>
  20         </tabpane>
  21
  22         // glue code
  23
  24         redirectTo($content, "show");
  25         redirectTo($pad, "padding", "padding-left", "padding-right", "padding-top", "padding-bottom");
  26         redirectTo($widget, "fill");
  27
  28         if ($widget.margin) thisbox.margin = $widget.margin;
  29         if ($widget.padding) $pad.padding = $widget.padding;
  30
  31     </margin>
  32 </ibex>