POST-IT postit, postit, notepad, Source N°32528

Information sur la source

Catégorie :AddOns Classé sous : postit, postit, notepad Niveau : Débutant Date de création : 04/07/2005 Vu : 1 994

Auteur : IceTempest

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (14)

Ajouter un commentaire et/ou une note

Description

Ben voila c'est un Post-it tout simple. Alt+R et mettre dans les remotes

Source

dialog post {
title "« Post-It »"
size -3 -3 248 217
edit "", 10, 10 0 230 180, return, multi, vsbar
button "Enregistrer", 18, 10 187 80 25, ok default
button "Effacer", 19, 160 187 80 25
}
on 1:dialog:post:edit:10:{
unset %post
set %i 0
:debut
inc %i
set %post %post $+ $did(10,%i).text $+ $crlf
if (%i >= $did(10).lines) { goto fin }
goto debut
:fin
}
alias post {
set %dreturn $dialog(post,post,-1)
}
on 1:dialog:post:init:0: {
did -a post 10 %post
}
on 1:dialog:post:sclick:19: {
did -r post 10
unset %post
}

dialog post {
  title "« Post-It »"
  size -3 -3 248 217
  edit "", 10, 10 0 230 180, return, multi, vsbar
  button "Enregistrer", 18, 10 187 80 25, ok default
  button "Effacer", 19, 160 187 80 25
}

on 1:dialog:post:edit:10:{
  unset %post
  set %i 0
  :debut
  inc %i
  set %post %post $+ $did(10,%i).text $+ $crlf

  if (%i >= $did(10).lines) { goto fin }
  goto debut
  :fin
}
alias post {
  set %dreturn $dialog(post,post,-1)
}
on 1:dialog:post:init:0: {
  did -a post 10 %post
}
on 1:dialog:post:sclick:19: { 
  did -r post 10
  unset %post
}

Conclusion

Voila et bon Scripting à vous

Sources du même auteur

Toutes les sources de IceTempest

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

POST-IT PICWIN V1.0

Commentaires

Commentaire de MaX_62 le 04/07/2005 17:47:54

Bof, bof, très basique et mal codé... quelques idée d'optimisations :
L'alias /post est très "bizarre", mets plutot ça :
alias post dialog -m post post
car la tu /set une variable inutilement

Je pense pas qu'une variable ait une très grande capacité, je pense qu'il vaut mieux tout stocker dans un fichier.txt (et après le recopier éventuellement avec le file handling)

Regroupe tes évènements de dialog :
on *:DIALOG:post:*:*:{
  if ($devent == init) { ... }
  elseif ($devent == sclick) {
    if ($did == 1) { ... }
    elseif ($did == 2) { ... }
  }
}

Les boucles avec /goto, beurk :( utilises les /while et les variables locales !

Je trouve que le dialog est pas très beau :s

Améliores tout ça car c'est vraiment pas terrible... bonne continuation
Commentaire de tofu le 04/07/2005 19:37:32

je rejoins totalement le pt de vue de MaX_62
Commentaire de KiNdErMaXi le 04/07/2005 21:26:08

si je veux mettre plusieurs post it ? :(
pourquoi tu sa un bouton 18 alors que tu ne le fais pas réagir au sclick ???

bonne continuation
Commentaire de Mc_AbBeR le 05/07/2005 11:41:26

Met plutot sa:

on *:dialog:post:*:*:{
  if $devent == edit {
    if $did == 10 {
      unset %post
      set %i 0
      :debut
      inc %i
      set %post %post $+ $did(10,%i).text $+ $crlf
      if (%i >= $did(10).lines) { goto fin }
      goto debut
      :fin
    }
  }
  if $devent == init {
    if $did == 0 {
      did -a post 10 %post
    }
  }
  if $devent == sclick {
    if $did == 19 {
      did -r post 10
      unset %post
    }
  }
}
alias post { set %dreturn $dialog(post,post,-1) }
Commentaire de tofu le 05/07/2005 14:26:36

quitte à vouloir optimiser, optimise vrment là les changements que tu as fais changent queud à part la lisibilité..
Commentaire de wims le 05/07/2005 14:27:37

if $devent == init {
if $did == 0 {

mdr ?
Commentaire de tofu le 05/07/2005 14:32:32

oui, desfois qu'il y ait un $did == 1 dans le init... :P HaHa ..
Commentaire de IceTempest le 05/07/2005 15:08:58

Merci de votre franchise. Mais de la à vous foutre de ma gueule j'apprécie pas trop.
Alors si c'est pour faire ça, autant ne rien mettre.
Merci
Commentaire de tofu le 05/07/2005 19:17:34

on parlait de la "pseudo optimisation" de mc_abber pas de ton code tkt.
Commentaire de sky_175 le 08/07/2005 02:55:36

Heu, j'viens de voir un truc là. C'est exactement le même post-it que dans le Blizzard v.3 ...

A part la variable %post qui est nommé %post.it dans le script.

Donc pourquoi posté une source si on n'en est pas l'auteur ?
Bye
Commentaire de COOLMAN002 le 08/07/2005 23:01:29

Mise à part enlever les "/splay" et renommer les variables, et le dialog, c'est EXACTEMENT le même que celui de Blizzard Script 3 (par Epsilon) ...
Commentaire de Asphere le 12/07/2005 02:55:19

Mon avis diffère du votre, ca marche, et j'en suis très content.

Bravo à toi ;)
Commentaire de Asphere le 12/07/2005 03:09:39

Après mûre réflexion c'est vrai qu'il ressemble très étrangement à celui du Blizzard...
Commentaire de hisoka2501 le 24/11/2006 15:49:34

#  unset %post
#   set %i 0
#   :debut
#   inc %i
#   set %post %post $+ $did(10,%i).text $+ $crlf
#
#   if (%i >= $did(10).lines) { goto fin }
#   goto debut
#   :fin

les goto :/
les /set ....

bon reprenons:

  unset %post
   var %i 1 , %n = $did(10).lines
   while (%i <= %n) {
   set %post $+(%post,$did(10,%i).text,$crlf)
   inc %i
}
je declare %n pour évite de revoir rappeler l'identifieur à chaque iteration de la boucle, donc gain de vitesse
c'est plus lisibile, plus rapide et plus optimisé :)
pour ce genre de code utilise plutot un ini:
/help /writeini
/help $readini