stk/Demos/Widget/Wimage1.stklos

23 lines
618 B
Plaintext
Raw Normal View History

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")))