Select Code to Download

$book->focus( $book->raised );
$book->focusFollowsMouse;

$mw->focusFollowsMouse;

$book->bind(  '<Control-Tab>',  \&RaiseNext );
$book->bind(  '<Shift-Control-Tab>', \&RaisePrev );
...
    my( $nb ) = @_; 
    $nb->raise( $nb->info("focusprev") );
}