alias  { dialog -m IRC IRC }
dialog IRC {
  title "IRC Komutlari"
  size -1 -1 330 168
  option dbu
  box "Yardimci Komutlar", 1, 3 3 325 149
  list 2, 6 11 319 139
  button "Tamam / Kapat", 3, 117 154 87 12, ok
}
on *:dialog:IRC:init:*: {
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(230,245,252)
  mdx SetFont $dname 1,2,3 +b Turkish 13 600 Tahoma
  mdx SetColor $dname 1,2,3 textbg $rgb(230,245,252)
  mdx SetColor $dname 1,2,3 background $rgb(230,245,252)
  mdx SetColor $dname 1,2,3 text $rgb(0,0,100)
  var %i 1
  while (%i <= $lines(komut.txt)) {
    did -a IRC 2 $read(komut.txt,%i)
    inc %i
  }
}

alias { dialog -m IRC IRC }
dialog IRC {
  title "IRC Komutlari"
  size -1 -1 330 168
  option dbu
  box "Yardimci Komutlar", 1, 3 3 325 149
  edit , 2, 6 11 319 139, read vsbar  multi return
  button "Tamam / Kapat", 3, 117 154 87 12, ok
}
on *:dialog:IRC:init:*: {
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(230,245,252)
  mdx SetFont $dname 1,2,3 +b Turkish 13 600 Tahoma
  mdx SetColor $dname 1,2,3 textbg $rgb(230,245,252)
  mdx SetColor $dname 1,2,3 background $rgb(230,245,252)
  mdx SetColor $dname 1,2,3 text $rgb(0,0,100)
  loadbuf -o  IRC 2  komut.txt
}