Select Code to Download

My output:

...
page1 entry KeyRelease fired
Any thing happened ?
page2 entry KeyRelease fired

use strict;
use warnings;
...
        print "Any thing happened ?\n";
    } );
}

D:\Test>perl -v

...
Going to fire page1 entryKeyRelease
page2 entry KeyRelease fired
Any thing happened ?

I believe the reason why the bindings aren't set, when the pages are f
+irst displayed, is because the pages were originally created without 
+those bindings. You subsequently configure the pages ($nb->pageconfig
+ure) and, when the pages are subsequently raised, those bindings are 
+available. 
Compare -createcmd and -raisecmd in Tk::NoteBook.