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