From baf43ea870b429f04f1bd7ff607d477cb5d9e03f Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Mon, 10 Apr 2006 18:39:31 +0000 Subject: [PATCH] Added binding to create font descriptions from strings Organization: Straylight/Edgeware From: espen --- pango/pango.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/pango/pango.lisp b/pango/pango.lisp index a972087..5904c35 100644 --- 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. -;; $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") @@ -35,4 +35,9 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (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)) + -- [mdw]