dialog find {
  title "BUL"
  size -1 -1 115 74
  option dbu
  edit "", 1, 5 18 108 10, multi
  text "", 2, 5 6 107 8
  button "Asagi", 3, 39 57 37 12
  button "Yukari", 4, 39 43 37 12
  button "Temizle", 5, 79 28 33 12
  text "", 6, 6 30 35 8
}

menu @* {
  BuL:dialog -m find find | set %find_window $active | sline %find_window 1
}
on *:dialog:find:*:*: {
  if ($devent == sclick) {
    if ($did == 3 && $did($dname,1)) { 
      if ($active != %find_window) {  window -a %find_window }
      ;asagi
      if %find_window_set <= 0 { halt } 
      if (!%find_window_set) { set -e %find_window_set 0 }
      inc %find_window_set
      if ($fline(%find_window,$+(*,$did($dname,1),*),%find_window_set)) {
        did -ra $dname 2 Aktif Satir: $fline(%find_window,$+(*,$did($dname,1),*),%find_window_set)  Toplam Satir: $line(%find_window,0) 
        did -ra $dname 6 %find_window_set $+ / $+ $fline(%find_window,$+(*,$did($dname,1),*),0)
      }
      sline %find_window $fline(%find_window,$+(*,$did($dname,1),*),%find_window_set)
    }
    if ($did == 4 && $did($dname,1)) {
      if ($active != %find_window) { window -a %find_window }
      ;yukari
      if %find_window_set <= 0 { halt } 
      if (!%find_window_set) { set -e %find_window_set 0 }
      if ($fline(%find_window,$+(*,$did($dname,1),*),%find_window_set)) {
        if ($calc(%find_window_set -1) != 0) {
          dec %find_window_set
        }
        did -ra $dname 2 Aktif Satir: $fline(%find_window,$+(*,$did($dname,1),*),%find_window_set) Toplam Satir: $line(%find_window,0) 
        did -ra $dname 6 %find_window_set $+ / $+ $fline(%find_window,$+(*,$did($dname,1),*),0)
      }
      sline %find_window $fline(%find_window,$+(*,$did($dname,1),*),%find_window_set)
    }
    if ($did == 5) {
      did -r $dname 1,2,6
      unset %find_window_set
      sline %find_window 1
      ;clear
    }
  }
  if ($devent == edit) {
    if ($len($did($dname,1)) >= 4) {
      did -ra $dname 2 Bulunan Satir Sayisi : $fline(%find_window,$+(*,$did($dname,1),*),0)
    }
  }
}