- fixed little bug in write-bitmap-file.

2002-01-28 00:17:30 +00:00 · 2002-01-28 00:17:30 +00:00 · 689134ea02
parent 7c9aac7f17
commit 689134ea02
1 changed files with 1 additions and 1 deletions
--- a/scheme/xlib/pixmap.scm
+++ b/scheme/xlib/pixmap.scm
@ -72,7 +72,7 @@
 	(xy-hot (cond
 		 ((null? hotspot) (cons -1 -1))
 		 (else (car hotspot)))))
-    (%write-bitmap-file dpy filename pixmap width height 
+    (%write-bitmap-file dpy filename (pixmap-Xpixmap pixmap) width height 
 			(car xy-hot) (cdr xy-hot))))

 (import-lambda-definition %write-bitmap-file (Xdisplay file Xpixmap w h x y)