[graphic-forms-cvs] r217 - in trunk/src/uitoolkit/graphics/plugins: default imagemagick

[junrue at common-lisp.net]

Author: junrue
Date: Sun Aug 13 23:15:27 2006
New Revision: 217

Modified:
   trunk/src/uitoolkit/graphics/plugins/default/default-data-plugin.lisp
   trunk/src/uitoolkit/graphics/plugins/imagemagick/magick-data-plugin.lisp
Log:
fixed graphics plugin lookup by extension to be case-insensitive

Modified: trunk/src/uitoolkit/graphics/plugins/default/default-data-plugin.lisp
==============================================================================
--- trunk/src/uitoolkit/graphics/plugins/default/default-data-plugin.lisp	(original)
+++ trunk/src/uitoolkit/graphics/plugins/default/default-data-plugin.lisp	Sun Aug 13 23:15:27 2006
@@ -104,7 +104,7 @@
                    (load-bmp-data stream t t)))))
 
 (defun loader (path)
-  (let* ((file-type (pathname-type path))
+  (let* ((file-type (string-downcase (pathname-type path)))
          (helper (cond
                    ((string-equal file-type "bmp") #'load-bmp-data)
                    ((string-equal file-type "ico") #'load-icon-data)

Modified: trunk/src/uitoolkit/graphics/plugins/imagemagick/magick-data-plugin.lisp
==============================================================================
--- trunk/src/uitoolkit/graphics/plugins/imagemagick/magick-data-plugin.lisp	(original)
+++ trunk/src/uitoolkit/graphics/plugins/imagemagick/magick-data-plugin.lisp	Sun Aug 13 23:15:27 2006
@@ -40,7 +40,7 @@
   (unless *magick-initialized*
     (initialize-magick (cffi:null-pointer))
     (setf *magick-initialized* t))
-  (if (gethash (pathname-type path) gfg:*image-file-types*)
+  (if (gethash (string-downcase (pathname-type path)) gfg:*image-file-types*)
     (with-image-path ((if (typep path 'pathname) (namestring path) path) info ex)
       (let ((images-ptr (read-image info ex)))
         (if (not (eql (cffi:foreign-slot-value ex 'exception-info 'severity) :undefined))