>
> Submitted:
> Nobody/Anonymous ( nobody ) - 2008-07-17 22:36:49 PDT
>
> Details:
> Show arrows for the last move when playing especially for the online play.
>
Here is some code which satisfies the Feature Request:
"Show arrows for the last move when playing - ID: 2021192"
http://sourceforge.net/tracker/?func=detail&aid=2021192&group_id=26963&atid=389083
tcl/board.tcl
proc ::board::lastMoveHighlight {w} {
$w.bd delete highlightLastMove
if { ! $::highlightLastMove } {return}
set moveuci [ sc_game info previousMoveUCI ]
if {[string length $moveuci] >= 4} {
set moveuci [ string range $moveuci 0 3 ]
set square1 [ ::board::sq [string range $moveuci 0 1 ] ]
set square2 [ ::board::sq [string range $moveuci 2 3 ] ]
::board::mark::DrawRectangle $w.bd $square1 $::highlightLastMoveColor
$::highlightLastMovePattern
::board::mark::DrawRectangle $w.bd $square2 $::highlightLastMoveColor
$::highlightLastMovePattern
+ if { ! $::arrowLastMove } {return}
+ ::board::mark::DrawArrow $w.bd $square1 $square2
$::highlightLastMoveColor
}
}
start.tcl
# Hightlight the last move played
+set arrowLastMove 0
set highlightLastMove 1
tcl/menus.tcl
+$m.entry.highlightlastmove add checkbutton -label
OptionsMovesHighlightLastMoveArrow -variable ::arrowLastMove -command
updateBoard
set helpMessage($m.entry,9) OptionsMovesHighlightLast
tcl/menus.tcl
foreach i {boardSize boardStyle language ::pgn::showColor \
::pgn::indentVars ::pgn::indentComments \
::pgn::shortHeader ::pgn::boldMainLine ::pgn::stripMarks \
::pgn::symbolicNags ::pgn::moveNumberSpaces ::pgn::columnFormat
myPlayerNames \
tree(order) tree(autoSave) optionsAutoSave
::tree::mask::recentMask \
ecoFile suggestMoves showVarPopup showVarArrows glistSize
glexport \
blunderThreshold autoplayDelay animateDelay boardCoords boardSTM
\
moveEntry(AutoExpand) moveEntry(Coord) \
- translatePieces highlightLastMove highlightLastMoveWidth
highlightLastMoveColor \
+ translatePieces arrowLastMove highlightLastMove
highlightLastMoveWidth highlightLastMoveColor \
tcl/menus.tcl
- foreach tag { Color Width Display } {
+ foreach tag { Color Width Display Arrow } {
configMenuText .menu.options.entry.highlightlastmove [tr
OptionsMovesHighlightLastMove$tag $oldLang]
OptionsMovesHighlightLastMove$tag $lang
}
tcl/lang/catalan.tcl
+menuText K OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/czech.tcl
+menuText C OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/deutsch.tcl
+menuText D OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/english.tcl
+menuText E OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/francais.tcl
+menuText F OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/greek.tcl
+menuText G OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/hungary.tcl
+menuText H OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/italian.tcl
+menuText I OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/nederlan.tcl
+menuText N OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/norsk.tcl
+menuText O OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/polish.tcl
+menuText P OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/portbr.tcl
+menuText B OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/russian.tcl
+menuText R OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/serbian.tcl
+menuText Y OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/spanish.tcl
+menuText S OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/suomi.tcl
+menuText U OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
tcl/lang/swedish.tcl
+menuText W OptionsMovesHighlightLastMoveArrow "include Arrow" 0 {Include
Arrow with Highlight}
*Mike
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_mar
_______________________________________________
Scid-users mailing list
Scid-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/scid-users
