use Tk::Columns;

if (defined ($p_Slave))
   {
    $p_Slave->GeometryRequest ($this->reqwidth(), $p_Slave->reqheight());
    $p_Slave->update();

$this->update();
}