Revision: 50484
http://brlcad.svn.sourceforge.net/brlcad/?rev=50484&view=rev
Author: bob1961
Date: 2012-05-10 14:23:07 +0000 (Thu, 10 May 2012)
Log Message:
-----------
Added TkTable::unselectRow.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/TkTable.tcl
Modified: brlcad/trunk/src/tclscripts/lib/TkTable.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/TkTable.tcl 2012-05-10 14:06:17 UTC (rev
50483)
+++ brlcad/trunk/src/tclscripts/lib/TkTable.tcl 2012-05-10 14:23:07 UTC (rev
50484)
@@ -43,6 +43,7 @@
method setTableCol {_col _val}
method setTableVal {_index _val}
method selectSingleRow {_row}
+ method unselectRow {_row}
method updateTitleCol {}
method width {args}
}
@@ -309,8 +310,7 @@
# Turn off previously selected row
if {$mSingleSelectRow} {
- setTableVal $mSingleSelectRow,0 ""
- $itk_component(table) tag cell {} $mSingleSelectRow,0
+ unselectRow $mSingleSelectRow
}
setTableVal $_row,0 "*"
@@ -318,6 +318,11 @@
set mSingleSelectRow $_row
}
+::itcl::body cadwidgets::TkTable::unselectRow {_row} {
+ setTableVal $_row,0 ""
+ $itk_component(table) tag cell {} $_row,0
+}
+
::itcl::body cadwidgets::TkTable::updateTitleCol {} {
set row 1
while {[info exists $mTableDataVar\($row,0\)]} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
