/usr/share/amsn/utils/pixmapmenu/makecommands.tcl is in amsn-data 0.98.9-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | # Renames tk commands and replaces them with our commands
set pixmapmenu_enabled 0
proc pixmapmenu_isEnabled {} {
global pixmapmenu_enabled
return [expr [info exists pixmapmenu_enabled] && $pixmapmenu_enabled ]
}
proc restore_pixmapmenus {} {
# Recreating some menus
create_states_menu .my_menu
create_other_menus .user_menu .menu_invite
create_main_menu .main_menu
}
proc enable_pixmapmenu {} {
global pixmapmenu_enabled
rename menu tk_menu
rename menushell menu
rename menubutton tk_menubutton
rename menubut menubutton
catch { tk_optionMenu -w00t }
rename tk_optionMenu tk_tk_optionMenu
rename OptionMenu tk_optionMenu
set pixmapmenu_enabled 1
restore_pixmapmenus
}
proc disable_pixmapmenu {} {
global pixmapmenu_enabled
rename tk_optionMenu OptionMenu
rename tk_tk_optionMenu tk_optionMenu
rename menubutton menubut
rename tk_menubutton menubutton
rename menu menushell
rename tk_menu menu
set pixmapmenu_enabled 0
restore_pixmapmenus
}
|