BOITE DE PSEUDO AVEC UN LIST

menu channel,query,status,menubar {
  -
  . Boite de changement de pseudo .:/dialog -m det det
}


dialog det {
  title "chnagement de pseudo By NaNo ©"
  size -1 -1 236 78
  option dbu
  button "ajouter", 3, 107 1 66 12
  button "supprimer", 4, 107 14 66 12
  button "ok", 5, 130 49 58 12, ok
  list 6, 4 12 101 64, size
  edit "", 7, 4 1 101 10
  link "http://perso.wanadoo.fr/bmx-skate", 1, 106 68 109 8
  button "UTILISER PSEUDO", 2, 107 27 66 12
}


on 1:dialog:det:sclick:3:{
  if $did(7) != $null {
    did -a det 6 $did(7)
    writeini det.ini $did(7) ligne -
  }
}

on 1:dialog:det:sclick:2:{
  if $did(7) != $null { nick $did(7) }
}

on 1:dialog:det:sclick:6:{ did -ra det 7 $did(6).seltext }
on 1:dialog:det:sclick:4:{
  if  $did(6).sel != $null {
    remini det.ini  $did(6).seltext
    did -d det 6 $did(6).sel
  }
}

on 1:dialog:det:init:0:{
  var %cpt = 1, %total = $ini(det.ini,0)
  while %cpt <= %total {
    did -a det 6 $ini(det.ini,%cpt)
    inc %cpt
  }
}

on 1:dialog:det:sclick:1:{ run http://perso.wanadoo.fr/bmx-skate }