# Create a top-level window that demonstrates tiles
# and transparent stuff.
my($demo) = @_;
$TOP = $MW->WidgetDemo(
-name => $demo,
-text => ['This window demonstrates tiles and transparent images. The Canvas has a yellow background, which displays for one second before it\'s overlayed with a tile of tiny camels. On top of the tile layer are three non-transparent images that obscure the tile. Canvas items such as ovals, rectangles and polygons cannot react to bound events unless they are filled with a color - move the cursor over the blue circle and note that it reacts to <Motion> events. The transparent circle outlined in red to the left of the blue circle does not react to <Motion> events in its interior because it\'s transparent, or unfilled. If you need a transparent item that also reacts to events then add a transparent stipple. The bottom red circle is both transparent and aware of events. Finally, a blue lattice (a transparent GIF that\'s been Base64 encoded so it can be embedded in the source) is overlayed on top of everything, anchored to the southeast corner of the Canvas.', -wraplength => '8i'],
-title => 'Tile and Transparent Demonstration',
-iconname => 'transtile',
);
my $tile = $TOP->Photo(-file =>Tk->findINC('Camel.xpm'));
# A tiled Canvas - the tile overlays the background color.
my $c = $TOP->Canvas(
-background => 'yellow',
-width => 300,
-height => 250,
-relief => 'raised',
-borderwidth => 3,
)->grid;
$c->update;
$c->after(1000);
$c->configure(-tile => $tile);
# These images are not transparent, thus they obscure the tile
