<div dir="ltr">Hi.<br>cage and everyone.<br>Thanks a lot to your e-mail.<br><br>but....<br><br>I found menucheckbutton in ltk.lisp.<br>It was on line 2020 in ltk.lisp.<br><br>I do not found how to write code "menucheckbutton".<br><br>Please tell me code of lisp.<br>this is a my sample code.<br><br>----------------<br>;;; LTK Menu Test<br><br>(ql:quickload :ltk)<br><br><br>;; Make Package<br>(defpackage :ex4-18<br>  (:use :common-lisp<br>        :common-lisp-user<br>        :ltk)<br>  (:export :main))<br><br>(in-package :ex4-18)<br><br>(defun main ()<br>  (with-ltk ()<br>    (wm-title *tk* "Menu sample")<br>    (minsize *tk* 600 500)<br><br>    (let* (<br>           ;; Make menu bar<br>           (mb (make-menubar))<br>           <br>           ;;Menu Type<br>           (mshurui (make-menu mb "Type" ))<br><br>           (mf-command (make-menubutton mshurui "Command"<br>                                        (lambda () ;(error "asdf")<br>                                          (format t "Command pressed~&")<br>                                          (finish-output))<br>                                        :underline 1))<br><br>           ;; This is the My Point1. I want to make checkbutton. but now menubutton.<br>           (mf-checkbtn (make-menubutton mshurui "Checkbutton"<br>                                        (lambda () ;(error "asdf")<br>                                          (format t "Checkbutton pressed~&")<br>                                          (finish-output))<br>                                        :underline 1))<br><br><br>           (sep1 (add-separator mshurui))<br>     <br>           ;; This is the My Point2. I want to make radiobutton. but now menubutton.<br>           (mf-radiobtn1 (make-menubutton mshurui "RadioButton1"<br>                                        (lambda () ;(error "asdf")<br>                                          (format t "RadioButton1 pressed~&")<br>                                          (finish-output))<br>                                        :underline 1))<br><br>           (mf-radiobtn2 (make-menubutton mshurui "RadioButton2"<br>                                        (lambda () ;(error "asdf")<br>                                          (format t "RadioButton2 pressed~&")<br>                                          (finish-output))<br>                                        :underline 1))<br><br>           (mf-radiobtn3 (make-menubutton mshurui "RadioButton3"<br>                                        (lambda () ;(error "asdf")<br>                                          (format t "RadioButton3 pressed~&")<br>                                          (finish-output))<br>                                        :underline 1))<br><br>           (sep2 (add-separator mshurui))<br><br>           (mf-export (make-menu mshurui "Cascade"))<br><br>           (mfe-jpg (make-menubutton mf-export "Cmd1" (lambda ()<br>                                                              (format t "cmd1 pressed~&")<br>                                                              (finish-output))))<br>           (mfe-gif (make-menubutton mf-export "Cmd2" (lambda ()<br>                                                              (format t "cmd2 pressed~&")<br>                                                              (finish-output))))<br><br>           (sep3 (add-separator mshurui))<br><br><br>           (mf-close (make-menubutton mshurui "Close"<br>                                        (lambda () ;(error "asdf")<br>                                          (format t "Close pressed~&")<br>                                          (setf *exit-mainloop* t)<br>                                          (finish-output))<br>                                        :underline 1))<br><br>           (msg (make-instance 'message<br>                               :text "This is the Ltk MenuBar test."<br>                 :width 1000<br>                 :background "#FFFFFF"))<br><br>           (b1 (make-instance<br>                'button<br>                :text "Close"<br>                :command (lambda ()<br>                           (format t "Close")<br>                           (setf *exit-mainloop* t)))))<br><br>      (pack msg<br>            :side :top<br>            :fill :x) ; <br><br>      (pack b1<br>            :side :bottom<br>            :fill :x) <br><br>      )))<br><br>(main)<br><br></div><div class="gmail_extra"><br><div class="gmail_quote">2018-07-18 23:53 GMT+09:00 cage <span dir="ltr"><<a href="mailto:cage@twistfold.it" target="_blank">cage@twistfold.it</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">On Wed, Jul 18, 2018 at 08:58:49PM +0900, Kamuy Cikap wrote:<br>
> Hi everyone.<br>
<br>
Hello!<br>
<span class=""><br>
> I have a question.<br>
><br>
> There is check button and radio button in Tcl/Tk8.4 in menu.<br>
> is there check button and radio button in menu widget of LTK?<br>
<br>
</span>[...]<br>
<br>
Ltk exports :menucheckbutton and  :menuradiobutton. Maybe this is what<br>
you are looking for.<br>
<br>
Bye!<br>
<span class="HOEnZb"><font color="#888888">C.<br>
<br>
</font></span></blockquote></div><br></div>