scripts/spinint.itcl

   1 # vim: ft=tcl foldmarker=<<<,>>>
   2
   3 class tlc::Spinint {
   4         inherit tlc::Spinner
   5
   6         constructor {args} {} {}
   7
   8         public {
   9                 variable        min             0       {recalc}
  10                 variable        max             10      {recalc}
  11                 variable        step    1       {recalc}
  12         }
  13
  14         private {
  15                 method recalc
  16         }
  17 }
  18
  19 body tlc::Spinint::constructor {args} {
  20         eval itk_initialize $args
  21 #       set up the list with the min / max
  22         recalc
  23 }
  24
  25 body tlc::Spinint::recalc {} {
  26         if {![string is integer min] || ![string is integer max] || ![string is integer step]} {
  27
  28                 if {$min > $max} {
  29                         set hold $min
  30                         set min $max
  31                         set max $hold
  32                 }
  33                 set choices ""
  34                 for {set i $min} {$i <= $max} {incr i $step} {
  35                         lappend choices $i
  36                 }
  37         } else {
  38                 error "Spinint requires integer values for min, max and step.\nValues passed were: min: ($min)\tmax: ($max)\tstep: ($step)"
  39         }
  40 }