$maincanvas = $main->Scrolled(qw/Canvas -bg white -height 600 -width 1200  -borderwidth 0 -scrollbars se -scrollregion/ => ['0', '0', $scrollwidth, $scrollheight]) ->pack(@pl), DisplayGroup();