exerb-studio/form/eval.rb


module Form

  class Eval < VRModalDialog

    def construct
      self.caption = 'Eval'

      w, h = 415, 320
      self.move(@screen.w / 2 - w / 2, @screen.h / 2 - h / 2, w, h)

      ctrls = []
      ctrls << self.addControl(VRStatic, "lab1",   "Source", 5,   5, 400,  15)
      ctrls << self.addControl(VRText,   "source", "",       5,  20, 400, 150)
      ctrls << self.addControl(VRStatic, "lab2",   "Result", 5, 175, 400,  15)
      ctrls << self.addControl(VRText,   "result", "",       5, 190, 400, 100)

      ctrls << self.addControl(VRButton, "btn_execute", "&Execute", 0, 0, 5, 5)

      font = @screen.factory.newfont("Terminal", 14)
      ctrls.each { |ctrl| ctrl.setFont(font) }
    end

    def btn_execute_clicked
      begin
        @result.text = eval(@source.text).inspect
      rescue Exception => e
        @result.text = e.inspect
      end
    end

  end

end