[gnome-games] aisleriot: make template.scm actually work
- From: Vincent Povirk <vpovirk src gnome org>
- To: svn-commits-list gnome org
- Subject: [gnome-games] aisleriot: make template.scm actually work
- Date: Sun, 19 Apr 2009 17:56:27 -0400 (EDT)
commit 095cfd8ad2451e88993f75d10f4c0e4738d9dedc
Author: Vincent Povirk <madewokherd gmail com>
Date: Sun Apr 19 16:54:56 2009 -0500
aisleriot: make template.scm actually work
---
aisleriot/rules/template.scm | 10 ++++++++--
1 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/aisleriot/rules/template.scm b/aisleriot/rules/template.scm
index 41cb11c..4535387 100644
--- a/aisleriot/rules/template.scm
+++ b/aisleriot/rules/template.scm
@@ -18,13 +18,19 @@
(define (new-game)
(initialize-playing-area)
-)
+
+ (make-standard-deck)
+ (shuffle-deck)
+
+ (add-normal-slot DECK)
+
+ (list 1 1))
(define (button-pressed slot-id card-list)
#f)
;;; Not essential, see set-features below.
-(define (droppable)
+(define (droppable? start-slot card-list end-slot)
#f)
(define (button-released start-slot card-list end-slot)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]