home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / zfamily.zip / zfamily / ZDTFUNCS / SAMPLE / TSTINITC.INC < prev    next >
Text File  |  1993-09-02  |  2KB  |  54 lines
  1. /*
  2. ** /----------------------------------------------------------------------\
  3. ** |             IBM Z Family Reusable Libraries/2 (5641-504)             |
  4. ** |----------------------------------------------------------------------|
  5. ** | (C) Copyright International Business Machines Corporation 1993, 1994 |
  6. ** |----------------------------------------------------------------------|
  7. ** |                       DISCLAIMER OF WARRANTIES                       |
  8. ** |                       ------------------------                       |
  9. ** | The following code is sample code created by IBM Corporation.        |
  10. ** | Such a code is provided to you solely for the purpose of assisting   |
  11. ** | you in the development of your applications. The code is provided    |
  12. ** | "AS IS", without warranty of any kind.  IBM shall not be liable for  |
  13. ** | any damages arising out of your use of the following code, even if   |
  14. ** | they have been advised of the possibility of such damages.           |                                                                         *
  15. ** \----------------------------------------------------------------------/
  16. **
  17. **  Include : TSTINITC.INC
  18. **  Author  : Dario de Judicibus (DEJUDICI at ROMEPPC)
  19. **  Created : 20 July 1992
  20. **  Updated : 01 Sep 1993
  21. **  Version : 4.12
  22. **  Content : Called in the WM_INITDLG case statement of CHKDTE.
  23. **
  24. */
  25.  {
  26.    int i = 0, j = 0 ;         // Loop counters
  27.  
  28.   /*
  29.   **  Load the list of languages
  30.   */
  31.    for (i = zdtFSTLANG, j = 0 ; i < zdtLSTLANG ; i++, j++ )
  32.      strcpy(Chkdte->ChkDteLangTbl[j], zdtGetLangId(i)) ;
  33.  
  34.   /*
  35.   **  Fill in list entry field
  36.   */
  37.    strcpy(Chkdte->ChkDteLangId,zdtCurLangId()) ;
  38.    WinSetDlgItemText(hWndDlg, CHKDTECLNDDL, Chkdte->ChkDteLangId) ;
  39.  
  40.   /*
  41.   ** Initialize List from Table
  42.   */
  43.    for (i = 0 ; i < 32 ; i++)
  44.      if (Chkdte->ChkDteLangTbl[i][0])
  45.        WinSendDlgItemMsg(hWndDlg, CHKDTECLNDDL, LM_INSERTITEM,
  46.                          MPFROM2SHORT(LIT_END, 0),
  47.                          MPFROMP(Chkdte->ChkDteLangTbl[i])) ;
  48.  
  49.   /*
  50.   **  Let's clear all output fields
  51.   */
  52.    #include "TSTCLEAR.INC"
  53.  }
  54.