- ; Calaculatrice Offert Par Le_Mec ® ;
- alias calc { if (!$dialog(calc)) { dialog -mdr calc calc } }
- dialog calc {
- title "Calculatrice"
- size -1 -1 235 200
- menu "Fichier"
- item "Fermer", 1, ok
- edit "", 2, 5 5 225 20, read, autohs
- button "(", 3, 15 30 50 20
- button ")", 4, 65 30 50 20
- button "Effacer", 5, 115 30 50 20
- button "7", 6, 15 50 50 20
- button "8", 7, 65 50 50 20
- button "9", 8, 115 50 50 20
- button "4", 9, 15 70 50 20
- button "5", 10, 65 70 50 20
- button "6", 11, 115 70 50 20
- button "1", 12, 15 90 50 20
- button "2", 13, 65 90 50 20
- button "3", 14, 115 90 50 20
- button "0", 15, 15 110 50 20
- button ".", 16, 65 110 50 20
- button "+", 17, 175 30 50 20
- button "-", 18, 175 50 50 20
- button "*", 19, 175 70 50 20
- button "/", 20, 175 90 50 20
- button "=", 21, 115 110 110 20
- box "Convertir", 22, 15 140 130 50
- button "?uro", 23, 30 158 50 20
- button "Franc", 24, 80 158 50 20
- button "Fermer", 25, 155 158 70 25, cancel
- box "", 26, -20 -20 700 21
- }
- on *:dialog:calc:menu:*: { if ($did == 1) { dialog -x calc calc } }
- on *:dialog:calc:sclick:*: {
- if ($did == 3) { did -a calc 2 ( }
- if ($did == 4) { did -a calc 2 ) }
- if ($did == 5) { did -r calc 2 }
- if ($did == 6) { did -a calc 2 7 }
- if ($did == 7) { did -a calc 2 8 }
- if ($did == 8) { did -a calc 2 9 }
- if ($did == 9) { did -a calc 2 4 }
- if ($did == 10) { did -a calc 2 5 }
- if ($did == 11) { did -a calc 2 6 }
- if ($did == 12) { did -a calc 2 1 }
- if ($did == 13) { did -a calc 2 2 }
- if ($did == 14) { did -a calc 2 3 }
- if ($did == 15) { did -a calc 2 0 }
- if ($did == 16) { did -a calc 2 . }
- if ($did == 17) { did -a calc 2 + }
- if ($did == 18) { did -a calc 2 - }
- if ($did == 19) { did -a calc 2 * }
- if ($did == 20) { did -a calc 2 / }
- if ($did == 21) { did -ra calc 2 $calc($did(2)) }
- if ($did == 23) { did -ra calc 2 $calc($calc($did(2)) / 6.55957) }
- if ($did == 24) { did -ra calc 2 $calc($calc($did(2)) * 6.55957) }
- }
-
; Calaculatrice Offert Par Le_Mec ® ;
alias calc { if (!$dialog(calc)) { dialog -mdr calc calc } }
dialog calc {
title "Calculatrice"
size -1 -1 235 200
menu "Fichier"
item "Fermer", 1, ok
edit "", 2, 5 5 225 20, read, autohs
button "(", 3, 15 30 50 20
button ")", 4, 65 30 50 20
button "Effacer", 5, 115 30 50 20
button "7", 6, 15 50 50 20
button "8", 7, 65 50 50 20
button "9", 8, 115 50 50 20
button "4", 9, 15 70 50 20
button "5", 10, 65 70 50 20
button "6", 11, 115 70 50 20
button "1", 12, 15 90 50 20
button "2", 13, 65 90 50 20
button "3", 14, 115 90 50 20
button "0", 15, 15 110 50 20
button ".", 16, 65 110 50 20
button "+", 17, 175 30 50 20
button "-", 18, 175 50 50 20
button "*", 19, 175 70 50 20
button "/", 20, 175 90 50 20
button "=", 21, 115 110 110 20
box "Convertir", 22, 15 140 130 50
button "?uro", 23, 30 158 50 20
button "Franc", 24, 80 158 50 20
button "Fermer", 25, 155 158 70 25, cancel
box "", 26, -20 -20 700 21
}
on *:dialog:calc:menu:*: { if ($did == 1) { dialog -x calc calc } }
on *:dialog:calc:sclick:*: {
if ($did == 3) { did -a calc 2 ( }
if ($did == 4) { did -a calc 2 ) }
if ($did == 5) { did -r calc 2 }
if ($did == 6) { did -a calc 2 7 }
if ($did == 7) { did -a calc 2 8 }
if ($did == 8) { did -a calc 2 9 }
if ($did == 9) { did -a calc 2 4 }
if ($did == 10) { did -a calc 2 5 }
if ($did == 11) { did -a calc 2 6 }
if ($did == 12) { did -a calc 2 1 }
if ($did == 13) { did -a calc 2 2 }
if ($did == 14) { did -a calc 2 3 }
if ($did == 15) { did -a calc 2 0 }
if ($did == 16) { did -a calc 2 . }
if ($did == 17) { did -a calc 2 + }
if ($did == 18) { did -a calc 2 - }
if ($did == 19) { did -a calc 2 * }
if ($did == 20) { did -a calc 2 / }
if ($did == 21) { did -ra calc 2 $calc($did(2)) }
if ($did == 23) { did -ra calc 2 $calc($calc($did(2)) / 6.55957) }
if ($did == 24) { did -ra calc 2 $calc($calc($did(2)) * 6.55957) }
}