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.
12 lines
506 B
12 lines
506 B
package require patternpunk |
|
package require punk::ansi |
|
package require textblock |
|
apply { {} { |
|
set l "[punk::ansi::a+ term-blue][>punk . logo2][punk::ansi::a]" |
|
set f [textblock::frame -type arc -ansiborder [punk::ansi::a+ green] $l] |
|
set info "\n[info patchlevel]\n[>punk . version]" |
|
puts -nonewline stdout \n[textblock::join -- $f " " $info] |
|
} } |
|
#puts -nonewline stdout [n/new ::[set ::tcl_platform(user)]] |
|
puts -nonewline stdout [punk::nav::ns::newns ::[set ::tcl_platform(user)]] |
|
#mode raw |