MenuView[{ " " -> Manipulate[ Graphics[{EdgeForm[Thickness[list[[x]]]], White, Rectangle[{0, 0}, {160, 90}], Flatten@({Flatten@(Table[ RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@ Range[2, 4, 1]), MapThread[ Function[{Xs, Ys}, Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@ Table[Range[0, 32, 16], {3}], Flatten@(Table[#, {3}] & /@ Range[63, 81, 9])}]}\[Transpose]), Black, Thick, Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300] , {x, 1, 3, 1} ], "Method\[Rule]{ShrinkWrap\[Rule]True}" -> Manipulate[ Graphics[{EdgeForm[Thickness[list[[x]]]], White, Rectangle[{0, 0}, {160, 90}], Flatten@({Flatten@(Table[ RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@ Range[2, 4, 1]), MapThread[ Function[{Xs, Ys}, Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@ Table[Range[0, 32, 16], {3}], Flatten@(Table[#, {3}] & /@ Range[63, 81, 9])}]}\[Transpose]), Black, Thick, Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300, Method -> {"ShrinkWrap" -> True}] , {x, 1, 3, 1} ], "ImagePadding\[Rule]None,PlotRangePadding\[Rule]None" -> Manipulate[ Graphics[{EdgeForm[Thickness[list[[x]]]], White, Rectangle[{0, 0}, {160, 90}], Flatten@({Flatten@(Table[ RandomChoice[{GrayLevel[.15], c0[[#]]}], {3}] & /@ Range[2, 4, 1]), MapThread[ Function[{Xs, Ys}, Rectangle[{Xs, Ys}, {Xs + 16, Ys + 9}]], {Flatten@ Table[Range[0, 32, 16], {3}], Flatten@(Table[#, {3}] & /@ Range[63, 81, 9])}]}\[Transpose]), Black, Thick, Line[{{0, 63}, {160, 63}}]}, ImageSize -> 300, ImagePadding -> None, PlotRangePadding -> None] , {x, 1, 3, 1} ] }]