src/org/ibex/theme/win2k/edit.t

   1 <!-- Copyleft 2004 - see COPYING for details [LGPL] -->
   2
   3 <ibex xmlns:lib="ibex.lib">
   4     <lib:text.edit />
   5     <ui:box>
   6         // TODO: move these boxes into static so they're shared amongst text
   7         //       widgets. as the gains from this are minimal and the static
   8         //       selection stuff will require quite a bit of fancy footwork,
   9         //       this is put off until Nitrogen core is *at least* as fast as
  10         //       Lithium was.
  11         <ui:box id="cur" packed="false" width="1" x="0" y="0" pos="0" fill="black" align="topleft" />
  12         <ui:box id="sel" packed="false" shrink="true" pos1="0" pos2="0" fill="blue" textcolor="white" align="topleft" />
  13
  14         thisbox.cur = $cur;
  15         thisbox.sel = $sel;
  16
  17         font ++= function(v) { $sel.font = v; }
  18         fontsize ++= function(v) { $sel.fontsize = v; }
  19
  20         // TODO: move to static (later); see above note
  21         ibex.thread = function() {while (true) { if (focused) cur.visible = !cur.visible; ibex.thread.sleep(800); } }
  22     </ui:box>
  23 </ibex>