#!/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 {Iterath -- teach a widget to do a keybinding multiple times

This program teaches widgets to execute a keybinding as many times as the user
specifies.

} $TH_Bindings_Help {

Widgets of Iterath

Default Iterations Scale

This scale indicates how many iterations should be done of a command if the user
didn't specify a number. The default is 10.

} $TH_Frame_Help


# Gives app all the code necessary to do our functions.
proc teach_code {} {
  include_files {iterate.tcl th_iterate_binding}
  teach_frame_code
  global Default_Iteration_Number
  do_cmd_set TH(Iterate,Default) $Default_Iteration_Number
}

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


create_form_scale .itno "Default Number of Iterations" \
	Default_Iteration_Number 10 -from 0 -to 100
