mob/verb/Buy1()
    winshow(usr, "Buy", 1)
    src.UpdateBuy()
//  var/list/Items=new
//  Items+=new /obj/box
//  for(var/obj/O in src)
//      winset(src, "Buy.Price", "current-cell=[++Items]")
//      src << output(O, "Buy.Price")

mob/proc/UpdateBuy()
    var/list/Items=new

    Items+=new /obj/box
    Items+=new /obj/cone
    Items+=new /obj/cylinder
    Items+=new /obj/pyramid
    for(var/obj/O in Items)
        Row++
        winset(src, "Buy.grid1:1,[Row]", "current-cell=[++Items]")
        src << output(O, "Buy.grid1:1,[Row]")
    winset(src, "Buy.grid1:,[Row]", "cells=[Items]")    // cut off any remaining cells
    winset(src, "Buy.Price", "text=\"[cost]")   // cut off any remaining cells