#From: mark.crimmins@umich.edu
#Sender: markcrim@merv.philosophy.lsa.umich.edu
#To: libes@NIST.GOV
#Subject: Dialer expectk script
#Date: Tue, 15 Aug 1995 09:47:19 -0400
#
#This is a multipart MIME message.
#
#--===_0_Tue_Aug_15_09:46:41_EDT_1995
#Content-Type: text/plain; charset=us-ascii
#
#
#Dear Don Libes,
#
#Thanks for your great expect package.
#
#I enclose a Dialer expectk script I wrote for starting remote net connections 
#(tries a list of phone numbers, runs a login script, starts an arbitrary 
#command---e.g., pppd or term---on completion; has GUI status indicator and 
#configuration windows).
#
#It works on my Linux machine; not sure what would be needed for other 
#platforms. 
#
#If you're not interested in this, sorry to bother you, but I thought I'd send 
#it along in case it was of any interest.
#
#Thanks again,
#Mark
#
#Mark Crimmins   markcrim@umich.edu
#UMich Philosophy Dept. 313 936-4933
#
#
#--===_0_Tue_Aug_15_09:46:41_EDT_1995
#Content-Type: text/plain; charset=us-ascii
#Content-Description: Dialer

#!/usr/local/bin/expectk

# Dialer; nice for establishing connection and authorization for 
# ppp or term link.

# Requires expectk (built by the expect distribution if
# you have the tk sources and libraries around).
# Assumes Hayes AT-type commands.
# Works for linux.  Dunno what would be needed for other platforms.

# Mark Crimmins 8/14/95

set file ""
if {$argv != ""} {
    set file [lindex $argv 0]
    set argv [lreplace $argv 0 0]
}
set debug 0
set send_slow {1 .01}
set quickwait 5
set labelwidth 20
set entrywidth 50

set stringvars {numbers port speed init1 init2 loginscript outcommand}
set booleans {login exitsucc}
set numbers "555-1000 555-2000"
set port /dev/modem
set speed 38400
set init1 "ATZ"
set init2 ""
set login 1
set loginscript {
    {"" "host: " 10} 
    {ppp "login: " 20}
    { myloginname@umich.edu "Password: " 5}
    {mypassword "" "" }
}
set outcommand "/usr/lib/ppp/pppd $port $speed asyncmap 0 defaultroute crtscts 
modem noipdefault"
set exitsucc 0

option add *Listbox*font \
    "-*-helvetica-medium-r-normal-*-14-*-*-*-p-*-iso8859-1" startupFile
option add *Entry*font \
    "-*-helvetica-medium-r-normal-*-14-*-*-*-p-*-iso8859-1" startupFile
option add *Label*font \
    "-*-helvetica-medium-r-normal-*-14-*-*-*-p-*-iso8859-1" startupFile
option add *Text*font \
    "-*-helvetica-medium-r-normal-*-14-*-*-*-p-*-iso8859-1" startupFile

proc DialWindow {{w ""}} {
    global DialWindow $w

    set DialWindow $w
    if {$w == ""} {
	set wmw "."
    } else {
	set wmw $w
    }
    wm title $wmw "Dialer"
    wm iconname $wmw "Dialer"
    frame .status
    pack .status -pady 20 -padx 10
    label .status.statuslabel -text "Dialing\nStatus:" 
    pack .status.statuslabel -side left
    text .status.text -height 8 -width 40
    global statuswindow
    set statuswindow .status.text
    pack .status.text -side left -fill x -fill y -padx 15
    
    frame .buttons
    button .buttons.dial -text Dial -command Dial
    pack .buttons.dial -side left -expand y -fill y -padx 15 -pady 15
    button .buttons.settings -text Settings -command EditSettings
    pack .buttons.settings -side left -expand y -fill y -padx 15 -pady 15
    button .buttons.dismiss -text Dismiss -command {destroy .}
    pack .buttons.dismiss -side left -expand y -fill y -padx 15 -pady 15
    pack .buttons -fill x -expand y
    
    focus .buttons.dial
}

proc Abort {} {
    global id
    if [info exists id] {
	catch "close $id"
	Outstatus "Aborted"
    } else {
	Outstatus "No dial in progress."
    }
}

