home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 176 < prev    next >
Encoding:
Text File  |  1997-12-10  |  6.8 KB  |  173 lines
  1. // -----
  2. // VDL176.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. //Upgrade Info dialog
  8.  
  9.  
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13.  
  14. //This section contains all localizable string constants for this VDL program. Be sure to 
  15. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  16. //You may also flatten multiline constants into a single line, if you prefer
  17.  
  18. #define aboutText1 "Welcome to Claris Home Page Lite"
  19. #define aboutText2 "Upgrade to Claris Home Page 2.0"
  20. #define aboutText3 "If you like Claris Home Page Lite, you may be interested"\
  21.                    " in trying out Claris Home Page."
  22. #define aboutText4      "Claris Home Page 2.0 has all of the same easy to use features"\
  23.                      " as Claris Home Page Lite plus additional features including:"\
  24.                      " HTML source code editing, the ability to create and edit frame"\
  25.                      " documents, forms, expanded libraries, additional templates,"\
  26.                      " spell checking and more!"
  27. #define aboutText5 "Find out more about Claris Home Page from our Web site:"
  28. #define aboutText6 "http//www.claris.com"
  29. #define aboutText7 "or call:"
  30. #define aboutText8 "In US: (800) 544-8554"
  31. #define aboutText9 "In Canada: (800) 361-6075"
  32. #define aboutText10 "From other countries: +1 (408) 987-7000"
  33.  
  34.  
  35. #define kLit1 "&Don't show this window again"
  36. #define kLit2 "OK"
  37.  
  38. //Localized Fonts
  39. #if Platform_Mac
  40. #define AboutFont1 Font = {Geneva, 12, {Bold}}
  41. #define AboutFont2 Font = {Geneva, 10, {Plain}}
  42. #define LinkFont Font = {Geneva, 10, {Underline}}
  43. #define CheckBoxFont Font = {Geneva, 10, {Plain}}
  44. #else
  45. #define AboutFont1 Font = {Arial, 10, {Bold}}
  46. #define AboutFont2 Font = {Arial, 9, {Plain}}
  47. #define LinkFont Font = {Arial, 9, {Underline}}
  48. #define CheckBoxFont SystemFont
  49. #endif
  50.  
  51. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  52. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  53. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  54.  
  55.  
  56.  
  57. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  58. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  59. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  60.  
  61. //This section contains integer constants that are used to format this VDL program.
  62. //These are localizable - they only need to be changed if the localized strings 
  63. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  64.  
  65. //Widths of all the buttons, when visible. Note that the width of the dialog 
  66. //is computed without checking the button widths. This is so they 
  67. //automatically right-justify themselves. If you need to make the buttons wider than 
  68. //the dialog is allowing for, increase the kDialogMinWidth constant to add padding 
  69. //to the dialog. Alternately, you can increase the kInfoViewRightMargin constant 
  70. #define kButtonWidth 60
  71.  
  72. //See comment above. Minimum width of the dialog. Typically not used.
  73. #define kDialogMinWidth 0
  74.  
  75. //"Home Page Lite" logotype
  76. #define kHomePagePictLeftMargin 60
  77. #define kHomePagePictTopMargin 16
  78.  
  79. // CHP retail box graphic.
  80. #define kBoxGraphicLeftMargin 0
  81. #define kBoxGraphicTopMargin 25
  82.  
  83. // info view
  84. #define kInfoViewWidth     350
  85. #define kInfoViewLeftMargin 10
  86. #define kInfoViewTopMargin1 10
  87. #define kInfoViewParagraphSpace 5
  88.  
  89. //Width of the OK Button
  90. #if Platform_Mac
  91.     #define kOKButtonWidth 70
  92. #else
  93.     #define kOKButtonWidth 100
  94. #endif
  95. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  96. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  97. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  98.  
  99. //No further localizable data past this point
  100.  
  101. /************************** END LOCALIZABLE DATA ***************************************************/
  102. /************************** END LOCALIZABLE DATA ***************************************************/
  103. /************************** END LOCALIZABLE DATA ***************************************************/
  104.  
  105. // colors
  106. #define SplashColor White
  107. #define LinkColor Blue
  108.  
  109. // command codes
  110. #define ccOK  1071
  111.  
  112.  
  113. Margin(0, 0, 10, 10, BackColor = SplashColor)
  114.     VList()
  115.         {
  116.         Spacer(Height = 0, Width = kDialogMinWidth);
  117.         
  118.         Margin(kHomePagePictLeftMargin, kHomePagePictTopMargin, 0, 0)
  119.         PICT(15021, DontMap); // big text: "Claris Home Page Lite"
  120.                 
  121.         HList()
  122.             {
  123.             Margin(kBoxGraphicLeftMargin, kBoxGraphicTopMargin, 0, 0)
  124.             PICT(15022, DontMap);
  125.  
  126.             VList()
  127.                 {
  128.                 Margin(kInfoViewLeftMargin, kInfoViewTopMargin1, 0, 0)
  129.                 Switch(showCheckBox)
  130.                     {
  131.                     case 1:
  132.                         StaticText(aboutText1, Alignment = Left, Width = kInfoViewWidth, AboutFont1);
  133.                     case 0:
  134.                     default: 
  135.                         StaticText(aboutText2, Alignment = Left, Width = kInfoViewWidth, AboutFont1);
  136.                     }
  137.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  138.                 StaticText(aboutText3, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  139.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  140.                 StaticText(aboutText4, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  141.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  142.                 StaticText(aboutText5, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  143.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  144.                 StaticText(aboutText6, Alignment = Left, Width = kInfoViewWidth, LinkFont);
  145.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  146.                 StaticText(aboutText7, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  147.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  148.                 StaticText(aboutText8, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  149.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  150.                 StaticText(aboutText9, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  151.                 Margin(kInfoViewLeftMargin, kInfoViewParagraphSpace, 0, 0)
  152.                 StaticText(aboutText10, Alignment = Left, Width = kInfoViewWidth, AboutFont2);
  153.  
  154.                 Margin(20, 20, 0, 0)
  155.                 Switch(showCheckBox)
  156.                     {
  157.                     case 1:
  158.                         CheckBox(kLit1, skipUpgradeInfoDialog, CheckBoxFont);
  159.                     default: 
  160.                         Spacer(Height = 0, Width = 0);
  161.                     }
  162.             
  163.                 }            
  164.             }
  165.         Margin(0, 0, 0, 0)
  166.         HList(Width = UseParent)
  167.             {
  168.             Spacer(Width = UseParent, Height = 0);        
  169.             DefaultButton( kLit2, ccOK, "None", Width = kOKButtonWidth);
  170.             }                
  171.         } //Main List
  172.  
  173.