Hi every one.
I want to control on and off of check-button by clicking the button. but I can't it.
how do control it?
code point is _
(setf (value cbtn1) "ON")))) ;; <- I want control on and of.
in the my code.
Please help me.
This is the my code.
;;;;;; my code
;;; LTKでボタンを表示する
(ql:quickload :ltk)
;; my package (defpackage :ex4-05 (:use :common-lisp :common-lisp-user :ltk) (:export :main))
(in-package :ex4-05)
(defun main () (with-ltk () (let* ( (cbtn1 (make-instance 'check-button :text "check button1" :variable :cbtn1_val :onvalue :on :offvalue :off :command (lambda (value) (format t "check-button1:~A~%" value) )))
(cbtn2 (make-instance 'check-button :text "check button2"))
(cbtn3 (make-instance 'check-button :text "Close"))
(btn (make-instance 'button :text "check on!" :command (lambda ()
(setf (value cbtn1) "ON")))) ;; <- I want control on and of. ) (pack (list cbtn1 cbtn2 cbtn3) :side :top :fill :both :expand :yes) (pack btn :side :top :fill :both :expand :yes) )))
(main)
On Wed, May 30, 2018 at 07:11:33AM +0900, Kamuy Cikap wrote:
Hi every one.
Hello!
I would like to help you but the fact is that ltk seem have some problem on my system:
an example as simple as this:
----
;; my package
(require 'ltk)
(defpackage :test (:use :common-lisp :ltk) (:export :main))
(in-package :test)
(defun main () (with-ltk () (let ((b (make-instance 'button :text "Hi!"))) (pack b))))
(main)
----
Launch an exception:
"When reading from tcl, expected a list but instead got FONTCONFIG"
i am using tk 8.6.0+9 on debian testing.
Not sure if it is my fault or not, someone got the same problem?
Bye! C.
On Wed, May 30, 2018 at 06:25:18PM +0200, cage wrote:
Hello!
I would like to help you but the fact is that ltk seem have some problem on my system:
an example as simple as this:
;; my package
(require 'ltk)
(defpackage :test (:use :common-lisp :ltk) (:export :main))
(in-package :test)
(defun main () (with-ltk () (let ((b (make-instance 'button :text "Hi!"))) (pack b))))
(main)
Launch an exception:
"When reading from tcl, expected a list but instead got FONTCONFIG"
After an investigation seems the problem was related to this line:
https://github.com/herth/ltk/blob/master/ltk/ltk.lisp#L464
The standard error from child process (wish) is captured and parsed from the parent process (lisp/ltk system); on my system (computer, not lisp system :-)) the program "fontconfig" complains about some missing configuration file, the actual message is:
"Fontconfig error: failed reading config file"
ltk try to parse this string and, of couse fails and this signal a condition.
My workaround has been change the line 464 of ltk.lisp:
#+:sbcl (let ((proc (sb-ext:run-program program args :input :stream :output :stream :wait wt :search t)))
with:
#+:sbcl (let ((proc (sb-ext:run-program program args :input :stream :output :stream :error nil :wait wt :search t)))
i.e. adding ":error nil"
This remove the problem but i am not sure this is a proper solution. I kindly ask the maintainer if he could check this issue.
Thanks in advance. C.
On Wed, 30 May 2018 07:11:33 +0900, Kamuy Cikap kamuycikap2016@gmail.com wrote:
Hi every one.
I want to control on and off of check-button by clicking the button. but I can't it.
how do control it?
..snip
(cbtn1 (make-instance 'check-button :text "check button1" :variable :cbtn1_val
LTK assumes that you do not change the :variable parameter, so this will prevent SETF from working. You can either directly set the global variable you have specified, or just use the default value for :variable.
-
cage -
Jason Miller -
Kamuy Cikap