Server while loop

I sometimes chat on multiple servers and for my GUI have the name of the server displayed in an edit box on a docked dialog using on connect did -ra $dname <id> %sel.serv etc etc.

I'm trying to use a loop to capture the server name and display it to the dialog ID when I toggle between servers. Can someone help me clean up this snippet please?

alias con.list {
 %r = 1 
 while %r = ($server(%r)) {
   .did -ra bottom 4 Server: $server(%r)
 }
 inc %r
}

Thanks in advance

on *:ACTIVE:*: { if ($active == Status Window) { did -ra bottom 4 Server: $server } }

That will do it for whenever you click on a server window. No need for loops

D'oh I'm such an idiot - I had the same thing only I was using it on the wrong event :$ I feel like an idiot. Thanks David

lol no worries simon.