menu menubar,status,channel,query {
  Group List Menüsü:grouplist
}

alias grouplist {
  if ($dialog(grouplist)) {
    dialog -ve grouplist grouplist 
  }
  else dialog -mdro grouplist grouplist
}
dialog grouplist {
  title "/grouplist Code "
  size -1 -1 150 85
  option dbu
  list 1, 5 5 70 75, size
  text "Kapa yada aç ", 2, 80 25 65 8
  radio "Aç", 3, 80 35 20 10
  radio "Kapa", 4, 102 35 20 10
  text "Dosya adı :", 5, 80 45 65 8
  edit "", 6, 80 55 65 10, disable
  text "Kontrol paneli :]", 7, 80 5 65 15
  button "Tamam", 8, 80 70 30 10, flat
  button "Kapat", 9, 115 70 30 10, flat ok
}
on *:dialog:grouplist:init:*: { 
  var %i 1
  while (%i <= $group(0)) {
    did -a $dname 1 $group(%i).name
    inc %i
  }
}
on *:dialog:grouplist:sclick:*: { 
  if ($did == 1) {
    if ($did(1).seltext == $null) { 
      did -u $dname 3,4 
    }
    else {
      if ($group($did(1).seltext).status == on) { did -c $dname 3 | did -u $dname 4 }
      else { did -c $dname 4 | did -u $dname 3 }
      did -ra $dname 6 $nopath($group($did(1).seltext).fname)
      did -ra $dname 2 Status for $group($did(1).seltext).name
    }
  }
  if ($did == 3) {
    .enable $did(1).seltext
  }
  if ($did == 4) {
    .disable $did(1).seltext
  }
  if ($did == 8) {
    dialog -i grouplist
    if ($input(/grouplist tool $crlf $crlf GroupListCode $&
      $crlf Bu araç ile Tüm korumalarınızı açabilir kapatabilirsiniz. $&
      ,oi,About /grouplist)) {
      dialog -e grouplist
    }
  }
}