You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
435 B
20 lines
435 B
3 months ago
|
set sep [string repeat - 30]
|
||
|
|
puts stdout $sep
|
||
|
|
puts stdout "tcl::tm::list"
|
||
|
|
puts stdout $sep
|
||
|
|
puts stdout [join [tcl::tm::list] \n]
|
||
|
|
|
||
|
|
puts stdout $sep
|
||
|
|
puts stdout "auto_path"
|
||
|
|
puts stdout $sep
|
||
|
|
puts stdout [join $::auto_path \n]
|
||
|
|
puts stdout $sep
|
||
|
|
|
||
|
|
puts stdout "package names"
|
||
|
|
set packages [lsort [package names]]
|
||
|
|
puts stdout $sep
|
||
|
|
puts stdout [join $packages \n]
|
||
|
|
puts stdout $sep
|
||
|
|
puts stdout "[llength $packages] packages"
|
||
|
|
|