[ltk-user] run-time error => Invalid initialization argument: :FONT

[haruichi yabuki]

Hi, ltk-users,

Sorry, I forgot to tell you the version of ltk that I use.
It is ltk-0.98.

--
haruichi yabuki <hyabuki at zb.ztv.ne.jp>

>Hi, ltk-users,
>
>I am very much troubled by the following situation.
>Can someone help me?
>
>The program below gives the error message at run-time:
>
>>  Invalid initialization argument:
>>    :FONT
>>  in call for class #<STANDARD-CLASS BUTTON>.
>>  See also:
>>    The ANSI Standard, Section 7.1.2
>>    [Condition of type INITARG-ERROR]
>
>The program is as follos:
>-------------------------------------------------------------
>(asdf:operate 'asdf:load-op :ltk :verbose nil)
>(defpackage :ltk-user
>  (:use :common-lisp :cl-user :ltk))
>(in-package :ltk-user)
>(with-ltk ()
>  (wm-title *tk* "an example of button")
>  (bind *tk* "<Alt-q>" (lambda (event) (setf *exit-mainloop* t)))
>  (let ((btn (make-instance 'button
>                            :master nil
>                            :text "BUTTON"
>                            :font "verdana 20"
>                            :command (lambda ()
>                                       (format t "the button is pushed.~%")
>                                       (setf *exit-mainloop* t)))))
>;    (configure btn :font "verdana 20")
>    (pack btn)))
>;; end
>-----------------------------------------------------------------
>(without the line
>    :font "verdana 20"
> the program works fine.)
>
> 
>My environement is as follows:
>OS:   Ubuntu 12.04
>$ sbcl --version
>SBCL 1.0.55.0.debian
>$ wish
>% puts $tcl_version
>8.5
>
>
>It seems to me that many options of tk give this kind of error messages
>everywhere in my 'wrong' programming environement! 
>The above is one of the simple examples.
>I would like to know how to fix the problem.
>Thank you in advance.
>--
>haruichi yabuki <hyabuki at zb.ztv.ne.jp>
>
>_______________________________________________
>ltk-user site list
>ltk-user at common-lisp.net
>http://common-lisp.net/mailman/listinfo/ltk-user