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