with os2; use os2;  
with os2.jba; use os2.jba;  
package  MLEDP is 
--             Global variables.    
len                   : integer := 12; -- mle box  array length
wDialog1              : aliased WINDOW ;
wMLE                  : aliased WINDOW ;
ind                   : integer := 1; -- position in MLE box
--         Window/control identifiers.    
IDD_DIALOG1           : constant long := 3000; --Dialog                 
IDD_MLE1              : constant long := 3001; --Multi-Line Entry       
IDD_PUSHBUTTONINSET   : constant long := 3002; --Push Button            
IDD_PUSHBUTTONAPPEND  : constant long := 3003; --Push Button            
--           Function Prototypes.         
function  Dialog1WndProc (h_wnd:HWND;msg:ULONG;mp1:PMPARAM;mp2:PMPARAM)return PMENTRY;
procedure Dialog1MLE1Change  ;
procedure Dialog1PushButtonInsetClick  ;
procedure Dialog1PushButtonAppendClick  ;
procedure Dialog1_MLECreate ;
procedure MleText ;
End MLEDP ;
