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)
(let ((counter
(or (capi:capi-object-property self 'my-title-counter)
(setf
(capi:capi-object-property self 'my-title-counter)
(incf *demo-title-counter*)))))
(format nil "~A - ~D"
(call-next-method)
counter)))
(capi:display (make-instance 'demo))
Then we specify a common prefix for all interface window titles. Note that this will affect all interfaces in the current session:
(capi:set-default-interface-prefix-suffix
:prefix "My " :suffix nil )
(capi:display (make-instance 'demo))
CAPI User Guide (Unix version) - 30 Aug 2011