gistfile1.txt

    static draggable-button (name id) :
        void <- (rawstring uint)
        if (BeginDragSource name id)
            do
                ; visually remove entry
                tuple ;
            do
                Button name
        EndDragSource ;

    static droppable-button (name id) :
        void <- (rawstring uint)
        if (BeginDropTarget name id)
            do
                Button "DROPPING"
                Button name
            do
                Button name
        EndDropTarget ;

    static dragdroppable-button (name id) :
        void <- (rawstring uint)
        if (BeginDragSource name id)
            do
                ; visually remove entry
                tuple ;
            do
                if (BeginDropTarget name id)
                    do
                        Button name
                            vec2 100 100
                    do
                        Button name
                            vec2 100 0
                EndDropTarget ;
        EndDragSource ;

    static dragdrop-demo () :
        void <- ()
        PushID "a"
        dragdroppable-button "Drag-Drop Me 1" 1
        PopID ;
        PushID "b"
        dragdroppable-button "Drag-Drop Me 2" 1
        PopID ;
        PushID "c"
        dragdroppable-button "Drag-Drop Me 3" 1
        PopID ;
        PushID "d"
        dragdroppable-button "Drag-Drop Me 4" 1
        PopID ;

        do-if (BeginDropHandle)
            Text "Item ID: %i"
                GetDropType ;
            EndDropHandle ;