gnome-games r7672 - in branches/gnome-2-22/aisleriot: . rules
- From: chpe svn gnome org
- To: svn-commits-list gnome org
- Subject: gnome-games r7672 - in branches/gnome-2-22/aisleriot: . rules
- Date: Mon, 26 May 2008 18:00:10 +0000 (UTC)
Author: chpe
Date: Mon May 26 18:00:10 2008
New Revision: 7672
URL: http://svn.gnome.org/viewvc/gnome-games?rev=7672&view=rev
Log:
* rules/spider.scm: Don't crash on double click. Bug #443307, patch by
Vincent Povirk.
Modified:
branches/gnome-2-22/aisleriot/ChangeLog
branches/gnome-2-22/aisleriot/rules/spider.scm
Modified: branches/gnome-2-22/aisleriot/rules/spider.scm
==============================================================================
--- branches/gnome-2-22/aisleriot/rules/spider.scm (original)
+++ branches/gnome-2-22/aisleriot/rules/spider.scm Mon May 26 18:00:10 2008
@@ -192,7 +192,8 @@
(define (button-double-clicked slot)
(and (member slot tableau)
- (is-playable-stack (get-cards slot) (get-suit (get-cards slot)) 1)
+ (not (empty-slot? slot))
+ (is-playable-stack (get-cards slot) (get-suit (car (get-cards slot))) 1)
(let ((card-list (list-head (get-cards slot) 13)))
(remove-n-cards slot 13)
(complete-transaction slot card-list (find-empty-slot foundation)))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]