--- Gtk2-GoBoard/GoBoard.pm	2008/06/27 13:08:06	1.10
+++ Gtk2-GoBoard/GoBoard.pm	2008/07/28 18:33:24	1.11
@@ -521,14 +521,14 @@
       }
 
       # then the small stones (always using the first image)
-      for ([MARK_SMALL_B, $black_img[0]],
-           [MARK_SMALL_W, $white_img[0]]) {
-         my ($mask, $img) = @$_;
+      for ([MARK_SMALL_B, $mark & MARK_GRAYED ? 106 : 255, $black_img[0]],
+           [MARK_SMALL_W, $mark & MARK_GRAYED ? 190 : 255,$white_img[0]]) {
+         my ($mask, $alpha, $img) = @$_;
          if ($mark & $mask) {
             $img->composite (
                $base, ($size / 4) x2, (ceil $size / 2 + 1) x2, ($size / 4) x2,
                $size / $img->get_width / 2, $size / $img->get_height / 2,
-               'bilinear', 255
+               'bilinear', $alpha
             );
          }
       }