Newsgroups: comp.databases.informix
Subject: Pop window for 4gl modules
From: omer@rorqual.cc.metu.edu.tr (Omer OZTAN)
Date: 18 Apr 1995 10:33:04 -0400
A few weeks ago, my partner, A.Ergul, posted a mail about the pop window
code that we use in our modules. Here is the code of this function which may
be useful for your codes. An explanation for the use of this function is given
as a remark lines ...
{
-------------------------------------------------------------------------------
WE HEREBY PUT THIS CODE IN PUBLIC DOMAIN. YOU CAN DO WHATEVER YOU LIKE
WITH IT. HOWEVER, WE WOULD BE GLAD IF YOU MENTION MIDDLE EAST TECHNICAL
UNIVERSITY (METU) , O.OZTAN & A.ERGUL AS THE ORIGINATORS OF THIS CODE .
QUESTIONS TO : omer@rorqual.cc.metu.edu.tr
-------------------------------------------------------------------------------
EXPLANATIONS FOR THE USE OF FUNCTION L_POP??(.....)
1. First of all , an array named 'PopUpArray' must be defined in a global file,
or in your module (if you put this code in your module directly).
DEFINE PopUpArray Array[150] of char(60)
--Used by the corresponding L_Pop..() functions.
(size of PopUpArray can be changed by the programmer)
2. In your 4gl module, fetch the rows from the related table via cursor to the
programme array (in the example the array used is 'P_PopTranscript').
Then assign the values of P_PopTranscript THAT IS DESIRED TO DISPLAY
ON THE POPUP WINDOW to the P_PopUpArray. Since the type of P_PopTranscript is
character, one can use any extra character during assignment. After calling a
function 'L_Pop20(.....)', the index of 'P_PopTranscript' is stored to the
variable 'choice'.
After this, do whatever you like ....
SAMPLE CODE SHOWING THE USE OF FUNCTION L_POP() :
---------------------------------------------------------------------------