1 files changed, 141 insertions, 0 deletions
diff --git a/tkimg/tools/install.tcl b/tkimg/tools/install.tcl
new file mode 100755
index 0000000..c5d7ae1
--- /dev/null
+++ b/tkimg/tools/install.tcl
@@ -0,0 +1,141 @@
+#!/bin/sh
+# The next line restarts using wish \
+exec wish $0 ${1+"$@"}
+#
+# Initialization of some global variables
+
+eval destroy [winfo children .]
+
+switch -glob [info sharedlibextension] {
+    .so* {
+	set libs [list libpng.so.2.1.0 libjpeg.so.62.0.0 libtiff.so.3.4.37 \
+		libz.so.1.1.3 libttf.so.1.2.0 libungif.so.3.1.0]
+    }
+    ..a {
+	set libs [list libpng.a libjpeg.a libtiff.a libz.a libttf.a libungif.a]
+    }
+    .dll {
+	set libs [list png.lib jpeg62.lib tiff.lib zlib.lib ttf.lib ungif.lib]
+	set dll [list png.dll jpeg62.dll tiff.dll zlib.dll ttf.dll ungif.dll]
+    }
+    * {
+	set libs [list libpng[info sharedlibextension] libjpeg[info sharedlibextension] \
+		libtiff[info sharedlibextension] libz[info sharedlibextension] \
+		libttf[info sharedlibextension] libungif[info sharedlibextension]]
+    }
+}
+
+if [info exists env(PATH)] {
+    if [string compare $tcl_platform(platform) windows] {
+	set dirs [split $env(PATH) :]
+    } else {
+	set dirs [split $env(PATH) \;]
+    }
+} else {
+    set dirs "/usr/local/lib /usr/lib /lib"
+}
+
+foreach dir "$dirs C:/WINDOWS/* C:/WINNT/*" {
+   foreach d [list $dir [file join [file dirname $dir] lib]] {
+	set x [glob -nocomplain [file join $d \{lib,\}tcl\[78\]*[info sharedlibextension]*]]
+	if [string compare $x {}] break
+    }
+    if [string compare $x {}] break
+}
+
+
+label .f1 -text "Where should the following files be installed?"
+pack .f1
+proc line {f label default} {
+    frame $f
+    label $f.l -text $label
+    entry $f.e -width 50
+    $f.e insert end $default
+    pack $f.l -side left
+    pack $f.e -side right
+    pack $f -expand y -fill both
+}
+set prefix [file dirname [file dirname $tk_library]]
+
+if [string compare $tcl_platform(platform) windows] {
+    set imglibs [lindex [file split $x] end]
+    if [string match libtcl?.?[info sharedlibextension]* $imglibs] {
+	set imglibs libimg1.2[info sharedlibextension]
+    } else {
+	set imglibs libimg12[info sharedlibextension]
+    }
+} else {
+    set x [lindex $x 0]
+    set systemdll [file dirname $x]
+    set imglibs [list img1280.dll img1281.dll]
+    line .f2 "system dll's" $systemdll
+}
+line .f3 "system libraries"  [file join $prefix lib]
+line .f4 "system headers" [file join $prefix include]
+line .f5 "Img 1.2 files" [file join $prefix lib Img1.2]
+frame .f6
+button .f6.install -text Install -command Install
+button .f6.exit -text Exit -command "destroy ."
+pack .f6.install .f6.exit -side left -fill both -expand y
+pack .f6 -fill both -expand y
+
+proc Copy {src dst} {
+    if [file exists $src] {
+	file delete -force [file join $dst $src]
+	puts_stdout "copying $src to $dst"
+	file copy $src $dst
+	return 1
+    }
+    return 0
+}
+
+proc Install {} {
+    global libs dll tcl_platform imglibs
+    if [winfo exists .t] {
+	raise .t
+    } else {
+	toplevel .t
+	frame .t.f
+	button .t.f.d -text dismiss -command [list destroy .t]
+	pack .t.f.d -side left
+	pack .t.f -side top -fill x
+	text .t.t -yscrollcommand [list .t.s set]
+	scrollbar .t.s -command [list .t.t yview]
+	pack .t.t .t.s -side left -expand y -fill both
+    }
+    .t.t delete 1.0 end
+    proc puts_stdout args {
+	.t.t insert end "[lindex $args 0]\n"
+	.t.t see end
+	update
+    }
+    .t.t see end
+    if ![string compare $tcl_platform(platform) windows] {
+	set dir [.f2.e get]
+	foreach lib $dll {
+	    Copy $lib $dir
+	}
+    }
+    set dir [.f3.e get]
+    foreach lib $libs {
+	if {[Copy $lib $dir] && ![string compare [info sharedlibextension] .so]} {
+	    while {[string compare .so [set ext [file extension $lib]]]} {
+		file delete [set file [file join $dir [file rootname $lib]]]
+		puts_stdout "ln -s $lib $file"
+		exec ln -s $lib $file
+		set lib [file rootname $lib]
+	    }
+	}
+    }
+    set dir [.f4.e get]
+    foreach lib [list zlib.h zconf.h png.h pngconf.h jpeglib.h jconfig.h \
+		jmorecfg.h jerror.h tiff.h tiffio.h tiffconf.h freetype.h gif_lib.h] {
+	Copy $lib $dir
+    }
+    set dir [.f5.e get]
+    catch {file mkdir $dir}
+    foreach lib "$imglibs pkgIndex.tcl" {
+	Copy $lib $dir
+    }
+    puts_stdout "---------- installation complete ----------"
+}