From Greg Bennett running sbcl
1.4.11 (64bit) under linux mint 18.1 (64bit)
and using mcclim-2019-0202-git, as far as I can tell.
I'm trying to learn how to add and remove menus from an existing
menubar
which I presume is done through its associated command-table. In
the interests of
completeness I include the contents of the example file. If this
is a silly thing to do,
let me know.
From that git, I'm using the file Examples/menutest.lisp as a
basis for experiments with menus,
menubars, adding and removing menus.
;; START File contents of Examples/menutest.lisp
;;; (c) copyright 2000 by
;;; Robert Strandh (
robert.strandh@gmail.com)
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
;;; License as published by the Free Software Foundation; either
;;; version 2 of the License, or (at your option) any later
version.
;;;
;;; This library is distributed in the hope that it will be
useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU
;;; Library General Public License for more details.
;;;
;;; You should have received a copy of the GNU Library General
Public
;;; License along with this library; if not, write to the
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
(defpackage #:menutest
(:use :clim :clim-extensions :clim-lisp)
(:export #:menutest))
(in-package #:menutest)
(define-application-frame menutest ()
()
(:menu-bar menubar-command-table)
(:panes
(screen :application
:display-time nil
:text-style (make-text-style :sans-serif :roman
:normal)))
(:layouts
(defaults (vertically () screen))))
(define-menutest-command com-file ()
(format
*standard-output* "You pressed the File
button.~%")
(finish-output
*standard-output*))
(define-menutest-command com-hello ()
(format
*standard-output* "You pressed the Hello
button.~%")
(finish-output
*standard-output*))
(define-menutest-command com-hi ()
(format
*standard-output* "You pressed the Hi
button.~%")
(finish-output
*standard-output*))
(make-command-table 'buffer-command-table
:errorp nil
:menu '(("Hello there" :command com-hello)
("Hi there" :command com-hi)))
(make-command-table 'menubar-command-table
:errorp nil
:menu '(("Buffer" :menu buffer-command-table)
("File" :command com-file)))
;; END file contents
Inside the package menutest, I added this form:
(defun run-menutest (thread-name)
(flet ((run ()
(let ((frame (make-application-frame 'menutest)))
(run-frame-top-level frame))))
(sb-thread::make-thread #'run :name thread-name)))
so that I can create the frame and keep the listener.
With Daniel's help I can see what is on the command-table:
(let (foo)
(map-over-command-table-commands
(lambda (elt) (push elt foo))
(frame-command-table (find-application-frame 'menutest)))
;; from CLIM 2 P201 [f-c-t], P178 [f-a-f] 'menutest
;;; from define application-frame itself
(nreverse foo))
;; ->
(COM-FILE COM-HELLO COM-HI CLIM-INTERNALS::COM-NULL-COMMAND
CLIM-INTERNALS::COM-HELP CLIM-INTERNALS::COM-DESCRIBE
CLIM-INTERNALS::COM-DESCRIBE-PRESENTATION
CLIM-TAB-LAYOUT:COM-SWITCH-TO-TAB-PAGE
CLIM-TAB-LAYOUT:COM-REMOVE-TAB-PAGE)
And I seem to be able to add a command:
(define-menutest-command com-RWO ()
(format *standard-output* "Fearless Leader~%")
(finish-output *standard-output*))
;; followed by [CLIM2.2 P219]
(add-menu-item-to-command-table
(frame-command-table (find-application-frame 'menutest))
"RWO"
:command
(cons 'COM-RWO (list ())))
;; -> NIL
;; Does NIL indicate something is wrong, I wonder ?
;; Rerun (let ..)
(COM-FILE COM-HELLO COM-HI COM-RWO
CLIM-INTERNALS::COM-NULL-COMMAND
CLIM-INTERNALS::COM-HELP CLIM-INTERNALS::COM-DESCRIBE
CLIM-INTERNALS::COM-DESCRIBE-PRESENTATION
CLIM-TAB-LAYOUT:COM-SWITCH-TO-TAB-PAGE
CLIM-TAB-LAYOUT:COM-REMOVE-TAB-PAGE)
;;; and there it seems to be.
I had hoped that the application-frame would now show RWO.
Do I have to explicitly redisplay the items of the frame's
menubar, perhaps ?
My attempts to use (display-command-table-menu ..) each yield a
no applicable method error.
I would appreciate pointers to what I am still missing in
exploring command-tables.
Cheers /Greg Bennett