From: Mike C. <mik...@us...> - 2003-01-20 16:22:31
|
Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima In directory sc8-pr-cvs1:/tmp/cvs-serv27665 Modified Files: Menu.tcl Log Message: Fix UI Help Reference Manual for Windows NT - untested Index: Menu.tcl =================================================================== RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Menu.tcl,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- Menu.tcl 8 Jan 2003 12:32:45 -0000 1.8 +++ Menu.tcl 20 Jan 2003 16:22:26 -0000 1.9 @@ -18,6 +18,7 @@ proc vMAXAddSystemMenu {fr text} { global maxima_priv maxima_default + global tcl_platform set win $fr.textcommands @@ -190,6 +191,11 @@ set file $maxima_priv(pReferenceToc) if {[file isfile $file]} { set state normal + if {$tcl_platform(platform) == "windows"} { + # decodeURL is broken and needs fixing + # This is a workaround + set file [file attrib $file -shortname] + } } else { set state disabled } @@ -197,12 +203,19 @@ -state $state \ -command "OpenMathOpenUrl \"file:/$file\"" set browse {exec} - global tcl_platform + + # FIXME: get a browser object if {$tcl_platform(platform) == "windows"} { - lappend browse command.com /c start + if {$tcl_platform(os) == "Windows 95"} { + # Windows 95/98 + lappend browse command.com /c start + } else { + # Windows NT / 2000 - untested + lappend browse cmd.exe /c start + } } else { - # FIXME: get a browser object - lappend browse [auto_execok netscape] + # This is more difficult under Unix - KDE GNOME CDE etc... + lappend browse netscape } $m add sep $m add command -underline 0 -label {Maxima Homepage} \ |