# 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.

Top

Last modified: Mon Apr 13 10:13:04 CEST 1998