This is my solution for problem number 1.

First I created a callback for the scrolling action.

This call back then gets the current canvas position (via the sub xview and yview), moves the canvas (again via xview and yview), and finally gets the new position of the canvas

The return value of xview and yview is a percentage of the canvas that is not seen compared to the total scrollable area. So, it is just simple arithmetic to see how far the canvas actually scrolled.

Finally, I just moved the rectangle the same amount the canvas moved.

Modified Code: 

#!/usr/bin/perl -w

use Tk;
use strict;

# Main program / GUI setup
my $mw = MainWindow->new;
my $c = $mw->Scrolled('Canvas', -width => 200, -height => 200)->grid;
$c->configure(-background =>'blue', -scrollregion => [ 0, 0, 500, 500 
+]);

#Grid
$c->createGrid(0, 0, 10, 10);
$c->createGrid(0, 0, 100, 100, -lines => 1, -dash => '.-');

$c->pack(-expand => 1, -fill => 'both');

my $rect = $c->createRectangle(20, 20, 40, 40, 
    -outline => 'yellow', 
    -fill => 'yellow');
    
# get scrollbars
my $xscroll = $c->Subwidget("xscrollbar");
my $yscroll = $c->Subwidget("yscrollbar");

# create callbacks for scrollbars
$xscroll->configure(-command=>[\&scrolled,'x']);
$yscroll->configure(-command=>[\&scrolled,'y']);

MainLoop;

sub scrolled {
    my $dir = shift;  # what direction


    my (@xbefore,@ybefore);
    my (@xafter,@yafter);
    
    # debug statement
    print "${dir}scrolled: <",join("><",@_),">\n";

    # get data before moving 
    @xbefore = $c->xview();
    @ybefore = $c->yview();

    # move canvas
    if ($dir eq 'x') {$c->xview(@_)};
    if ($dir eq 'y') {$c->yview(@_)};

    # get data after moving
    @xafter=$c->xview();
    @yafter=$c->yview();
    
    # what is the scrollregion
    my @scrolls = $c->cget(-scrollregion);
    print "scrolled @scrolls\n";
    
    # movement in x direction is
    my $xmv = ($xafter[0] - $xbefore[0])*($scrolls[2]-$scrolls[0]);
    
    # movement in y direction is
    my $ymv = ($yafter[1] - $ybefore[1])*($scrolls[3]-$scrolls[1]);
    
    # move the rectangle to compensate for canvas move
    print "moving $xmv $ymv\n";
    $c->move($rect,$xmv,$ymv);
}

[download]
Cheers

Sandy

PS: Thanks, that was fun!

UPDATE: If window is expanded and contracted such that the yellow box is no longer visible, then no amount of scrolling will make it visible again. Mmmm.

In reply to Re: Two questions regarding -tk-canvas by Sandy
in thread Two questions regarding -tk-canvas by tamaguchi

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.