;;;; ;;;; STk adaptation of the Tk widget demo. ;;;; ;;;; This demonstration script displays two image widgets. ;;;; (require "Tk-classes") (define image-directory *STk-images*) (define (demo-image2) (let* ((w (make-demo-toplevel "image2" "Image Demonstration #2" "This demonstration allows you to view images using an Tk \"photo\" image. First type a directory name in the listbox, then type Return to load the directory into the listbox. Then double-click on a file name in the listbox to see that image.")) (dir (make :parent w :width 30 :text-variable 'image-directory)) (lst (make :parent w :value '("earth.gif" "earthris.gif" "mickey.gif" "teapot.ppm"))) (img (make )) (lab (make