- dialog codeur {
- title "Codeur \ Décodeur"
- size -1 -1 189 143
- option dbu
- tab "Codeur", 1, 5 34 175 99
- text "Texte :", 2, 10 61 25 8, tab 1
- edit "", 3, 34 60 143 10, tab 1 return autohs autovs
- button "Valider", 4, 58 78 37 12, tab 1
- edit "", 5, 12 106 164 10, tab 1 read return autohs autovs
- button "Le Dire", 13, 66 118 37 12, tab 1
- tab "Décodeur", 7
- text "Texte", 8, 8 59 25 8, tab 7
- edit "", 9, 31 57 145 10, tab 7 return autohs autovs
- button "Valider", 10, 69 73 37 12, tab 7
- edit "", 11, 15 105 158 10, tab 7 read return autohs autovs
- button "Le Dire", 12, 67 118 37 12, tab 7
- text "Codeur / Décodeur", 6, 68 13 53 12, nowrap center
- }
-
-
- On *:dialog:codeur:sclick:4: {
- set %mott $did(3)
- did -ra codeur 5 $encode( %mott ,m)
- }
- On *:dialog:codeur:sclick:13: {
- msg $active $encode( %mott ,m)
- }
- On *:dialog:codeur:sclick:10: {
- set %mottt $did(9)
- did -ra codeur 11 $decode( %mottt ,m)
- }
- On *:dialog:codeur:sclick:12: {
- msg $active $decode( %mottt ,m)
- }
dialog codeur {
title "Codeur \ Décodeur"
size -1 -1 189 143
option dbu
tab "Codeur", 1, 5 34 175 99
text "Texte :", 2, 10 61 25 8, tab 1
edit "", 3, 34 60 143 10, tab 1 return autohs autovs
button "Valider", 4, 58 78 37 12, tab 1
edit "", 5, 12 106 164 10, tab 1 read return autohs autovs
button "Le Dire", 13, 66 118 37 12, tab 1
tab "Décodeur", 7
text "Texte", 8, 8 59 25 8, tab 7
edit "", 9, 31 57 145 10, tab 7 return autohs autovs
button "Valider", 10, 69 73 37 12, tab 7
edit "", 11, 15 105 158 10, tab 7 read return autohs autovs
button "Le Dire", 12, 67 118 37 12, tab 7
text "Codeur / Décodeur", 6, 68 13 53 12, nowrap center
}
On *:dialog:codeur:sclick:4: {
set %mott $did(3)
did -ra codeur 5 $encode( %mott ,m)
}
On *:dialog:codeur:sclick:13: {
msg $active $encode( %mott ,m)
}
On *:dialog:codeur:sclick:10: {
set %mottt $did(9)
did -ra codeur 11 $decode( %mottt ,m)
}
On *:dialog:codeur:sclick:12: {
msg $active $decode( %mottt ,m)
}