Question: Maplet = Button = Not shutdown

ok, I have the following code but I want the Maplet to remain when I click on Ok (I only want it to plot and not shut down so I can

select more options from the list and plot more) so this Shutdown(['D1']) command should be removed but I dont know

what I should have there instead ?

with(Maplets[Elements]) :

L := [seq(symbb[1, i], i = 1 .. Nc-1)] :

maplet := Maplet([["Which Stock do you want to plot?:  ", DropDownBox[D1](L[1], L)], [Button("Ok", Shutdown(['D1']))]]) :

Ap := Maplets[Display](maplet)[1]:

for i to Nc-1 do if L[i] = Ap then k := i; break end if end do :

A := [seq(Column(LLL, 1)[i], i = 1 .. Nr)]:    B := [seq(i = A[i], i = 1 .. nops(A), 7)] :

plot([seq(i, i = 1 .. Nr)], Column(LLL, k), filled = true, color = blue, tickmarks = [B, default], font = [times, roman, 14], labels = ["Time", "Stock Price"], title = typeset(symbb[1, k]), titlefont = [times, bold, 14], thickness = 2) ;