Someone

dialog calc {
  title "Calculator"
  size -1 -1 125 208
  edit "", 1, 6 7 108 20
  button "1", 2, 7 28 34 25
  button "2", 3, 44 29 33 25
  button "3", 4, 81 28 31 25
  button "4", 5, 9 59 31 25
  button "5", 6, 44 60 34 25
  button "6", 7, 81 60 31 25
  button "7", 8, 9 89 33 25
  button "8", 9, 45 90 32 25
  button "9", 10, 82 90 33 25
  button ".", 11, 9 120 35 25
  button "0", 12, 47 120 31 25
  button "00", 13, 84 120 32 25
  button "+", 14, 9 152 37 25
  button "-", 15, 50 151 29 25
  button "*", 16, 85 153 30 25
  button "=", 17, 9 181 107 25
}

on 1:dialog:calc:sclick:*: {
  if ($did == 2) did -a calc 1 1
  if ($did == 3) did -a calc 1 2
  if ($did == 4) did -a calc 1 3
  if ($did == 5) did -a calc 1 4
  if ($did == 6) did -a calc 1 5
  if ($did == 7) did -a calc 1 6
  if ($did == 8) did -a calc 1 7
  if ($did == 9) did -a calc 1 8
  if ($did == 10) did -a calc 1 9
  if ($did == 11) did -a calc 1 .
  if ($did == 12) did -a calc 1 0
  if ($did == 13) did -a calc 1 00
  if ($did == 14) did -a calc 1 +
  if ($did == 15) did -a calc 1 -
  if ($did == 16) did -a calc 1 *
  if ($did == 17) did -ra calc 1 $calc($did(1))
}