home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / zfamily.zip / zfamily / ZDTFUNCS / SAMPLE / TSTLNGID.INC < prev    next >
Text File  |  1993-09-02  |  2KB  |  55 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 : TSTLNGID.INC
  18. **  Authors : Alessandro Cavallini (CAVALLI at ROMEPPC)
  19. **            Dario de Judicibus (DEJUDICI at ROMEPPC)
  20. **  Created : 21 July 1992
  21. **  Updated : 01 Sep 1993
  22. **  Version : 4.12
  23. **  Content : Called in WM_CONTROL (case CHKDTECLNDDL CBN_EFCHANGE)
  24. **            to get the selected language.
  25. **
  26. */
  27.  {
  28.    char  szLangId[5] ;
  29.  
  30.   /*
  31.   **  Get the address of the structure containing dialog information
  32.   */
  33.    Chkdte = (CHKDTEStruct *)WinQueryWindowULong(hWndClient, OFFSET_CHKDTE) ;
  34.  
  35.   /*
  36.   **  Get the language identifier
  37.   */
  38.    WinQueryDlgItemText(hWndDlg, CHKDTECLNDDL, sizeof(szLangId), szLangId) ;
  39.  
  40.    if (strcmp(Chkdte->ChkDteLangId, szLangId) != 0)
  41.    {
  42.      strcpy(Chkdte->ChkDteLangId, szLangId) ;
  43.  
  44.     /*
  45.     **  Set the requested language
  46.     */
  47.      (VOID)zdtSetLanguage(zdtLanguage(szLangId)) ;
  48.  
  49.     /*
  50.     **  Reset all fields
  51.     */
  52.      #include "TSTCLEAR.INC"
  53.    }
  54.  }
  55.