Hi,
You can use a VLR-Miscellaneous-Reactor handling the :VLR-layoutSwitched event.
Here's a simple example:
;; Activate the reactor
(defun c:TabReaOn ()
(setq *TabReactor*
(VLR-Miscellaneous-Reactor
nil
'((:VLR-layoutSwitched . TabReaCallback))
)
)
(princ)
)
;; Deactivate the reactor
(defun c:TabReaOff ()
(and
*TabReactor*
(vlr-remove *TabReactor*)
(setq *TabReactor* nil)
)
(princ)
)
;; Callback function
(defun TabReaCallback (rea lst)
(alert (strcat "Switch to " (car lst)))
)