#!/bin/sh
# the next line restarts using wish \
exec wish8.0jp "$0" "$@"

# widget --
# This script demonstrates the various widgets provided by Tk,
# along with many of the features of the Tk toolkit.  This file
# only contains code to generate the main window for the
# application, which invokes individual demonstrations.  The
# code for the actual demonstrations is contained in separate
# ".tcl" files is this directory, which are sourced by this script
# as needed.
#
# RCS: @(#) $Id: widget,v 1.2 1998/09/14 18:23:30 stanton Exp $

eval destroy [winfo child .]
wm title . "Widget Demonstration"
set widgetDemo 1

#----------------------------------------------------------------
# The code below create the main window, consisting of a menu bar
# and a text widget that explains how to use the program, plus lists
# all of the demos as hypertext items.
#----------------------------------------------------------------

set font {Helvetica 14}
menu .menuBar -tearoff 0
.menuBar add cascade -menu .menuBar.file -label "File" -underline 0
menu .menuBar.file -tearoff 0

# On the Mac use the specia .apple menu for the about item
if {$tcl_platform(platform) == "macintosh"} {
    .menuBar add cascade -menu .menuBar.apple
    menu .menuBar.apple -tearoff 0
    .menuBar.apple add command -label "About..." -command "aboutBox"
} else {
    .menuBar.file add command -label "About..." -command "aboutBox" \
	-underline 0 -accelerator "<F1>"
    .menuBar.file add sep
}

.menuBar.file add command -label "Quit" -command "exit" -underline 0 \
    -accelerator "Meta-Q"
. configure -menu .menuBar
bind . <F1> aboutBox

frame .statusBar
label .statusBar.lab -text "   " -relief sunken -bd 1 \
    -font -*-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-* -anchor w
label .statusBar.foo -width 8 -relief sunken -bd 1 \
    -font -*-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-* -anchor w
pack .statusBar.lab -side left -padx 2 -expand yes -fill both
pack .statusBar.foo -side left -padx 2
pack .statusBar -side bottom -fill x -pady 2

frame .textFrame
scrollbar .s -orient vertical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview} -highlightthickness 0 \
    -takefocus .ical -command {.t yview