CALCULATRICE

; 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) }
}