Retrieve root window the correct way

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index a42f432ba475a11b4d7ca3f132cc1b91d743e77d..305b2f4599bf08e414fc86d8b483f2ab6f518021 100644 (file)
--- a/gdk/gdk.lisp
+++ b/gdk/gdk.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-;; $Id: gdk.lisp,v 1.7 2001-10-21 23:02:40 espen Exp $
+;; $Id: gdk.lisp,v 1.8 2004-10-28 09:28:25 espen Exp $
 
 
 (in-package "GDK")
@@ -271,8 +271,12 @@ (defbinding window-get-pointer () window
   (y int :out)
   (mask modifier-type :out))
 
-(defbinding get-root-window () window)
+(defbinding %get-default-root-window () window)
 
+(defun get-root-window (%optional display)
+  (if display
+      (error "Not implemented")
+    (%get-default-root-window)))
 
 
 ;;
@@ -312,7 +316,7 @@ (defbinding %cursor-unref () nil
 
 
 ;;; Pixmaps
-#|
+
 (defbinding pixmap-new (width height depth &key window) pixmap
   (width int)
   (height int)
@@ -345,10 +349,10 @@ (defun pixmap-create (source &key color window colormap)
            window colormap color (namestring (truename source))))
          ((vector string)
           (%pixmap-colormap-create-from-xpm-d window colormap color source)))
-      (unreference-instance pixmap)
-      (unreference-instance mask)
+;;       (unreference-instance pixmap)
+;;       (unreference-instance mask)
       (values pixmap mask))))
-|#  
+
 
 
 ;;; Color