1996-09-27 06:29:02 -04:00
|
|
|
;;;;
|
|
|
|
|
;;;; STk adaptation of the Tk widget demo.
|
|
|
|
|
;;;;
|
|
|
|
|
;;;; This demonstration script displays two image widgets.
|
|
|
|
|
;;;;
|
|
|
|
|
|
1998-04-10 06:59:06 -04:00
|
|
|
(require "Tk-classes")
|
1996-09-27 06:29:02 -04:00
|
|
|
|
|
|
|
|
(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 <Label>
|
|
|
|
|
:parent w
|
|
|
|
|
:image (make <Photo-Image>
|
|
|
|
|
:file (string-append *STk-images* "earth.gif")))
|
|
|
|
|
(make <Label>
|
|
|
|
|
:parent w
|
|
|
|
|
:image (make <Photo-Image>
|
|
|
|
|
:file (string-append *STk-images* "earthris.gif")))
|
|
|
|
|
:side "top" :padx ".5m" :pady ".5m")))
|
