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.

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.

All seems to function as expected, so I tried to find out a little about what I had created:

(find-command-table 'menubar-command-table) ; -> #<STANDARD-COMMAND-TABLE MENUBAR-COMMAND-TABLE {10018D6A43}> ;; OK

(command-table-name (find-command-table 'menubar-command-table)) ;; ->MENUBAR-COMMAND-TABLE ;; possibly good

;;; Before trying to modify things, check which commands are there (map-over-command-table-commands #'command-name (find-command-table 'menubar-command-table)) ;;->

The value   CLIM-INTERNALS::COM-NULL-COMMAND is not of type   LIST

I would appreciate pointers to what I have missed so far in exploring command-tables.

Cheers /Greg Bennett