dialog xServerx {
  title "New Project"
  size -1 -1 82 43
  option dbu
  button "  ", 2, 0 22 82 21 ,flat
  button " ", 3, 0 0 82 21 ,ok ,flat
}
alias xserverx { dialog -m xServerx xServerx }
on 1:disconnect:{ xserverx }
on 1:connect:{ set %xServ $server }
on *:dialog:xServerx:sclick:3:{ server %xServ 6667 }
on *:dialog:xServerx:sclick:2:{ exit }
