Hi. cage and everyone. Thanks a lot to your e-mail. but.... I found menucheckbutton in ltk.lisp. It was on line 2020 in ltk.lisp. I do not found how to write code "menucheckbutton". Please tell me code of lisp. this is a my sample code. ---------------- ;;; LTK Menu Test (ql:quickload :ltk) ;; Make Package (defpackage :ex4-18 (:use :common-lisp :common-lisp-user :ltk) (:export :main)) (in-package :ex4-18) (defun main () (with-ltk () (wm-title *tk* "Menu sample") (minsize *tk* 600 500) (let* ( ;; Make menu bar (mb (make-menubar)) ;;Menu Type (mshurui (make-menu mb "Type" )) (mf-command (make-menubutton mshurui "Command" (lambda () ;(error "asdf") (format t "Command pressed~&") (finish-output)) :underline 1)) ;; This is the My Point1. I want to make checkbutton. but now menubutton. (mf-checkbtn (make-menubutton mshurui "Checkbutton" (lambda () ;(error "asdf") (format t "Checkbutton pressed~&") (finish-output)) :underline 1)) (sep1 (add-separator mshurui)) ;; This is the My Point2. I want to make radiobutton. but now menubutton. (mf-radiobtn1 (make-menubutton mshurui "RadioButton1" (lambda () ;(error "asdf") (format t "RadioButton1 pressed~&") (finish-output)) :underline 1)) (mf-radiobtn2 (make-menubutton mshurui "RadioButton2" (lambda () ;(error "asdf") (format t "RadioButton2 pressed~&") (finish-output)) :underline 1)) (mf-radiobtn3 (make-menubutton mshurui "RadioButton3" (lambda () ;(error "asdf") (format t "RadioButton3 pressed~&") (finish-output)) :underline 1)) (sep2 (add-separator mshurui)) (mf-export (make-menu mshurui "Cascade")) (mfe-jpg (make-menubutton mf-export "Cmd1" (lambda () (format t "cmd1 pressed~&") (finish-output)))) (mfe-gif (make-menubutton mf-export "Cmd2" (lambda () (format t "cmd2 pressed~&") (finish-output)))) (sep3 (add-separator mshurui)) (mf-close (make-menubutton mshurui "Close" (lambda () ;(error "asdf") (format t "Close pressed~&") (setf *exit-mainloop* t) (finish-output)) :underline 1)) (msg (make-instance 'message :text "This is the Ltk MenuBar test." :width 1000 :background "#FFFFFF")) (b1 (make-instance 'button :text "Close" :command (lambda () (format t "Close") (setf *exit-mainloop* t))))) (pack msg :side :top :fill :x) ; (pack b1 :side :bottom :fill :x) ))) (main) 2018-07-18 23:53 GMT+09:00 cage <cage@twistfold.it>:

On Wed, Jul 18, 2018 at 08:58:49PM +0900, Kamuy Cikap wrote:

...

Hi everyone.

Hello!

...

I have a question.

There is check button and radio button in Tcl/Tk8.4 in menu. is there check button and radio button in menu widget of LTK?

[...]

Ltk exports :menucheckbutton and :menuradiobutton. Maybe this is what you are looking for.

Bye! C.