Forms-Based Application Development Tools User Guide > Part 5: 4GL > Sample 4GL Application > Employee Application > Topframe Frame
Was this helpful?
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:
Menu Item
Function
Select
Calls the frame on whose name the cursor rests
Help
Displays information about this frame
End
Exits the application
4GL Source Code
The following is the Linux 4GL source code for Topframe. Note the equivalent 4GL source code for other systems is nearly identical to this Linux 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
Last modified date: 08/14/2024