scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- fixed little bug in write-bitmap-file.

This commit is contained in:
frese 2002-01-28 00:17:30 +00:00
parent 7c9aac7f17
commit 689134ea02
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/xlib/pixmap.scm
View File

@ -72,7 +72,7 @@
(xy-hot (cond (xy-hot (cond
((null? hotspot) (cons -1 -1)) ((null? hotspot) (cons -1 -1))
(else (car hotspot))))) (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)))) (car xy-hot) (cdr xy-hot))))
(import-lambda-definition %write-bitmap-file (Xdisplay file Xpixmap w h x y) (import-lambda-definition %write-bitmap-file (Xdisplay file Xpixmap w h x y)