File: sysinfo.tcl

package info (click to toggle)
classified-ads 0.15-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 6,788 kB
  • sloc: cpp: 34,610; tcl: 1,175; xml: 64; makefile: 45
file content (14 lines) | stat: -rw-r--r-- 716 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#
# small tcl/tk program that just displays values of platform strings
#
set sysinfostring platform=$tcl_platform(platform)
set sysinfostring $sysinfostring\nbyteorder=$tcl_platform(byteOrder)
set sysinfostring $sysinfostring\nengine=$tcl_platform(engine)
set sysinfostring $sysinfostring\nwordSize=$tcl_platform(wordSize)
set sysinfostring $sysinfostring\npointerSize=$tcl_platform(pointerSize)
set sysinfostring $sysinfostring\nTcl_Version=$tcl_version
set sysinfostring $sysinfostring\nTcl_patchlevel=[info patchlevel]
set sysinfostring $sysinfostring\nTk_Version=$tk_version
set sysinfostring $sysinfostring\nTk_patchLevel=$tk_patchLevel
label .displaylabel -justify left -text $sysinfostring
pack .displaylabel