(define btn-activate
  (button title: "Activate"
          action: (lambda (args)
                    (print "Activate!"))))