Topframe Frame
The Topframe frame provides a table field menu to allow users to select the Employees frame or the Positions frame. The following figure shows the Topframe frame:
The table field is named "tf" in the 4GL source code; the table field columns are "frame" and "action."
Menu Operations
Topframe provides the following menu operations:
4GL Source Code
The following is the UNIX 4GL source code for Topframe. Note the equivalent 4GL source code for other systems is nearly identical to this UNIX example. The only difference is the format of the helpfile pathname.
/*
** Frame: topframe
** Form: samp_topframe
** Source File: topframe.osq
** Description:
**
** Displays a read-only table field listing actions the user
** may perform; the user chooses one by positioning the cursor
** on the desired action and choosing 'Select'.
**
*/
initialize =
begin
inittable tf read;
loadtable tf ( frame = 'employees',
action = 'browse or update employees and'
+ ' employee_histories tables' );
loadtable tf ( frame = 'positions',
action = 'browse or update positions table' );
scroll tf to 1;
end
'Select' (explanation = 'Select a command'), key frskey4 =
begin
callframe :tf[].frame;
end
'Help' (explanation = 'Display help for this frame'), key frskey1 =
begin
helpfile ''
'/m/corgi/supp60/employee/employee.hln';
end
'End' (explanation = 'Return to previous frame'), key frskey3 =
begin
return;
end
