Calculator

dialog calc {
  title "Calculator"
  size -1 -1 74 74
  option dbu
  button "7", 1, 6 18 10 10
  button "8", 2, 20 18 10 10
  button "9", 3, 34 18 10 10
  button "+", 4, 47 18 10 10
  button "4", 5, 6 32 10 10
  button "5", 6, 20 32 10 10
  button "-", 7, 47 32 10 10
  button "6", 8, 34 32 10 10
  button "1", 9, 5 45 10 10
  button "2", 10, 19 45 10 10
  button "3", 11, 33 45 10 10
  button "0", 12, 5 59 25 10
  button "=", 13, 47 45 10 23
  button ".", 14, 34 59 10 10
  edit "", 15, 6 2 65 11
  button "/", 16, 60 18 10 10
  button "*", 17, 60 32 10 10
}
on *:DIALOG:calc:sclick:1:did -a calc 15 7
on *:DIALOG:calc:sclick:2:did -a calc 15 8
on *:DIALOG:calc:sclick:3:did -a calc 15 9
on *:DIALOG:calc:sclick:4:did -a calc 15 +
on *:DIALOG:calc:sclick:5:did -a calc 15 4
on *:DIALOG:calc:sclick:6:did -a calc 15 5
on *:DIALOG:calc:sclick:7:did -a calc 15 -
on *:DIALOG:calc:sclick:8:did -a calc 15 6
on *:DIALOG:calc:sclick:9:did -a calc 15 1
on *:DIALOG:calc:sclick:10:did -a calc 15 2
on *:DIALOG:calc:sclick:11:did -a calc 15 3
on *:DIALOG:calc:sclick:12:did -a calc 15 0
on *:DIALOG:calc:sclick:13:did -ra calc 15 $calc($did(calc,15).text)
on *:DIALOG:calc:sclick:14:did -a calc 15 .
on *:DIALOG:calc:sclick:16:did -a calc 15 /
on *:DIALOG:calc:sclick:17:did -a calc 15 *
alias calc { dialog -m calc calc }