CALCULATRICE EN DIALOG

menu menubar { 
  -
  Calculatrice:dialog -m Calculatrice Calculatrice
}
alias Calculatrice {
dialog -m dialog -m Calculatrice Calculatrice
}
dialog Calculatrice {
  title "Calculatrice"
  size -1 -1 61 109
  option dbu
  edit "", 1, 0 13 61 10, read autohs
  edit "", 2, 0 23 61 10, read autohs
  text "Calculatrice par Tom_mlkj", 3, 0 2 61 8
  button "1", 4, 2 35 13 12
  button "2", 5, 16 35 13 12
  button "3", 6, 30 35 13 12
  button "4", 7, 2 48 13 12
  button "5", 8, 16 48 13 12
  button "6", 9, 30 48 13 12
  button "7", 10, 2 61 13 12
  button "8", 11, 16 61 13 12
  button "9", 12, 30 61 13 12
  button "0", 13, 2 74 13 12
  button ".", 14, 16 74 13 12
  button "C", 15, 30 74 13 12
  button "+", 16, 44 35 13 12
  button "-", 17, 44 48 13 12
  button "x", 18, 44 61 13 12
  button "÷", 19, 44 74 13 12
  button "Fermer", 20, 2 96 55 12, cancel
  button "=", 21, 2 87 55 8
}
On *:dialog:calculatrice:sclick:*:{
  if ( $did == 4 ) { did -r Calculatrice 2 | did -a Calculatrice 1 1 }
  if ( $did == 5 ) { did -r Calculatrice 2 | did -a Calculatrice 1 2 }
  if ( $did == 6 ) { did -r Calculatrice 2 | did -a Calculatrice 1 3 }
  if ( $did == 7 ) { did -r Calculatrice 2 | did -a Calculatrice 1 4 }
  if ( $did == 8 ) { did -r Calculatrice 2 | did -a Calculatrice 1 5 }
  if ( $did == 9 ) { did -r Calculatrice 2 | did -a Calculatrice 1 6 }
  if ( $did == 10 ) { did -r Calculatrice 2 | did -a Calculatrice 1 7 }
  if ( $did == 11 ) { did -r Calculatrice 2 | did -a Calculatrice 1 8 }
  if ( $did == 12 ) { did -r Calculatrice 2 | did -a Calculatrice 1 9 }
  if ( $did == 13 ) { did -r Calculatrice 2 | did -a Calculatrice 1 0 }
  if ( $did == 14 ) { did -r Calculatrice 2 | did -a Calculatrice 1 . }
  if ( $did == 15 ) { did -r Calculatrice 2 | did -r Calculatrice 1 }
  if ( $did == 16 ) { did -r Calculatrice 2 | did -a Calculatrice 1 + }
  if ( $did == 17 ) { did -r Calculatrice 2 | did -a Calculatrice 1 - }
  if ( $did == 18 ) { did -r Calculatrice 2 | did -a Calculatrice 1 * }
  if ( $did == 19 ) { did -r Calculatrice 2 | did -a Calculatrice 1 / }
  if ( $did == 20 ) { echo -s Par 5Tom_mlkj. }
  if ( $did == 21 ) { set %calcul.calculatrice  $calc($did(1)) | did -r Calculatrice 1 | did -a Calculatrice 2 %calcul.calculatrice | if ( %calcul.calculatrice == 0 ) { did -a Calculatrice 2 ou Erreur. } }
}