File: menu_80_patch.tcl

package info (click to toggle)
filerunner 2.5.1-12
  • links: PTS
  • area: main
  • in suites: woody
  • size: 676 kB
  • ctags: 148
  • sloc: tcl: 6,101; ansic: 561; sh: 347; makefile: 62
file content (20 lines) | stat: -rw-r--r-- 427 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 


# This function is defined incorrectly in tk 8.0

proc tk_popup {menu x y {entry {}}} {
    global tkPriv
    global tcl_platform
    if {($tkPriv(popup) != "") || ($tkPriv(postedMb) != "")} {
	tkMenuUnpost {}
    }
    tkPostOverPoint $menu $x $y $entry
    if {$tcl_platform(platform) == "unix"} {
	tkSaveGrabInfo $menu
	grab -global $menu
	set tkPriv(popup) $menu
#	tk_menuSetFocus($menu);
	tk_menuSetFocus $menu
    }
}