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

native scx xpm method

This commit is contained in:
Johan Ceuppens 2012-01-16 22:19:37 +00:00
parent 8d16074a67
commit b87531989a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/scgame/scgame.scm
View File

@ -132,6 +132,9 @@
(define (load-xpm-image-native filename) (define (load-xpm-image-native filename)
(xputxpm filename)) (xputxpm filename))
(define (load-xpm-image-scx filename)
(read-file-to-pixmap win filename '()));;FIXME xpm-attributes == '()
(define (load-xpm-image filename) (define (load-xpm-image filename)
(let ((in (open-input-file filename)) (let ((in (open-input-file filename))
(colorcharsdictionary (make-color-dictionary 8)) ;; (colorcharsdictionary (make-color-dictionary 8)) ;;