1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#! /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
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#! /usr/bin/env tclsh
if {![info exists tk_port]} {
set tk_library [file join [file dirname [info script]] 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
|