mob/proc
    ShowItem(var/obj/A)
        var/icon/I = icon(A.icon,A.icon_state)
        winshow(src,"ItemDesc",1)
        labelimage(src,"ItemPic",I,1)
        labeltext(src,"ItemName","[A.name]")
        labelwraptext(src,"ItemName",1)
        winset(src,"ItemWorth","text=[A.price]")
        labeltext(src,"Description","[A.desc]")
        labelwraptext(src,"Description",1)   

proc
    labelimage(mob/m, label_id, image/image, stretch=0)
        if(ismob(m))
            if(isnull(image))
                winset(m,label_id,"image=")
            else
                winset(m,label_id,"image=[image]")
                if(stretch)
                    winset(m,label_id,"stretch=true")
                else
                    winset(m,label_id,"stretch=false")
        else CRASH("Invalid mob.")