scripts/combobox.itk

   1 # vim: ft=tcl foldmethod=marker foldmarker=<<<,>>> ts=4 shiftwidth=4
   2
   3 # TODO: reassess signals(valid) when the contents changes (set method, typing, etc)
   4
   5 class tlc::Combobox {
   6         inherit tlc::Mywidget tlc::Baselog tlc::Signalsource tlc::Handlers
   7
   8         constructor {args} {}
   9         destructor {}
  10
  11         public {
  12                 variable state                  {}
  13                 variable readonly               1
  14                 variable initialvalue   ""
  15
  16                 method state {args} {return [$w.c state {*}$args]}
  17                 method instate {args} {return [$w.c instate {*}$args]}
  18                 method get {} {return [$w.c get]}
  19                 method set {} {return [$w.c set]}
  20                 method current {args} {return [$w.c current {*}$args]}
  21         }
  22
  23         private {
  24                 method newselection {}
  25         }
  26 }
  27
  28
  29 configbody tlc::Combobox::initialvalue { #<<<
  30         $w.c set $initialvalue
  31 }
  32
  33 #>>>
  34 configbody tlc::Combobox::state { #<<<
  35         ::set states    {}
  36         if {"disabled" in $state} {
  37                 lappend states  "disabled"
  38         } else {
  39                 lappend states  "!disabled"
  40         }
  41
  42         $w.c state $states
  43 }
  44
  45 #>>>
  46 configbody tlc::Combobox::readonly { #<<<
  47         if {"readonly" in $state} {
  48                 lappend states  "readonly"
  49         } else {
  50                 lappend states  "!readonly"
  51         }
  52         $w.c state $states
  53 }
  54
  55 #>>>
  56 body tlc::Combobox::constructor {args} { #<<<
  57         tlc::Signal #auto signals(valid) -name "$w valid"
  58
  59         itk_component add combobox {
  60                 ttk::combobox $w.c
  61         } {
  62                 keep -values -exportselection -justify -height -postcommand
  63                 keep -textvariable -width
  64         }
  65         itk_initialize {*}$args
  66
  67         pack $w.c -fill both -expand true
  68
  69         $signals(valid) set_state [expr {[$w.c current] != -1}]
  70
  71         bind $w.c <<ComboboxSelected>> [code $this newselection]
  72 }
  73
  74 #>>>
  75 body tlc::Combobox::destructor {} { #<<<
  76 }
  77
  78 #>>>
  79 body tlc::Combobox::newselection {} { #<<<
  80         $signals(valid) set_state [expr {[$w.c current] != -1}]
  81         invoke_handlers onselect [$w.c get]
  82 }
  83
  84 #>>>