# 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

    Source: geocities.com/soho/square/3472

               ( geocities.com/soho/square)                   ( geocities.com/soho)