execute-frame-command

• To: clim@BBN.COM
• Subject: execute-frame-command
• From: Massimo Paolucci <paolucci+@pitt.edu>
• Date: Thu, 16 Dec 1993 17:15:54 -0500 (EST)
• Cc: Daniel D Suthers <suthers+@pitt.edu>

CLIM1.1

I defined a command 

(define-belvedere-frame-command (INSERT-TEXT)
    ((display-record 'media-instance))
  (when display-record
    (add-text display-record)))


and I want to call this command from a method in a generic function 


(defgeneric  select-object (picture)
  (:method ((picture kb:graphic-object))
	   ...)
  ;;
  ;; **** HERE IS THE IMPORTANT PART
  (:method ((icon add-text-icon))
	   (clim:execute-frame-command clim:*application-frame* 'insert-text))
  ;;
  (:method ((icon pallette-icon))
	   ....)
  (:method ((icon COLOR-ICON))
	   ...)
  (:method ((anythingelse t))
	   ()))

I had the following error

>>Error: #<Unknown-Object -1B1EEF75> is not coercible to a procedure to
funcall or apply

(METHOD CLIM:EXECUTE-FRAME-COMMAND (CLIM:APPLICATION-FRAME T)):
   Required arg 0 (FRAME): CLIM:*APPLICATION-FRAME*
   Required arg 1 (COMMAND): #<Belvedere-Frame #X11E72CA6>
:C  0: Supply a new function
:A  1: Return to Belvedere: Document-2 command level
    2: Belvedere: Document-2 top level
    3: Exit Belvedere: Document-2
    4: Kill process #<Process Belvedere: Document-2 11E8ABE6>
    5: Restart process #<Process Belvedere: Document-2 11E8ABE6>
-> 


How clim:execute-frame-command is used?

Thank

- Massimo

• execute-frame-command
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: Re: Motif menu-bar behavior.
• Next: execute-frame-command
• Index: CLIM Mailing list (1-Jan-93 to 31-May-94)
• Thread: CLIM Mailing list Index (1-Jan-93 to 31-May-94)