#11 install script trouble om MacOS9

[Anonymous]

The install script has some trouble on MacOS9 (or at
least, it did for me).

The most important thing was that the installer insists
on removing the first char of the path if it's a
letter. That may be correct for windows, but on MacOS9,
an absolute (!) path like OSDisk:BlablaDir:testDir is
normal. The current script cut's of the O and then
cannot find "SDisk:"... This will fix that:

proc Installer::CheckPath { dest } {
set save [pwd]
if { $::tcl_platform(os) != "MacOS" } {
if { [file pathtype $dest] == "absolute" } {
if { [string match {[a-zA-Z]:*} $dest] } {
cd [string range $dest 0 2]
set dest [string range $dest 3 end]
} else {
cd /
set dest [string range $dest 1 end]
}
}
}

This will not block this check form working on Mac OS X
since that is reported as "Darwin" by tcl, although I
guess that it is not need there.

Note: There are 2 other problems which I didn't bother
hunting down:
1 the browse button for the path which doesn't change
the path in the box. Easily worked around by typing in
the box...
2 for some reason, if I give it the path "OS
9.2.2:System Folder:Extensions" , it installs in a
subdir "lib" of that, which doesn't work. Simply
dragging the tclxml2.6 subdir of lib onto the level of
lib and that's fixed too.