examples/linktest.tcl

   1 #!/usr/bin/itkwish3.1
   2
   3 source "boilerplate.tcl"
   4
   5 proc link_handler {rest args} {
   6         array set a $args
   7         puts "args:"
   8         parray a
   9         switch -- $rest {
  10                 "hello" {
  11                         puts "Hello world"
  12                 }
  13                 "exit" {
  14                         exit
  15                 }
  16         }
  17 }
  18
  19 tlc::uri register_handler test link_handler
  20
  21 Label_link .l1 -text "Hello" -target "test://hello?foo=bar&baz=quux"
  22 Label_link .l2 -text "Quit" -target "test://exit"
  23
  24 table . -padx 5 -pady 5 \
  25                 .l1             1,1 \
  26                 .l2             2,1