blob: 2df064e5f636898a3cd79a110eb9b08254104acb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
--- doinstall.tcl.orig Sun May 7 01:12:41 2000
+++ doinstall.tcl Mon Sep 4 17:06:32 2000
@@ -4,1 +4,1 @@
-exec wish "$0" -- ${1+"$@"}
+exec wish8.2 "$0" -- ${1+"$@"}
@@ -30,13 +30,9 @@
set msg(5) [file join $MANDIR tkcvs.n]
}
foreach m [lsort [array names msg]] {
- if {[winfo exists .messages.$m]} {
- destroy .messages.$m
- }
global var$m
set var$m $msg($m)
- label .messages.$m -text $msg($m) -justify left -textvariable var$m
- pack .messages.$m -side top -anchor w
+ puts var$m
}
}
@@ -94,11 +90,6 @@
}
cd ..
puts "Finished!"
-
- destroy .bottom.do
- destroy .bottom.not
- button .bottom.done -text "Finished!" -command {destroy .}
- pack .bottom.done
}
#
@@ -115,28 +106,6 @@
set TKDIFF "tkdiff"
}
-frame .title
-label .title.lbl -text "TkCVS Installer" -font {Helvetica -14 bold}
-pack .title -side top
-pack .title.lbl -side top
-frame .entry
-label .entry.instlbl -text "Installation Root"
-entry .entry.instent -textvariable INSTALLROOT
-bind .entry.instent <Return> {show_paths $INSTALLROOT}
-pack .entry -side top -pady 10
-pack .entry.instlbl -side left
-pack .entry.instent -side left
-
-frame .messages -relief groove -bd 2
-pack .messages -side top -expand y -fill x
-label .messages.adv -text "These files will be installed:"
-pack .messages.adv -side top
show_paths $INSTALLROOT
-
-frame .bottom
-button .bottom.do -text "Install" -command {doinstall $INSTALLROOT}
-button .bottom.not -text "Cancel" -command {destroy .}
-pack .bottom -side top
-pack .bottom.do -side left
-pack .bottom.not -side left
-
+doinstall $INSTALLROOT
+exit 0
|
