Artifact ded7ead90fdc65545205ed98d8a0b2fd6862a47d:

• Executable file client/examples/example-2.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: 563) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

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

                package require teapotclient

                set os $tcl_platform(os)
                if {$tcl_platform(platform) == "windows"} {
                        set os $tcl_platform(platform)
                }

                puts "Downloading md5 and sha1 packages for the current system"
                ::teapotclient::download_extensions "lib" \
                  [list teapot.activestate.com] [list md5 sha1] $os \
                  $tcl_platform(machine)