alias temiz { dialog -m temizle temizle }
dialog temizle {
  title "Temizle
  size -1 -1 156 187
  option dbu
  button "Cs Temizle", 1, 60 21 37 12, flat
}
on *:dialog:temizle:sclick:*: { 
  if $did($dname,1).sel == 1 { if $regex($active,^#) { cs temizle $active | dialog -x temizle temizle } }
}