tix/tests/hlist/HLInd.tcl

   1 proc Test {} {
   2     set h [tixHList .h -indicator 1 -indent 20]
   3     pack $h -expand yes -fill both
   4     button .b -text close -command "Done forced"
   5     pack .b
   6
   7     $h add hello -text hello
   8     $h add noind -text hello
   9
  10     test {$h indicator} {args}
  11     test {$h indicator bad} {unknown}
  12
  13     # Test for create
  14     #
  15     #
  16
  17     test {$h indicator create} {args}
  18     test {$h indicator create xyz} {{not found}}
  19     test {$h indicator create hello -itemtype} {missing}
  20     test {$h indicator create hello -itemtype bad} {unknown}
  21     test {$h indicator create hello -itemtype imagetext \
  22         -image [tix getimage plus]}
  23
  24     # Test for cget
  25     #
  26     test {$h indicator cget} {args}
  27     test {$h indicator cget hello} {args}
  28     test {$h indicator cget hello arg arg} {args}
  29     test {$h indicator cget noind -text} {{does not have}}
  30     test {$h indicator cget hello -bad} {{unknown}}
  31     test {$h indicator cget hello -image}
  32
  33     # Test for size
  34     #
  35     test {$h indicator size} {args}
  36     test {$h indicator size hello hi} {args}
  37     test {$h indicator size bad} {{not found}}
  38     test {$h indicator size noind} {{does not have}}
  39     test {set x [$h indicator size hello]}
  40     test {$h indicator cget hello -image} {{does not}}
  41
  42     # Test for delete
  43     #
  44     test {$h indicator delete} {args}
  45     test {$h indicator delete hello hi} {args}
  46     test {$h indicator delete bad} {{not found}}
  47     test {$h indicator delete hello}
  48     test {$h indicator cget hello -image} {{does not}}
  49
  50     update
  51 }