view release on metacpan or  search on metacpan

Examples/GDS2Tool/gds2tool  view on Meta::CPAN

        $G_canvas -> CanvasBind('<Configure>' => sub { $G_canvas2 -> viewAll; });
    }
    else
    {
        $G_viewWindow -> deiconify();
        $G_viewWindow -> raise();
    }
}
################################################################################

sub updateInfoText
{
    my $append = shift;
    my $text = shift;
    if (Exists($G_infoWindow))
    {
        $G_infoTextArea -> delete('0.0', 'end') if (! $append); 
        $G_infoTextArea -> insert('end', "$text");
        $G_infoTextArea -> update;
    }
}