;******************************************************************************
;
; File name     : mkTear.stk
; Creation date : Aug-10-1993
; Last update   : Aug-10-1993
;
;******************************************************************************
;
; STk adaptation of the Tk widget demo.
;
; mkTear:
; Create a top-level window that displays a help message on tear-off menus.  
;
;******************************************************************************

(provide "mkTear")

(define (mkTear)
  (catch (destroy .top-tear))
  (toplevel ".top-tear")
  (dpos .top-tear)
  (wm 'title .top-tear "Information On Tear-Off Menus")
  (wm 'iconname .top-tear "Info")
  (message ".top-tear.m"
	   :font "-Adobe-times-medium-r-normal--*-180*" :aspect 250
	   :text "To tear off a menu, press mouse button 2 over the menubutton for the menu, then drag the menu with button 2 held down.  You can reposition a torn-off menu by pressing button 2 on it and dragging again.  To unpost the menu, click mouse button 1 over the menu's menubutton.\n\nClick the \"OK\" button when you're finished with this window.")
  (button ".top-tear.ok" :text "OK" :command '(destroy .top-tear))
  (pack .top-tear.m .top-tear.ok :pady 5))