#!/afs/ece/usr/tcl/bin/wish -f
# The next line is executed by most shells, but not Tcl \
wish $0 $*


set Bind_Keyword [file tail [info script]]
source "[file dirname [info script]]/../aux/frame.tcl"

# Help text.
set Help "" ; append Help {Multh -- Add keybindings for handling multiple instances of some kind of widget

This hypertool is useful for programs whose main function is to display some
information in a particular class of widget. Also, these programs generally have
some mechanism for creating and destroying these widgets, so there can be an
arbitrary number of active widgets. Also, although not necessary, these widgets
generally come one to a toplevel window. This program provides some generalized
commands for manipulating those widgets.

} $TH_Bindings_Help {

Widgets of Multh

} $TH_Frame_Help


# Gives app all the code necessary to do our functions.
proc teach_code {} {
  teach_frame_code
  include_files {mult.tcl th_switch_buffer} \
	{iterate.tcl th_return_binding} \
	{focus.tcl th_next_widget}
  foreach binding {All_Shown All_Windows} {
    teach_binding_code $binding}
}

# For a widget, returns the appropriate bindings. (They will depend on the
# widget)
proc widget_bindings {} {
  global Bindings Class App Widget
  return [widget_frame_bindings $Bindings(Mult)]
}
