Pascal Georges wrote:
> What do you mean by "should work" ? Did you test it in various cases
> (vars window on/off, docked window on/off) ?
I wrote last e-mail from a pc without a compiler.
This is the correct complete changelog:
Index: tcl/end.tcl
===================================================================
RCS file: /cvsroot/scid/scid/tcl/end.tcl,v
retrieving revision 1.60
diff -u -r1.60 end.tcl
--- tcl/end.tcl 25 Jul 2009 07:56:56 -0000 1.60
+++ tcl/end.tcl 14 Oct 2009 07:17:15 -0000
@@ -1359,8 +1359,41 @@
# MouseWheel in main window:
bind .main <MouseWheel> {
- if {[expr -%D] < 0} { ::move::Back }
- if {[expr -%D] > 0} { ::move::Forward }
+ if {[expr -%D] < 0} {
+ if {[sc_pos isAt vstart]} { .main.fbutton.button.exitVar invoke
+ } else { ::move::Back }
+ }
+ set bMoveForward 0
+ if {[expr -%D] > 0} { set bMoveForward 1 }
+
+ if {$::showVarPopup == 0} {
+ set varList [sc_var list UCI]
+ if {$varList != ""} {
+ set color "blue"
+ set move [sc_game info nextMoveUCI]
+ if {$move != ""} {
+ set varList [linsert $varList 0 $move]
+ set color "green"
+ }
+
+ foreach { move } $varList {
+ set bDrawArrow 1
+ set sq_start [ ::board::sq [ string range $move 0 1 ] ]
+ set sq_end [ ::board::sq [ string range $move 2 3 ] ]
+ foreach mark $::board::_mark(.main.board) {
+ if { [lindex $mark 0] == "arrow" } {
+ if {[lindex $mark 1] == $sq_start && [lindex $mark
2] == $sq_end && [lindex $mark 3] == $color} { set bDrawArrow 0}
+ }
+ }
+ if {$bDrawArrow} {
+ set bMoveForward 0
+ ::board::mark::add ".main.board" "arrow" $sq_start
$sq_end $color
+ }
+ set color "blue"
+ }
+ }
+ }
+ if { $bMoveForward } {::move::Forward }
}
bind .main <Shift-MouseWheel> {
if {[expr -%D] < 0} { ::move::Back 10 }
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Scid-users mailing list
Scid-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/scid-users