proc Dial {} {
    global statuswindow id match DialWindow
    global stringvars booleans
    foreach v [eval list $stringvars $booleans] {
	global v
    }

    set w $DialWindow
    .buttons.dial config -state disabled
    .status.text config -background yellow
    focus .buttons.dismiss
    foreach number $numbers {
	#reset and open modem port
	if [info exists id] { catch "close -i $id" }
	if [catch {spawn -open [open $port w+]}] {
	    Dialerror "Error opening modem port."
	    .status.text config -background red
	    .buttons.dial config -state normal
	    return 0
        }
	set id $spawn_id
	exec stty  38400 raw -echo < $port > $port
	#initialize modem
	if { $init1 != "" } {
	    Dialexpect "$init1" "OK\n" "Error initializing modem."
	    if { $init2 != "" } {
		Dialexpect "$init2" "OK\n" "Error initializing modem."
	    }
	}
	#dial
	Outstatus "Dialing $number . . ."
	set match ""
	Outmodem "ATDT$number"
	set timeout 45
	expect -i $id \
	    "BUSY" {Outstatus "  Line is busy." } \
	    "NO CARRIER" {
		Outstatus "  No carrier (no answer or phone line not connected)."
	    } \
	    "NO ANSWER" { Outstatus "  No answer." } \
	    -re "CONNECT .*\[\r\n\]" {Outstatus $expect_out(0,string); set match 
connect} \
	    default {Outstatus "No response before timeout."}
	if { $match == "connect" } { 
	    .status.text config -background yellowgreen
	    if $login {
		Outstatus "Running login script. . ."
		foreach entry $loginscript {
		    set r [Dialexpect [lindex $entry 0] \
			       [lindex $entry 1] \
			       "In login script, never got \"[lindex $entry 1]\"" \
			       [lindex $entry 2] ] 
		    if !$r break
		}
		if $r {
		    Outstatus "Login script succeeded."
		    .status.text config -background chartreuse1
		    if {$outcommand != ""} {
			Outstatus "Setting up the network:"
			Outstatus "  ($outcommand &)"
			eval exec $outcommand &
		    }
		    if $exitsucc {
			catch {
			if {[lsearch [winfo interps] tkgoodstuff] != -1} {
			    if {[send tkgoodstuff {lsearch $Clients Net}] != -1} {
				send tkgoodstuff Net_start_wait
				send tkgoodstuff {DEBUG {Dialer suggests we look for net-up}}
			    }
			}
			bell; after 250; bell; after 5000
			}
			exit
		    }
		    return 1
		}
	    }
	}
	Outmodem "+++"
	sleep 1
    }
    Outmodem "+++"
    close -i $id
    .status.text config -background red
    Outstatus "Sorry, failed to connect."
    .buttons.dial config -state normal
    return 0
}

proc Dialexpect "outstring instrings {error none} \"wait $quickwait\"" {
    global statuswindow global quickwait id match
    if {$outstring != ""} {
	DEBUG "Sending \"$outstring\". . ."
	Outmodem "$outstring"
    }
    if {$instrings == ""} {return 1}
    set expectstring ""
    foreach string $instrings {
	lappend expectstring $string " \
             DEBUG \"got \\\"$string\\\"\"
             set match \"$string\"
             return 1"
    }
    set timeout $wait
    DEBUG "Waiting $wait seconds for \"$instrings\""
    eval expect -i $id $expectstring
    if {$error != "none"} {Dialerror $error}
    return 0
}

proc Outmodem {string} {
    global id
    eval exp_send -raw -i $id \"$string\r\"
}

proc Outstatus {string} {
    global statuswindow
    $statuswindow insert end "$string\n"
    $statuswindow see end
    update
}

proc DEBUG {string} {
    global debug
    switch $debug {
	1 "Outmodem $string"
	2 "puts $string"
    }
}
proc Dialerror {error {die 0}} {
    global statuswindow id
    Outstatus "$error"
    if $die { 
	if [info exists id] { close -i $id }
	tkerror "$error" 
	exit
    }
}

