anchor.diff:  	    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
  
positive.code:   (y int :out)
    (mask modifier-type :out))
  
  (defbinding get-root-window () window)
  
  
  
  ;;
  
negative.code: ;; 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.8 2004-10-28 09:28:25 espen Exp $
  
  
  (in-package "GDK")
  