Re: Problem with pdf4tcl, canvas and Tcl/Tk 9.0

Am 02.02.25 um 08:45 schrieb greg:

# Example Script
#set auto_path [linsert $auto_path 0 [file normalize  "../"]]
 package require Tk
package require pdf4tcl
 # canvas
set c [canvas .c -width 400 -height 300 -bg white]
pack $c -fill both -expand 1
set text_id [$c create text 200 150 -text "Hallo, Tcl/Tk!" -font "Arial 16"]
 pdf4tcl::new mypdf -paper a4
mypdf canvas .c
mypdf write -file canvas.pdf
 # System:
if {0} {
pdf4tcl: 0.9.4
source /usr/local/share/tcltk/pdf4tcl0.9.4/pdf4tcl.tcl
Tcl/Tk:9.0.1 / Linux
nameofexecutable: /usr/bin/tclsh9.0
 #Output:
 cannot use non-numeric string "" as left operand of "-"
     while executing
"expr {$underline - $isum}"
     (procedure "CanvasGetWrappedText" line 16)
     invoked from within
"CanvasGetWrappedText $path $id underline"
     (class "::pdf4tcl::pdf4tcl" method "CanvasDoItem" line 173)
     invoked from within
"my CanvasDoItem $path $id [$path coords $id] opts"
     (class "::pdf4tcl::pdf4tcl" method "canvas" line 164)
     invoked from within
"mypdf canvas .c"
  }
  if {0} {
   Problem with pdf4tcl, canvas and Tcl/Tk 9.0.
   No error message with Tcl/Tk 8.6.16.
    Could this be due to changes in Tcl/Tk 9.0?
I looked at underline in the CanvasDoItem method in ::pdf4tcl::pdf4tcl
with
tcl::unsupported::representation underline
value is a pure string with a refcount of 4, object pointer at 0x55ca273d5cb0, string representation "underline"
    But that doesn't help me. I haven't found any changes in 9.0 that have this effect.
 regards
Gregor
 }
 

The problem has been solved since 2023.
https://sourceforge.net/p/pdf4tcl/code/ci/master/tree/ChangeLog
2023-09-11 Peter Spjuth   <peter.spjuth@gmail.com>
* Handle Tk canvas 8.7 underline gracefully. [#13]
Gregor