Drag and Drop Beispiel

Window(srcWin, LOAD, 35, 35, 395, 129, "Drag and Drop")
{
    Prompt(10, 13, "Source:")
    ObjectList(source, DRAG_MOVE, SELECT_MULTIPLE, 85, 10, 261, 37)
    [ INITIALIZE: [ "CX_PERSON::firstName"  1 LIGHTBLUE ] SetFormat
                  [ "CX_PERSON::name"  105 LIGHTRED ] SetFormat
                  1 SetSort
                  FindAll(CX_PERSON) FillObox
    ]
    Prompt(10, 68, "Target:")
    ObjectList(targetBox, ACCEPT_DROP, HZ_SCROLL_BAR, 85, 65, 261, 37)
    [ INITIALIZE: [ "CX_PERSON::name" 2 BLUE ] SetFormat
                  [ "CX_PERSON::firstName" 81 GREEN ] SetFormat
                  [ "CX_PERSON::sexEnum" 167 MAGENTA ] SetFormat
                  2 0 SetSort

      DROP:       FillObox
    ]
}
Window(targetWin, LOAD, ACCEPT_DROP, 350, 75, 531, 63, "TargetWindow")
[ 
    DROP: Drop FillWindow  // Stack ist: flags targetObject [ object ]
]
{
    Prompt(p1, 13, 6, "Name:")
    String(CX_PERSON::name, 90, 6, 150)
    Prompt(p1, 255, 6, "Vorname:")
    String(CX_PERSON::firstName, 351, 6, 155)
    Enum(CX_PERSON::sexEnum, 351, 25, 155, 38)
}