blob: 111059bd2037bdeb64e17cffc6e9af8000723e58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(in-package #:climi)
(flet ((load-icon (name)
(let* ((file-pathname #.(or *compile-file-pathname*
*load-pathname*))
(icon-pathname (merge-pathnames
(make-pathname :directory '(:relative "data" "icons")
:name name
:type "png"
:host nil
:device nil)
file-pathname)))
(make-pattern-from-bitmap-file icon-pathname :format :png))))
(unless *default-icon-large*
(setf *default-icon-large* (load-icon "mcclim-logo-round")))
(unless *default-icon-small*
(setf *default-icon-small* (load-icon "mcclim-logo-round-small"))))
|
