# Property of Four Js*
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
# * Trademark of Four Js Development Tools Europe Ltd
#   in the United States and elsewhere
# 
# Four Js and its suppliers do not warrant or guarantee that these
# samples are accurate and suitable for your purposes. Their inclusion is
# purely for information purposes only.

LAYOUT ( TEXT = "3 Lists" )
GRID
{
<t t1                    ><g g><t t2                    >
 List 1                   [b12] List 2
[c1                      ]     [c2                      ]
[c1                      ]     [c2                      ]
[c1                      ]     [c2                      ]
[c1                      ]     [c2                      ]
[c1                      ][b21][c2                      ]
<                        ><   ><                        >
<g g2                                                   >
[bx1:                  :bxc:bx3:                    :bx2]
<                                                       >
<t t3                                                   >
 List 3
[c3                                                     ]
[c3                                                     ]
[c3                                                     ]
[c3                                                     ]
[c3                                                     ]
[c3                                                     ]
}
END
END

ATTRIBUTES
EDIT c1 = FORMONLY.col1 TYPE VARCHAR;
EDIT c2 = FORMONLY.col2 TYPE VARCHAR;
EDIT c3 = FORMONLY.col3 TYPE VARCHAR;
GROUP g: TEXT="", GRIDCHILDRENINPARENT;
BUTTON b12 : move_1_to_2, IMAGE="arright";
BUTTON b21 : move_2_to_1, IMAGE="arrleft";
GROUP g2: TEXT="", GRIDCHILDRENINPARENT;
BUTTON bx1 : move_1_to_3, IMAGE="arrdown";
BUTTON bx2 : move_2_to_3, IMAGE="arrdown";
BUTTON bx3 : move_3_to_12, IMAGE="arrup";
BUTTON bxc : clear_current, IMAGE="eraser";
END

INSTRUCTIONS
SCREEN RECORD sr1 (FORMONLY.col1);
SCREEN RECORD sr2 (FORMONLY.col2);
SCREEN RECORD sr3 (FORMONLY.col3);
END