Revision: 51768
http://brlcad.svn.sourceforge.net/brlcad/?rev=51768&view=rev
Author: bob1961
Date: 2012-08-06 14:55:21 +0000 (Mon, 06 Aug 2012)
Log Message:
-----------
Remove the "List View" preference.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/Archer.tcl
Modified: brlcad/trunk/src/tclscripts/archer/Archer.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/Archer.tcl 2012-08-06 14:34:55 UTC
(rev 51767)
+++ brlcad/trunk/src/tclscripts/archer/Archer.tcl 2012-08-06 14:55:21 UTC
(rev 51768)
@@ -2701,12 +2701,6 @@
-command [::itcl::code $this affectedNodeHighlightCallback]
} {}
- itk_component add listViewCB {
- ::ttk::checkbutton $itk_component(generalF).listViewCB \
- -text "List View" \
- -variable [::itcl::scope mEnableListViewPref]
- } {}
-
itk_component add listViewAllAffectedCB {
::ttk::checkbutton $itk_component(generalF).listViewAllAffectedCB \
-text "All Affected Nodes Highlighted (List View Only)" \
@@ -2786,12 +2780,6 @@
-sticky sw
grid rowconfigure $itk_component(generalF) $i -weight 1
incr i
- grid $itk_component(listViewCB) \
- -columnspan 2 \
- -column 0 \
- -row $i \
- -sticky sw
- incr i
grid $itk_component(listViewAllAffectedCB) \
-columnspan 2 \
-column 0 \
@@ -8023,11 +8011,6 @@
set cflag 1
}
- if {$mEnableListView != $mEnableListViewPref} {
- set mEnableListView $mEnableListViewPref
- set lflag 1
- }
-
if {$mEnableListViewAllAffected != $mEnableListViewAllAffectedPref} {
set mEnableListViewAllAffected $mEnableListViewAllAffectedPref
set tflag 1
@@ -8038,18 +8021,7 @@
set tflag 1
}
- if {$lflag} {
- setTreeView 1
-
- if {$cflag && $mTreeAttrColumns == {}} {
- set twidth [expr {[winfo width $itk_component(newtree)] - 4}]
- set c0width [$itk_component(newtree) column \#0 -width]
-
- if {$c0width < $twidth} {
- $itk_component(newtree) column \#0 -width $twidth
- }
- }
- } elseif {$cflag} {
+ if {$cflag} {
rebuildTree
if {$mTreeAttrColumns == {}} {
@@ -8542,7 +8514,6 @@
set mScaleColorPref $mScaleColor
set mViewingParamsColorPref $mViewingParamsColor
set mTreeAttrColumnsPref $mTreeAttrColumns
- set mEnableListViewPref $mEnableListView
set mEnableListViewAllAffectedPref $mEnableListViewAllAffected
set mEnableAffectedNodeHighlightPref $mEnableAffectedNodeHighlight
set mSeparateCommandWindowPref $mSeparateCommandWindow
@@ -8708,7 +8679,6 @@
puts $_pfile "set mScaleColor \"$mScaleColor\""
puts $_pfile "set mViewingParamsColor \"$mViewingParamsColor\""
puts $_pfile "set mTreeAttrColumns \"$mTreeAttrColumns\""
- puts $_pfile "set mEnableListView $mEnableListView"
puts $_pfile "set mEnableListViewAllAffected $mEnableListViewAllAffected"
puts $_pfile "set mEnableAffectedNodeHighlight
$mEnableAffectedNodeHighlight"
puts $_pfile "set mSeparateCommandWindow $mSeparateCommandWindow"
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
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
