Re: Getting the Application's name

[seth@aic.hrl.hac.com]

Thanks. Here's the code for modifying the listener title:

(defmethod initialize-instance :around ((view listener) &rest plist)
  (apply #'call-next-method view plist)
  (set-window-title view (concatenate 'string
                                      (%get-string (%int-to-ptr #$curapname))
                                      " Listener")))

  At 10:07 AM 6/24/94 -0700, seth@aic.hrl.hac.com wrote:
  >Is there a way to find out the name of the image file that MCL is run
  >from? I'd like to change the Listener window to reflect the
  >application name (very useful when comparing two versions of the same
  >application).

  (%get-string (%int-to-ptr #$curapname))