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

Erick Gallesio

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