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)
