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 ;; ----------------------------------------------------------------------------