;;;; ;;;; STk adaptation of the Tk widget demo. ;;;; ;;;; This demonstration script displays two image widgets. ;;;; (require "Tk-classes") (define (demo-image1) (let ((w (make-demo-toplevel "image1" "Image Demonstration #1" "This demonstration displays two images, each in a separate label widget."))) (pack (make