26 lines
838 B
Diff
26 lines
838 B
Diff
--- 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"]]} {
|