;;;; ;;;; STk adaptation of the Tk widget demo. ;;;; ;;;; This demonstration script creates a toplevel window containing ;;;; several label widgets. ;;;; (require "Button") (define (demo-label) (let* ((w (make-demo-toplevel "label" "Label Demonstration" "Five labels are displayed below: three textual ones on the left, and a bitmap label and a text label on the right. Labels are pretty boring because you can't do anything with them.")) (left (make :parent w)) (right (make :parent w))) ;; The labels on the left (pack (make