Select Code to Download

    $square->lower_to_bottom();
    $square->raise(1);

    $text->lower_to_bottom();
    $text->raise(2);

    $replaceSquare->lower_to_bottom();
    $replaceSquare->raise(1);

#!/usr/bin/perl
package canvas;

...
# Open the window
$window->show_all();
Gtk2->main();