blob: 9b7a4f554f58a1f2f084b41277727ab8bf0e0c70 (
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
diff --git a/HP-15C.tcl b/HP-15C.tcl
old mode 100644
new mode 100755
index 50238bb..209392b
--- a/HP-15C.tcl
+++ b/HP-15C.tcl
@@ -62,7 +62,7 @@ array set APPDATA {
}
set APPDATA(SerialNo) "$APPDATA(build)[string map {. {}} $APPDATA(version)]"
-set APPDATA(basedir) [file dirname [info script]]
+set APPDATA(basedir) "/usr/lib/hp15c"
set APPDATA(locale) [mclocale]
# Load language according to current locale
@@ -487,6 +487,7 @@ if {![file exists $dnam]} {
set dnam "$APPDATA(basedir)/images"
}
+
foreach img {PrefIconSimulator.gif PrefIconSystem.gif PrefIconFiles.gif
PrefIconDM15CC.gif PrefIconFonts.gif PrefIconHelp.gif PrevIconDev.gif
dispframe.gif HP-15C-logo-256.png HP-15C-logo-512.png} {
@@ -3252,14 +3253,7 @@ proc help { topic } {
switch $topic {
simulator {
-# Differentiate between running from a starpack or from wish
- if {[info exists ::starkit::topdir]} {
- set helpdir [file dirname $::starkit::topdir]
- } else {
- set helpdir [file dirname $::argv0]
- }
- if {[string compare $helpdir "."] == 0} {set helpdir [pwd]}
- set helpfile "$helpdir/doc/index.htm"
+ set helpfile "/usr/share/doc/hp15c/index.htm"
}
prgm {
set helpfile "$HP15(prgmdir)/$HP15(prgmname).htm"
@@ -9507,4 +9501,4 @@ option add *tearOff 0
# ------------------------------------------------------------------------------
# And now let the window manager show the interface in all it's beauty...
wm deiconify .
-#set curdisp " XP-15C"
\ No newline at end of file
+#set curdisp " XP-15C"
|