home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / mui / dev / gui / gencodee / v1.4 / e / click_locale / click_cat.e < prev    next >
Encoding:
Text File  |  1994-10-24  |  2.5 KB  |  76 lines
  1. /****************************************************************
  2.    This file was created automatically by `FlexCat V1.1'
  3.    Do not edit by hand!
  4. ****************************************************************/
  5.  
  6.  
  7.     /* External modules */
  8. MODULE 'locale', 'libraries/locale'
  9. MODULE 'utility/tagitem'
  10.  
  11.     /* Object definitions */
  12. OBJECT fc_type
  13.     id  :LONG
  14.     str :LONG
  15. ENDOBJECT
  16.  
  17.     /* Global variables */
  18. DEF catalog_Click:PTR TO catalog
  19. DEF array_Click[6]:ARRAY OF fc_type
  20.  
  21.     /* Constant definitions */
  22. CONST MSG_AppDescription = 0
  23. CONST MSG_WI_try = 1
  24. CONST MSG_TX_label_0 = 2
  25. CONST MSG_BT_1stbutton = 3
  26. CONST MSG_BT_2ndbutton = 4
  27. CONST MSG_BT_3rdbutton = 5
  28.  
  29.  
  30.     /* Opening catalog procedure */
  31. PROC open_Click_catalog(loc:PTR TO locale, language:PTR TO CHAR)
  32.     DEF tag, tagarg, dummy_var = 0
  33.  
  34.     array_Click[dummy_var].id := MSG_AppDescription; array_Click[dummy_var++].str := 'just a demo !!!'
  35.     array_Click[dummy_var].id := MSG_WI_try; array_Click[dummy_var++].str := 'Click !!!'
  36.     array_Click[dummy_var].id := MSG_TX_label_0; array_Click[dummy_var++].str := '\0338\033cClick on buttons'
  37.     array_Click[dummy_var].id := MSG_BT_1stbutton; array_Click[dummy_var++].str := '_1 Button 1'
  38.     array_Click[dummy_var].id := MSG_BT_2ndbutton; array_Click[dummy_var++].str := '_2 Button 2'
  39.     array_Click[dummy_var].id := MSG_BT_3rdbutton; array_Click[dummy_var++].str := '_3 Button 3'
  40.  
  41.     IF (localebase AND (catalog_Click = NIL))
  42.         IF language
  43.             tag := OC_LANGUAGE
  44.             tagarg := language
  45.         ELSE
  46.             tag:= TAG_IGNORE
  47.         ENDIF
  48.  
  49.         catalog_Click := OpenCatalogA(loc, 'Click.catalog',
  50.                                     [   OC_BUILTINLANGUAGE, 'english',
  51.                                         tag, tagarg,
  52.                                         OC_VERSION, 0,
  53.                                         TAG_DONE    ])
  54.     ENDIF
  55. ENDPROC
  56.     
  57.     /* Closing catalog procedure */
  58. PROC close_Click_catalog()
  59.  
  60.     IF localebase THEN CloseCatalog(catalog_Click)
  61.     catalog_Click := NIL
  62. ENDPROC
  63.  
  64.     /* Procedure which returns the correct string according to the catalog */
  65. PROC get_Click_string(strnum)
  66.     DEF defaultstr:PTR TO CHAR, i = 0
  67.  
  68.     WHILE ((i < 6) AND (array_Click[i].id <> strnum)) DO INC i
  69.     defaultstr := IF (i < 6) THEN array_Click[i].str ELSE NIL
  70.  
  71. ENDPROC IF catalog_Click THEN GetCatalogStr(catalog_Click, strnum, defaultstr) ELSE defaultstr
  72. /****************************************************************
  73.    End of the automatically created part!
  74. ****************************************************************/
  75.  
  76.