Files

55 lines
2.0 KiB
Plaintext

# 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