[cello-cvs] CVS cello/cl-ftgl

[fgoenninger]

Update of /project/cello/cvsroot/cello/cl-ftgl
In directory clnet:/tmp/cvs-serv12498

Modified Files:
	cl-ftgl.lisp 
Log Message:
Added: function FTGL-FORMAT: FORMAT for FTGL strings

--- /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/09/05 18:43:56	1.13
+++ /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/09/17 22:39:20	1.14
@@ -20,7 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.13 2006/09/05 18:43:56 ktilton Exp $
+;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.14 2006/09/17 22:39:20 fgoenninger Exp $
 
 (eval-when (:compile-toplevel :load-toplevel)
   (pushnew :cl-ftgl *features*))
@@ -46,7 +46,7 @@
     #:xftgl 
     #:ftgl-render
     #:ftgl-font-ensure
-    #:*ftgl-dynamic-lib-path*
+    #:ftgl-format    
     #:*font-directory-path*
     #:*gui-style-default-face*
     #:*gui-style-button-face*
@@ -121,6 +121,9 @@
 	        ;;(format t "~%*** FIND-FONT-FILE: Result = ~A~%" pn)
 	        (return-from pn-loop pn)))))))
 
+(defun ftgl-format (font control-string &rest args)
+  (ftgl-render font (apply 'format nil control-string args)))
+
 ;; ----------------------------------------------------------------------------
 ;; FOREIGN FUNCTION INTERFACE
 ;; ----------------------------------------------------------------------------