Changeset 11 for trunk/gui/scripts/dropdownlist.tcl
- Timestamp:
- May 30, 2005, 9:33:49 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/dropdownlist.tcl
r1 r11 7 7 # ====================================================================== 8 8 # AUTHOR: Michael McLennan, Purdue University 9 # Copyright (c) 2004 Purdue Research Foundation, West Lafayette, IN 9 # Copyright (c) 2004-2005 10 # Purdue Research Foundation, West Lafayette, IN 10 11 # ====================================================================== 11 12 package require Itk … … 135 136 set _values [lreplace $_values $first $last] 136 137 set _labels [lreplace $_labels $first $last] 138 $itk_component(list) delete $first $last 137 139 } 138 140 … … 273 275 if {$maxw < [winfo width $widget]} { set maxw [winfo width $widget] } 274 276 } 275 set avg [font measure $fnt " x"]277 set avg [font measure $fnt "n"] 276 278 $itk_component(list) configure -width [expr {round($maxw/double($avg))+1}] 277 279
Note: See TracChangeset
for help on using the changeset viewer.