diff options
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 |