home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 31 / PC Gamer IT CD 31 1-2.iso / EARTHL / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 161 < prev    next >
Encoding:
Text File  |  1997-02-20  |  12.2 KB  |  387 lines
  1. // -----
  2. // VDL161.txt
  3. // Copyright 1996 Claris
  4. // -----
  5. // Link palette
  6. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  7. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  8. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  9. //This section contains all localizable string constants for this VDL program. Be sure to 
  10. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  11. //You may also flatten multiline constants into a single line, if you prefer
  12. #define kLit1 "Local link:"
  13. #define kLit2 "file.html"
  14. #define kLit3 "External link:"
  15. #define kLit4 "http://server/dir/file.html"
  16. #define kLit5 "Link to anchor:"
  17. #define kLit6 "http://.../file.html#anchorName"
  18. #define kLit7 "Anchor in same file:"
  19. #define kLit8 "#anchorName"
  20. #define kLit9 "FTP link:"
  21. #define kLit10 "ftp://server/dir/file.txt"
  22. #define kLit11 "Mail link:"
  23. #define kLit12 "mailto:userName@host"
  24. #define kLit13 "Target Frame specifies the name of a Frame or window in"\
  25.                     " which this link's URL will be displayed.  Some special"\
  26.                     " values can be used:"
  27.                         
  28. #define kLit14 "_blank"
  29. #define kLit15 "Display in a new window."
  30. #define kLit16 "_self"
  31. #define kLit17 "Display in the same window as the link."
  32. #define kLit18 "_parent"
  33. #define kLit19 "Display in the next enclosing frame."
  34. #define kLit20 "_top"
  35. #define kLit21 "Display in the outermost frame."
  36. #define kLit22 "&URL:"
  37. #define kLit23 "&Browse Files..."
  38. #define kLit24 "&Remove Link"
  39. #define kLit25 "Show &Examples"
  40. #define kLit26 "Hide &Examples"
  41. #define kLit27 "&Target Frame:"
  42. #define kLit28 "Extra &HTML:"
  43. //Localized Fonts
  44. #if Platform_Mac
  45.     #define StaticFont         Font = {Geneva, 10, {Bold}}
  46.     #define EditFont           Font = {Geneva, 10, {Plain}}
  47.     #define PopupFont          Font = {Geneva, 10, {Plain}}
  48.     #define StdLabelFont     LabelFont = {Geneva, 10, {Bold}}
  49.     #define URLSampleFont     Font = {Geneva, 10, {Plain}}
  50.     #define ButtonFont        Font = {Geneva, 10, {Plain}}
  51. #else
  52.     #define StaticFont         Font = SystemFont
  53.     #define EditFont           Font = SystemFont
  54.     #define PopupFont          Font = SystemFont
  55.     #define StdLabelFont     LabelFont = SystemFont
  56.     #define URLSampleFont     Font = SystemFont
  57.     #define ButtonFont        Font = SystemFont
  58. #endif
  59. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  60. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  61. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  62. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  63. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  64. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  65. //This section contains integer constants that are used to format this VDL program.
  66. //These are localizable - they only need to be changed if the localized strings 
  67. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  68. //Width of the first column of text in the upper half of the window
  69. #define kFirstColUpperWidth     110
  70. //Width of the first column of text in the lower half of the window
  71. #define kFirstColLowerWidth     70
  72. //Text to the left of the URL examples first column, and the target frame text. 
  73. #define kSampleTextLeftMargin 30
  74. #if Platform_Mac
  75.     //Constant used to derive the width of the palette
  76.     #define kBasicLinkPaletteWidth 340
  77.     
  78.     //Width of the "Target Frame:" and "Extra HTML" labels in the lower half of the window
  79.     #define kLabelWidth                86
  80.     #define kBrowseButtonWidth     105
  81.     #define kRemoveLinkButtonWidth 105
  82.     #define kHideShowExButtonWidth 105
  83. #else // !Platform_Mac
  84.     //Constant used to derive the width of the palette
  85.     #define kBasicLinkPaletteWidth 545
  86.     
  87.     //Pixels to subtract from the palette width to make the string kLit13 wordwrap correctly.
  88.     #define kTargetTextAdjustment 85
  89.     
  90.     //Width of the "Target Frame:" and "Extra HTML" labels in the lower half of the window
  91.     #define kLabelWidth                106
  92. #endif // else !Platform_Mac
  93. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  94. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  95. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  96. //No further localizable data past this point
  97. /************************** END LOCALIZABLE DATA ***************************************************/
  98. /************************** END LOCALIZABLE DATA ***************************************************/
  99. /************************** END LOCALIZABLE DATA ***************************************************/
  100.  
  101.  
  102. #ifdef TryMe
  103. #define LITE_VERSION 1
  104. #endif
  105.  
  106. #define EH EnabledHelpString =
  107. #if Platform_Mac
  108.     #define LinkBack     BackColor = {57015, 57015, 57015}
  109. #else
  110.     #define LinkBack     BackColor = Dialog
  111. #endif
  112. Define(URLExamples)
  113.     VList(LinkBack)
  114.         {
  115.         HList()
  116.             {
  117.             StaticText( kLit1, Width = kFirstColUpperWidth, URLSampleFont);
  118.             StaticText( kLit2, URLSampleFont);
  119.             }
  120.         
  121.         HList()
  122.             {
  123.             StaticText( kLit3, Width = kFirstColUpperWidth, URLSampleFont);
  124.             StaticText( kLit4, URLSampleFont);
  125.             }
  126.         
  127.         HList()
  128.             {
  129.             StaticText( kLit5, Width = kFirstColUpperWidth, URLSampleFont);
  130.             StaticText( kLit6, URLSampleFont);
  131.             }
  132.         
  133.         HList()
  134.             {
  135.             StaticText( kLit7, Width = kFirstColUpperWidth, URLSampleFont);
  136.             StaticText( kLit8, URLSampleFont);
  137.             }
  138.         
  139.         HList()
  140.             {
  141.             StaticText( kLit9, Width = kFirstColUpperWidth, URLSampleFont);
  142.             StaticText( kLit10, URLSampleFont);
  143.             }
  144.         
  145.         HList()
  146.             {
  147.             StaticText( kLit11, Width = kFirstColUpperWidth, URLSampleFont);
  148.             StaticText( kLit12, URLSampleFont);
  149.             }
  150.         
  151.         } // URLExamples
  152. Define(TargetExamples)
  153.     VList(LinkBack)
  154.         {
  155.         #if Platform_Mac
  156.         StaticText( kLit13,
  157.                     Width = kBasicLinkPaletteWidth, URLSampleFont );
  158.         #else
  159.         StaticText( kLit13,
  160.                     Width = kBasicLinkPaletteWidth - kTargetTextAdjustment, URLSampleFont );
  161.         #endif
  162.         Spacer(Width=0,Height=4);
  163.         
  164.         HList()
  165.             {
  166.             Spacer(Width=kSampleTextLeftMargin,Height=0);
  167.             StaticText( kLit14, Width = kFirstColLowerWidth, URLSampleFont);
  168.             StaticText( kLit15, URLSampleFont);
  169.             }
  170.         
  171.         HList()
  172.             {
  173.             Spacer(Width=kSampleTextLeftMargin,Height=0);
  174.             StaticText( kLit16, Width = kFirstColLowerWidth, URLSampleFont);
  175.             StaticText( kLit17, URLSampleFont);
  176.             }
  177.         
  178.         HList()
  179.             {
  180.             Spacer(Width=kSampleTextLeftMargin,Height=0);
  181.             StaticText( kLit18, Width = kFirstColLowerWidth, URLSampleFont);
  182.             StaticText( kLit19, URLSampleFont);
  183.             }
  184.         
  185.         HList()
  186.             {
  187.             Spacer(Width=kSampleTextLeftMargin,Height=0);
  188.             StaticText( kLit20, Width = kFirstColLowerWidth, URLSampleFont);
  189.             StaticText( kLit21, URLSampleFont);
  190.             }
  191.         
  192.         } // TargetExamples
  193.         
  194. Define(MoreLinkChoices)
  195.     VList(Width = UseParent, LinkBack)
  196.         {
  197.         EditText( target, FilterProc = "SetLinkTarget",
  198.                      Label = kLit27, LabelAlignment = Right, LabelWidth = kLabelWidth,
  199.                       Width = UseParent, DropOnReturn, DropOnEnter, NoSmartQuotes,
  200.                       EditFont, StdLabelFont,
  201.                       NoSmartEdits, BackColor = {65535, 65535, 65535} );
  202.         Spacer(Height = 5);
  203.         
  204.         EditText( extraParams, FilterProc = "SetLinkExtras",
  205.                      Label = kLit28, LabelAlignment = Right, LabelWidth = kLabelWidth,
  206.                       Width = UseParent, DropOnReturn, DropOnEnter, NoSmartQuotes,
  207.                       EditFont, StdLabelFont,
  208.                       NoSmartEdits, BackColor = {65535, 65535, 65535} );
  209.         
  210.         Switch(showURLExamples)
  211.             {
  212.             case 0:
  213.                 Spacer(Width = 0, Height = 0);
  214.             
  215.             case 1:
  216.                 Margin(5,5,0,0, Width = UseParent)
  217.                     Call(TargetExamples);
  218.             }
  219.         
  220.         } // MoreLinkChoices
  221.  
  222. Define(BasicURLUpper)
  223.     VList(LinkBack, Width = kBasicLinkPaletteWidth)
  224.         {
  225.         Switch(canURL, LinkBack)
  226.             {
  227.             case 0:
  228.                 HList(Width = UseParent)
  229.                     {
  230.                     Spacer(Width = 5, Height = 0);
  231.                     Margin(0,0,0,0)
  232.                         #if Platform_Mac
  233.                             VList(Width = UseParent, Height = 16)
  234.                                 GenericView("DisabledURL");
  235.                         #else
  236.                             VList(Width = UseParent, Height = 19)
  237.                                 GenericView("DisabledURL");
  238.                         #endif
  239.                     Spacer(Width = 5, Height = 0);
  240.                     GenericView("LinkShortcut");
  241.                     }
  242.             
  243.             case 1:
  244.                 HList(Width = UseParent)
  245.                     {
  246.                     Spacer(Width = 5, Height = 0);
  247.                     Margin(0,0,0,0)
  248.                         Tag(LinkURL)
  249.                             EditText( url, FilterProc = "SetLinkURL",
  250.                                           Label = kLit22, LabelAlignment = Right,
  251.                                           Width = UseParent, DropOnReturn, DropOnEnter, NoSmartQuotes,
  252.                                           NoSmartEdits, EditFont, StdLabelFont,
  253.                                           BackColor = {65535, 65535, 65535} );
  254.                     Spacer(Width = 5, Height = 0);
  255.                     GenericView("LinkShortcut");
  256.                     }
  257.             
  258.             } // Switch(canURL) (BasicURLUpper)
  259.             
  260.             Spacer(Height = 5);
  261.             
  262.             HList()
  263.                 {
  264.                 Spacer(Width = 5, Height = 0);
  265.                 PushButton( kLit23, 3015, "None", ButtonFont, 
  266.                                 
  267.                                 #if Platform_Mac
  268.                                 Width = kBrowseButtonWidth,
  269.                                 #endif
  270.                                 
  271.                                 BackColor = {57015, 57015, 57015} ); // ccEditFileLink
  272.                 Spacer(Width=10, Height=0);
  273.                 
  274.                 PushButton( kLit24, 3010, "None", ButtonFont , 
  275.                                 
  276.                                 #if Platform_Mac
  277.                                 Width = kRemoveLinkButtonWidth,
  278.                                 #endif
  279.                                 
  280.                                 BackColor = {57015, 57015, 57015} ); // ccRemoveLink
  281.                 Spacer(Width=10, Height=0);
  282.                 
  283.                 Switch(showURLExamples)
  284.                     {
  285.                     case 0:
  286.                         #if Platform_Mac
  287.                             PushButton( kLit25, 3110, "None", Width =  kHideShowExButtonWidth, ButtonFont,
  288.                                             BackColor = {57015, 57015, 57015} ); // ccShowHideURLTipsPalette
  289.                         #else
  290.                             PushButton( kLit25, 3110, "None", ButtonFont,
  291.                                             BackColor = {57015, 57015, 57015} ); // ccShowHideURLTipsPalette
  292.                         #endif
  293.                     
  294.                     case 1:
  295.                         #if Platform_Mac
  296.                             PushButton( kLit26, 3110, "None" , Width = kHideShowExButtonWidth, ButtonFont,
  297.                                             BackColor = {57015, 57015, 57015} ); // ccShowHideURLTipsPalette
  298.                         #else
  299.                             PushButton( kLit26, 3110, "None", ButtonFont,
  300.                                             BackColor = {57015, 57015, 57015} ); // ccShowHideURLTipsPalette
  301.                         #endif
  302.                     }
  303.                 }
  304.     }
  305.     
  306.     Margin(5,6,6,6,LinkBack)
  307.         VList(Width = kBasicLinkPaletteWidth )
  308.             {
  309.             Call(BasicURLUpper);
  310.         
  311.             Switch(showURLExamples)
  312.                 {
  313.                 case 0:
  314.                     Spacer(Width = 0, Height = 0);
  315.                 
  316.                 case 1:
  317.                     Margin(kSampleTextLeftMargin + 5,5,0,0)
  318.                         Call(URLExamples);
  319.                 
  320.                 }
  321.             
  322.             Spacer(Height = 3);
  323.             
  324.                 
  325.             Switch(canURLExtras, Width = UseParent)
  326.                 {
  327.                 case 0:
  328.                 default:
  329.                     VList(Width = UseParent)
  330.                         {
  331.                         Spacer(Height = 6);
  332.                         Spacer(Height = 1, Width = UseParent);
  333.                         Spacer(Height = 5, Width = 0);
  334.                         }
  335.                 
  336.                 #if !LITE_VERSION
  337.                 case 1:
  338.                     VList(Width = UseParent)
  339.                         {
  340.                         HList(Width = UseParent)
  341.                             {
  342.                             // CheckBox(moreLinkChoices, "", Width = 16);
  343.                             PictCheckBox(moreLinkChoices)
  344.                                 {
  345.                                 On(Draw, 'cicn', 1204);
  346.                                 Off(Draw, 'cicn',1203);
  347.                                 DisabledOn(Draw,  'cicn', 1204);
  348.                                 DisabledOff(Draw, 'cicn', 1203);
  349.                                 TrackingOn(Draw,  'cicn', 1206);
  350.                                 TrackingOff(Draw, 'cicn', 1205);
  351.                                 };
  352.                             
  353.                             VList(Width = UseParent)
  354.                                 {
  355.                                 Spacer(Height = 5);
  356.                                 Spacer(Height = 1, Width = UseParent, BackColor = {25000, 25000, 25000});
  357.                                 Spacer(Height = 6, Width = 0);
  358.                                 }
  359.                             }
  360.                         
  361.                         Switch(moreLinkChoices , Width = UseParent)
  362.                             {
  363.                             case 0:
  364.                                 Spacer(Width = 0, Height = 0);
  365.                             
  366.                             case 1:
  367.                                 Call(MoreLinkChoices);
  368.                                 
  369.                             } // Switch(moreLinkChoices)
  370.                         } // VList
  371.                 #endif
  372.                 } // Switch(canURLExtras)
  373.             
  374.             #ifdef TryMe
  375.             Spacer(Height = 5, Width = UseParent, BackColor = White);
  376.             VList(BackColor = White, Width = UseParent)
  377.                 {
  378.                 StaticText("Debugging Utils:");
  379.                 CheckBox("CanURLExtras", canURLExtras);
  380.                 CheckBox("moreLinkChoices", moreLinkChoices);
  381.                 CheckBox("showURLExamples", showURLExamples);
  382.                 CheckBox("CanURL", canURLs);    
  383.                 }
  384.             #endif
  385.             
  386.             } // VList()
  387.