interfaces/xmaxima/Utils/Misc.tcl

   1
   2 proc cIDEMenuCreatePopup {menu fun box} {
   3     global tcl_platform
   4
   5     menu $menu -tearoff 0
   6     if {$fun != ""} {eval $fun $menu}
   7
   8     bind $box <Button-3> [list tk_popup $menu %X %Y]
   9     switch -exact -- $tcl_platform(platform) windows {
  10         bind $box <Key-App> [list tk_popup $menu %X %Y]
  11     }
  12     return $menu
  13 }
  14
  15 proc cIDECreateEvent {text label code} {
  16     set z [winfo toplevel $text]
  17     set event "<<[join $label -]>>"
  18     bind $text $event $code
  19     return [list event generate $text $event]
  20 }
  21