[Sumover-dev] [svn commit] r3817 - vic/trunk/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: ucacsva
Date: Thu Sep  7 18:42:59 2006
New Revision: 3817

Modified:
   vic/trunk/tcl/ui-util.tcl

Log:
Added "focus" property in mk.entry()

Modified: vic/trunk/tcl/ui-util.tcl
==============================================================================
--- vic/trunk/tcl/ui-util.tcl	(original)
+++ vic/trunk/tcl/ui-util.tcl	Thu Sep  7 18:42:59 2006
@@ -207,6 +207,8 @@
 	global entryTab
 	set entryTab($w.entry:action) $action
 	set entryTab($w.entry:value) $text
+	set entryTab($w.entry:focus) 0
+
 	$w.entry insert 0 $text
 }