anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: gdk.lisp,v 1.44 2007-09-07 07:36:26 espen Exp $
  +;; $Id: gdk.lisp,v 1.45 2007-10-17 18:04:47 espen Exp $
   
   
   (in-package "GDK")
  
positive.code:     (cr cairo:context)
      (color color))
  
    (defbinding cairo-set-source-pixbuf () nil
      (cr cairo:context)
      (pixbuf pixbuf)
      (x double-float)
      (y double-float))
   
  
negative.code:   (depth int))
  
  (defmethod allocate-foreign ((pximap pixmap) &key width height depth window)
    (%pixmap-new window (or width (drawable-width window)) (or height (drawable-height window)) (or depth -1)))
  
  (defun pixmap-new (width height depth &key window)
    (warn "PIXMAP-NEW is deprecated, use (make-instance 'pixmap ...) instead")
  