examples/mymenu.tcl

   1 #!/usr/bin/env tclsh8.4
   2
   3 package require TLC
   4 namespace import tlc::*
   5 eval [go_home]
   6
   7
   8 proc choose {which} {
   9         puts "chose: ($which)"
  10 }
  11
  12
  13 Mymenu .m -schema {
  14         "Option 1"              {command {choose "o1"}}
  15         "Option 2"              {command {choose "o2"}}
  16         "Option 3"              {command {choose "o3"}}
  17         "Other" {cascade {
  18                 "Option 4"              {command {choose "o4"}}
  19                 "Option 5"              {command {choose "o5"}}
  20                 "Still Others" {cascade {
  21                         "Option 6"              {command {choose "o6"}}
  22                         "Option 7"              {command {choose "o7"}}
  23                 }}
  24         }}
  25 }
  26
  27
  28 bind . <Button-3> [list tk_popup .m %X %Y]