diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-02 14:45:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-02 14:45:48 (GMT) |
| commit | 399eacbc0271601773bf04e62ef4bd9a2d13033f (patch) | |
| tree | b53db01748e6d3a05f6c6e400c7306f51a4637af /library | |
| parent | c863ce89c89677c300b8e558c0d4e53a0856d1f8 (diff) | |
| download | tk-399eacbc0271601773bf04e62ef4bd9a2d13033f.zip tk-399eacbc0271601773bf04e62ef4bd9a2d13033f.tar.gz tk-399eacbc0271601773bf04e62ef4bd9a2d13033f.tar.bz2 | |
Update Xlib.h to latest version
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/print.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/print.tcl b/library/demos/print.tcl index 5277798..21315b4 100644 --- a/library/demos/print.tcl +++ b/library/demos/print.tcl @@ -47,7 +47,7 @@ agyc3NsFGrXVZMipWVBCzKv4Q0JvCviDsjAwf4ylxBeX0KcwGs81ccgqGS3MBxc3RjDDVAvdBRcf eFy1MFd3bcQHJEQdlddkP5E1Cf9yXfbaV2d9RBAAOw== } -# Create a copy of the image just created, magnified according to the +# Create a copy of the image just created, magnified according to the # display's DPI scaling level. Since the zooom factor must be an integer, # the copy will only be effectively magnified if $tk::scalingPct >= 200. image create photo logo2 @@ -61,7 +61,7 @@ pack $c -fill both -expand yes -fill both -side left $c create rectangle 15p 15p 165p 60p -fill blue -outline black ;# 150p x 45p $c create oval 15p 75p 165p 120p -fill green ;# 150p x 45p set imgId [$c create image 90p 135p -image logo2 -anchor n] - + # Compute the scaled y coordinate of the next canvas item's top edge in pixels lassign [$c bbox $imgId] x1 y1 x2 y2 ;# x1, y1, x2, y2 are in pixels incr y2 [expr {round(15 * [tk scaling])}] ;# convert 15 pt to pixels |