diff options
author | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
---|---|---|
committer | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
commit | 57e8350a3895a1579b77cc134d6d7d49b056678e (patch) | |
tree | 7584c16f5407dd1371b8290109b3b822067afd5a /itcl/iwidgets3.0.0/generic/hyperhelp.itk | |
parent | 7467241ff2a5cd6da7bbecb7111fc0dc3211c7de (diff) | |
download | gdb-57e8350a3895a1579b77cc134d6d7d49b056678e.tar.gz |
Itcl import for Tcl/Tk8.3 upgradeITCL_TCL_8_3
Diffstat (limited to 'itcl/iwidgets3.0.0/generic/hyperhelp.itk')
-rw-r--r-- | itcl/iwidgets3.0.0/generic/hyperhelp.itk | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/itcl/iwidgets3.0.0/generic/hyperhelp.itk b/itcl/iwidgets3.0.0/generic/hyperhelp.itk index e3f4a05bd83..8eb5e80be44 100644 --- a/itcl/iwidgets3.0.0/generic/hyperhelp.itk +++ b/itcl/iwidgets3.0.0/generic/hyperhelp.itk @@ -261,9 +261,8 @@ configbody iwidgets::Hyperhelp::title { # Set location of help files # ------------------------------------------------------------------ configbody iwidgets::Hyperhelp::helpdir { - if {[string index [file dirname $itk_option(-helpdir)] 0] != "/" && \ - [string index [file dirname $itk_option(-helpdir)] 0] != "~"} { - configure -helpdir [pwd]/$itk_option(-helpdir) + if {[file pathtype $itk_option(-helpdir)] == "relative"} { + configure -helpdir [file join [pwd] $itk_option(-helpdir)] } else { set _history {} set _history_len 0 |