proc EditSettings {} {
    set w .editsettings
    global labelwidth
    catch {destroy $w}
    toplevel $w
    wm title $w "Dialer Settings"
    wm iconname $w "Dialer Settings"

    frame $w.menu -relief raised -bd 2
    pack $w.menu -side top -fill x
    
    set m $w.menu.file.m
    menubutton $w.menu.file -text "File" -menu $m -underline 0
    menu $m
    $m add command -label "Open settings file" -command Open
    $m add command -label "New settings file" -command New
    $m add command -label "Save settings" -command Save
    $m add command -label "Save settings As ..." -command SaveAs
    
    pack $w.menu.file -side left

    set m $w.menu.help.m
    menubutton $w.menu.help -text "Help" -menu $m -underline 0
    menu $m
    $m add command -label "Help on settings" -command HelpSettings

    pack $w.menu.help -side right

    AddEntry $w numbers "Phone numbers\nto try:"
    AddEntry $w port Port:
    AddEntry $w speed Speed:
    AddEntry $w init1 "Modem\ninit string"
    AddEntry $w init2 "Second modem\ninit string"
    AddEntry $w outcommand "Command to execute\nwhen logged in:"

 #    frame $w.redial
 #    checkbutton $w.redial.check -variable redial
 #    pack $w.redial.check -side left -padx 10
 #    label $w.redial.label1 -text "Redial "
 #    pack $w.redial.label1 -side left
 #    entry $w.redial.entry -textvariable redialnum -width 3
 #    pack $w.redial.entry -side left
 #    label $w.redial.label2 -text " times."
 #    pack $w.redial.label2 -side left 

    frame $w.login
    checkbutton $w.login.check -variable login
    pack $w.login.check -side left -padx 10
    label $w.login.label1 -text "Run login script when connected"
    pack $w.login.label1 -side left
    
    frame $w.exitsucc
    checkbutton $w.exitsucc.check -variable exitsucc
    pack $w.exitsucc.check -side left -padx 10
    label $w.exitsucc.label1 -text "Exit on successful connection"
    pack $w.exitsucc.label1 -side left
    
    pack $w.numbers $w.port $w.speed $w.init1 $w.init2 $w.outcommand $w.login 
$w.exitsucc\
	-fill x -pady 5

    frame $w.buttons
    button $w.buttons.els -command EditLoginScript -text "Edit\nLogin Script"
    pack $w.buttons.els -side left -expand y -fill y -padx 15 -pady 15
    button $w.buttons.dismiss -text Dismiss -command "destroy $w"
    pack $w.buttons.dismiss -side left -expand y -fill y -padx 15 -pady 15
    pack $w.buttons -fill x -expand y
}

proc AddEntry { w v s } {
    global labelwidth entrywidth
    frame $w.$v
    label $w.$v.[set v]label -text $s -width $labelwidth -anchor c
    pack $w.$v.[set v]label -side left
    entry $w.$v.[set v]entry -textvariable $v -width $entrywidth
    pack $w.$v.[set v]entry -side left -fill x -expand y
}

proc EditLoginScript {} {
    global labelwidth loginscript script
    set entrywidth 25

    set w .editloginscript 
    catch {destroy $w}
    toplevel $w
    wm title $w "Dialer Login Script"
    wm iconname $w "Dialer Login Script"

    frame $w.title -relief raised
    pack $w.title -fill x -expand y
    label $w.title.0 -text "Send:"
    pack $w.title.0 -pady 10 -fill x -expand y -side left
    label $w.title.1 -text "Then Expect:"
    pack $w.title.1 -pady 10 -fill x -expand y -side left
    label $w.title.2 -text "After ___ seconds:"
    pack $w.title.2 -pady 10 -fill x -expand y -side left
    frame $w.entries
    pack $w.entries
    frame $w.entries.0
    frame $w.entries.1
    frame $w.entries.2
    pack $w.entries.0 $w.entries.1 $w.entries.2 -side left -fill x
    foreach s {0 1 2} {
	for {set i 0} {$i<16} {incr i} {
	    set script($i,$s) [lindex [lindex $loginscript $i] $s]
	    entry $w.entries.$s.entry$i -width $entrywidth \
		-textvariable script($i,$s)
	    pack $w.entries.$s.entry$i -padx 5 -pady 3 -fill x
	}
    }
    frame $w.buttons
    button $w.buttons.dismiss -text Dismiss -command "UpdateScript; destroy $w"
    pack $w.buttons.dismiss -side left -expand y -fill y -padx 15 -pady 15
    pack $w.buttons -side bottom -fill x -expand y
}

proc UpdateScript {} {
    global script loginscript
    set loginscript ""
    set i 0
    while {($script($i,0) != "") || \
	       ($script($i,1) != "") || \
	       ($script($i,2) != "")} {
	lappend loginscript [list $script($i,0) $script($i,1) $script($i,2) ]
	incr i
    }
}

