dialog goster {
  title "New Project"
  size -1 -1 150 169
  option dbu
  list 1, 0 20 150 150, size hsbar vsbar
  edit "", 2, 25 5 50 10
  text "Text No", 3, 0 5 25 8
  button "Tamam", 4, 75 5 37 10
}

alias goster { dialog -m goster goster }

dialog goster {
  title "New Project"
  size -1 -1 150 169
  option dbu
  list 1, 0 20 150 150, size hsbar vsbar
  edit "", 2, 25 5 50 10
  text "Text No", 3, 0 5 25 8
  button "Tamam", 4, 75 5 37 10
}
on *:dialog:goster:*:*: {
  if $devent == edit && $did == 2 { set -e %n $did($did).text } 
  if $devent == sclick && $did == 4 { var %d = $+(%n,.,txt) | var %' 0 |  while %' < $lines(%d) { inc %' | did -a $dname 1 $read(%d,%') }  }
}

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