$text_replacement_res = $wg_name->configure(-text => $new_text);

##</code><code>##

$image_name_full = $image_loc . $new_image;
$image_use = $mw_Main->Photo(-file => $image_name_full);
$wg_name->configure(-image => $image_use);