native scx xpm method

2012-01-16 22:19:37 +00:00 · 2012-01-16 22:19:37 +00:00 · b87531989a
parent 8d16074a67
commit b87531989a
1 changed files with 3 additions and 0 deletions
--- a/scsh/scgame/scgame.scm
+++ b/scsh/scgame/scgame.scm
@ -132,6 +132,9 @@
    (define (load-xpm-image-native filename)
      (xputxpm filename))

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