Anonymous

menu * {
  Calculator:/dialog -m Calculator Calculator
}
dialog Calculator {
  size -1 -1 140 130
  title "pointless Calculator - by Galxx!"
  option dbu 
  text "first number here" , 1, 20 15 45 25
  edit " " , 2, 65 15 50 10
  text "second number here" , 3, 20 30 45 25
  edit " " , 4, 65 30 50 10
  box "actions", 5, 15 45 120 100, Center
  button "Add" , 6, 30 55 15 15
  button "Subtract" , 7, 50 55 35 15
  button "Multiply" , 8, 90 55 35 15
  button "Divide" , 9, 63 75 25 15
  button "Exit" , 10, 30 110 25 15, Cancel
  edit " " , 11, 65 110 35 15, return %result
  text "Answer" , 12, 72 98 20 10
}
on *:dialog:Calculator:sclick:6:{
  set %result
  %result = $calc($did(2)+$did(4))
  /unset %result

}

on *:dialog:Calculator:sclick:7:{
  set %result
  %result = $calc($did(2)-$did(4))
  /unset %result

}

on *:dialog:Calculator:sclick:8:{
  set %result
  %result = $calc($did(2)*$did(4))
  /unset %result

}

on *:dialog:Calculator:sclick:9:{
  set %result
  %result = $calc($did(2)/$did(4))
  /unset %result

}