Scripts with Other Documentation

Many of the following are explained in more detail in Tcl/Tk for Programmers.

• A Tk procedure cleanTk which deletes all widgets and bindings in the current Tk interpreter. This is useful when you are playing around with Tk.

• A Tk color-code determining script. Run it to choose a color and see a color code for that color.

• A Tk keyboard event name script. Run it to see the names of the events that are generated as you use your keyboard.

• A Tk procedure scrollable which will create and pack a scrollable widget with one or two scrollbars. Use it where you are packing horizontal slices. That is to say, use it where you are packing your widgets with the -side top or -side bottom option. In this case, scrollable will create and pack what is necessary to fit a scrollable widget and its scrollbars with your other widgets. Here's the way to use the procedure:

  scrollable WIDGET_NAME WIDGET_TYPE ?TWO_WAY?
  

  where WIDGET_NAME is the name of the widget into which the scrollable widget should be packed (a frame or a toplevel widget), WIDGET_TYPE is text or listbox, and ?TWO_WAY? should be 1 if a horizontal as well as a vertical scrollbar is desired. The effect is to create a text or listbox widget with a vertical scrollbar (or with two scrollbars) and to return the name of this widget. You can use the returned name to re-configure the text or listbox widget to the way you want it to look.

• A Tk widget maker rotext that works like text but the text widget it creates honors a readonly tag by preventing the user from changing text so tagged.

• Two C implementations of zlst::prune These are written to produce a Tcl command named lprune. Use lprune this way

  lprune ?-not? LIST GLOB_PATTERN
  

  and lprune will return a sublist of LIST consisting of those elements that match (or don't match) the pattern GLOB_PATTERN. Use the -not switch to obtain elements which don't match. If LIST begins with "-" and "-not" isn't wanted, use "--" in its place.

  One implementation uses the Tcl_Obj data type that was introduced with the C library for version 8.0 of Tcl. The other implementation works with earlier versions of Tcl. Compare the two for some idea of how programming with Tcl_Obj works.

• A family Tfp_array* of C functions that implement associative arrays. Tfp_array* is an interface to the Tcl_Hash* family of C functions that belong to Tcl's C library. Tfp_array* is easier to use but less flexible. It is useful in situations where you what to implement multiple associative arrays, each one of which has a homogenous codomain, i.e. maps to the same kind of element. A user-level description of Tfp_array* is provided here. An executable script is available here.