LispWorks CAPI User Guide > 9 Defining Interface Classes


9.5 Controlling the interface title

You can add dynamic control of window titles using the functions illustrated in the section.

Firstly we add a counter to the title of new demo windows:

(defvar *demo-title-counter* 0)
(defmethod capi:interface-extend-title ((self demo) title)
  (format nil "~A - ~D"
          (incf *demo-title-counter*)))
(capi:display (make-instance 'demo))

Then we specify common prefix for all interface window titles:

 :prefix "My " :suffix nil )
(capi:display (make-instance 'demo))


LispWorks CAPI User Guide (Macintosh version) - 22 Dec 2009