Revision: 34088
http://brlcad.svn.sourceforge.net/brlcad/?rev=34088&view=rev
Author: bob1961
Date: 2009-03-26 19:52:21 +0000 (Thu, 26 Mar 2009)
Log Message:
-----------
Modified the buildComboBox method to use ttk::combobox.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl
Modified: brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl 2009-03-26
19:33:04 UTC (rev 34087)
+++ brlcad/trunk/src/tclscripts/archer/GeometryEditFrame.tcl 2009-03-26
19:52:21 UTC (rev 34088)
@@ -391,32 +391,19 @@
-text $text
} {}
- set hbc [$itk_component($name1\L) cget -background]
-
itk_component add $name1\F {
::frame $parent.$name2\F \
-relief sunken \
- -bd 2
+ -bd 0
} {}
- set listHeight [expr [llength $listOfChoices] * 19]
itk_component add $name1\CB {
- ::iwidgets::combobox $itk_component($name1\F).$name2\CB \
- -editable false \
+ ::ttk::combobox $itk_component($name1\F).$name2\CB \
+ -state readonly \
-textvariable $var \
- -listheight $listHeight \
- -background $::ArcherCore::SystemWindow \
- -textbackground $::ArcherCore::SystemWindow \
- -relief flat
+ -values $listOfChoices
} {}
- $itk_component($name1\CB) component entry configure \
- -disabledbackground $::ArcherCore::SystemWindow \
- -disabledforeground $::ArcherCore::SystemWindowText
- eval $itk_component($name1\CB) insert list end $listOfChoices
- $itk_component($name1\CB) component arrowBtn configure \
- -background $hbc \
- -highlightbackground $hbc
pack $itk_component($name1\CB) -expand yes -fill both
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