proc HelpSettings {} {

    set text "
This Dialer assumes you have a basically Hayes-compatible modem (like\
nearly all modems sold these days).\n\n\
\
All settings, including a login script, are saved in a settings file.\
In the Settings window, you can open and save settings files.  You can\
also select a settings file from the command line as follows:\n\
\ \ \ \"Dialer mysettingsfile\"\n\
To make the Dialer start dialing on invocation, you add \"Dial\" to the\
command line:\n\
\ \ \ \"Dialer mysettingsfile Dial\"\n\n\
\
(The Dialer also can be started automatically by the \"tkgoodstuff\"\
button bar's \"Net\" client.)\n\n\
\
Each phone number in the list of phone numbers will be tried in\
succession.  You can use the usual Hayes characters in the dial string\
(consult your modem manual).  NOTE to those who want to type\
\"ATDP555-7777\" here: you should not include the \"ATD\" command, but\
only the phone number.\n\n\
\
The \"port\" is a unix device file governing the serial port to which\
your modem is connected, such as /dev/modem or /dev/cua1.  (Linux\
users: remember that /dev/cua0 is COM1, . . ., and /dev/cua3 is\
COM4.)\n\n\
\
The speed is the baud rate OF THE PORT, which typically is best set\
higher than the modem's baud rate.  You don't need to set the modem\
baud rate explicitly (though you can do so in one of the init\
strings if necessary).\n\n\
\
The modem init strings are \"AT...\" commands to send to the modem (we\
look for an \"OK\" from the modem afterwards).  These are optional, and\
can be anything from \"AT\" to \"ATZ\" to the monstrously long ones modem\
freaks swear by (the author uses \"ATZ4\" with his Sportster v.34).\n\n\
\
The entry \"command to execute when logged in\" allows you to start up\
your networking software once you have dialed in and authenticated to\
the server (through the login script, as described below).  Here you\
can start, for instance, ppp or term.  The author, for his dynamic ppp\
connection from home, uses:\n\
\ \ \ \"/usr/lib/ppp/pppd /dev/modem 38400 asyncmap 0 defaultroute crtscts\
modem noipdefault\"\n\n\
\
There is a checkbox which enables using the login script (on which more\
below). \n\n\
\
And there is a checkbox which tells the Dialer window to disappear\
once all its tasks are completed sucessfully (including launching the\
networking command, if you have set one).  Note that the Dialer itself\
does not check whether the networking command is successful in setting\
up the networking (for this indication, the author modestly suggests\
using his \"tkgoodstuff\" button bar's \"Net\" button).\n\n\
\
To edit the login script associated with the current settings file,\
press the \"Edit Login Script\" button (did you guess that?).  The login\
script is a sequence of \"steps\".  Each step involves (optionally)\
sending a string to the modem (which automatically will be followed by\
a carriage return), and then (optionally) waiting a certain number of\
seconds for a string from the modem.  If you leave the entries for the\
send (or expect) strings empty, then at that step no string will be\
sent (or expected).  You can include special characters according to\
tcl's backslash substitution rules (see \"man Tcl\").\n\
"

    set w .loginscripthelp
    catch {destroy $w}
    toplevel $w
    wm title $w "Dialer Help"
    wm iconname $w "Dialer Help"

    button .b
    label $w.title -text "DIALER HELP" \
        -font [.b cget -font]
    destroy .b
    pack $w.title -pady 10 -fill x -expand y

    frame $w.view
    text $w.view.text -width 80 -height 20 \
	-takefocus 0 -yscrollcommand "$w.view.scrollbar set" \
	-relief sunken -borderwidth 2 -state disabled \
        -wrap word

    pack $w.view.text -side left -fill both -expand 1
    scrollbar $w.view.scrollbar -command "$w.view.text yview"
    pack $w.view.scrollbar -side left -fill y -padx 3
    pack $w.view -side top -fill both -expand 1 -padx 10
    $w.view.text configure -state normal
    $w.view.text insert end "$text"
    $w.view.text configure -state disabled

    frame $w.buttons
    button $w.buttons.dismiss -text Dismiss -command "destroy $w"
    pack $w.buttons.dismiss -side left -expand y -fill y -padx 15 -pady 15
    pack $w.buttons -side bottom -fill x -expand y

}    

