X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/9c7271c1a4c2b676f027dfacc2fe0daca7dd3759..bc9997e8b1481825836c664d0f6e4de9d7a9081f:/gdk/gdk.lisp

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index a42f432..305b2f4 100644
--- 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