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 550 Verdana
  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
}

alias richtest {
  dialog -ma richtest richtest_table
}

dialog richtest_table {
  title "Rich test"
  size -1 -1 526 498
}

on *:dialog:richtest:*:*: {
  if ($devent == init) {
    dcx Mark $dname richtest_cb
    xdialog -b $dname +ntyd

    ;// Call initilisation alias
    richtest_init_dcx
  }
}

alias -l richtest_init_dcx {
  xdialog -c $dname 1 richedit 7 11 510 480 multi hsbar vsbar tabstop readonly
  xdid -m $dname 1
  xdid -t richtest 1 metin.txt
}

;// Callback alias for richtest
alias richtest_cb { if ($2 != mouse) { echo $color(info) -s */ richtest_cb: $1- } }