my $newx = $Mycanvas -> cget(-width);