Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts about dialog.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/dialog.e>
#           or at <http://angg.twu.net/e/dialog.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######





# «.compile_at_parati»		(to "compile_at_parati")
# «.test-dialog-at-parati»	(to "test-dialog-at-parati")


# (find-orggrep "grep -nH -e dialog *.org")
# (find-zsh "acse dialog | sort")
# (find-status   "dialog")
# (find-vldifile "dialog.list")
# (find-udfile   "dialog/")
# (find-udfile   "dialog/examples/")
# (find-udfile   "dialog/examples/inputbox")
# (find-man "1 dialog")
# (find-man "3 dialog")





#####
#
# redirections
# 2006aug03
#
#####

# (find-es "bash")
# (find-dialogexfile "form1" "exec 3>&1")
#*
function metadialog {(
  exec 3>&1
  dialog $* 2>&1 1>&3
)}

function maindialog {
  dialog --title "Mediador - Bla" \
         --help-button --no-collapse --no-shadow \
         --ok-label     "Executar" \
         --cancel-label "Terminar" \
         --help-label   "Ajuda" \
         --form "Mediador Bla - texto" \
                20 70 0 \
         "Comando:" 1  1 \
         "$1"       1 10   40 70
}

maindialog

#*
# (find-node "(bashref)Redirections")
# (find-node "(bashref)Redirections" "[N]>&WORD")
# (find-busyboxfile "")

echo 






#####
#
# adapting the examples
# 2006aug02
#
#####

# (find-man "1 dialog" "--colors")
# (find-udfile "dialog/examples/form1")
# (find-udfile "dialog/examples/form2")

# (find-udfile   "dialog/examples/")
# (find-udfile   "dialog/examples/inputbox")

# (find-man "1 dialog")
# (find-man "1 dialog" "--form text height")
# (find-man "1 dialog" "--form text height width formheight [ label y x item y x flen ilen ]")
# (find-dialogexfile "")
# (find-dialogexfile "form1")
# (find-dialogexfile "form2")
cd /usr/share/doc/dialog/examples/
./form1
./form2


# (find-man "1 dialog" "--help-button")
# (find-man "1 dialog" "--form text height width formheight [ label y x item y x flen ilen ]")

#*
dialog --title "Mediador - Bla" \
       --help-button --no-shadow \
       --ok-label     "Executar" \
       --cancel-label "Terminar" \
       --help-label   "Ajuda" \
       --form "Here is a possible piece of a configuration program." \
              20 50 0 \
       "Comando:" 1  1 \
       ".user"    1 10   40 70


#*
function maindialog_text {
  cat <<'EOT'
Digite um comando para o Mediador na caixa abaixo e use o botao
"Executar" para roda'-lo (ou use o botao "Terminar" para sair).

Exemplos de comandos (para mais detalhes veja a tela de ajuda):
    para      44    - paralisa a emissao de avisos por IVR e SMS
                      para a regional 44
    para_sms  5_,72 - paralisa a emissao de avisos por SMS para
                      as regionais 51, 52, 53, 54, 55 e 72
    volta_ivr 44    - reinicia a emissao de avisos por IVR para
                      a regional 44

EOT
}

function maindialog {
  dialog --title "Mediador - Bla" \
         --help-button --no-collapse --no-shadow \
         --ok-label     "Executar" \
         --cancel-label "Terminar" \
         --help-label   "Ajuda" \
         --form "$(maindialog_text)" \
                20 70 0 \
         "Comando:" 1  1 \
         "$1"       1 10   40 70
}

# (find-man "1 dialog" "--help-button")
# (find-man "1 dialog" "--form text height width formheight [ label y x item y x flen ilen ]")

function helpdialog_text {
  cat <<'EOT'
Os comandos validos sao:

    para_ivr  <regionais>   
    para_sms  <regionais>
    para      <regionais>
    volta_ivr <regionais>
    volta_sms <regionais>
    volta     <regionais>

onde <regionais> e' uma lista de codigos de regionais validos
separados por espacos ou virgulas. Os codigos de regionais
validos sao 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 24, 27,
28, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 71,
72, 73, 75 e 77, e mais os seguintes codigos especiais em que o
"_" faz papel de curinga: 1_, 2_, 4_, 5_, 7_, __. Repare que
"__" significa "todas as regionais".
EOT
}

function helpdialog {
  dialog --title "Mediador - Bla - Ajuda" \
         --no-collapse --no-shadow \
         --ok-label "Voltar" \
	 --msgbox "$(helpdialog_text)" 20 70
}


