CLIM mail archive
[Prev][Next][Index][Thread]

command completion

    Date: Fri, 23 Oct 1992 14:26+0100
    From: rkoenig@fzi.de

    Hi,

    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 -*-

#-Genera
(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)
    ()
  (beep))

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

#+Genera
(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

0,,
Main Index | Thread Index