menu of ltk

[Kamuy Cikap]

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 at 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.
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ltk-user/attachments/20180721/1bf3a55f/attachment.html>