This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

# contents of book5:
# load hypertext index and plain text files directly into text widgets

set notefilename  "notefile.txt"

#-----------------------------------------------------------------------
proc show_index {} {
    wm title . "Vintage Balzac"

    .index.t delete 1.0 end
    heading .index.t "Vintage Balzac\n"
    link .index.t "Gold\n" "show_file .book.t gold.txt"
    link .index.t "The Science of Existence\n" "show_file .book.t science.txt"
    link .index.t "Weeds\n" "show_file .book.t weeds.txt"
    link .index.t "Optical Range\n" "show_file .book.t opticalrange.txt"
    link .index.t "Fixed In Her Ways\n" "show_file .book.t fixedways.txt"
    link .index.t "A Useful Cat's Tail\n" "show_file .book.t catstail.txt"
    link .index.t "Why the professor doesn't like stars\n" "show_file .book.t stars.txt"
    link .index.t "The Secret of Married Life\n" "show_file .book.t marriedlife.txt"
}

#-----------------------------------------------------------------------
# main program: (load book)

open_notes notefile.txt
show_index
show_file .book.t gold.txt