1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
### 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}"
}
|
