on *:DIALOG:listbox:init:0:{ did -a $dname 5 %listbox5 } on *:DIALOG:listbox:close:0:{ set %listbox5 $did($dname,5).text }