I'm noticing a real lack of decent examples and help info for Perl/Tk, so hopefully, in asking questions here, the search engines will make that a little different.

I have created text with the following on a canvas in Perl/Tk

# Create main area for displaying info
my $mainarea = $mw->Canvas;
$mainarea->pack(-fill => 'both', -expand => 'yes');
$mainarea->configure(-background => "#AAAAAA",);

# Define updates to main window
# -----------------------------
# FILESYSTEMS
sub fs_sub {
        $mainarea->createText(10, 10,
                -text => "Filesystem Information:",
                -anchor => 'w');
};

# MEMORY
sub mem_sub{
        $mainarea->createText(10, 10,
                -text => "Memory Information:",
                -anchor => 'w');
};
[download]

The problem is, once I make a menu choice that draws the text (in each subroutine), then go to choose another menu item that draws text, the canvas isn't cleared before the new text is drawn. How can I simple revert the canvas to it's original state? There doesn't seem a decent way to do this.

thanks!

Kickstart