/usr/bin/xbindkeys_show is in xbindkeys 1.8.6-1.
This file is owned by root:root, with mode 0o755.
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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | #!/bin/sh
# \
exec wish "$0" "$@"
#***************************************************************************
# XBindKeys_Show : show the keybinding off xbindkeys
# -------------------
# begin : Sat Oct 13 14:11:34 CEST 2001
# copyright : (C) 2001 by Philippe Brochard
# email : hocwp@free.fr
#***************************************************************************
#
#***************************************************************************
#* *
#* This program is free software; you can redistribute it and/or modify *
#* it under the terms of the GNU General Public License as published by *
#* the Free Software Foundation; either version 2 of the License, or *
#* (at your option) any later version. *
#* *
#***************************************************************************
set arg0 [ lindex $argv 0 ]
set arg1 [ lindex $argv 1 ]
if { $arg0 == "--help" || $arg0 == "-h" } {
puts "Usage: xbindkeys_show \[Options\]"
puts " Where options are:"
puts " --help this help"
puts " -f, --file <file> use <file> as configuration file"
puts " -fg, --file-guile <file> use <file> as guile configuration file"
exit
}
set file_option ""
if { $arg0 == "--file" || $arg0 == "-f" } {
set file_option "-f"
}
if { $arg0 == "--file-guile" || $arg0 == "-fg" } {
set file_option "-fg"
}
if { $arg1 != "" && $file_option != "" } {
set list [ exec "xbindkeys" "--show" "$file_option" "$arg1" ]
} else {
set list [ exec "xbindkeys" "--show" ]
}
frame .framelst -borderwidth .5c
pack .framelst -side top -expand yes -fill y
scrollbar .scroll -command ".liste yview" -orient vertical
scrollbar .scrollx -command ".liste xview" -orient horizontal
listbox .liste -yscroll ".scroll set" -xscroll ".scrollx set" \
-setgrid 1 -height 20 -width 50
foreach p [ split $list "\n" ] {
.liste insert end "$p"
}
button .but0 -text "X key binding\n for more details see \$HOME/.xbindkeysrc " \
-command { exit }
pack .scroll -in .framelst -side right -fill y
pack .scrollx -in .framelst -side bottom -fill x
pack .liste -in .framelst -side left -expand yes -fill both
pack .but0 -side bottom
bind all <KeyPress> { exit }
|