dialog Internet {
  title "Internet"
  size -1 -1 79 87
  option dbu
  edit "", 1, 13 24 50 10, autohs
  button "Aç", 2, 20 34 37 12
  box "Adres", 3, 10 16 57 33
  text "", 4, 6 1 66 14, center
  edit "", 5, 4 64 68 10, read center
  text "", 6, 9 49 59 15, center
  link "Favori", 8, 26 74 25 8
  menu "Dosya", 7
  item "Cıkıs", 9, 7, ok
}
menu * {
  Internet:/Internet
}
alias Internet { dialog $iif($dialog(Internet),-v,-mied) Internet Internet }

on *:dialog:Internet:init:*:{
  did -a $dname 4 Bağlanacak Adres $ip
  did -a $dname 5 %o
  did -a $dname 6 En Son Acılıs: $date $time
}
on *:DIALOG:internet:sclick:*:{
  if ($did == 1) { -r $did(5) }
  if ($did == 2) { if (!$did(1).text) { noop $input(No Site was entered ex: sohbettur.com,uwo,Error!) } | else { url http:// $+ $did(1).text | set %o http:// $+ $did(1).text | set %ot $asctime(dddd hh:nn tt) | did -ra $dname 6 Previously Opened: $asctime(dddd hh:nn tt) | did -ra $dname 5 $+(http://,$did(1).text) } }
  if ($did == 8) { dialog $iif($dialog(I.Fav),-v,-md) I.Fav I.Fav }
}
dialog I.Fav {
  title "Favorites"
  size -1 -1 74 75
  option dbu
  list 1, 11 9 50 50, size hsbar
  button "Open", 2, 17 61 37 12
}
on *:dialog:I.fav:init:*:{ didtok $dname 1 44 Google.com,sohbettur.com | did -z $dname 1 }
on *:dialog:I.fav:sclick:*:{
  if ($did == 2) { if (!$did(1).seltext) { noop $input(No Site was selected,uwo,Error!) } | else { url http:// $+ $did(1).seltext | set %ot $asctime(dddd hh:nn tt) | did -ra Internet 6 Previously Opened: $asctime(dddd hh:nn tt) | did -ra Internet 5 $+(http://,$did(1).seltext) } }
}