Hello,
I am checking the twic games for twins and the key bindings weren't
comfortable for me to use, so I added some new bindings to work using
the numerical keypad, also added a new one for switching flags in both
games, with this key bindings I don't have to make so much finger
gymnastics to go through the twins.
So, I'm posting it in case someone else find it useful or have some
suggestion.
this are the bindings:
0: switch flags in both games
1: switch flag in left game
2: switch flag in right game
3: turn off flag in both games
4: go to previous game pair
5: go to next game pair
6: share tags
Next is the patch, it's my first one so I hope it works:
======== Patch starts ========
--- scid-1/tcl/file/maint.tcl 2008-05-04 14:43:04.000000000 -0500
+++ scid/tcl/file/maint.tcl 2008-07-05 01:47:53.000000000 -0500
@@ -726,13 +726,16 @@
bind $w <Escape> "focus .; destroy $w"
bind $w <Alt-p> {::game::LoadNextPrev previous}
bind $w <KeyPress-p> {::game::LoadNextPrev previous}
+ bind $w <KeyPress-4> {::game::LoadNextPrev previous}
bind $w <Alt-n> {::game::LoadNextPrev next}
bind $w <KeyPress-n> {::game::LoadNextPrev next}
+ bind $w <KeyPress-5> {::game::LoadNextPrev next}
bind $w <Alt-d> "markTwins $w"
bind $w <KeyPress-d> "markTwins $w"
bind $w <KeyPress-1> "$w.f.left.title.d invoke"
bind $w <KeyPress-2> "$w.f.right.title.d invoke"
bind $w <KeyPress-s> "$w.b.share invoke"
+ bind $w <KeyPress-6> "$w.b.share invoke"
bind $w <KeyPress-u> {
if {$twincheck(left)} {.twinchecker.f.left.title.d invoke}
if {$twincheck(right)} {.twinchecker.f.right.title.d invoke}
@@ -741,6 +744,23 @@
if {$twincheck(left)} {.twinchecker.f.left.title.d invoke}
if {$twincheck(right)} {.twinchecker.f.right.title.d invoke}
}
+ bind $w <KeyPress-3> {
+ if {$twincheck(left)} {.twinchecker.f.left.title.d invoke}
+ if {$twincheck(right)} {.twinchecker.f.right.title.d invoke}
+ }
+ bind $w <KeyPress-0> {
+ if {$twincheck(left)} {
+ .twinchecker.f.left.title.d invoke
+ } else {
+ .twinchecker.f.left.title.d invoke
+ }
+
+ if {$twincheck(right)} {
+ .twinchecker.f.right.title.d invoke
+ } else {
+ .twinchecker.f.right.title.d invoke
+ }
+ }
wm resizable $w 0 1
wm title $w $::tr(TwinChecker)
}
======== Patch ends ========
-------------------------------------------------------------------------
Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
Studies have shown that voting for your favorite open source project,
along with a healthy diet, reduces your potential for chronic lameness
and boredom. Vote Now at http://www.sourceforge.net/community/cca08
_______________________________________________
Scid-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/scid-users
