From: John Wiegley <johnw@newartisans.com>
Date: Wed, 10 Apr 2002 01:21:36 +0000 (+0000)
Subject: *** no comment ***
X-Git-Tag: chess.el/2.0.4~794
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/1531a6902ff493adce1d2fe29dfcddcfa9de0ef0

*** no comment ***
---

diff --git a/chess-display.el b/chess-display.el
index 92f25c7d7..4fe35de19 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -112,14 +112,6 @@
     (chess-display-update new-display t)
     new-display))
 
-(defun chess-display-destroy (display)
-  "Destroy a chess display object, killing all of its buffers."
-  (let ((buf (or display (current-buffer))))
-    (when (buffer-live-p buf)
-      (chess-display-event-handler (chess-display-game nil)
-				   buf 'destroy)
-      (kill-buffer buf))))
-
 (defsubst chess-display-style (display)
   (chess-with-current-buffer display
     chess-display-style))
@@ -328,6 +320,14 @@ that is supported by most displays, and is the default mode."
   (chess-with-current-buffer display
     (setq chess-display-no-popup t)))
 
+(defun chess-display-destroy (display)
+  "Destroy a chess display object, killing all of its buffers."
+  (let ((buf (or display (current-buffer))))
+    (when (buffer-live-p buf)
+      (chess-display-event-handler (chess-display-game nil)
+				   buf 'destroy)
+      (kill-buffer buf))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; Event handler
diff --git a/chess-engine.el b/chess-engine.el
index b4249fef4..0644ed204 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -81,7 +81,7 @@
 
      ((eq event 'pass)
       (if (and (chess-game-get-data (chess-engine-game nil) 'active)
-	       (= (chess-game-index game) 0))
+	       (= (chess-game-index (chess-engine-game nil)) 0))
 	  (message "Your opponent has passed the first move to you"))
       t)
 
diff --git a/chess-images.el b/chess-images.el
index 6a202d570..3c7bae0a5 100644
--- a/chess-images.el
+++ b/chess-images.el
@@ -280,14 +280,8 @@ Common modes are:
 	    (setq chess-images-size (car sizes)
 		  chess-images-cache nil
 		  sizes nil)
-	    (chess-images-draw)
-	    (if chess-images-separate-frame
-		(let* ((size (float (+ (* (or chess-images-border-width 0) 8)
-				       (* chess-images-size 8))))
-		       (max-char-height (ceiling (/ size (frame-char-height))))
-		       (max-char-width  (ceiling (/ size (frame-char-width)))))
-		  (set-frame-size (selected-frame) max-char-width
-				  (+ max-char-height 2)))))
+	    ;; jww (2002-04-09): need to create a new frame here!
+	    (chess-display-update nil))
 	(setq sizes (cdr sizes))))))
 
 (defun chess-images-increase-size ()