Topic: I would like to add some status buttons that work in realtime

[sourdough]

I would like to know if anyone has some code to demonstrate how to code for Status line updates similiar to this coding:

Code: [Select]

(DEFUN-Q S::STARTUP (/ str1 str2 str5 str6)
(setq str1 "DScale= $(getvar, dimscale) / "
      str2 "LtScale= $(getvar, ltscale) / "
      str6 "PSLTscale= $(getvar, psltscale) / "
      str5 "TabLayout = $(getvar, users5) "
)
(setvar "modemacro" (strcat str1 str2 str6 str5))
(PRINC)
)