Combine with ColumnRow a square and a parallelogram

g1 = Graphics[{EdgeForm[{Thick, Blue}], FaceForm[], Rectangle[]},     ImageSize -> {400, 400}];  g2 = Graphics[{{EdgeForm[{Dashed, Blue}], FaceForm[], Rectangle[]},      GeometricTransformation[{EdgeForm[{Thick, Blue}], FaceForm[],        Rectangle[]}, ShearingMatrix[30 Degree, {1, 0}, {0, 1}]]},     ImageSize -> {400, 400}]; 

But when I use GraphicsRow or Grid the two graphs appear with different sizing:

GraphicsRow[{g1, g2}]  Grid[{g1, g2}] 

I guess this is trivial but I cannot find a way so that the two graphs appear with the same size.