Changeset 1929 for trunk/gui/scripts/dropdownlist.tcl

Timestamp:

Oct 22, 2010, 4:06:10 PM (14 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/dropdownlist.tcl (modified) (11 diffs)

trunk/gui/scripts/dropdownlist.tcl

@@ -50 +50 @@
 itcl::body Rappture::Dropdownlist::constructor {args} {
     itk_component add scroller {
-        Rappture::Scroller $itk_interior.sc \
-            -xscrollmode off -yscrollmode auto
+        Rappture::Scroller $itk_interior.sc \
+            -xscrollmode off -yscrollmode auto
     }
     pack $itk_component(scroller) -expand yes -fill both
 
     itk_component add list {
-        listbox $itk_component(scroller).list \
-            -selectmode single -exportselection no \
-            -highlightthickness 0
+        listbox $itk_component(scroller).list \
+            -selectmode single -exportselection no \
+            -highlightthickness 0
     } {
-        usual
-        rename -background -textbackground textBackground Background
-        rename -foreground -textforeground textForeground Foreground
-        ignore -highlightthickness -highlightbackground -highlightcolor
-        keep -relief
+        usual
+        rename -background -textbackground textBackground Background
+        rename -foreground -textforeground textForeground Foreground
+        ignore -highlightthickness -highlightbackground -highlightcolor
+        keep -relief
     }
     $itk_component(scroller) contents $itk_component(list)
@@ -77 +77 @@
     set i [lsearch $btags [winfo class $itk_component(list)]]
     if {$i < 0} {
-        set i end
+        set i end
     }
     set btags [linsert $btags [expr {$i+1}] RapptureDropdownlist-$this]
@@ -95 +95 @@
 itcl::body Rappture::Dropdownlist::insert {pos args} {
     if {"end" == $pos} {
-        set pos [llength $_values]
+        set pos [llength $_values]
     } elseif {![string is integer -strict $pos]} {
-        error "bad index \"$pos\": should be integer or \"end\""
+        error "bad index \"$pos\": should be integer or \"end\""
     }
 
     if {[llength $args] == 1} {
-        set args [lindex $args 0]
+        set args [lindex $args 0]
     }
     if {[llength $args] % 2 != 0} {
-        error "wrong # args: should be \"insert pos ?value label ...?\""
+        error "wrong # args: should be \"insert pos ?value label ...?\""
     }
 
     foreach {val label} $args {
-        if {$label == "--"} {
-            set label $val
-        }
-        set _values [linsert $_values $pos $val]
-        set _labels [linsert $_labels $pos $label]
-        $itk_component(list) insert $pos $label
-        incr pos
+        if {$label == "--"} {
+            set label $val
+        }
+        set _values [linsert $_values $pos $val]
+        set _labels [linsert $_labels $pos $label]
+        $itk_component(list) insert $pos $label
+        incr pos
     }
 }
@@ -127 +127 @@
 itcl::body Rappture::Dropdownlist::delete {first {last ""}} {
     if {$last == ""} {
-        set last $first
+        set last $first
     }
     if {![regexp {^[0-9]+|end$} $first]} {
-        error "bad index \"$first\": should be integer or \"end\""
+        error "bad index \"$first\": should be integer or \"end\""
     }
     if {![regexp {^[0-9]+|end$} $last]} {
-        error "bad index \"$last\": should be integer or \"end\""
+        error "bad index \"$last\": should be integer or \"end\""
     }
 
@@ -151 +151 @@
     set first [lindex $args 0]
     if {$first == "-value" || $first == "-label"} {
-        set format $first
-        set args [lrange $args 1 end]
+        set format $first
+        set args [lrange $args 1 end]
     } elseif {[llength $args] > 1} {
-        error "bad option \"$first\": should be -value or -label"
+        error "bad option \"$first\": should be -value or -label"
     }
     if {[llength $args] != 1} {
-        error "wrong # args: should be \"index ?-value? ?-label? string\""
+        error "wrong # args: should be \"index ?-value? ?-label? string\""
     }
     set value [lindex $args 0]
 
     switch -- $format {
-        -value { return [lsearch -exact $_values $value] }
-        -label { return [lsearch -exact $_labels $value] }
+        -value { return [lsearch -exact $_values $value] }
+        -label { return [lsearch -exact $_labels $value] }
     }
     return -1
@@ -180 +180 @@
     set first [lindex $args 0]
     if {[string index $first 0] == "-"} {
-        set choices {-value -label -both}
-        if {[lsearch $choices $first] < 0} {
-            error "bad option \"$first\": should be [join [lsort $choices] {, }]"
-        }
-        set format $first
-        set args [lrange $args 1 end]
+        set choices {-value -label -both}
+        if {[lsearch $choices $first] < 0} {
+            error "bad option \"$first\": should be [join [lsort $choices] {, }]"
+        }
+        set format $first
+        set args [lrange $args 1 end]
     }
 
     # return the whole list or just a single value
     if {[llength $args] > 1} {
-        error "wrong # args: should be \"get ?-value|-label|-both? ?index?\""
+        error "wrong # args: should be \"get ?-value|-label|-both? ?index?\""
     }
     if {[llength $args] == 0} {
-        set vlist $_values
-        set llist $_labels
-        set op lappend
+        set vlist $_values
+        set llist $_labels
+        set op lappend
     } else {
-        set i [lindex $args 0]
-        set vlist [list [lindex $_values $i]]
-        set llist [list [lindex $_labels $i]]
-        set op set
+        set i [lindex $args 0]
+        set vlist [list [lindex $_values $i]]
+        set llist [list [lindex $_labels $i]]
+        set op set
     }
 
@@ -206 +206 @@
     set rlist ""
     foreach v $vlist l $llist {
-        switch -- $format {
-            -value { $op rlist $v }
-            -label { $op rlist $l }
-            -both  { lappend rlist $v $l }
-        }
+        switch -- $format {
+            -value { $op rlist $v }
+            -label { $op rlist $l }
+            -both  { lappend rlist $v $l }
+        }
     }
     return $rlist
@@ -232 +232 @@
 itcl::body Rappture::Dropdownlist::select {option args} {
     if {$option == "set"} {
-        $itk_component(list) activate [lindex $args 0]
+        $itk_component(list) activate [lindex $args 0]
     }
     eval $itk_component(list) selection $option $args
@@ -246 +246 @@
     set i [$itk_component(list) curselection]
     if {$i != ""} {
-        switch -- $what {
-            -value { return [lindex $_values $i] }
-            -label { return [lindex $_labels $i] }
-            -both  { return [list [lindex $_values $i] [lindex $_labels $i]] }
-            default {
-                error "bad option \"$what\": should be -value, -label, -both"
-            }
-        }
+        switch -- $what {
+            -value { return [lindex $_values $i] }
+            -label { return [lindex $_labels $i] }
+            -both  { return [list [lindex $_values $i] [lindex $_labels $i]] }
+            default {
+                error "bad option \"$what\": should be -value, -label, -both"
+            }
+        }
     }
     return ""
@@ -271 +271 @@
     set maxw 0
     foreach str $_labels {
-        set w [font measure $fnt $str]
-        if {$w > $maxw} { set maxw $w }
+        set w [font measure $fnt $str]
+        if {$w > $maxw} { set maxw $w }
     }
     if {$widget != ""} {
-        if {$maxw < [winfo width $widget]} { set maxw [winfo width $widget] }
+        if {$maxw < [winfo width $widget]} { set maxw [winfo width $widget] }
     }
     set avg [font measure $fnt "n"]
@@ -281 +281 @@
 
     if {$widget != ""} {
-        set y [expr {[winfo rooty $widget]+[winfo height $widget]}]
-        set h [font metrics $fnt -linespace]
-        set lines [expr {double([winfo screenheight $widget]-$y)/$h}]
-        if {[llength $_labels] < $lines} {
-            $itk_component(list) configure -height [llength $_labels]
-        } else {
-            $itk_component(list) configure -height 10
-        }
+        set y [expr {[winfo rooty $widget]+[winfo height $widget]}]
+        set h [font metrics $fnt -linespace]
+        set lines [expr {double([winfo screenheight $widget]-$y)/$h}]
+        if {[llength $_labels] < $lines} {
+            $itk_component(list) configure -height [llength $_labels]
+        } else {
+            $itk_component(list) configure -height 10
+        }
     }