;******************************************************************************
;
; File name    : mkListbox3.stk
; Creation     : Jul-29-1993
; Modification : Jul-30-1993
;
;******************************************************************************
;
; STk adaptation of the Tk widget demo.
;
; mkListbox3:
; Create a top-level window containing a listbox with a bunch of well-known
; sayings.  The listbox can be scrolled or scanned in two dimensions.
;
;******************************************************************************

(provide "mkListbox3")

(define (mkListbox3)
  (catch (destroy .top-listbox3))
  (toplevel ".top-listbox3")
  (dpos .top-listbox3)
  (wm 'title .top-listbox3 "Listbox Demonstration (well-known sayings)")
  (wm 'iconname .top-listbox3 "Listbox")
  (wm 'minsize .top-listbox3 1 1)
  (message ".top-listbox3.msg"
	   :font "-Adobe-times-medium-r-normal--*-180*"
	   :aspect 300
	   :text "The listbox below contains a collection of well-known sayings.  You can scan the list using either of the scrollbars or by dragging in the listbox window with <Shift> key and button 2 pressed.\n\nClick the \"OK\" button when you're done.")
  (frame ".top-listbox3.f" :borderwidth 10)
  (button ".top-listbox3.ok" :text "OK" :command '(destroy .top-listbox3))
  (pack .top-listbox3.msg :side "top")
  (pack .top-listbox3.ok :side "bottom" :fill "x")
  (pack .top-listbox3.f :side "top" :expand "yes" :fill "y")

  (scrollbar ".top-listbox3.f.sy"
	     :relief "sunken" :command ".top-listbox3.f.l 'yview")
  (scrollbar ".top-listbox3.f.sx" 
	     :relief "sunken" :orient "horizontal"
	     :command ".top-listbox3.f.l 'xview")
  (listbox ".top-listbox3.f.l"
	   :geometry "20x10" :relief "sunken" :setgrid 1
	   :yscroll ".top-listbox3.f.sy 'set"
	   :xscroll ".top-listbox3.f.sx 'set")
  (pack .top-listbox3.f.sy :side "right" :fill "y")
  (pack .top-listbox3.f.sx :side "bottom" :fill "x")
  (pack .top-listbox3.f.l :expand "yes" :fill "y")

  (.top-listbox3.f.l 'insert 0 
   "Waste not, want not" "Early to bed and early to rise makes a man healthy, wealthy, and wise" "Ask not what your country can do for you, ask what you can do for your country" "I shall return" "NOT" "A picture is worth a thousand words" "User interfaces are hard to build" "Thou shalt not steal" "A penny for your thoughts" "Fool me once, shame on you;  fool me twice, shame on me" "Every cloud has a silver lining" "Where there's smoke there's fire" "It takes one to know one" "Curiosity killed the cat" "Take this job and shove it" "Up a creek without a paddle" "I'm mad as hell and I'm not going to take it any more" "An apple a day keeps the doctor away" "Don't look a gift horse in the mouth"))