watchdir

# Tksh Demo
# Jeff Korn
#
# This script keeps track of visited directories and shows the files
# in the current directory.   You can double-click on files and 
# directories.  The script should be used interactively, so to run:
#	$ tksh
#	$ . scripts/watchdir

function winsetup
{
	pack $(frame .f)
	frame .f.dirname -relief raised -bd 1
	pack .f.dirname -side top -fill x
	pack $(frame .f.ls) $(frame .f.dirs) -side left 
	label .f.dirname.label -text "Current directory: "
	label .f.dirname.pwd -textvariable PWD
	pack .f.dirname.label .f.dirname.pwd -side left

	scrollbar .f.ls.scroll -command ".f.ls.list yview"
	listbox .f.ls.list -yscroll ".f.ls.scroll set" -width 20 -setgrid 1
	pack $(label .f.ls.label -text "Directory Contents") -side top
	pack .f.ls.list .f.ls.scroll -side left -fill y -expand 1

	scrollbar .f.dirs.scroll -command ".f.dirs.list yview"
	listbox .f.dirs.list -yscroll ".f.dirs.scroll set" -width 20 -setgrid 1
	pack $(label .f.dirs.label -text "Visited Directories") -side top
	pack .f.dirs.list .f.dirs.scroll -side left -fill y -expand 1
	bind .f.dirs.list "<Double-1>" 'cd $(selection get)'
	bind .f.ls.list "<Double-1>" 'tkfileselect $(selection get)'
}

function tkfileselect
{
	[[ -d "$1" ]] && tkcd "$1"
	[[ -f "$1" ]] && ${EDITOR-${VISUAL-emacs}} "$1"
}

function tkcd
{
	cd $1 > /dev/null || return
	.f.ls.list delete 0 end
	set -o markdirs
	.f.ls.list insert end .. *
	[[ ${VisitedDir["$PWD"]} == "" ]] && .f.dirs.list insert end "$PWD"
	VisitedDir["$PWD"]=1
}

typeset -A VisitedDir
winsetup > /dev/null
alias cd=tkcd
tkcd .