slitaz-tools annotate tinyutils/subox @ rev 38
Set window title and icon for *box
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Mon Jan 14 16:28:04 2008 +0100 (2008-01-14) |
| parents | 0ae81ea9ef1a |
| children | 6e50cf1c3f92 |
| rev | line source |
|---|---|
| pankso@35 | 1 #! /bin/sh |
| pankso@35 | 2 # |
| pankso@35 | 3 # Gtkdialog to execute program as root from a WM menu. |
| pankso@35 | 4 # - SliTaz GNU/Linux 2008. |
| pankso@35 | 5 # |
| pankso@35 | 6 VERSION=20080113 |
| pankso@35 | 7 |
| pankso@35 | 8 # Usage. |
| pankso@35 | 9 if [ -z "$1" ]; then |
| pankso@35 | 10 echo "Slitaz subox version : $VERSION" |
| pankso@35 | 11 echo -e "\nUsage : subox program\n" |
| pankso@35 | 12 exit 0 |
| pankso@35 | 13 fi |
| pankso@35 | 14 |
| pankso@35 | 15 # Keep binary name in a tmp file to be used by SU_DIALOG. |
| pankso@35 | 16 echo "$1" > /tmp/subox-exec |
| pankso@35 | 17 |
| pankso@35 | 18 # Main window and root passord default entry set to 'root'. |
| pankso@35 | 19 export SU_DIALOG=' |
| pankso@38 | 20 <window title="Subox"> |
| pankso@35 | 21 <vbox> |
| pankso@35 | 22 |
| pankso@35 | 23 <text use-markup="true"> |
| pankso@35 | 24 <label> |
| pankso@35 | 25 " |
| pankso@35 | 26 <b>SliTaz - Subox</b>" |
| pankso@35 | 27 </label> |
| pankso@35 | 28 </text> |
| pankso@35 | 29 <text wrap="true" width-chars="46"> |
| pankso@35 | 30 <label> |
| pankso@35 | 31 " |
| pankso@35 | 32 Please enter root password to execute :" |
| pankso@35 | 33 </label> |
| pankso@35 | 34 </text> |
| pankso@35 | 35 <text> |
| pankso@35 | 36 <input file>/tmp/subox-exec</input> |
| pankso@35 | 37 </text> |
| pankso@35 | 38 |
| pankso@35 | 39 <hbox> |
| pankso@35 | 40 <text use-markup="true"> |
| pankso@35 | 41 <label>"<b>Root password :</b>"</label> |
| pankso@35 | 42 </text> |
| pankso@35 | 43 <entry visibility="false"> |
| pankso@35 | 44 <default>root</default> |
| pankso@35 | 45 <variable>PASSWD</variable> |
| pankso@35 | 46 </entry> |
| pankso@35 | 47 </hbox> |
| pankso@35 | 48 |
| pankso@35 | 49 <hbox> |
| pankso@35 | 50 <button ok> |
| pankso@35 | 51 <action>echo $PASSWD | su -c `cat /tmp/subox-exec` &</action> |
| pankso@35 | 52 <action type="closewindow">SU_DIALOG</action> |
| pankso@35 | 53 </button> |
| pankso@35 | 54 <button cancel></button> |
| pankso@35 | 55 </hbox> |
| pankso@35 | 56 |
| pankso@35 | 57 </vbox> |
| pankso@38 | 58 </window> |
| pankso@35 | 59 ' |
| pankso@35 | 60 |
| pankso@36 | 61 gtkdialog --center --program=SU_DIALOG |