dialog tkgir {
  title "Kanallar Gir"
  size -1 -1 112 86
  option dbu
  box "", 1, 2 2 107 81
  edit "", 2, 5 10 57 68
  button "Gir", 3, 63 41 41 20
  button "Kapat", 4, 63 62 41 15, ok
  edit "", 6, 63 19 40 10
  button "Ekle", 7, 63 30 40 9
  text " Kanal ismi", 8, 64 10 28 8
}
on *:dialog:tkgir:init:*:{ 
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(222,254,219)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 +b Turkish 11 Tahoma 550
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 textbg $rgb(222,154,219)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 background $rgb(222,154,219)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 text $rgb(0,0,100) 
  $iif(%tkall,did -ra $dname 1 %tkall,did -a $dname 1 #Guzyeli #Sohbet #Radyo #Kelime #islam #Test #Bilgi #Yarisma) 
}
on *:dialog:tkgir:sclick:3:{ set %tkall $did(1).text | tokenize 32 $did(1).text | join $* }