Artifact 0f50584dcd0b4c9e99af9637864701bf5dc3320e:

• Executable file test.tcl — part of check-in [6f5109a8b4] at 2011-09-09 13:30:21 on branch trunk — Added ctk project (user: rkeene, size: 281) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

if {![info exists tk_port]} {
	set tk_library /home/usace/u4423rsk/Desktop/ctk8.2_working/library
	load ./libctk.so Tk
}

label .l -text "Password"
entry .x
button .y -text "OK" -command exit

pack .l -side left
pack .x -side right -fill x -expand 1
pack .y