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)