blob: ce7d31eefcae6ad7fba7d0e296bbf62914fb8586 (
plain)
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
#!/bin/bash
# copyright 2002 lmoore@tump.com under the terms of the GNU LGPL.
# whiptail has trouble being called in the foo=$(whiptail ...) fashion for
# some reason. this is very annoying. this means that we need to use
# temporary files to store the answers from the input and list based boxes
# and then read the answers into a REPLY variable. that just really
# stinks, oh well, that's what you get when you have a weak link
# implementation...
#
# inputBox and passwordBox could be refactored to use a common function
test -z "$WIDTH" && WIDTH=0
test -z "$HEIGHT" && HEIGHT=0
BACKTITLE=""
DIALOG=dialog
HELP=
setApplicationTitle() {
BACKTITLE=$*
}
setHelp() {
HELP="$@"
}
setDimension() {
WIDTH=$1
HEIGHT=$2
}
booleanBox() {
$DIALOG --backtitle "$BACKTITLE" --title "$1" \
--yesno "$2" $HEIGHT $WIDTH
}
msgBox() {
$DIALOG --backtitle "$BACKTITLE" --title "$1" \
--msgbox "$2" $HEIGHT $WIDTH
}
gaugeBox() {
$DIALOG --backtitle "$BACKTITLE" --title "$1" \
--gauge "$2" $HEIGHT $WIDTH 0
}
inputBox() {
local temp=$(mktemp -t) || exit 1
trap "rm -f $temp" 0
REPLY=
$DIALOG --backtitle "$BACKTITLE" --title "$1" \
--inputbox "$2" $HEIGHT $WIDTH "$3" 2> $temp
local status=$?
[ $status = 0 ] && REPLY=$(cat $temp)
rm -f $temp
return $status
}
# Xdialog and {dialog,whiptail} use different mechanism to "qoute" the
# values from a checklist. {dialog,whiptail} uses standard double quoting
# while Xdialog uses a "/" as the separator. the slash is arguably better,
# but the double quoting is more standard. anyway, this function can be
# overridden to allow a derived implementation to change it's quoting
# mechanism to the standard double-quoting one. it receives two
# arguements, the file that has the data and the box type.
_listReplyHook() {
cat $1
}
# this is the base implementation of all the list based boxes, it works
# out nicely that way. the real function just passes it's arguments to
# this function with an extra argument specifying the actual box that
# needs to be rendered.
_genericListBox() {
local box=$1
shift 1
local title=$1
local text=$2
shift 2
local temp=$(mktemp -t) || exit 1
trap "rm -f $temp" 0
REPLY=
$DIALOG $HELP --backtitle "$BACKTITLE" --title "$title" \
$box "$text" $HEIGHT $WIDTH 10 \
"$@" 2> $temp
local status=$?
[ $status = 0 ] && REPLY=$(_listReplyHook $temp $box)
rm -f $temp
return $status
}
menuBox() {
_genericListBox --menu "$@"
}
menuBoxHelp() {
HELP="--item-help"
_genericListBox --menu "$@"
status=$?
HELP=
return $status
}
menuBoxHelpFile() {
HELP="--help-button"
_genericListBox --menu "$@"
status=$?
HELP=
return $status
}
checkBox() {
_genericListBox --checklist "$@"
}
radioBox() {
_genericListBox --radiolist "$@"
}
textBox() {
$DIALOG --backtitle "$BACKTITLE" --title "$1" --textbox "$2" $HEIGHT $WIDTH
}
passwordBox() {
local temp=$(mktemp -t) || exit 1
trap "rm -f $temp" 0
REPLY=
$DIALOG --backtitle "$BACKTITLE" --title "$1" \
--passwordbox "$2" $HEIGHT $WIDTH 2> $temp
local status=$?
[ $status = 0 ] && REPLY=$(cat $temp)
rm -f $temp
return $status
}
_form_gap=2
startForm() {
_form_title=$1
_form_items=0
_form_labels=
_form_text=
}
formItem() {
_form_labels[$_form_items]=$1
_form_text[$_form_items]=$2
let "_form_items += 1"
}
displayForm() {
local temp=$(mktemp -t) || exit 1
max_length=0
for ((i=0; i < ${#_form_labels[@]} ; i++)); do
label=${_form_labels[$i]}
length=`expr length $label`
if [ $length -gt $max_length ]; then
max_length=$length
fi
done
let "max_length += 2"
local form=
local xpos=1
for ((i=0; i < $_form_items ; i++)); do
label=${_form_labels[$i]}
text=${_form_text[$i]}
if [ "$text" == "" ]; then
text='_empty_'
fi
form=`echo -e "$form $label $xpos 1" $text "$xpos $max_length 30 30"`
let "xpos += _form_gap"
done
$DIALOG --form "$_form_title" 0 0 20 $form 2> $temp
local status=$?
[ $status = 0 ] && REPLY=$(cat $temp)
rm -f $temp
return $status
}
|
