Activer/désactiver dans un input [Résolu]

Camanche 149 Messages postés jeudi 23 octobre 2003Date d'inscription 17 novembre 2007 Dernière intervention - 31 oct. 2007 à 15:32 - Dernière réponse : Camanche 149 Messages postés jeudi 23 octobre 2003Date d'inscription 17 novembre 2007 Dernière intervention
- 31 oct. 2007 à 16:40
Bonjour, je cherche désespéremment la condition à mettre dans mon input pour savoir si l'addon est activé ou pas.
Voici le code:

alias cor { dialog -m corect corect }
dialog corect {
title "Correcteur d'orthographe"
size -1 -1 300 270
box "Mot à corriger",1, 1 1 298 200,flat
list 2,10 15 280 195
button "Ajouter",3,15 210 60 25
button "Modifier",4,85 210 60 25
button "Enlever",5,155 210 60 25
button "Quitter",6,225 240 60 25,ok
button "Infos",15,225 210 60 25
check "Activer la correction Automatiques",7,10 240 200 20,flat
text " Mot à remplacer : Remplacer par :",8,10 270 300 20
edit "",9,10 290 120 20
edit "",10,140 290 120 20
button "O.K",11,150 320 60 25
button "Annuler",12,220 320 60 25
text "",13,15 325 100 20
box "",14,5 260 295 90,flat
}
on *:dialog:corect:init:0:{
idll | mdx SetControlMDX 2 listview nosortheader rowselect showsel single flatsb headerdrag labeltip report > $vmdx
mdx SetBorderStyle 3,4,5,11,12,15,6,9,10 staticedge
did -h corect 14
did -i corect 2 1 headerdims 137 135
did -i corect 2 1 headertext $tab(Mot à remplacer,Remplacer mot par)
if $readini $correcteur Correction Status == ON { did -c corect 7 }
refreshcor
}
alias refreshcor {
var %i = 1
did -r corect 2
while %i <= $numtok($readini $correcteur Correction Motr,44) {
var %temp1 = $gettok($readini $correcteur Correction Motr,%i,44)
var %temp2 = $gettok($readini $correcteur Correction Mota,%i,44)
did -a corect 2 $tab(%temp1,%temp2)
inc %i
}
}
on *:dialog:corect:sclick:3:set %status.correcteur Ajout | did -v corect 14 | did -r corect 9,10 | did -ra corect 13 %status.correcteur | dialog -s corect -1 -1 300 355 | did -b corect 3,4,5
on *:dialog:corect:sclick:11:{
if %status.correcteur == Ajout {
if $did(9) $null || $did(10) $null { var %erfffff = $input(Remplir tous les champs !!!,300,Avertissement) | halt }
Else {
if $chr(44) isin $did(9) || $chr(44) isin $did(10) { var %erfff = $input(Merci de ne pas mettre de virgule,300,Avertissement) | halt }
Elseif $chr(32) isin $did(9) { var %erff = $input(Merci de ne pas mettre d'espace dans la première case !,300,Avertissement) | halt }
Else {
var %textcorec1 = $did(9)
var %textcorec2 = $did(10)
var %i = 1
while %i <= $numtok($readini $correcteur Correction Motr,44) {
var %temp1 = $gettok($readini $correcteur Correction Motr,%i,44)
if %temp1 %textcorec1 { var %erfffff $input(Mot déja entrer !,300,Avertissement) | halt }
inc %i
}
if $readini $correcteur Correction Motr != $null { writeini $correcteur Correction Motr $readini $correcteur Correction Motr $+ %textcorec1 $+ , | writeini $correcteur Correction Mota $readini $correcteur Correction Mota $+ %textcorec2 $+ , }
Else { writeini $correcteur Correction Motr %textcorec1 $+ , | writeini $correcteur Correction Mota %textcorec2 $+, }
}
}
refreshcor
dialog -s corect -1 -1 300 270 | did -e corect 3,4,5 | did -h corect 14
}
if %status.correcteur == Modification {
if $did(9) $null || $did(10) $null { var %erfffff = $input(Remplir tous les champs !!!,300,Avertissement) | halt }
Else {
if $chr(44) isin $did(9) || $chr(44) isin $did(10) { var %erfff = $input(Merci de ne pas mettre de virgule,300,Avertissement) | halt }
Elseif $chr(32) isin $did(9) { var %erff = $input(Merci de ne pas mettre d'espace dans la première case !,300,Avertissement) | halt }
Else {
var %textcorec1 = $did(9)
var %textcorec2 = $did(10)
var %ctemp1 = $reptok($readini $correcteur Correction Motr,%ctext1,%textcorec1,1,44)
var %ctemp2 = $reptok($readini $correcteur Correction Mota,%ctext2,%textcorec2,1,44)
writeini $correcteur Correction Motr %ctemp1 $+ ,
writeini $correcteur Correction Mota %ctemp2 $+ ,
}
}
refreshcor
dialog -s corect -1 -1 300 270 | did -e corect 3,4,5 | did -h corect 14
}
}
on *:dialog:corect:sclick:15:var %eddddddd = $input(Important ! Principe de correction $chr(44) verifie l'orthographe de chaque mot et corrige le mot si le MOT ENTIER a une correction !,300,Important)
on *:dialog:corect:sclick:12:did -e corect 3,4,5 | dialog -s corect -1 -1 300 270 | did -h corect 14
on *:dialog:corect:sclick:4:{
if $did(2).sel {
set %status.correcteur Modification | did -ra corect 13 Status : %status.correcteur | dialog -s corect -1 -1 300 355 | did -b corect 3,4,5 | did -v corect 14
var %templi = $calc($did(2).sel - 1)
set %ctext1 $gettok($readini $correcteur Correction Motr,%templi,44)
set %ctext2 $gettok($readini $correcteur Correction Mota,%templi,44)
did -ra corect 9 %ctext1
did -ra corect 10 %ctext2
}
Else { var %erffff = $input(Selectionne une ligne !!!!!,300,Avertissement) }
}
on *:dialog:corect:sclick:5:{
if $did(2).sel {
var %templi = $calc($did(2).sel - 1)
set %ctext1 $gettok($readini $correcteur Correction Motr,%templi,44)
set %ctext2 $gettok($readini $correcteur Correction Mota,%templi,44)
var %ctemp1 = $remtok($readini $correcteur Correction Motr,%ctext1,1,44)
var %ctemp2 = $remtok($readini $correcteur Correction Mota,%ctext2,1,44)
writeini $correcteur Correction Motr %ctemp1 $+ ,
writeini $correcteur Correction Mota %ctemp2 $+ ,
refreshcor
}
Else { var %erffff = $input(Selectionne une ligne !!!!!,300,Avertissement) }
}
on *:dialog:corect:sclick:7:{
if $did(7).state == 0 { writeini $correcteur Correction Status OFF }
if $did(7).state == 1 { writeini $correcteur Correction Status ON }
}
alias correction {
var %text = $1-
var %i = 1
while %i <= $numtok(%text,32) {
var %text.temp = $gettok(%text,%i,32)
var %ii = 1
while %ii <= $numtok($readini $correcteur Correction Motr,44) {
var %temp1 = $gettok($readini $correcteur Correction Motr,%ii,44)
var %temp2 = $gettok($readini $correcteur Correction Mota,%ii,44)
if %temp1 %text.temp { var %text $replace(%text,%text.temp,%temp2) }
inc %ii
}
inc %i
}
return %text
}
alias idll { mdx SetMircVersion $version | mdx MarkDialog $dname | mdx SetDialog $dname }
alias mdx { dll mdx.dll $1- }
alias vmdx { return views.mdx }
alias cmdx { return ctl_gen.mdx }
alias tab {
if (!$1) return $chr(9) | var %t,%w = 1
while ($($+($,%w),2)) { %t = $instok(%t,$($+($,%w),2),0,9) | inc %w }
return %t
}
alias correcteur { return cor.ini }
on 1:input:*:{
if ($cor == On) { msg $active $correction($1-) }
else msg $active $1-
halt
}

menu channel,query,menubar,nicklist,status {
-
Correction:/cor
-
}


Le problème se situe là:

on 1:input:*:{
if ($cor == On) { msg $active $correction($1-) }
else msg $active $1-
halt
}

Je ne sais pas par quoi remplacer $cor == On...
Afficher la suite 

4 réponses

Répondre au sujet
RCA ArKanis 1287 Messages postés mercredi 21 avril 2004Date d'inscription 21 février 2009 Dernière intervention - 31 oct. 2007 à 16:34
+3
Utile
if ($readini($correcteur,Correction,Status) == ON) ...

au passage, le fait d'utiliser ON et OFF, c'est nul ... c'est pas booléen et c'est donc très largement moins pratique
utilise 1 et 0, plus simplement
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de RCA ArKanis
cs_ISoKa 437 Messages postés jeudi 27 avril 2006Date d'inscription 17 octobre 2008 Dernière intervention - 31 oct. 2007 à 16:29
0
Utile
ca m'etonne que ce soit toi l'auteur de cette source si tu sais pas l'activer ou la désactiver. Demande à l'auteur de te donner son alias "cor" vu que c'est ca qui te manque sinon suffit juste de faire ca avec une variable que tu set sur on ou off

ISoKa
Commenter la réponse de cs_ISoKa
Camanche 149 Messages postés jeudi 23 octobre 2003Date d'inscription 17 novembre 2007 Dernière intervention - 31 oct. 2007 à 16:33
0
Utile
Non ce n'est pas moi l'auteur de cette source, je me sers de son code et le modifie comme je veux. Tu la set où la variable?
Commenter la réponse de Camanche
Camanche 149 Messages postés jeudi 23 octobre 2003Date d'inscription 17 novembre 2007 Dernière intervention - 31 oct. 2007 à 16:40
0
Utile
Merci ArKanis, j'avais essayé avec $readini mais ma syntaxe n'était pas bonne.
Commenter la réponse de Camanche

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.