proc Save {{f ""}} {
    global file stringvars booleans
    if {$f != ""} {set file $f}
    if {$file == ""} {SaveAs; return}
    set id [ open $file w ]
    puts $id "\#Dialer Settings File"
    foreach v [eval list $stringvars $booleans] {
	global $v
	puts $id "set $v \{[set $v]\}"
    }
    close $id
}

proc Open {} {
    fileselect Open2 "Open file:"
}    

proc Open2 {f} {
    global file
    if ![file exists $f] {
	tkerror "Error:  $f doesn't exist."
	return
    }
    if ![file readable $f] {
	tkerror "Error:  $f isn't readable."
	return
    }
    set file $f
    GetSettings
}

proc New {} {
    fileselect New2 "File Name:"
}

proc New2 {f} {
    global file
    if [file exists $f] {
	tkerror "Error: can't create $f: file exists"
	return
    }
    if [catch "exec touch $f"] {
	tkerror "Error: can't create $f."
	return
    }
    ClearSettings
    set file $f
}

proc SaveAs {} {
    fileselect SaveAs2 "File Name:"
}

proc SaveAs2 {f} {
    global file
    if [file exists $f] {
	tkerror "Error: can't create $f: file exists"
	return
    }
    if [catch "exec touch $f"] {
	tkerror "Error: can't create $f."
	return
    }
    set file $f
    Save
}

proc ClearSettings {} {
    global stringvars booleans
    foreach v $stringvars {
	global $v
	set $v ""
    }
    foreach v $booleans {
	global $v
	set $v 0
    }
}

proc GetSettings {} {
    global file
    global stringvars booleans
    puts $stringvars
    foreach v [eval list $stringvars $booleans] {
	puts $v
	global $v
    }
    set id [open $file]
    gets $id s
    close $id
    if {$s != "\#Dialer Settings File"} {
	tkerror "File $file is not a dialer settings file."
	return
    }
    source $file
    puts $numbers
}

#
# fileselect.tcl --
# simple file selector.
#
# Mario Jorge Silva			          msilva@cs.Berkeley.EDU
# University of California Berkeley                 Ph:    +1(510)642-8248
# Computer Science Division, 571 Evans Hall         Fax:   +1(510)642-5775
# Berkeley CA 94720                                 
# 
# Layout:
#
#  file:                  +----+
#  ____________________   | OK |
#                         +----+
#
#  +------------------+    Cancel
#  | ..               |S
#  | file1            |c
#  | file2            |r
#  |                  |b
#  | filen            |a
#  |                  |r
#  +------------------+
#  currrent-directory
#
# Copyright 1993 Regents of the University of California
# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.  The University of California
# makes no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty.
#


# names starting with "fileselect" are reserved by this module
# no other names used.

# use the "option" command for further configuration



# this is the default proc  called when "OK" is pressed
# to indicate yours, give it as the first arg to "fileselect"

proc fileselect.default.cmd {f} {
  puts stderr "selected file $f"
}


# this is the default proc called when error is detected
# indicate your own pro as an argument to fileselect

proc fileselect.default.errorHandler {errorMessage} {
    puts stdout "error: $errorMessage"
    catch { cd ~ }
}

# this is the proc that creates the file selector box