# «mediador-dialogs»  (to ".mediador-dialogs")
# 2006aug02

function dialogs {
  while true; do
    OUTPUT=$(maindialog "$COMANDO")
    case $? in
      0) COMANDO="$OUTPUT"; echo "$COMANDO"; read;;
      1) return;;
      2) helpdialog;;
    esac 
  done
}

# dialogs "Foo  bar"
maindialog "Foo  bar"
echo $?


#*




maindialog "echo  foo bar"
# helpdialog
echo $?





OUTPUT=$(maindialog)
echo $?
echo "[$OUTPUT]"





	  --backtitle ".backtitle" \



# (find-man "1 dialog" "--no-shadow")


cd /usr/share/doc/dialog/examples/
./msgbox
./msgbox2

cd /usr/share/doc/dialog/examples/
./textbox
./textbox2

# (code-c-d "dialogex" "/usr/share/doc/dialog/examples/" :grep)
# (find-dialogexfile "")

# (find-dialogexfile "infobox" "not pause")
cd /usr/share/doc/dialog/examples/
./infobox
./infobox2
./infobox3
./infobox4

cd /usr/share/doc/dialog/examples/
./inputbox
./inputbox1
./inputbox2
./inputbox3
./inputbox4
./inputbox5
./inputbox7

cd /usr/share/doc/dialog/examples/
./inputmenu-stdout
./inputmenu1
./inputmenu2
./inputmenu3
./inputmenu4


# (find-man "1 dialog")
# (find-man "1 dialog" "--form text")
# (find-man "1 dialog" "--help-button")
# (find-man "1 dialog" "--help-label string")
# (find-man "1 dialog" "--title title")
# (find-man "1 dialog" "--and-widget")
input box com default

#*
dialog  --title "My box" \
        --msgbox "Hi, this is an information box. It is
different from a message box: it will
not pause waiting for input after displaying
the message. The pause here is only introduced
by the sleep command within dialog.
You have $left $unit to read this..." 10 52
echo $?

#*








#####
#
# running the dialog demos inside an M-x ansi-term Emacs window
# 2006jul07
#
#####

# (find-efunction 'ansi-term)
# (find-udfile "dialog/examples/")
cd /usr/share/doc/dialog/examples/
./msgbox2

# (ansi-term (ee-expand "$SHELL"))




#####
#
# compiling dialog at parati
# 2006jun23
#
#####

# «compile_at_parati»  (to ".compile_at_parati")
# http://invisible-island.net/dialog/
# ftp://invisible-island.net/dialog/dialog.tar.gz

* (eepitch-eshell)
cd (ee-paratifile "")
mkdir snarf/
mkdir snarf/ftp/
mkdir snarf/ftp/invisible-island.net/
mkdir snarf/ftp/invisible-island.net/dialog/
cd    snarf/ftp/invisible-island.net/dialog/
cp -v $S/ftp/invisible-island.net/dialog/dialog.tar.gz .

* (eepitch-parati)
edrx
cd
mkdir  ~/usrc/
rm -Rf ~/usrc/dialog-1.0-20060221/
mkdir  ~/usrc/dialog-1.0-20060221/
cd     ~/usrc/
gunzip -cd < ~/snarf/ftp/invisible-island.net/dialog/dialog.tar.gz | tar -xvf -
cd     ~/usrc/dialog-1.0-20060221/
export LC_ALL=C
export LANG=C
./configure 2>&1 | tee oc
make        2>&1 | tee om

cd ~/bin/
ln -sf ../usrc/dialog-1.0-20060221/dialog dialog




#####
#
# testing dialog at parati
# 2006jun23 / 2006jul25
#
#####

# «test-dialog-at-parati»  (to ".test-dialog-at-parati")
# (find-efunction 'passwds-tcl-get)
# (passwds-tcl-get "parati")

* (eechannel-xterm "P")
telnet parati
edrx
* (eechannel-send-passwd "parati")

export DIALOG=$HOME/bin/dialog
cd     ~/usrc/dialog-1.0-20060221/samples/
./msgbox


# (find-udfile   "dialog/examples/")
# (find-udfile   "dialog/examples/inputbox")






#####
#
# substituting msgbox by textbox
# 2006aug28
#
#####

# (find-man "ksh")
# (find-man "1 dialog" "--textbox file height width")





#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: