From 5df29686990334d699a6558d59b1e3bec102e3a7 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 20:21:58 +0000 Subject: *** no comment *** --- chess-display.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 3fe2023..eba1ce2 100644 --- a/chess-display.el +++ b/chess-display.el @@ -65,8 +65,14 @@ ,@body) ,@body))) -(defun chess-display-create (style perspective &optional read-only) - "Create a chess display, for displaying chess objects." +(defun chess-display-create (style perspective &optional main read-only) + "Create a chess display, for displaying chess objects. +The display is drawn using the given STYLE, from the PERSPECTIVE +color's point of view. If MAIN is non-nil, then this is a main +display, which means it will popup on significant events, and will +cause the underlying game object to be shutdown when it is destroyed. +If READ-ONLY is non-nil, then the display will not allow the user to +makes moves, or any other changes to the underlying game." (let* ((name (symbol-name style)) (handler (intern-soft (concat name "-handler")))) (unless handler @@ -77,6 +83,8 @@ (setq chess-display-style style chess-display-perspective perspective chess-display-event-handler handler) + (if main + (chess-display-set-main nil)) (add-hook 'kill-buffer-hook 'chess-display-quit nil t) (current-buffer)))) -- cgit v1.2.3