proc fileselect {
    {cmd fileselect.default.cmd} 
    {purpose "Open file:"} 
    {w .fileSelectWindow} 
    {errorHandler fileselect.default.errorHandler}} {

    catch {destroy $w}

    toplevel $w
    grab $w
    wm title $w "Select File"


    # path independent names for the widgets
    global fileselect

    set fileselect(entry) $w.file.eframe.entry
    set fileselect(list) $w.file.sframe.list
    set fileselect(scroll) $w.file.sframe.scroll
    set fileselect(ok) $w.bframe.okframe.ok
    set fileselect(cancel) $w.bframe.cancel
    set fileselect(dirlabel) $w.file.dirlabel

    # widgets
    frame $w.file -bd 10 
    frame $w.bframe -bd 10
    pack append $w \
        $w.file {left filly} \
        $w.bframe {left expand frame n}

    frame $w.file.eframe
    frame $w.file.sframe
    label $w.file.dirlabel -anchor e -width 24 -text [pwd] 

    pack append $w.file \
        $w.file.eframe {top frame w} \
	$w.file.sframe {top fillx} \
	$w.file.dirlabel {top frame w}


    label $w.file.eframe.label -anchor w -width 24 -text $purpose
    entry $w.file.eframe.entry -relief sunken 

    pack append $w.file.eframe \
		$w.file.eframe.label {top expand frame w} \
                $w.file.eframe.entry {top fillx frame w} 


    scrollbar $w.file.sframe.yscroll -relief sunken \
	 -command "$w.file.sframe.list yview"
    listbox $w.file.sframe.list -relief sunken \
	-yscroll "$w.file.sframe.yscroll set" 

    pack append $w.file.sframe \
        $w.file.sframe.yscroll {right filly} \
 	$w.file.sframe.list {left expand fill} 

    # buttons
    frame $w.bframe.okframe -borderwidth 2 -relief sunken
 
    button $w.bframe.okframe.ok -text OK -relief raised -padx 10 \
        -command "fileselect.ok.cmd $w $cmd $errorHandler"

    button $w.bframe.cancel -text cancel -relief raised -padx 10 \
        -command "fileselect.cancel.cmd $w"
    pack append $w.bframe.okframe $w.bframe.okframe.ok {padx 10 pady 10}

    pack append $w.bframe $w.bframe.okframe {expand padx 20 pady 20}\
                          $w.bframe.cancel {top}

    # Fill the listbox with a list of the files in the directory (run
    # the "/bin/ls" command to get that information).
    # to not display the "." files, remove the -a option and fileselect
    # will still work
 
    $fileselect(list) insert end ".."
    foreach i [exec /bin/ls -a [pwd]] {
        if {[string compare $i "."] != 0 && \
	    [string compare $i ".."] != 0 } {
            $fileselect(list) insert end $i
        }
    }

   # Set up bindings for the browser.
    bind $fileselect(entry) <Return> {eval $fileselect(ok) invoke; break}
    bind $fileselect(entry) <Control-c> {eval $fileselect(cancel) invoke; 
break}

    bind $w <Control-c> {eval $fileselect(cancel) invoke;break}
    bind $w <Return> {eval $fileselect(ok) invoke;break}


#    tk_listboxSingleSelect $fileselect(list)


    bind $fileselect(list) <Button-1> {
        # puts stderr "button 1 release"
        %W selection set [%W nearest %y]
	$fileselect(entry) delete 0 end
	$fileselect(entry) insert 0 [%W get [%W nearest %y]]
	break
    }

    bind $fileselect(list) <Key> {
        %W selection set [%W nearest %y]
        $fileselect(entry) delete 0 end
	$fileselect(entry) insert 0 [%W get [%W nearest %y]]
	break
    }

    bind $fileselect(list) <Double-ButtonPress-1> {
        # puts stderr "double button 1"
        %W selection set [%W nearest %y]
	$fileselect(entry) delete 0 end
	$fileselect(entry) insert 0 [%W get [%W nearest %y]]
	$fileselect(ok) invoke
	break
    }

    bind $fileselect(list) <Return> {
        %W selection set [%W nearest %y]
	$fileselect(entry) delete 0 end
	$fileselect(entry) insert 0 [%W get [%W nearest %y]]
	$fileselect(ok) invoke
	break
    }

    # set kbd focus to entry widget

    focus $fileselect(entry)

}


# auxiliary button procedures

proc fileselect.cancel.cmd {w} {
    # puts stderr "Cancel"
    destroy $w
}

proc fileselect.ok.cmd {w cmd errorHandler} {
    global fileselect
    set selected [$fileselect(entry) get]

    # some nasty file names may cause "file isdirectory" to return an error
    set sts [catch { 
	file isdirectory $selected
    }  errorMessage ]

    if { $sts != 0 } then {
	$errorHandler $errorMessage
	destroy $w
	return

    }

    # clean the text entry and prepare the list
    $fileselect(entry) delete 0 end
    $fileselect(list) delete 0 end
    $fileselect(list) insert end ".."

    # selection may be a directory. Expand it.

    if {[file isdirectory $selected] != 0} {
	cd $selected
	set dir [pwd]
	$fileselect(dirlabel) configure -text $dir

	foreach i [exec /bin/ls -a $dir] {
	    if {[string compare $i "."] != 0 && \
		[string compare $i ".."] != 0} {
		$fileselect(list) insert end $i
	    }
	}
	return
    }

    destroy $w
    $cmd $selected
}
##### end of fileselect code

# Main Program
if {$file != ""} { ClearSettings; GetSettings }
DialWindow
eval $argv