; Calculator Dialog
; By Eric Marcarelli

alias /calc dialog -am Calculator Calculator
dialog Calculator {
  title "Calculator"
  size -1 -1 128 59
  option dbu
  edit "", 1, 1 11 124 10
  button "Solve", 2, 13 43 37 12
  edit "", 3, 1 31 123 10
  button "Clear", 4, 80 43 37 12
  text "Enter the problem into the top box and click solve.", 5, 4 2 121 8
  button "0", 6, 2 21 8 11
  button "1", 7, 10 21 8 11
  button "2", 8, 18 21 8 11
  button "3", 9, 26 21 8 11
  button "4", 10, 34 21 8 11
  button "5", 11, 42 21 8 11
  button "6", 12, 50 21 8 11
  button "7", 13, 58 21 8 11
  button "8", 14, 66 21 8 11
  button "9", 15, 74 21 8 11
  button "+", 17, 90 21 8 11
  button "-", 18, 98 21 8 11
  button "x", 19, 106 21 8 11
  button "/", 20, 114 21 8 11
}

on *:dialog:Calculator:sclick:6: {
  did -a Calculator 1 0 
}
on *:dialog:Calculator:sclick:7: {
  did -a Calculator 1 1 
}
on *:dialog:Calculator:sclick:8: {
  did -a Calculator 1 2 
}
on *:dialog:Calculator:sclick:9: {
  did -a Calculator 1 3 
}
on *:dialog:Calculator:sclick:10: {
  did -a Calculator 1 4 
}
on *:dialog:Calculator:sclick:11: {
  did -a Calculator 1 5 
}
on *:dialog:Calculator:sclick:12: {
  did -a Calculator 1 6 
}
on *:dialog:Calculator:sclick:13: {
  did -a Calculator 1 7 
}
on *:dialog:Calculator:sclick:14: {
  did -a Calculator 1 8 
}
on *:dialog:Calculator:sclick:15: {
  did -a Calculator 1 9 
}
on *:dialog:Calculator:sclick:17: {
  did -a Calculator 1 + 
}
on *:dialog:Calculator:sclick:18: {
  did -a Calculator 1 - 
}
on *:dialog:Calculator:sclick:19: {
  did -a Calculator 1 * 
}
on *:dialog:Calculator:sclick:20: {
  did -a Calculator 1 / 
}


on *:dialog:Calculator:sclick:2: {
  did -a Calculator 3 $did(1) = $calc($did(1)) 
}

on *:dialog:Calculator:sclick:4: {
  did -r Calculator 1
  did -r Calculator 3
}