alias poly { unset %poly-var, %poly-do | if !$dialog(poly) { dialog -m poly BWcalc } }
dialog BWcalc {
  title "Hesap Makinesi"
  size -1 -1 66 93
  option dbu
  button "7", 7, 2 16 14 14, flat
  button "8", 8, 17 16 14 14, flat
  button "9", 9, 32 16 14 14, flat
  button "1", 1, 2 46 14 14, flat
  button "4", 4, 2 31 14 14, flat
  button "5", 5, 17 31 14 14, flat
  button "6", 6, 32 31 14 14, flat
  button "2", 2, 17 46 14 14, flat
  button "3", 3, 32 46 14 14, flat
  button ".", 11, 2 61 14 14, flat
  button "0", 10, 17 61 14 14, flat
  button "=", 12, 32 61 14 14, flat
  button "+", 13, 50 16 14 14
  button "-", 14, 50 31 14 14
  button "*", 15, 50 46 14 14
  button "/", 16, 50 61 14 14
  button "+/-", 17, 2 77 14 14
  button "^", 18, 50 77 14 14
  button "C", 19, 50 1 14 14, flat
  edit "", 20, 2 2 48 12, read autohs limit 255
  button "x²", 21, 32 77 14 14
  button "x³", 22, 17 77 14 14
}
on *:dialog:poly:*:*: {
  if ($devent == sclick) {
    if $did isnum 1-10 { did -a $dname 20 $did($did) }
    if $did == 11 { if . !isin $did(20) { did -a $dname 20 . } }
    if $did == 17 { if $calc(-1 * $did(20)) { did -ra $dname 20 $v1 } }
    if $did isnum 13-16 || $did == 18 {
      set %poly-var $did(20)
      set %poly-do $did($did)
      did -r $dname 20
    }
    if $did == 12 {
      if %poly-var {
        did -ra $dname 20 $calc(%poly-var %poly-do $did(20))
        unset %poly-do, %poly-var
      }
    }
    if $did isnum 21-22 {
      did -ra $dname 20 $calc($did(20) ^ $iif($did == 21,2,3))
    }
    if $did == 19 { did -r $dname 20 | unset %poly-do, %poly-var }
  }
}