STklos Example

Launch an xterm to test this program with
  • the non-installed version of STk (test-stk)
  • the installed version of STk (stk)
      (require "Tk-classes")
      (define l (make <Button>
                      :text    "Hello, world"
                      :font    "10x20"
                      :command (lambda () (exit 0))))
      (pack l)
Cut the 3 expressions above and Paste them in the xterm window as soon as it appears.
Erick Gallesio
Last modified: Mon Apr 13 10:13:04 CEST 1998