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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
#
# Copyright (C) 2014 Fulvio Benini
#
# This file is part of Scid (Shane's Chess Information Database).
# Scid 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.
# CUSTOMIZATION:
# By editing this file you can customize the keyboard shortcuts,
# in order to best suit your preferences.
# It is not necessary to recompile scid after changing this file.
proc keyboardShortcuts {w} {
# Go back one move
bind $w <Left> {
eval [excludeTextWidget %W]
::move::Back;
break
}
# Go forward one move
bind $w <Right> {
eval [excludeTextWidget %W]
::move::Forward
break
}
bind $w <Up> {
eval [excludeTextWidget %W]
::move::Back 10
break
}
bind $w <Down> {
eval [excludeTextWidget %W]
::move::Forward 10
break
}
# Exit Variation/Go to game start
bind $w <Home> {
eval [excludeTextWidget %W]
if {[::move::ExitVar] != 0} { break }
::move::Start
break
}
# Go to game end
bind $w <End> {
eval [excludeTextWidget %W]
::move::End
break
}
# Close Scid
# bind $w <Control-q> { ::file::Exit }
# Open a database
bind $w <Control-o> { ::file::Open }
# Close the current database
# TODO: is better to use control-w to close the focused window?
bind $w <Control-w> { ::file::Close }
# Undo
bind $w <Control-z> { undoFeature undo }
# Redo
bind $w <Control-y> { undoFeature redo }
# New game
bind $w <Control-n> { ::game::Clear }
# Save current game
bind $w <Control-s> { ::gameReplace }
# Save current game as new
bind $w <Control-S> { ::gameAdd }
# Toggle fullscreen
bind $w <F11> { wm attributes . -fullscreen [expr ![wm attributes . -fullscreen]] }
# Rotate the chess board
bind $w <period> {
eval [excludeTextWidget %W]
toggleRotateBoard
break
}
# Open "Setup Board" dialog
bind $w <s> {
eval [excludeTextWidget %W]
::setupBoard
break
}
# Open the enter/create variation dialog
# TODO: <v> is not intuitive: <space> or <up> <down> may be better
bind $w <KeyPress-v> {
eval [excludeTextWidget %W]
::showVars
break
}
# Change current database
set totalBaseSlots [sc_info limit bases]
for {set i 1} { $i <= $totalBaseSlots} {incr i} {
bind $w <Control-Key-$i> "::file::SwitchToBase $i"
}
# Open the help window
bind $w <F1> { helpWindowPertinent %W }
# Toggle the active window between docked/undocked
bind $w <F9> { ::win::toggleDocked %W }
#TODO: to be checked
bind $w <F6> ::book::open
bind $w <F12> ::CorrespondenceChess::CCWindow
bind $w <Control-F12> {::CorrespondenceChess::OpenCorrespondenceDB; ::CorrespondenceChess::ReadInbox}
bind $w <Alt-F12> {::CorrespondenceChess::OpenCorrespondenceDB; ::CorrespondenceChess::FetchGames}
bind $w <Control-equal> ::tb::Open
bind $w <Control-d> ::windows::switcher::Open
bind $w <Control-e> "::makeCommentWin toggle"
bind $w <Control-i> ::windows::stats::Open
bind $w <Control-l> ::windows::gamelist::Open
bind $w <Control-m> ::maint::OpenClose
bind $w <Control-p> ::pgn::OpenClose
bind $w <Control-t> ::tree::make
bind $w <Control-E> ::windows::eco::OpenClose
bind $w <Control-K> ::ptrack::make
bind $w <Control-O> ::optable::makeReportWin
bind $w <Control-P> ::plist::toggle
bind $w <Control-T> ::tourney::toggle
bind $w <Control-X> ::crosstab::Open
#TODO: to be improved
bind $w <F2> "::makeAnalysisWin 1 0"
bind $w <F3> "::makeAnalysisWin 2 0"
bind $w <F4> { if {[winfo exists .analysisWin1]} { .analysisWin1.b1.bStartStop invoke } }
bind $w <F5> { if {[winfo exists .analysisWin2]} { .analysisWin2.b1.bStartStop invoke } }
bind $w <Control-A> makeAnalysisWin
bind $w <Control-Shift-2> "makeAnalysisWin 2"
bind $w <Control-a> {sc_var create; updateBoard -pgn}
#TODO: are these shortcuts useful?
bind $w <Control-B> ::search::board
bind $w <Control-H> ::search::header
bind $w <Control-M> ::search::material
bind $w <Control-KeyPress-U> ::search:::usefile
bind $w <Control-C> ::copyFEN
bind $w <Control-V> ::pasteFEN
bind $w <Control-E> ::tools::email
bind $w <Control-I> importPgnGame
bind $w <Control-D> {sc_move ply [sc_eco game ply]; updateBoard}
bind $w <Control-G> tools::graphs::filter::Open
bind $w <Control-J> tools::graphs::absfilter::Open
bind $w <Control-u> ::game::GotoMoveNumber
bind $w <Control-Y> findNovelty
bind $w <Control-N> nameEditor
bind $w <Control-slash> ::file::finder::Open
bind $w <Control-Shift-Up> {::game::LoadNextPrev first}
bind $w <Control-Shift-Down> {::game::LoadNextPrev last}
bind $w <Control-Up> {::game::LoadNextPrev previous}
bind $w <Control-Down> {::game::LoadNextPrev next}
bind $w <Control-question> ::game::LoadRandom
}
proc excludeTextWidget {w} {
if { [regexp ".*(Entry|Text|Combobox|Spinbox)" [winfo class $w] ] } {
# HACK: enable binding for .pgnWin
# TODO: replace this using the new %M (available since Tk 8.6.4)
if {$w ne ".pgnWin.text"} {
return "continue"
}
}
}
|
