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

Erick Gallesio

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