blob: 24c395522397612cfb74f7ab29a52d40b0ca360e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
--- 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"]]} {
|
GitWeb
