my $status_text_scrollbar = $logging_grid->new_ttk__scrollbar(); my $status_text = $logging_grid->new_tk__text(); $status_text->configure( -width => 80, -height => 10, -yscrollcommand => [$status_text_scrollbar, "set"], -state => "disabled", ); $status_text_scrollbar->configure( -command => [$status_text, "yview"], -orient => "vertical", ); update_tkx('Update the text in the box, please'); sub update_tkx { my $status_text_string = $_[0]; # text control has to be enabled to write to it. $status_text->configure(-state => "normal"); $status_text->insert("end", $status_text_string); $status_text->see("end"); # Don't want the user editing this... $status_text->configure(-state => "disabled"); Tkx::update(); }