#!/bin/sh
# standard method for making Tcl script executable ... \
exec wish "$0" -name classBrowser -- "${1+$@}"

# -----------------------------------------------------------------------------
# classBrowser --
#
#       Demonstration application that uses the classBrowser widget to describe
#       the classes of incr-widgets.
# -----------------------------------------------------------------------------
# Copyright 2000 Paul Welton
#       Permission to use, copy, modify, and distribute this software and its
#       documentation for any purpose and without fee is hereby granted,
#       provided that this copyright notice appears in all copies.  No
#       representations are made about the suitability of this software for any
#       purpose.  It is provided "as is" without express or implied warranty.
# -----------------------------------------------------------------------------
#  Revision:   1.1   : Initial Release
# -----------------------------------------------------------------------------

lappend auto_path [file dirname [info script]]

package require Iwidgets
package require classBrowser

pack [::classBrowser::classBrowser .b] -fill y -expand 1

#  Force all of the "iwidgets" files to be sourced, by calling each of
#  the procedures they declare.  However, no parameters are provided, which
#  is illegal in each case, so that no calls actually occur.
foreach AvailableProc [array names auto_index ::iwidgets::*] {
    catch $AvailableProc
}

# -----------------------------------------------------------------------------
# END OF INITIALIZATION - Enter event loop.
# -----------------------------------------------------------------------------
