slitaz-tools annotate tinyutils/tazdialog @ rev 199

tazdialog: fix checklist, add radiolist and fselect
author Pascal Bellard <pascal.bellard@slitaz.org>
date Mon May 19 15:29:55 2008 +0000 (2008-05-19)
parents 564833d84fbb
children 37ac5a2b6e88
rev   line source
pascal@190 1 #!/bin/sh
pascal@190 2 # tazdialog - SliTaz GNU/Linux dialog wrapper to gtkdialog.
pascal@190 3 #
pascal@190 4 # (C) 2008 SliTaz - GNU General Public License v3.
pascal@190 5 #
pascal@190 6 # Author : Pascal Bellard <pascal.bellard@slitaz.org>
pascal@190 7 #
pascal@190 8
pascal@190 9 toutf8()
pascal@190 10 {
pascal@190 11 echo -e $1 | sed -e 's/\\Z.//g' | tr 'àâäçéèêëîïûü' 'aaaceeeeiiuu'
pascal@190 12 }
pascal@190 13
pascal@190 14 if [ -z "$XAUTHORITY" ]; then
pascal@190 15 [ -n "$TEXTDIALOG" ] || TEXTDIALOG="dialog"
pascal@190 16 export DIALOG=$TEXTDIALOG
pascal@190 17 $TEXTDIALOG "$@"
pascal@190 18 return $?
pascal@190 19 else
pascal@190 20 title=""
pascal@190 21 backtitle=""
pascal@190 22 lines="10"
pascal@190 23 cols="10"
pankso@192 24 [ -n "$ICON" ] || ICON="applications-other"
pascal@190 25 buttonok=""
pascal@190 26 buttoncancel=""
pascal@190 27 buttonextra=""
pascal@190 28 yeslabel="ok"
pascal@190 29 nolabel="cancel"
pascal@190 30 extralabel="rename"
pascal@190 31 gauge=""
pascal@190 32 inputbox=""
pascal@190 33 default=""
pascal@190 34
pascal@190 35 buttonhelp=""
pascal@190 36 checklist=""
pascal@190 37 menu=""
pascal@190 38 textbox=""
pascal@199 39 radiolist=""
pascal@199 40 fselect=""
pascal@190 41 while [ -n "$1" ]; do
pascal@190 42 case "$1" in
pascal@190 43 --title) title="$2"; shift 2;;
pascal@190 44 --backtitle) backtitle="$2"; shift 2;;
pascal@190 45 --clear|--colors) shift;;
pascal@190 46 --yes-label) yeslabel="$2"; shift 2;;
pascal@190 47 --no-label) nolabel="$2"; shift 2;;
pascal@190 48 --extra-label) extralabel="$2"; shift 2;;
pankso@192 49 --extra-button) buttonextra="1"; shift;;
pascal@190 50 --help-button) buttonhelp="1"; shift;;
pascal@190 51 --msgbox) msgbox="$2"; lines="$3"; cols="$4"
pascal@190 52 buttonok="1"; break;;
pascal@190 53 --yesno) msgbox="$2"; lines="$3"; cols="$4"
pascal@190 54 buttonok="1"; buttoncancel="1"; break;;
pascal@190 55 --gauge) msgbox="$2"; lines="$3"; cols="$4"
pascal@190 56 percent="$5"; gauge="1"; break;;
pascal@190 57 --inputbox) msgbox="$2"; lines="$3"; cols="$4"
pascal@190 58 default="$5"
pascal@190 59 buttonok="1"; buttoncancel="1"
pascal@190 60 inputbox="1"; break;;
pankso@192 61
pascal@190 62 --checklist) msgbox="$2"; lines="$3"; cols="$4"; inlines="$5"
pascal@199 63 buttonok="1"; checklist="1"; shift 5; break;;
pascal@190 64 --menu) msgbox="$2"; lines="$3"; cols="$4"; inlines="$5"
pascal@190 65 buttonok="1"; buttoncancel="1"
pascal@199 66 menu="1"; shift 5; break;;
pascal@190 67 --textbox) textbox="$2"; lines="$3"; cols="$4"
pascal@190 68 buttonok="1"; break;;
pascal@199 69 --radiolist) textbox="$2"; lines="$3"; cols="$4"; inlines="$5"
pascal@199 70 buttonok="1"; buttoncancel="1"
pascal@199 71 radiolist="1"; shift 5; break;;
pascal@199 72 --fselect) fselect="$2"; lines="$3"; cols="$4"
pascal@199 73 buttonok="1"; buttoncancel="1"; break;;
pascal@190 74 *) echo "Unknown arg $1"; return 255;;
pascal@190 75 esac
pascal@190 76 done
pascal@190 77 fi
pascal@190 78 msgbox="$(toutf8 "$msgbox")"
pascal@190 79 textbox="$(toutf8 "$textbox")"
pascal@190 80 BOX="<window"
pascal@190 81 [ -n "$backtitle" ] && BOX="$BOX title=\"$backtitle\""
pascal@190 82 [ -n "$ICON" ] && BOX="$BOX icon-name=\"$ICON\""
pascal@199 83 BOX="$BOX>
pascal@199 84 <vbox>
pascal@199 85 "
pascal@199 86 [ -n "$title" ] && BOX="$BOX <text use-markup=\"true\" width-chars=\"44\">
pascal@199 87 <label>\"<b>$title</b>\" </label>
pascal@199 88 </text>
pascal@199 89 "
pascal@199 90 [ -n "$msgbox" ] && BOX="$BOX <text wrap=\"true\" use-markup=\"true\">
pascal@199 91 <label> \"$msgbox\" </label>
pascal@199 92 </text>
pascal@199 93 "
pascal@199 94 [ -n "$gauge" ] && BOX="$BOX <progressbar>
pascal@199 95 <input>while read data; do echo \$data; done</input>
pascal@199 96 <action type=\"exit\">0</action>
pascal@199 97 </progressbar>
pascal@199 98 "
pascal@199 99 [ -n "$default" ] && default="<default>$default</default>
pascal@199 100 "
pascal@199 101 [ -n "$inputbox" ] && BOX="$BOX <entry>
pascal@199 102 $default<variable>OUTPUT</variable>
pascal@199 103 </entry>
pascal@199 104 "
pascal@190 105 #[ -n "$textbox" ] && BOX="$BOX <text><input file width-chars=\"$cols\" \
pascal@190 106 #height=\"$lines\" wrap=\"true\">$textbox</input></text>"
pascal@199 107 [ -n "$textbox" ] && BOX="$BOX <text>
pascal@199 108 <input file wrap=\"true\">$textbox</input>
pascal@199 109 </text>
pascal@199 110 "
pascal@199 111 [ -n "$menu" ] && BOX="$BOX <list>
pascal@199 112 $(while [ -n "$1" ]; do
pascal@199 113 echo " <item>$1 $2</item>
pascal@199 114 "
pascal@190 115 shift 2
pascal@199 116 done) <variable>LIST</variable>
pascal@199 117 </list>
pascal@199 118 "
pascal@199 119 [ -n "$radiolist" ] && BOX="$BOX$(
pascal@199 120 i=0; while [ -n "$1" ]; do
pascal@190 121 [ "$3" = "on" ] && c=" active=\"true\"" || c=""
pascal@199 122 echo " <radiobutton$c>
pascal@199 123 <label>$1 $2</label>
pascal@199 124 <variable>CHECK$i</variable>
pascal@199 125 </radiobutton>
pascal@199 126 "
pascal@190 127 i=$(($i+1))
pascal@190 128 shift 3
pascal@190 129 done)"
pascal@199 130 [ -n "$checklist" ] && BOX="$BOX $(
pascal@199 131 i=0; while [ -n "$1" ]; do
pascal@199 132 [ "$3" = "on" ] && c=" active=\"true\"" || c=""
pascal@199 133 echo " <checkbox$c>
pascal@199 134 <label>$1 $2</label>
pascal@199 135 <variable>CHECK$i</variable>
pascal@199 136 </checkbox>
pascal@199 137 "
pascal@199 138 i=$(($i+1))
pascal@199 139 shift 3
pascal@199 140 done)"
pascal@199 141 [ -n "$fselect" ] && BOX="$BOX <hbox>
pascal@199 142 <entry>
pascal@199 143 <variable>OUTPUT</variable>
pascal@199 144 </entry>
pascal@199 145 <button>
pascal@199 146 <input file stock=\"gtk-open\"></input>
pascal@199 147 <variable>FILE_BROWSE</variable>
pascal@199 148 <action type=\"fileselect\">OUTPUT</action>
pascal@199 149 </button>
pascal@199 150 </hbox>
pascal@199 151 "
pascal@199 152 [ "$yeslabel" = "ok" ] && yeslabel="" || yeslabel="
pascal@199 153 <label>$yeslabel</label>"
pascal@199 154 [ "$nolabel" = "cancel" ] && nolabel="" || nolabel="
pascal@199 155 <label>$nolabel</label>"
pascal@190 156 [ -n "$buttonok$buttonextra$buttoncancel" ] && BOX="$BOX <hbox>"
pascal@199 157 [ -n "$buttonok" ] && BOX="$BOX <button ok>$yeslabel
pascal@199 158 <action type=\"exit\">0</action>
pascal@199 159 </button>
pascal@199 160 "
pascal@199 161 [ -n "$buttonextra" ] && BOX="$BOX <button>
pascal@199 162 <label>$extralabel</label>
pascal@199 163 <input file icon=\"forward\"> </input>
pascal@199 164 <action type=\"exit\">3</action>
pascal@199 165 </button>
pascal@199 166 "
pascal@199 167 [ -n "$buttoncancel" ] && BOX="$BOX <button cancel>$nolabel
pascal@199 168 <action type=\"exit\">1</action>
pascal@199 169 </button>
pascal@199 170 "
pascal@199 171 [ -n "$buttonhelp" ] && BOX="$BOX <button help>
pascal@199 172 <action type=\"exit\">2</action>
pascal@199 173 </button>
pascal@199 174 "
pascal@199 175 [ -n "$buttonok$buttonextra$buttoncancel" ] && BOX="$BOX </hbox>
pascal@199 176 "
pascal@199 177 BOX="$BOX </vbox>
pascal@199 178 </window>
pascal@199 179 "
pascal@190 180 export BOX
pascal@190 181 status=$(if [ -n "$gauge" ]; then
pascal@190 182 ( while read line; do
pascal@190 183 case "$line" in
pascal@190 184 [0-9]*) echo $line;;
pascal@190 185 *);;
pascal@190 186 esac
pascal@190 187 done ; echo 100) | gtkdialog --center --program=BOX
pascal@190 188 else
pascal@190 189 gtkdialog --center --program=BOX
pascal@190 190 fi 2> /dev/null | while read line; do
pascal@190 191 case "$line" in
pascal@190 192 *OUTPUT*) eval $line
pascal@190 193 echo "$OUTPUT" 1>&2 ;;
pascal@190 194 *CHECK*true*) line=${line%=*}; line=${line#CHECK}
pascal@199 195 [ $line -eq 0 ] || shift $((3 * $line))
pascal@199 196 echo -n "\"$1\" " 1>&2;;
pascal@190 197 *LIST=*) eval $line; set -- $LIST
pascal@190 198 echo "$1" 1>&2 ;;
pascal@190 199 *EXIT*abort*) echo 255;;
pascal@190 200 *EXIT*) eval $line
pascal@190 201 echo $EXIT ;;
pascal@190 202 esac
pascal@190 203 done)
pascal@190 204 exit $status