RANGER VOS URL !

dialog Url {
  title "Gestionnaire d'url"
  size -1 -1 211 211
  option dbu
  list 1, 3 7 200 125, size vsbar
  button "Effacer", 2, 28 163 37 12, flat
  edit "", 3, 16 142 125 10, autohs
  button "Ajouter", 4, 150 141 37 12, flat
  button "Echo", 5, 76 163 37 12, flat
  button "Dire", 6, 123 163 37 12, flat
  button "Fermer", 7, 23 180 150 12, ok, flat
  box "" ,8, 1 1 205 195
  box "",9,3 135 200 20
  text "Url:",10,5 144 10 8
}
on *:dialog:Url:*:*:{
  if $devent == init  { if $exists(url.txt) { loadbuf -ro url 1 url.txt } }
  If $devent == Sclick {
    if $did == 4 { write -a Url.txt $did(3) | loadbuf -ro url 1 url.txt }
    If $did == 5 { if ($did(1).seltext != $null) { scid $activecid | echo $active $did(1).seltext } }
    if $did == 6 { if ($did(1).seltext != $null) { scid $activecid | msg $active $did(1).seltext } }
    If $did == 2 { if ($did(1).seltext != $null) { scid $activecid | write -dl $+ $did(1).seltext url.txt | loadbuf -ro url 1 url.txt } }
  }
  if $devent == dclick { 
    if $did == 1 { run $did(1).seltext }
  }
}

Menu Channel,menubar {
  -
  - Gestionaire d'url -:/dialog -m url url 
}