handlers/easydialog.sh

   1 #!/bin/bash
   2
   3 # copyright 2002 lmoore@tump.com under the terms of the GNU LGPL.
   4 # additions 2005 collective@riseup.net
   5
   6 # whiptail has trouble being called in the foo=$(whiptail ...) fashion for
   7 # some reason.  this is very annoying.  this means that we need to use
   8 # temporary files to store the answers from the input and list based boxes
   9 # and then read the answers into a REPLY variable.  that just really
  10 # stinks, oh well, that's what you get when you have a weak link
  11 # implementation...
  12 #
  13 # inputBox and passwordBox could be refactored to use a common function
  14
  15 test -z "$WIDTH" && WIDTH=0
  16 test -z "$HEIGHT" && HEIGHT=0
  17 BACKTITLE=""
  18 DIALOG=dialog
  19 HELP=
  20
  21 setApplicationTitle() {
  22     BACKTITLE=$*
  23 }
  24
  25 setHelp() {
  26     HELP="$@"
  27 }
  28
  29 setDimension() {
  30     WIDTH=$1
  31     HEIGHT=$2
  32 }
  33
  34 booleanBox() {
  35     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
  36         --yesno "$2" $HEIGHT $WIDTH
  37 }
  38
  39 msgBox() {
  40     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
  41         --msgbox "$2" $HEIGHT $WIDTH
  42 }
  43
  44 gaugeBox() {
  45     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
  46         --gauge "$2" $HEIGHT $WIDTH 0
  47 }
  48
  49 inputBox() {
  50     local temp=$(mktemp -t) || exit 1
  51     trap "rm -f $temp" 0
  52     REPLY=
  53     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
  54         --inputbox "$2" $HEIGHT $WIDTH "$3" 2> $temp
  55     local status=$?
  56     [ $status = 0 ] && REPLY=$(cat $temp)
  57     rm -f $temp
  58     return $status
  59 }
  60
  61 # Xdialog and {dialog,whiptail} use different mechanism to "qoute" the
  62 # values from a checklist.  {dialog,whiptail} uses standard double quoting
  63 # while Xdialog uses a "/" as the separator.  the slash is arguably better,
  64 # but the double quoting is more standard.  anyway, this function can be
  65 # overridden to allow a derived implementation to change it's quoting
  66 # mechanism to the standard double-quoting one.  it receives two
  67 # arguements, the file that has the data and the box type.
  68 _listReplyHook() {
  69     cat $1
  70 }
  71
  72 # this is the base implementation of all the list based boxes, it works
  73 # out nicely that way.  the real function just passes it's arguments to
  74 # this function with an extra argument specifying the actual box that
  75 # needs to be rendered.
  76 _genericListBox() {
  77     local box=$1
  78     shift 1
  79     local title=$1
  80     local text=$2
  81     shift 2
  82     local temp=$(mktemp -t) || exit 1
  83     trap "rm -f $temp" 0
  84     REPLY=
  85     $DIALOG $HELP $_DEFAULT --backtitle "$BACKTITLE" --title "$title" \
  86         $box "$text" $HEIGHT $WIDTH 10 \
  87         "$@" 2> $temp
  88     local status=$?
  89     [ $status = 0 ] && REPLY=$(_listReplyHook $temp $box)
  90     rm -f $temp
  91     _DEFAULT=
  92     return $status
  93 }
  94
  95 setDefault() {
  96   _DEFAULT="--default-item $1"
  97 }
  98
  99 menuBox() {
 100     _genericListBox --menu "$@"
 101 }
 102
 103 ## a menu box with additional help info displayed
 104 ## at the bottom of the window when an item is selected
 105 menuBoxHelp() {
 106         HELP="--item-help"
 107         _genericListBox --menu "$@"
 108         status=$?
 109         HELP=
 110         return $status
 111 }
 112
 113 ## a menu box with an addition button 'help'
 114 menuBoxHelpFile() {
 115         HELP="--help-button"
 116         _genericListBox --menu "$@"
 117         status=$?
 118         HELP=
 119         return $status
 120 }
 121
 122 checkBox() {
 123     _genericListBox --checklist "$@"
 124 }
 125
 126 radioBox() {
 127     _genericListBox --radiolist "$@"
 128 }
 129
 130 textBox() {
 131     $DIALOG --backtitle "$BACKTITLE" --title "$1" --textbox "$2" $HEIGHT $WIDTH
 132 }
 133
 134 passwordBox() {
 135     local temp=$(mktemp -t) || exit 1
 136     trap "rm -f $temp" 0
 137     REPLY=
 138     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
 139         --passwordbox "$2" $HEIGHT $WIDTH 2> $temp
 140     local status=$?
 141     [ $status = 0 ] && REPLY=$(cat $temp)
 142     rm -f $temp
 143     return $status
 144 }
 145
 146
 147 #########################################################
 148 ## begin-item-display style lists
 149 ##
 150 ## these lists are built by calling fuctions multiple times.
 151 ## this can make it easier to build your list in a loop
 152 ##
 153
 154 listBegin() {
 155    _menu_title=$1
 156    _menu_msg=$2
 157    _menu_items=0
 158    _menu_text=
 159    _menu_labels=
 160 }
 161
 162 listItem() {
 163    _menu_labels[$_menu_items]=$1
 164    _menu_text[$_menu_items]=$2
 165    let "_menu_items += 1"
 166 }
 167
 168
 169 ##
 170 ## takes one of:
 171 ## menu, checklist, radiolist
 172 ##
 173 listDisplay() {
 174    boxtype=$1
 175    local temp=$(mktemp -t) || exit 1
 176    trap "rm -f $temp" 0
 177
 178    (
 179       echo -ne " $HELP $_DEFAULT "
 180       echo -ne " --backtitle '$BACKTITLE' "
 181       echo -ne " --title '$_menu_title' "
 182       echo -ne " --$boxtype '$_menu_msg' "
 183       echo -ne " $HEIGHT $WIDTH 10 "
 184       for ((i=0; i < $_menu_items ; i++)); do
 185         label=${_menu_labels[$i]}
 186         text=${_menu_text[$i]}
 187         echo -ne " $label '$text' "
 188       done
 189    ) | xargs $DIALOG 2> $temp
 190
 191    local status=$?
 192    REPLY=""
 193    [ $status = 0 ] && REPLY=`cat $temp`
 194    rm -f $temp
 195    _DEFAULT=
 196    return $status
 197 }
 198
 199 ####################################################
 200 ## FORM
 201
 202 _form_gap=2
 203 formBegin() {
 204    _form_title=$1
 205    _form_items=0
 206    _form_labels=
 207    _form_text=
 208 }
 209
 210 formItem() {
 211    _form_labels[$_form_items]=$1
 212    _form_text[$_form_items]=$2
 213    let "_form_items += 1"
 214 }
 215
 216 formDisplay() {
 217    local temp=$(mktemp -t) || exit 1
 218
 219    max_length=0
 220    for ((i=0; i < ${#_form_labels[@]} ; i++)); do
 221       label=${_form_labels[$i]}
 222       length=`expr length $label`
 223       if [ $length -gt $max_length ]; then
 224          max_length=$length
 225       fi
 226    done
 227    let "max_length += 2"
 228
 229    local xpos=1
 230    (
 231       echo -n -e "--form '$_form_title' 0 0 20"
 232       for ((i=0; i < $_form_items ; i++)); do
 233         label=${_form_labels[$i]}
 234         text=${_form_text[$i]}
 235         echo -n -e " $label $xpos 1 '$text' $xpos $max_length 30 30"
 236         let "xpos += _form_gap"
 237       done
 238    ) | xargs $DIALOG 2> $temp
 239    local status=$?
 240
 241    if [ $status = 0 ]; then
 242       IFS=$''
 243       REPLY=`cat $temp`
 244       IFS=$' \t\n'
 245    fi
 246    rm -f $temp
 247    return $status
 248 }