Accueil > > > RÉPONDEUR SIMPLE
RÉPONDEUR SIMPLE
Information sur la source
Description
C'est mon premier dialog, un répondeur classique avec possibilité de bloquer les pv, et d'éditer les messages d'attente de pv, d'acceptation et de refus du pv, à vous de découvrir le reste =)
Source
- alias pv {
- dialog -m pv pv
- }
- dialog pv {
- title "Demande de pv"
- size -1 -1 160 38
- option dbu
- button "Ouvrir le pv", 1, 1 20 37 12, ok
- button "Fermer le pv", 2, 121 20 37 12, cancel
- text "Quelqu'un souhaite te parler en pv, que veux-tu faire?", 3, 13 6 134 8
- text " « »", 4, 40 22 78 8
- }
- On *:DialoG:pv:sclick:*: {
- if ($did == 1) { msg %nick.pv %msg.accepted }
- if ($did == 2) { msg %nick.pv %msg.refused | close -m %nick.pv }
- }
-
- On *:OpeN:?: {
- if %pv == ON {
- pv
- set %nick.pv $nick
- msg %nick.pv %msg.openned
- unset %nick.pv
- }
- if %pv == $null {
- set %anti.pv.nick $nick
- close -m %anti.pv.nick
- unset %anti.pv.nick
- msg $nick %msg.refused
- }
- }
-
- alias menupv {
- dialog -m menupv menupv
- }
-
- dialog menupv {
- title "Menu Pv"
- size -1 -1 223 195
- option dbu
- button "Accepter les pv", 1, 18 9 41 12
- button "Refuser les pv", 2, 159 10 41 12
- text " Refuse ou accepte les pv ", 3, 76 13 68 8
- edit "", 4, 8 111 203 10
- edit "", 5, 10 150 202 10
- text "Message de répondeur accepté", 6, 63 95 97 8, center
- text "Message de répondeur refusé", 7, 63 130 99 8, center
- button "Ok", 8, 18 173 37 12, ok
- button "Cancel", 9, 163 173 37 12, cancel
- edit "", 10, 6 58 204 10
- text "Message de demande de pv", 11, 45 43 130 8, center
- }
-
-
- On *:DialoG:menupv:sclick:*: {
- if ($did == 1) { set %repondeur on | set %pv on }
- if ($did == 2) { set %repondeur off | unset %pv }
- }
- On *:DialoG:menupv:edit:*: {
- if ($did == 10) { set %msg.openned $did(10) }
- if ($did == 4) { set %msg.accepted $did(4) }
- if ($did == 5) { set %msg.refused $did(5) }
- }
- On *:DialoG:menupv:init:0: {
- .did -c $dname $iif(%repondeur == on,3,4)
- .did -a $dname 10 %msg.openned
- .did -a $dname 4 %msg.accepted
- .did -a $dname 5 %msg.refused
- }
alias pv {
dialog -m pv pv
}
dialog pv {
title "Demande de pv"
size -1 -1 160 38
option dbu
button "Ouvrir le pv", 1, 1 20 37 12, ok
button "Fermer le pv", 2, 121 20 37 12, cancel
text "Quelqu'un souhaite te parler en pv, que veux-tu faire?", 3, 13 6 134 8
text " « »", 4, 40 22 78 8
}
On *:DialoG:pv:sclick:*: {
if ($did == 1) { msg %nick.pv %msg.accepted }
if ($did == 2) { msg %nick.pv %msg.refused | close -m %nick.pv }
}
On *:OpeN:?: {
if %pv == ON {
pv
set %nick.pv $nick
msg %nick.pv %msg.openned
unset %nick.pv
}
if %pv == $null {
set %anti.pv.nick $nick
close -m %anti.pv.nick
unset %anti.pv.nick
msg $nick %msg.refused
}
}
alias menupv {
dialog -m menupv menupv
}
dialog menupv {
title "Menu Pv"
size -1 -1 223 195
option dbu
button "Accepter les pv", 1, 18 9 41 12
button "Refuser les pv", 2, 159 10 41 12
text " Refuse ou accepte les pv ", 3, 76 13 68 8
edit "", 4, 8 111 203 10
edit "", 5, 10 150 202 10
text "Message de répondeur accepté", 6, 63 95 97 8, center
text "Message de répondeur refusé", 7, 63 130 99 8, center
button "Ok", 8, 18 173 37 12, ok
button "Cancel", 9, 163 173 37 12, cancel
edit "", 10, 6 58 204 10
text "Message de demande de pv", 11, 45 43 130 8, center
}
On *:DialoG:menupv:sclick:*: {
if ($did == 1) { set %repondeur on | set %pv on }
if ($did == 2) { set %repondeur off | unset %pv }
}
On *:DialoG:menupv:edit:*: {
if ($did == 10) { set %msg.openned $did(10) }
if ($did == 4) { set %msg.accepted $did(4) }
if ($did == 5) { set %msg.refused $did(5) }
}
On *:DialoG:menupv:init:0: {
.did -c $dname $iif(%repondeur == on,3,4)
.did -a $dname 10 %msg.openned
.did -a $dname 4 %msg.accepted
.did -a $dname 5 %msg.refused
}
Historique
- 02 avril 2005 01:32:35 :
- Voila j'ai rajouté un unset ça devrait régler le probleme
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOURTECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice
Après une première journée dédiée aux développeurs, cette seconde journée est dédiée au monde des entreprises et de ses applications. Ainsi, cette pleinière est dédiée à faire un 360 de l'évolution des applications Business aux demandes ac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVéTECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice
Speaker : Guillaume Rochette Cette session est dédiée à fournir le retour sur la mise en place d'un cloud privé (IaaS) par Osiatis pour son compte ou celui de ses clients. Ce projet s'est déroulé sur 4 mois et a permis de faire évoluer...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit
Je viens de publier la version 3.0 de Perspective pour Silverlight, qui regroupe un portage sous Silverlight 5.0 des fonctionnalités de Perspective 2.0, le framework 3D de haut-niveau introduit récemment et de nouveaux exemples de code. En voici la li...
Cliquez pour lire la suite de l'article par odewit TECHDAYS PARIS 2012 : MYTHES ET RéALITéS VIRTUALISATION ET CLOUD PRIVéTECHDAYS PARIS 2012 : MYTHES ET RéALITéS VIRTUALISATION ET CLOUD PRIVé par ROMELARD Fabrice
Speakers : Christophe Dubos et Fabrice Meillon La Session est dédiée à casser la réputation que Microsoft traine sur son incapacité à fournir des solutions de Cloud privé. La session a commencé par un retour sur la puissance des DataCent...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|