my $mw = Tkx::widget->new(".");

#somewhere else a popup sub
sub scrolled_message_box {
    my ( $mw, $message ) = @_;
    my $child   = $self->mw->new___toplevel();
    my $textbox = $child->new_tkx_Scrolled('text');
    
    $textbox->insert_end( $message );

    $textbox->configure(
        -state => "disabled",
        -wrap  => "none",
    );

    $textbox->g_pack( -expand => 1, -fill => 'both' );

    #this is what I was looking for
    #part of the problem was that I did not know 
    #how to access tcl namespace ( Tkx::__tclExpression )
    Tkx::__tkwait('window', '.t');
}