# Exemple en STklos

Lancer un xterm pour tester ce programme avec

- la version non installée de STk (test-stk)
- la version installée de STk (stk)

          (require "Tk-classes")
          (define l (make <Button>
                          :text    "Hello, world"
                          :font    "10x20"
                          :command (lambda () (exit 0))))
          (pack l)

Coupez les 3 expressions précédentes et Collez les dans la fenêtre xterm dès que celle-ci apparaît.

Retour

Last modified: Tue Mar 10 18:18:42 CET 1998