 STklos Example
STklos Example
      (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
 Top