CALCULATRICE EN DIALOG

menu channel,status,query {
  .-
  oO°Calculette°Oo :/dialog -m ca ca
  .-
}
dialog ca {
  title "Calculatrice by walt2001"
  size -1 -1 154 80
  option dbu
  edit "", 1, 16 6 118 11, read
  button "0", 2, 9 56 31 10, flat
  button "1", 3, 9 45 31 10, flat
  button "2", 4, 9 34 31 10, flat
  button "3", 5, 9 23 31 10, flat
  button "4", 6, 41 56 31 10, flat
  button "5", 7, 41 45 31 10, flat
  button "6", 8, 41 34 31 10, flat
  button "7", 9, 41 23 31 10, flat
  button "8", 10, 73 56 31 10, flat
  button "9", 11, 73 45 31 10, flat
  button "C", 12, 73 34 31 10, flat
  button ",", 13, 73 23 31 10, flat
  button "+", 14, 105 56 31 10, flat
  button "x", 15, 105 45 31 10, flat
  button "÷", 16, 105 34 31 10, flat
  button "-", 17, 105 23 31 10, flat
  button "=", 18, 138 29 12 29, flat
  button "Fermer", 19, 18 68 115 11, flat ok
}
on *:dialog:ca:sclick:*: {
  if ($did == 2) { did -a ca 1 0 }
  if ($did == 3) { did -a ca 1 1 }
  if ($did == 4) { did -a ca 1 2 }
  if ($did == 5) { did -a ca 1 3 }
  if ($did == 6) { did -a ca 1 4 }
  if ($did == 7) { did -a ca 1 5 }
  if ($did == 8) { did -a ca 1 6 }
  if ($did == 9) { did -a ca 1 7 }
  if ($did == 10) { did -a ca 1 8 }
  if ($did == 11) { did -a ca 1 9 }
  if ($did == 12) { /did -r ca 1 C }
  if ($did == 13) { did -a ca 1 . }
  if ($did == 14) { did -a ca 1 + }
  if ($did == 17) { did -a ca 1 - }
  if ($did == 15) { did -a ca 1 * }
  if ($did == 16) { did -a ca 1 / }
  if ($did == 18) { did -ra ca 1 $calc($did(1)) }
}