Re: Tkhtml and hv1.tcl problem

Ok, I think I might have a sorta handle on the problem....
hv.tcl has the following routine which is supposed to
return the underlying uri.
**********************************************************
proc HrefBinding {x y} {
  # koba & dg marking text
  .dv.h.h selection clear
  set ::tkhtml::Priv(mark) $x,$y
  set list [.dv.h.h href $x $y] <--- The problem starts here
  if {![llength $list]} {return}
  foreach {new target} $list break
  if {$new!=""} {
    regsub -all {^{|}$} $new {} new <--- My addition
    global LastFile
    set pattern $LastFile#
    set len [string length $pattern]
    incr len -1
    if {[string range $new 0 $len]==$pattern} {
      incr len
      .dv.h.h yview [string range $new $len end]
    } else {
      LoadFile $new
    }
  }
}
*********************************************************
In the first marked line (The problem starts here)
If there is a blank in the path to the html file
"list" will look like:

 {{ path/to the/htmlfile}}

If there is no blank in the path name
"list" will look like:

 {path/tothe/file}

As far as I can tell the "foreach" line strips off
one set of {}.

My "fix" is to check for an existing set of {} surounding
the desired string and simply throw the braces away.

This seems to have fixed my immediate problem...

Jerry
Received on Tue Jan 3 03:09:27 2006