2008/05/06

[Common Lisp] McCLIM で日本語表示できた

mcclim/Experimental/freetype/mcclim-freetype.asd を require したら日本語表示できた♪

(eval-when (:compile-toplevel :load-toplevel :execute)
(require :mcclim)
(require :mcclim-freetype))

(in-package :clim-user)

(define-application-frame hello-frame ()
()
(:pane (make-pane 'application-pane :display-function #'display-hello))
(:geometry :width 400 :height 200))

(defmethod display-hello ((hello-frame hello-frame) stream)
(format stream "こんにちは! Hello World! 日本語だ!"))

(defun run ()
(run-frame-top-level (make-application-frame 'hello-frame)))

;;(run)

0 件のコメント: