74 lines
1.9 KiB
Plaintext
74 lines
1.9 KiB
Plaintext
--- doinstall.tcl.orig Fri Sep 29 00:44:53 2000
|
|
+++ doinstall.tcl Tue Dec 5 12:55:13 2000
|
|
@@ -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,23 +90,10 @@
|
|
}
|
|
cd ..
|
|
puts "Finished!"
|
|
-
|
|
- destroy .bottom.do
|
|
- destroy .bottom.not
|
|
- button .bottom.done -text "Finished!" -command {destroy .}
|
|
- pack .bottom.done
|
|
}
|
|
|
|
################################################################################
|
|
|
|
-# Check Tcl/TK version
|
|
-if {$tk_version < 8.1} {
|
|
- tk_dialog .wrongversion "Tcl/Tk too old" \
|
|
- "TkCVS requires Tcl/Tk 8.1 or better!" \
|
|
- error 0 {Bye Bye}
|
|
- exit 1
|
|
-}
|
|
-
|
|
# Some rational and reasonable defaults.
|
|
|
|
if {$tcl_platform(platform) == "windows"} {
|
|
@@ -127,28 +110,8 @@
|
|
if {[llength $argv] == 1} {
|
|
set INSTALLROOT [lindex $argv 0]
|
|
}
|
|
-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
|
|
+show_paths $INSTALLROOT
|
|
+doinstall $INSTALLROOT
|
|
+exit 0
|
|
|