From 1e0bfca424959e1baf236313a23cb813f885e88e Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 9 Aug 2013 11:05:04 -0400
Subject: [PATCH] added proper getscroll detection for nw anchored images (e.g.
imagebang)
---
pd/src/pd.tk | 23 +++++++++++++++++------
1 file changed, 17 insertions(+), 6 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 9480ce953..8f5248ea8 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -3775,12 +3775,23 @@ proc pdtk_canvas_getscroll {name} {
set imgh [image height $img]
set imgw [image width $img]
set center [$name coords $item]
- set coords [list \
- [expr [lindex $center 0] - [expr $imgw/2]] \
- [expr [lindex $center 1] - [expr $imgh/2]] \
- [expr [lindex $center 0] + [expr $imgw/2]] \
- [expr [lindex $center 1] + [expr $imgh/2]] \
- ]
+ #for debugging purposes
+ #puts stderr "IMAGE: $anchor [lindex $center 0] [lindex $center 1]"
+ if { $anchor == "nw" } {
+ set coords [list \
+ [expr [lindex $center 0]] \
+ [expr [lindex $center 1]] \
+ [expr [lindex $center 0] + [expr $imgw]] \
+ [expr [lindex $center 1] + [expr $imgh]] \
+ ]
+ } else {
+ set coords [list \
+ [expr [lindex $center 0] - [expr $imgw/2]] \
+ [expr [lindex $center 1] - [expr $imgh/2]] \
+ [expr [lindex $center 0] + [expr $imgw/2]] \
+ [expr [lindex $center 1] + [expr $imgh/2]] \
+ ]
+ }
foreach {x y} $coords {
if { $x < $x1 } {set x1 $x}
if { $x > $x2 } {set x2 $x}
--
GitLab