STklos Example

Launch an xterm to test this program with
      (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