###########################################################################
# Copyright (c) 1998, Jeffrey Glen Rennie
# All rights reserved.
###########################################################################

namespace eval splash {
    set root .splash
}

proc splash::DrawSplashScreen { } {
    variable root

    toplevel $root
    wm title $root "Web Smacker"
    set lblWebSmacker $root.lblWebSmacker
    label $lblWebSmacker -text "Web Smacker" -font bold
    set lblCopyright $root.lblCopyright
    label $lblCopyright -text "Copyright 1998, Jeffrey Glen Rennie"
    set msgDisclaimer $root.msgDisclaimer
    message $msgDisclaimer -text "Web Smacker comes with ABSOLUTELY\
	    NO WARRANTY.  This is free software and you are welcome to\
	    redistribute it under certain conditions.  See help for\
	    details."
    pack $lblWebSmacker $lblCopyright $msgDisclaimer
}

proc splash::DoSplashScreen {} {
    variable root
    DrawSplashScreen
    after 5000 "catch {destroy $root}"
}

###########################################################################
# Copyright (c) 1998, Jeffrey Glen Rennie
# All rights reserved.
###########################################################################
