Activer/désactiver dans un inputRésolu

Question

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...

RCA ArKanis · Accepted Answer

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

cs_ISoKa · Answer

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

Camanche · Answer

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?

Camanche · Answer

Merci ArKanis, j'avais essayé avec $readini mais ma syntaxe n'était pas bonne.

Activer/désactiver dans un input

4 réponses

Votre réponse

Discussions similaires