Initial commit

9780596001957

 No newline at end of file

## Example files for the title:  

# Learning the Korn Shell 2nd Edition, by Arnold Robbins

[![Learning the Korn Shell 2nd Edition, by Arnold Robbins](http://akamaicovers.oreilly.com/images/9780596001957/cat.gif)](https://www.safaribooksonline.com/library/view/title/0596001959//)

The following applies to example files from material published by O’Reilly Media, Inc. Content from other publishers may include different rules of usage. Please refer to any additional usage rights explained in the actual example files or refer to the publisher’s website.

O'Reilly books are here to help you get your job done. In general, you may use the code in O'Reilly books in your programs and documentation. You do not need to contact us for permission unless you're reproducing a significant portion of the code. For example, writing a program that uses several chunks of code from our books does not require permission. Answering a question by citing our books and quoting example code does not require permission. On the other hand, selling or distributing a CD-ROM of examples from O'Reilly books does require permission. Incorporating a significant amount of example code from our books into your product's documentation does require permission.

We appreciate, but do not require, attribution. An attribution usually includes the title, author, publisher, and ISBN.

If you think your use of code examples falls outside fair use or the permission given here, feel free to contact us at <permissions@oreilly.com>.

Please note that the examples are not production code and have not been carefully testing. They are provided "as-is" and come with no warranty of any kind.

# 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 .