CLIM mail archive

[Prev][Next][Index][Thread]

question about args to define-xxx-command





 Running Genera 8.1 and CLIM 1.0.  Compiler tells me:

 For CLIM Presentation Translator
 pt-design-unit-to-com-connect-translator
  CLIM Presentation Translator
  pt-design-unit-to-com-connect-translator is defined twice in the
  file NETWORK-DESIGN-CLIM:NETWORK-DESIGN-CLIM;PROGRAM-FRAMEWORK.

(define-network-design-command (com-connect :name "Connect" :menu nil)
    ((du1 'pt-design-unit :gesture :select)
     (du2 'pt-design-unit :gesture :select))
  (pushnew (key du1) (connections du2))
  (pushnew (key du2) (connections du1))
  (audit "~&~a is now connected to ~a" (key du1) (key du2)))
 
 I suppose the two ":gesture :selects" are causing it ("causing" that
 is in the macro expansion where the translators get defined).  How
 should this be defined instead?

 -brent

----------------------------------------------------------------------
Brent Neal Reeves       brentr@cs.colorado.edu          (303) 492-1218
		       "visualize whirled peas"


Follow-Ups:

Main Index | Thread Index