pull-down toolbar

I would love to have a pull-down toolbar similar to the "dimension syle" pull-down that would list my available (and current) text styles. Anyone know how to do this or if it's even possible?

 

Here's a pertial menu... watch for word wrap

***POP2

ID_GS_Status [&Status]
[DWG NAME:]open
[$(eval,
,dwgname) )]$M=$(getvar,dwgname);open
[--]
[DIMSCALE:]dimscale
[$(eval, 1:$(rtos,$(getvar,dimscale),2,2))](strcat "1:" (rtos
(getvar "DIMSCALE") 2 2));dimscale
[--]
[LTSCALE:]ltscale
[$(eval, 1:$(rtos,$(getvar,ltscale),2,2))](strcat "1:" (rtos
(getvar "LTSCALE") 2 2));LTSCALE
[--]
[PSLTSCALE:]psltscale
[$(eval, 1:$(rtos,$(getvar,psltscale),2,2))](strcat "1:"
(rtos (getvar "PSLTSCALE") 2 2));PSLTSCALE
[--]
[COLOR:]color
[$(eval, $(getvar,cecolor))]$m=$(getvar,cecolor);color
[--]
[LINE:]linetype
[$(eval, $(getvar,celtype))]$m=$(getvar,celtype);linetype
[--]
[TEXT STYLE:]$I=GS_CIVILD.text $I=*
[$(eval, $(getvar,textstyle))]$m=$(getvar,textstyle)$I=gstext
$I=*
[--]
[TEXT HEIGHT:]$I=GS_CIVILD.text $I=*
[$(eval, $(getvar,textsize))]$m=$(getvar,textsizet)$I=gstext
$I=*
[--]
[UCSFOLLOW:]uf
[$(eval, $(getvar,ucsfollow))]$m=$(getvar,ucsfollow);uf
[--]
[VISRETAIN:]VR
[$(eval, $(getvar,VISRETAIN))]$m=$(getvar,VISRETAIN);VR
[--]
[PLOTTER:]plot
[$(eval, $(getvar,plotid))]$m=$(getvar,plotid);plot