home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / Virtual User 1.0b5 / Example Scripts / LocalizeExample.vu < prev    next >
Encoding:
Text File  |  1990-10-05  |  1.3 KB  |  50 lines  |  [TEXT/MPS ]
  1. #
  2. #    File:        LocalizeExample.vu
  3. #
  4. #    Contains:    An example on how to write your scripts so that they are easily
  5. #                localizable.
  6. #
  7. #    Conventions:    Global variables begin with a capital letter
  8. #
  9. #    Written by:    P Nagarajan
  10. #
  11. #    Copyright:    © 1990 by Apple Computer, Inc., all rights reserved.
  12. #
  13. #    Change History:
  14. #
  15. #         8/3/89       naga        creation
  16. #
  17.  
  18.  
  19. # *************************************************************************************
  20. task initialize_strings(system_type)
  21. begin
  22.     If (system_type = 'KANJITALK') do
  23.     begin
  24.         Global Quit_str := 'èIóπ'; 
  25.         # or put the string in a string resource (STR#) of this file
  26.         # and use for example: Global Quit_str := getIndString(1000,1);
  27.         ### more such strings here ###
  28.     end;
  29.     else If (system_type = 'ROMAN') do
  30.     begin
  31.         Global Quit_str := 'Quit';
  32.         # or put the string in a string resource (STR#) of this file
  33.         # and use for example: Global Quit_str := getIndString(1000,2);
  34.         ### more such strings here ###
  35.     end;
  36.     ### more else if for other system types here ###
  37. end;
  38.  
  39.  
  40. #####   EXECUTION STARTS HERE  ######
  41.  
  42. Initialize_strings('KANJITALK'); ### or initialize_strings('ROMAN'); ###
  43. # use match[system v:?sys_version s:?sys_script] 
  44. # to get the system version and system script information and 
  45. # decide which type of initialization is required.
  46.  
  47.  
  48. select[menuItem t: global Quit_str m:[menu o:2]]!;
  49.  
  50.