dialog canoku {
  title " ..:: | CaN Coded | ::.."
  size -1 -1 175 153
  option dbu
  edit "", 1, 68 19 30 10, autohs
  text "Adı", 12, 13 39 50 8
  text "Soyadı", 13, 13 46 50 8
  text "Adres", 14, 13 53 50 8
  text "Müşteri No", 11, 13 20 50 8
  text "Telefon", 15, 13 60 50 8
  text "Giriş Tarihi", 16, 13 67 50 8
  text "Teslim Tarihi", 17, 13 74 50 8
  text "Yıkama Türü", 18, 13 81 50 8
  text "Alınacak ücret", 19, 13 88 50 8
  text "Müşteri no girip tamam butonuna basınız.", 20, 35 7 100 8
  edit "CaN Coded", 23, 71 139 35 10, read
  button "Tamam", 10, 105 19 53 10
  box "", 21, 3 1 167 151
  box "", 22, 9 32 156 90
  button "Yeni Kayıt", 25, 36 103 107 13
  list 2, 64 38 99 59, size
  button "Kapat", 3, 36 125 107 12, cancel
}

on *:dialog:canoku:sclick:10: {
  if $did(1) == $null { uyari }
  else {
    oku
  }
}
alias oku {
  if ($isfile($shortfn($+($did(1),.txt))) == $true) { did -r $dname 2 | loadbuf -o $dname 2 $shortfn($+($did(1),.txt)) }
}