Question: reduce width of plots:-display with multiple plots.

I use plots:-display(Array([p1,p2])) to make two plots (or more) show side by side in worksheet. The problem with this is that there is no way to control the overall width of the output. 

It always takes the entire width of the worksheet window.  Using size=...  makes no difference. This only changes the size of each plot, but does not change the width of the display. Even when using size= inside the plot itself and not inside the display command, it makes no difference to the overall width of display. 

Here is an example to make things clear (site will not let me upload the worksheet).

Here is code and screen shot

s:=t->2*t^4-30*t^3+135*t^2-120*t-10:
v:=t->diff(s(t),t):
p1:=plot(s(t),t=0..8,'gridlines','thickness'=3,'color'="red",'title'="Plot of s(t)"):
p2:=plot(v(t),t=0..8,'gridlines','thickness'=3,'color'="blue",'title'="Plot of v(t)"):
plots:-display(Array([p1,p2]));

This is too wide. Adding size makes no difference. What size does is change each plot size, but display still is using the whole width of the worksheet which makes it look ugly

plots:-display(Array([p1,p2]),size=[300,300]);

I wanted it to look like this (using paint.exe to move things)

ie. to adjust the overall size of the display.

I can avoid display all together and just do 

[p1,p2];
#or
Array([p1,p2]);

But now each plot becomes too small and do not know how to make it larger, but at least they do not take the whole width of the worksheet

Is there a way to tell display not to use the overall width of the worksheet? say to use 50% of the current width and center the output, like the above example made using paint.exe shows?