chiark
/
gitweb
/
~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added binding to create font descriptions from strings
[clg]
/
pango
/
pango.lisp
diff --git
a/pango/pango.lisp
b/pango/pango.lisp
index a9720873a34887f88d72eac3f48a8e667afd442e..5904c3561e7708d8a24e3e26002b8c2f247886d7 100644
(file)
--- a/
pango/pango.lisp
+++ b/
pango/pango.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: pango.lisp,v 1.
9 2005/04/23 16:48:52
espen Exp $
+;; $Id: pango.lisp,v 1.
10 2006/04/10 18:39:31
espen Exp $
(in-package "PANGO")
(in-package "PANGO")
@@
-35,4
+35,9
@@
(eval-when (:compile-toplevel :load-toplevel :execute)
(pkg-config:pkg-variable "pango" "libdir")
"/libpangoft2-1.0.so") :prefix "pango_fc"))
(pkg-config:pkg-variable "pango" "libdir")
"/libpangoft2-1.0.so") :prefix "pango_fc"))
-(define-types-by-introspection "Pango")
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (define-types-by-introspection "Pango"))
+
+(defbinding font-description-from-string () font-description
+ (desc string))
+