blob: aa75496708d0f421252208575261d2dad3976403 (
plain)
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 }
|