### Copyright (C) 1996,97 Per Zacho
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software
### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

set module(creator) "Per Zacho\n  pzacho@imada.ou.dk\n  www.imada.sdu.dk\/\~pzacho"
set module(name) "Bash"
set module(email) "pzacho@imada.sdu.dk"
set module(language) "english"

set setup(dotfile) {
  {bashrc "Options read when invoking Bash shell" ~/.bashrc-dotfile "###"}
  {inputrc "Options read by Bash commandline editor" ~/.inputrc-dotfile "###"}
}

foreach template {
    prompting alias commHist commLine completion job bindKey mail ttyApp
    errorHandling fileDir path sysLimits version} {
	import $template.template
    }

source [lindex $argv 1]/promptWidget.template

proc displayLogo {path imageList} {
    if {[winfo geometry .] != "1x1+0+0"} {
	if {[winfo depth .] == 1} {
	    set type 1
	} {
	    set type 8
	}
	image create photo logo -file "${path}/logo${type}.gif"
	image create photo vlogo
	label .label -image vlogo
	pack .label -before .menu -fill x
	wm minsize . 290 87
	wm resizable . 0 1
	displayLogoAux $imageList
    } {
	after 1000 "displayLogo $path \{$imageList\}"
    }
}

proc displayLogoAux {imageList} {
    vlogo copy logo -from 0 [expr [expr [lindex $imageList 0] - 1] * 40] 290 [expr [lindex $imageList 0] * 40]
    if {[lindex $imageList [lindex $imageList 0]] != 0} {
	set temp [lindex $imageList 0]
	set imageList [lreplace $imageList 0 0 [expr [lindex $imageList 0] + 1]]
	if {[lindex $imageList 0] >= [llength $imageList]} {
	    set imageList [lreplace $imageList 0 0 1]
	}
	after [lindex $imageList $temp] "displayLogoAux \{$imageList\}"
    }
}

### wait 10+ sec for dotfile generator to complete

if {[info exists tk_version]} {
    after 10000 "displayLogo [lindex $argv 1] {1 7000 5000 5000 60000}"
}