CLIM mail archive


command completion

    Date: Fri, 23 Oct 1992 14:26+0100


    I have some problems with command completion

    In an earlier version of my program I`ve done something like

    (define-application-frame  name ()
      (:panes (...
	       (command-pane :command-menu)
	       (:interactor-pane :interactor
      (:command-definer t)))

    when I then defined a command like

    (define-name-command (com-show-object :name "show object)

    I had the possibility to start that command by typing

    s<space>o<space><return> in the interactor.

    In the relevant version I have multiple command-tables.

    I tried two ways
    1.) I make the command table of my application inherit all the commands of my command-tables
	by using 
       (define-application-frame  name ()
	 (:command-table (ct :inherit-from '(a s d...)))
The quote above is incorrect.
	 (:panes (...))

    2.)I add all the menu-items from my command-tables to the relevant command-table
       by using add-menu-item-to-command-table for each command of each command-table
You should distinguish between menu items and command line names.
Please look up documentation for add-command-to-command-table.

    all works fine, except of the completion in my interactor pane.

    Have I missed something or do I something wrong?

I guess you did something wrong, please compare your code to the
following simple example.

;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: CLIM-USER -*-

(in-package :clim-user)

(define-command-table a)

(define-application-frame Dummy-Application ()
  (:panes ((workspace :application)
	   (command-line :interactor)
	   (command-menu :command-menu)))
  (:layout ((dummy-1
	      (:column 1
	       (workspace .7)
	       (:row :rest
		 (command-line .7)
		 (command-menu :rest))))))
  (:command-table (ct :inherit-from (a)))
  (:command-definer T))

(define-command (com-test-beep :menu T :name T :COMMAND-TABLE A)

(define-DUMMY-APPLICATION-command (com-foo :menu T :name T)

(define-genera-application Dummy-Application :select-key #\!)

Markus Fischer, MF@SGER.UUCP              Mergenthalerallee 77-81
Consulting Services                       W-6236 Eschborn, Germany
Symbolics Systemhaus GmbH                 Phone: +49 6196 47220, Fax 481116

Main Index | Thread Index