--- ../scidcvs.git/tcl/edit.tcl	2009-03-28 16:40:11.000000000 -0500
+++ ./tcl/edit.tcl	2009-07-15 01:18:54.000000000 -0500
@@ -353,8 +353,8 @@
   
   foreach i {p n b r q k} {
     foreach color {w b} value "[string toupper $i] $i" {
-      radiobutton $sl.$color.$i -image $color$i$setupboardSize -indicatoron 0 \
-          -variable pastePiece -value $value -activebackground $highcolor
+      ttk::radiobutton $sl.$color.$i -image $color$i$setupboardSize \
+          -variable pastePiece -value $value
       # -relief raised -activebackground grey75 -selectcolor rosybrown
       pack $sl.$color.$i -side left ;# -expand yes -fill x -padx 5
     }