Alias Nicks {
  dialog $iif($dialog(MSG),-v Messd,-m MSG MSG)
}

alias F4 { dialog -m MSG MSG | did -ra MSG 1 $snicks }

dialog MSG {
  title "PerceNN's Fast Message"
  size -1 -1 118 239
  option dbu
  edit "Nick", 1, 33 23 50 10
  edit "Text", 2, 1 41 116 150
  button "Send", 3, 41 212 37 12
  text "NiX", 4, 4 1 25 8
}

on *:dialog:*:*:*: {
  if ($dname == MSG) {
    if ($devent == sclick) {
      if ($did == 3) {
        msg $active 10«14 $+ $did(1) $+ 10» 14¬ 1 $+ $did(2) $+ 
      }
    }
  }
}

menu * {
  .Nicks : Nicks
}