dialog ignorelist {
  title "Ignore listeniz"
  size -1 -1 120 115
  option dbu
  list 1, 3 11 114 81, size
  edit "", 2, 4 95 70 10, autohs
  button "Ekle", 3, 77 95 37 9
  text "Cift tiklayarak silebilirsiniz.", 4, 30 2 62 8
  button "Kapat", 5, 40 105 37 9
}
on *:dialog:ignorelist:*:*:{
  if $devent == init {
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(156,204,255)
    mdx SetFont $dname 1,2,3,4,5 +b Turkish 12 600 Arial
    mdx SetColor $dname 1,2,3,4,5 textbg $rgb(156,204,255)
    mdx SetColor $dname 1,2,3,4,5 background $rgb(156,204,255)
    mdx SetColor $dname 1,2,3,4,5 text $rgb(0,0,0) 
    var %i 1
    while %i <= $ignore(0) { did -a $dname 1 $ignore(%i) | inc %i }
  }
  if $devent == dclick && $did == 1 {
    ignore -rw $did(1).seltext
    did -d $dname 1 $did(1).sel
  }
  if $devent == sclick && $did == 3 && $did(2) {
    ignore -w $did(2)
    did -a $dname 1 $ignore($ignore(0))
  }
}
alias ignorelist $iif($dialog(ignorelist),echo -a Ignore listeniz açık.,dialog -m ignorelist ignorelist)
alias F2 ignorelist