<div dir="ltr">Hi every one.<br><br>I want to control on and off of check-button by clicking the button.<br>but I can't it.<br><br>how do control it?<br><br><br>code point is _<br><br>(setf (value cbtn1) "ON")))) ;; <- I want control on and of.<br><br>in the my code.<br><br><br><br>Please help me.<br><br>This is the my code.<br><br>;;;;;; my code<br><br>;;; LTKでボタンを表示する<br><br>(ql:quickload :ltk)<br><br><br>;; my package<br>(defpackage :ex4-05<br>  (:use :common-lisp<br>        :common-lisp-user<br>        :ltk)<br>  (:export :main))<br><br>(in-package :ex4-05)<br><br>(defun main ()<br>  (with-ltk ()<br>    (let* (<br>           (cbtn1 (make-instance<br>                'check-button<br>                :text "check button1"<br>                :variable :cbtn1_val<br>                :onvalue :on<br>                :offvalue :off<br>                :command (lambda (value)<br>                           (format t "check-button1:~A~%" value)<br>                           )))<br><br>           (cbtn2 (make-instance<br>                'check-button<br>                :text "check button2"))<br><br>           (cbtn3 (make-instance<br>                'check-button<br>                :text "Close"))<br><br>           (btn (make-instance<br>                 'button<br>                 :text "check on!"<br>                 :command (lambda ()<br><br>                            (setf (value cbtn1) "ON")))) ;; <- I want control on and of.<br>           )<br>      (pack (list cbtn1 cbtn2 cbtn3) :side :top :fill :both :expand :yes)<br>      (pack btn :side :top :fill :both :expand :yes)<br>      )))<br><br>(main)<br><br><br><br><br><br><br><br></div>