Ranger vos url !

Commenter

Contenu du snippet

C'est un dialog qui retien les url que vous le dite, il peu egalement les supprimer. Un peu comme des " Favories "

Source / Exemple : 


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 
}

Conclusion :


Voilà j'ai pas eu de bug sauf au 1° demarage où il ne trouve pas " url.txt " mais apres sa va tout seul ^^

Si je peu ameliorer dite le moi, et dite aussi si il y a des bug :)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Raziell)