;******************************************************************************
;
; File name    : mkLabel.stk
; Creation     : 28 Jul 1993
; Modification : 29 Jul 1993
;
;******************************************************************************
;
; STk adaptation of the Tk widget demo.
; mkLabel:
; Create a top-level window that displays a bunch of labels.
;
;******************************************************************************

(provide "mkLabel")

(define (mkLabel)
  (catch (destroy .top-label))
  (toplevel ".top-label")
  (dpos .top-label)
  (wm 'title .top-label "Label Demonstration")`
  (wm 'iconname .top-label "Labels")
  (message ".top-label.m"
	   :font "-Adobe-times-medium-r-normal--*-180*"
	   :aspect 300
	   :text "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.\n\nClick the \"OK\" button when you've seen enough.")
  (frame ".top-label.f" :borderwidth 10)
  (pack 'append .top-label.f
	[frame ".top-label.f.right" :borderwidth 10]
	"right"
	[label ".top-label.f.l1" :text "First label"]
	"top frame w pady 4 expand"
	[label ".top-label.f.l2"
	       :text "Second label, raised just for fun" :relief "raised"]
	"top frame w pady 4 expand"
	[label ".top-label.f.l3" :text "Third label, sunken" :relief "sunken"]
	"top frame w pady 4 expand")
  (pack 'append .top-label.f.right
	[label ".top-label.f.right.bitmap"
	       :bitmap (string-append STk_bitmaps "/face")
	       :borderwidth 2 :relief "sunken"]
	"top"
	[label ".top-label.f.right.caption" :text "Tcl/Tk Proprietor"]
	"bottom")
  (button ".top-label.ok" :text "OK" :command '(destroy .top-label))
  (pack 'append .top-label
	.top-label.m "top frame c" 
	.top-label.f "top expand fill"
	.top-label.ok "bottom fill"))