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.