with os2; use os2;  
with os2.jba; use os2.jba;  
package  LISTDP is 
--             Global variables.    
wDLG_ListBox       : aliased WINDOW ;
i                  : aliased SHORT ;
j                  : aliased SHORT ;
k                  : aliased SHORT :=  0;
Listbox            : array(0..4-1) of  aliased WINDOW ;
Count              : array(0..4-1) of  aliased WINDOW ;
Selection          : array(0..4-1) of  aliased WINDOW ;
TopIndex           : array(0..4-1) of  aliased WINDOW ;
currentlistbox     : aliased SHORT :=  0;
currentline        : aliased SHORT :=  0;
--         Window/control identifiers.    
IDD_DLG_LISTBOX    : constant long := 3000; --Dialog
IDD_LST_DEFAULT    : constant long := 3001; --Listbox
IDD_STATIC1        : constant long := 3002; --Static Text
IDD_STATIC2        : constant long := 3003; --Static Text
IDD_STATIC3        : constant long := 3004; --Static Text
IDD_LST_MULTI      : constant long := 3005; --Listbox
IDD_LST_EXTENDED   : constant long := 3006; --Listbox
IDD_LST_HSCROLL    : constant long := 3007; --Listbox
IDD_STATIC5        : constant long := 3008; --Static Text
IDD_PSH_APPEND     : constant long := 3009; --Push Button
IDD_PSH_INSERT     : constant long := 3010; --Push Button
IDD_PSH_CLEAR      : constant long := 3011; --Push Button
IDD_PSH_DELETE     : constant long := 3012; --Push Button
IDD_PSH_ALL        : constant long := 3013; --Push Button
IDD_PSH_NONE       : constant long := 3014; --Push Button
IDD_STATIC4        : constant long := 3015; --Static Text
IDD_STATIC6        : constant long := 3016; --Static Text
IDD_STATIC7        : constant long := 3017; --Static Text
IDD_STATIC14       : constant long := 3018; --Static Text
IDD_STATIC8        : constant long := 3019; --Static Text
IDD_STATIC9        : constant long := 3020; --Static Text
IDD_STATIC10       : constant long := 3021; --Static Text
IDD_STATIC11       : constant long := 3022; --Static Text
IDD_STATIC12       : constant long := 3023; --Static Text
IDD_STATIC13       : constant long := 3024; --Static Text
IDD_STATIC15       : constant long := 3025; --Static Text
IDD_STATIC16       : constant long := 3026; --Static Text
IDD_STATIC17       : constant long := 3027; --Static Text
IDD_LBL_DEFCOUNT   : constant long := 3028; --Static Text
IDD_LBL_DEFSELECT  : constant long := 3029; --Static Text
IDD_LBL_DEFTOP     : constant long := 3030; --Static Text
IDD_LBL_HSCOUNT    : constant long := 3031; --Static Text
IDD_LBL_HSSELECT   : constant long := 3032; --Static Text
IDD_LBL_HSTOP      : constant long := 3033; --Static Text
IDD_LBL_MULTCOUNT  : constant long := 3034; --Static Text
IDD_LBL_MULTSELECT : constant long := 3035; --Static Text            
IDD_LBL_MULTTOP    : constant long := 3036; --Static Text
IDD_LBL_EXTCOUNT   : constant long := 3037; --Static Text
IDD_LBL_EXTSELECT  : constant long := 3038; --Static Text
IDD_LBL_EXTTOP     : constant long := 3039; --Static Text
IDD_EDT_ITEM       : constant long := 3040; --Entry Field
IDD_STATIC18       : constant long := 3041; --Static Text
IDD_PSH_SETTEXT    : constant long := 3042; --Push Button
IDD_STATIC19       : constant long := 3043; --Static Text
IDD_LBL_CURRLIST   : constant long := 3044; --Static Text
IDD_STATIC21       : constant long := 3045; --Static Text
IDD_LBL_CURRLINE   : constant long := 3046; --Static Text
--           Function Prototypes.         
function  DLG_ListBoxWndProc (h_wnd:HWND;msg:ULONG;mp1:PMPARAM;mp2:PMPARAM)return PMENTRY;
procedure DLG_ListBoxPSH_AppendClick  ;
procedure DLG_ListBoxPSH_InsertClick  ;
procedure DLG_ListBoxPSH_DeleteClick  ;
procedure DLG_ListBoxCreate  ;
procedure DLG_ListBoxPSH_ClearClick  ;
procedure DLG_ListBoxPSH_AllClick  ;
procedure DLG_ListBoxPSH_NoneClick  ;
procedure DLG_ListBoxLST_DefaultVScroll  ;
procedure DLG_ListBoxLST_DefaultSelect  ;
procedure DLG_ListBoxLST_HScrollSelect  ;
procedure DLG_ListBoxLST_HScrollVScroll  ;
procedure DLG_ListBoxLST_MultiSelect  ;
procedure DLG_ListBoxLST_MultiVScroll  ;
procedure DLG_ListBoxLST_ExtendedSelect  ;
procedure DLG_ListBoxLST_ExtendedVScroll  ;
procedure DLG_ListBoxLST_DefaultEnter  ;
procedure DLG_ListBoxLST_HScrollEnter  ;
procedure DLG_ListBoxPSH_SetTextClick  ;
procedure DLG_ListBoxEDT_ItemChange  ;
procedure UpdateStats  ;
procedure GetTheText (number:SHORT);
procedure Listdemo (WinOwner:PWINDOW);
End LISTDP ;
