#-----------------------------------
# code used only in the intro
#-----------------------------------

proc IntroWindow {} {

global BITMAPPATH

#  Put up an introductory window about the browser -- with the tree logo

	catch {destroy .intro}
        toplevel        .intro
        wm positionfrom .intro user
        wm sizefrom     .intro program
        wm geometry     .intro +0+0
        wm title        .intro ""

	global S2K_VERSION
	set mess1 "Sequoia 2000: Lassen Text Browser"
	set mess2 "\nBy Ray R. Larson\n"
	set mess3 "University of California At Berkeley\n\n"
	set mess4 "$S2K_VERSION"
	set mess5 "******************\n"
	set mess6 "Note: This is a early (pre-alpha) version\n"
	set mess7 "of the browser software - not all functions\n"
	set mess8 "are working. Many changes and additions are\n"
        set mess9 "expected before the first release version.\n"
	set messag1 "$mess1"
        set messag2 "$mess2$mess3$mess4"
        set messag3 "$mess5$mess6$mess7$mess8$mess9"

        # introduction message
        frame .intro.intr
        message .intro.intr.m1 -font *times-medium-r-normal--*-240* \
                -justify center -aspect 1000 \
                -text "$messag1" -foreground OrangeRed1
        message .intro.intr.m2 -font *times-medium-r-normal--*-180* \
                -justify center -aspect 800 \
                -text "$messag2" -foreground LightSkyBlue4
        message .intro.intr.m3 -font *times-medium-r-normal--*-180* \
                -justify center -aspect 800 \
                -text "$messag3" -foreground goldenrod2

        label .intro.b -bitmap @$BITMAPPATH/SeqMed.xbm -borderwidth 2 -relief raised -foreground SpringGreen4
        
        pack append .intro .intro.b {left fill} .intro.intr {left filly fillx}
        pack append .intro.intr .intro.intr.m1 {top fillx } .intro.intr.m2 {top fillx } .intro.intr.m3 {top fillx}

	tkwait visibility .intro.intr.m2
        update

        bind .intro.intr <Any-Button> { destroy .intro}
        bind .intro.intr.m1 <Any-Button> { destroy .intro}
        bind .intro.intr.m2 <Any-Button> { destroy .intro}
        bind .intro.intr.m3 <Any-Button> { destroy .intro}
        bind .intro.b <Any-Button> { destroy .intro}

#end IntroWindow
}

