 Exemple en STklos
Exemple en STklos
      (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
 Retour