[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv2123/Apps/Listener

Modified Files:
	icons.lisp 
Log Message:
Explicitly provide a :port nil argument to
make-pattern-from-bitmap-file so that no port thread will be started
by the Listener at load-time.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/icons.lisp	2008/04/14 16:46:28	1.8
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/icons.lisp	2008/04/18 11:46:40	1.9
@@ -35,7 +35,8 @@
 (defmacro deficon (var pathname)
   `(eval-when (:load-toplevel :execute)
      (defparameter ,var (make-pattern-from-bitmap-file
-                         ,(merge-pathnames pathname *icon-path*) :format :xpm))))
+                         ,(merge-pathnames pathname *icon-path*)
+                         :format :xpm :port nil))))
 
 (defvar *icon-cache* (make-hash-table  :test #'equal))
 
@@ -46,7 +47,7 @@
             (make-pattern-from-bitmap-file
              (merge-pathnames (parse-namestring filename)
                               *icon-path*)
-             :format :xpm))))
+             :format :xpm :port nil))))
 
 ;; Don't particularly need these any more..
 (deficon *folder-icon*   #P"folder.xpm")