| --- a/PgcEdit_main.tcl |
| +++ b/PgcEdit_main.tcl |
| @@ -1456,9 +1456,9 @@ |
| catch {file delete $::config(bindir)} |
| } |
| } else { |
| - set config(apppath) [file dirname $scriptname] |
| - set ::config(bindir) [file join [file dirname $scriptname] "bin"] |
| - set ::config(plugindir) [file join [file dirname $scriptname] "plugins"] |
| + set config(apppath) {/usr/share/pgcedit} |
| + set ::config(bindir) "$config(apppath)/bin" |
| + set ::config(plugindir) "$config(apppath)/plugins" |
| |
| if {! [file exists $::config(tempdir)]} { |
| set ::config(tempdir) "/tmp" |
| --- a/lib/main.tcl |
| +++ b/lib/main.tcl |
| @@ -4674,7 +4674,7 @@ |
| }
|
|
|
| proc display_doc {} {
|
| - set rootpath [file dirname $::config(bindir)]
|
| + set rootpath "@DOCDIR@"
|
| set filename ""
|
| if {$::tcl_platform(platform) == "windows"} {
|
| if {[file exists [file join $rootpath "PgcEdit_Manual.chm"]]} {
|