blob: 793f826109c2de57da33b15a4f5ddc1242bca8ae (
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
|
diff --git a/src/HP-15C.tcl b/src/HP-15C.tcl
index 50238bb89c4c..da2886209ac1 100644
--- a/HP-15C.tcl
+++ b/HP-15C.tcl
@@ -3250,22 +3250,7 @@ proc help { topic } {
global APPDATA HP15 errorInfo
- 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"
- }
- prgm {
- set helpfile "$HP15(prgmdir)/$HP15(prgmname).htm"
- }
- }
- catch {set helpfile [file nativename [lindex [glob "$helpfile*"] 0]]}
+ set helpfile "/usr/share/doc/hp15c/index.htm"
if {[string length $HP15(browser)] == 0} {
set msg [mc help.nobrowser]
---
|