entry .e -width 30
  label .l -textvariable result
  button .b -text Calculate -command {
      # A production version needs security, and so on.
    set result "The answer is '[expr [.e get]]'."
  }

  pack .e .l .b -expand true -fill x