Artifact 4ace071797261b93c1b43046f014c1baa564f014:

• Executable file client/examples/example-1.tcl — part of check-in [68f9c46716] at 2009-04-18 22:14:02 on branch trunk — Updated teapotclient to not require specifying "Tcl Tk" in the existing extensions parameter of download_extensions. Changed default download directory to not include "lib" of teapotclient, but left this behaviour in the "teapot-client.tcl" script Added examples (user: rkeene, size: 503) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

lappend auto_path [file join [file dirname [info script]] .. lib]

		package require teapotclient

                puts "The following extensions are available:"
                foreach {extension extensioninfo} [::teapotclient::get_extensions \
                                                   [list teapot.activestate.com] \
                                                   {*} {*}] {
                        puts "  $extension [join $extensioninfo {, }]"
                }