blob: 1dac4dd412a6a56c6cb7f2e322d234e50ee75229 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- samples/sign_on.tcl Fri Jun 2 02:35:54 2000
+++ samples/sign_on.tcl Mon Mar 29 18:16:50 2004
@@ -19,5 +19,5 @@
#upvar 1 $p password
#upvar 1 $s server
- global env mainwindow
+ global env mainwindow tcl_platform
# get valid servers from interfaces file
@@ -91,5 +91,5 @@
frame $mainwindow.s.p
entry $mainwindow.s.p.pw -relief sunken -width 10 \
- -font -*-symbol-*-r-*--20-*-*-*-*-*-*-*
+ -show * -exportselection false
label $mainwindow.s.p.p -text " Password" -anchor e
|
