Bug#449590: gnome-games: patch

[Eric Cooper]

Package: gnome-games
Version: 1:2.24.2-1
Followup-For: Bug #449590

Here is a patch to fix this problem.

-- System Information:
Debian Release: lenny/sid
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'stable'), (400, 'unstable'), (1, 'experimental')
Architecture: i386 (i686)

Kernel: Linux 2.6.26-1-686 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages gnome-games depends on:
ii  crafty                 20.14-1           state-of-the-art chess engine, com
ii  ggzcore-bin            0.0.14.1-1        GGZ Gaming Zone: various command-l
ii  gnome-games-data       1:2.24.2-1        data files for the GNOME games
ii  gnuchess               5.07-4.1          Plays a game of chess, either agai
ii  gstreamer0.10-plugins- 0.10.19-2         GStreamer plugins from the "base" 
ii  guile-1.8-libs         1.8.5+1-4         Main Guile libraries
ii  libatk1.0-0            1.22.0-1          The ATK accessibility toolkit
ii  libc6                  2.7-16            GNU C Library: Shared libraries
ii  libcairo2              1.6.4-6.1         The Cairo 2D vector graphics libra
ii  libgcc1                1:4.3.2-1         GCC support library
ii  libgconf2-4            2.22.0-1          GNOME configuration database syste
ii  libggz2                0.0.14.1-1        GGZ Gaming Zone: common utilities 
ii  libggzcore9            0.0.14.1-1        GGZ Gaming Zone: core client front
ii  libggzmod4             0.0.14.1-1        GGZ Gaming Zone: game frontend lib
ii  libglib2.0-0           2.16.6-1          The GLib library of C routines
ii  libgnome2-0            2.20.1.1-1        The GNOME 2 library - runtime file
ii  libgnomeui-0           2.20.1.1-2        The GNOME 2 libraries (User Interf
ii  libgnomevfs2-0         1:2.22.0-5        GNOME Virtual File System (runtime
ii  libgstreamer0.10-0     0.10.19-3         Core GStreamer libraries and eleme
ii  libgtk2.0-0            2.12.11-4         The GTK+ graphical user interface 
ii  libpango1.0-0          1.20.5-3          Layout and rendering of internatio
ii  librsvg2-2             2.22.2-2          SAX-based renderer library for SVG
ii  librsvg2-common        2.22.2-2          SAX-based renderer library for SVG
ii  libstdc++6             4.3.2-1           The GNU Standard C++ Library v3
ii  libx11-6               2:1.1.5-2         X11 client-side library
ii  libxml2                2.6.32.dfsg-5     GNOME XML library
ii  python                 2.5.2-3           An interactive high-level object-o
ii  python-glade2          2.12.1-6          GTK+ bindings: Glade support
ii  python-gnome2          2.22.0-1          Python bindings for the GNOME desk
ii  python-gnome2-desktop  2.22.0-2          Python bindings for the GNOME desk
ii  python-gtk2            2.12.1-6          Python bindings for the GTK+ widge
ii  zlib1g                 1:1.2.3.3.dfsg-12 compression library - runtime

Versions of packages gnome-games recommends:
ii  gnome-games-extra-data        2.22.0-1   games for the GNOME desktop (extra
pn  gvfs                          <none>     (no description available)

Versions of packages gnome-games suggests:
pn  gnome-hearts                  <none>     (no description available)

-- no debconf information
-------------- next part --------------
--- spider.scm~	2008-11-24 10:15:16.000000000 -0500
+++ spider.scm	2008-12-07 16:52:55.000000000 -0500
@@ -168,11 +168,18 @@
   (and (droppable? start-slot card-list end-slot)
        (complete-transaction start-slot card-list end-slot)))
 
+(define (any-slot-with-more-than-one-card? slots)
+  (if (eq? slots '())
+      #f
+      (or (> (length (get-cards (car slots))) 1)
+          (any-slot-with-more-than-one-card? (cdr slots)))))
+
 (define (button-clicked slot)
   (and (= stock slot)
        (not (empty-slot? stock))
        (if (and (not allow-empty-slots)
-                (any-slot-empty? tableau))
+                (any-slot-empty? tableau)
+                (any-slot-with-more-than-one-card? tableau))
 	   (begin
              (set-statusbar-message (_"Please fill in empty pile first."))
              #f)