home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 2007 < prev    next >
Encoding:
Text File  |  1997-12-10  |  15.5 KB  |  443 lines
  1. // -----
  2. // VDL2007.txt
  3. // Copyright 1997 Claris
  4. // -----
  5. //------------------------------
  6. // FtpDownloadOptions.txt
  7. //------------------------------
  8. //This vdl was copied from SiteUploadOptions.txt and modified from that.
  9. //Only 'FTP Settings' tab is used. We may want to clean up the contents.
  10. #include "StdVPref.txt"
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  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. #define kLit1    "&Server Name:"
  18. #define kLit2    "User &Name:"
  19. #define kLit3    "&Password:"
  20. #define kLit4    "Remote &Folder:"
  21. #define kLit6    "&Only upload files that have changed since the last upload."
  22. #define kLit7    "&Upload Image Files"
  23. #define kLit8    "Note that this command will not download image files or other "\
  24.                  "auxilliary files from the remote server.  As a result, you may "\
  25.                      "see \"missing image\" messages in your file; this does not mean "\
  26.                      "the image files are not present on the remote server."
  27. #define kLit9     "FTP Settings"
  28. #define kLit10 "Image Policy"
  29. #define kLit11    "Save Pass&word"
  30. #define kLit12    "&Browse..."
  31. #define kLit13    "Ser&vice Provider:"
  32. #define kLit14    "Internet Service Provider"
  33. #define kLit15    "America Online"
  34. #define kLit16    "Netcom"
  35. #define kLit17    "Earthlink"
  36. #define kLit18    "Intranet"
  37. #define kLit19    "Before Upload:"
  38. #define kLit20    "Always consolidate"
  39. #define kLit21    "Never consolidate"
  40. #define kLit22    "Prompt me each upload"
  41. #define kLit23    "Warn about missing images during consolidation."
  42. #define kLit24    "Consolidate image files:"
  43. #define kLit25    "with the HTML File"
  44. #define kLit26    "in a separate image folder"
  45. #define kLit27    "ask me each time"
  46. #define kLit28    "Image folder name:"
  47. #define kLit29    "Consolidate"
  48. #define kLit30    "File Replacement"
  49. #define kLit31    "During Upload:"
  50. #define kLit32    "Never Replace Files"
  51. #define kLit33    "Replace files with same name only if newer"
  52. #define kLit34    "Replace all files with same name"
  53. #define kLit35    "FTP &Mode:"
  54. #define kLit36    "Passive"
  55. #define kLit37    "Active"
  56. #define kLit38    "Remote Fi&le:"
  57. // Image Policy Tool Tips strings
  58. #define kLit50    "Consolidate the referenced image files."
  59. #define kLit51    "Choice of consolidation policy."
  60. #define kLit52    "During consolidation warn me about image files not found."
  61. #define kLit53    "Where to place the image files when consolidated."
  62. #define kLit54    "Name of the folder to place the image files in."
  63. // FTP Settings Tool Tips strings
  64. #define kLit55 "Default settings for Internet Service Providers."
  65. #define kLit56 "Name of the remote server."
  66. #define kLit57 "Your user name for this server."
  67. #define kLit58 "Enter your password for this server."
  68. #define kLit59 "Remember the password next time."
  69. #define kLit60 "Name of the remote folder / directory"
  70. #define kLit61 "Look for the remote folder on the server."
  71. // File Replacement Tool Tips strings
  72. #define kLit62 "Do not replace files with the same name."
  73. #define kLit63 "Replace duplicate files with the newer version."
  74. #define kLit64 "Replace all duplicate files no matter what."
  75. #define kLit65 "FTP communications protocol. Usually set to 'Passive'"
  76. #define kLit66 "Name of the remote file. Blank if you are to download a folder."
  77. //Note: the file name will probably not change, but the name of the "Help" folder
  78. //probably will. Note that the translated name MUST be 8 chars or less.
  79. #define kHelpURL "Help/RemoteSv.htm"
  80. #define kHelpTitle "&Help"
  81. //Localized Fonts
  82. #if Platform_Mac
  83.     #define kSmallBoldFont  Font = {Geneva, 10, {Bold}}
  84.     #define kStdLabelFont     LabelFont = {Geneva, 10, {Bold}}
  85.     #define kEditFont           Font = {Geneva, 10, {Plain}}
  86.     #define kHelpFont            Font = {Geneva, 10, {Plain}}
  87.     #define kTabLabelFont         {Geneva, 10, {Plain}}
  88. #else    
  89.     #define kSmallBoldFont  Font = SystemFont
  90.     #define kEditFont           Font = SystemFont
  91.     #define kStdLabelFont     LabelFont = SystemFont
  92.     #if Dialog_Pixels == 100
  93.         #define kHelpFont            Font = {"MS Sans Serif", 8, {Plain}}
  94.     #else
  95.         #define kHelpFont         Font = {"MS Sans Serif", 6, {Plain}}
  96.     #endif
  97. #endif
  98. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  99. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  100. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  101. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  102. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  103. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  104. //This section contains integer constants that are used to format this VDL program.
  105. //These are localizable - they only need to be changed if the localized strings 
  106. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  107. #if Platform_Mac
  108.     //Standard Label width, used for many panes. 
  109.     #define kStandardLabelWidth 86
  110.     #define kCheckBoxWidth kStandardLabelWidth + 6
  111.     #define kPopupSpacer 28
  112.     
  113.     //Height of the help view at the bottom of the window
  114.     #define kHelpViewHeight     35
  115.     //Height of the main list (each of the three panes has this height)
  116. //    #define kMainDialogHeight     268
  117.     #define kMainDialogHeight     230
  118.     //Width of the main list (each of the two panes has this Width)
  119.     #define kMainDialogWidth     350
  120.     
  121.     // Font for the small push buttons
  122.     #define kSmallButtonFont     Font = {Geneva, 10, {Plain}}
  123.     // Height of each Tab panel
  124.     #define kTabPanelHeight     kMainDialogHeight - 55
  125.     
  126.     // Width of each Tab panel
  127.     #define kTabPanelWidth        kMainDialogWidth - 20
  128.     
  129. #else
  130.     //Standard Label width, used for many panes. 
  131.     #define kStandardLabelWidth 86
  132.     #if Dialog_Pixels == 100    
  133.         #define kCheckBoxWidth kStandardLabelWidth + 6
  134.     
  135.         #define kPopupSpacer 33
  136.     #else
  137.         #define kCheckBoxWidth kStandardLabelWidth + 26
  138.     
  139.         #define kPopupSpacer 23        
  140.     #endif
  141.     
  142.     //Height of the help view at the bottom of the window
  143.     #define kHelpViewHeight     35
  144.     //Height of the main list (each of the three panes has this height)
  145.     #define kMainDialogHeight     310
  146.     //Width of the main list (each of the two panes has this Width)
  147.     #define kMainDialogWidth     400
  148.     // Font for the small push buttons
  149.     #define kSmallButtonFont          Font = SystemFont
  150.     // Height of each Tab panel
  151.     #define kTabPanelHeight     kMainDialogHeight - 100
  152.     
  153.     // Width of each Tab panel
  154.     #define kTabPanelWidth        kMainDialogWidth - 20
  155. #endif
  156. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  157. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  158. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  159. //No further localizable data past this point
  160. /************************** END LOCALIZABLE DATA ***************************************************/
  161. /************************** END LOCALIZABLE DATA ***************************************************/
  162. /************************** END LOCALIZABLE DATA ***************************************************/
  163. #ifndef FOR_SITE_UPLOAD 
  164. #define FOR_SITE_UPLOAD 0
  165. #endif
  166. #ifndef FOR_REMOTE_SAVE
  167. #define FOR_REMOTE_SAVE 0
  168. #endif
  169. //    DO NOT TOUCH
  170. //    WORK IN PROGRESS
  171. //    - Russ [08.17.97]
  172. //#if Platform_Mac
  173. //    #define dlogBack BackColor = {65535, 65535, 65535}
  174. //#else
  175.     #define dlogBack BackColor = Dialog
  176. //#endif
  177. #define StdLabel LabelWidth = kStandardLabelWidth, LabelAlignment = Right
  178. //----------------------------------------------
  179. //    FTP Setting Tab Panel
  180. //----------------------------------------------
  181. Define(FTPSettings)
  182.     VList(Height = kTabPanelHeight,Width = kTabPanelWidth,TabDialogBack)
  183.         {
  184. //        IntegerPopup(kLit13,115, serviceProvider,kSmallBoldFont,EH kLit55)
  185. //        IntegerPopup("", 0, obj.wUnit, kPopupFont, Action = ToggleWUnit, EH kLit200)
  186. /* REMOVED - ISP popup menu.  Taken out due to lack of interest
  187.         IntegerPopup(kLit13,115,serviceProvider,kSmallBoldFont,Action = SetISPDefaults,EH kLit55)
  188.           {
  189.            IntItem(kLit14, 0);
  190.            IntItem(kLit15, 1);
  191.            IntItem(kLit16, 2);
  192.            IntItem(kLit17, 3);
  193.            IntItem(kLit18, 4);            
  194.         };
  195.         Spacer (Height = 10);
  196. */
  197.         HList(Height = UseParent, Width = UseParent)
  198.         {
  199. //            Spacer (Width = 20);
  200. //            Margin(5,2,10,2,Single)
  201.             Margin(5,2,10,2)
  202.             //--- Server Settings ---
  203.             VList(Height = UseParent, Width = UseParent)
  204.             {
  205.             
  206.                 Spacer (Height = 10);
  207.                 EditText( FTPDownloadServer, BackColor = {65535, 65535, 65535},
  208.                               Label = kLit1, StdLabel,kStdLabelFont,kEditFont, NoSmartQuotes,
  209.                               NoSmartEdits,EH kLit56);
  210.                 Spacer(Height = 5, Width = 0);
  211.                 EditText( FTPDownloadUser, BackColor = {65535, 65535, 65535},
  212.                               Label = kLit2, StdLabel,kStdLabelFont,kEditFont, NoSmartQuotes,
  213.                               NoSmartEdits,EH kLit57 );
  214.                 Spacer(Height = 5, Width = 0);
  215.                 EditText( FTPDownloadPassword, BackColor = {65535, 65535, 65535},
  216.                              Label = kLit3, StdLabel,kStdLabelFont,kEditFont, DisplayAsBullets,
  217.                              NoSmartQuotes, NoSmartEdits,EH kLit58 );
  218.                 
  219.                 Spacer(Height = 2);             
  220.                 HList()
  221.                 {
  222.                     Spacer(Width = kCheckBoxWidth);
  223.                     WidowCheckBox(kLit11, rememberPasswords, kSmallBoldFont, 
  224.                                         Width = 150, Height = 18,EH kLit59);
  225.                 }//HList
  226.                 
  227.                 Spacer(Height = 10, Width = 0);
  228.                 
  229.                 HList(Width = UseParent)
  230.                 {
  231.                     EditText( FTPDownloadDir, BackColor = {65535, 65535, 65535},
  232.                                   Label = kLit4, StdLabel,kStdLabelFont,kEditFont, NoSmartEdits,
  233.                                   NoSmartQuotes,EH kLit60 );
  234.             
  235.                     Spacer(Width =10);
  236.                     PushButton( kLit12, 3107, "BrowseForDownloadFolder",kSmallBoldFont,EH kLit61);
  237.                 }//HList
  238.                 //@ykh 081597 begin
  239.                 Spacer(Height = 3, Width = 0);
  240.                 //HList(Width = UseParent)
  241.                 //{
  242.                     EditText( FTPDownloadFile, BackColor = {65535, 65535, 65535},
  243.                                   Label = kLit38, StdLabel,kStdLabelFont,kEditFont, NoSmartEdits,
  244.                                   NoSmartQuotes,EH kLit66 );
  245.             
  246.                 //}//HList
  247.                 //@ykh 081597 end
  248.                     
  249.                 Spacer(Height = 5);
  250.                 HList()
  251.                 {
  252.                     Spacer(Width = kPopupSpacer);
  253.                     IntegerPopup(kLit35,-1,DownloadUsePassiveMode,kSmallBoldFont,Width = 135,EH kLit65)
  254.                     {
  255.                         IntItem(kLit36, 0);
  256.                         IntItem(kLit37, 1);
  257.                     };
  258.                 }//HList
  259.                 
  260.             }//VList
  261.             
  262. //            Spacer (Width = 20);
  263.             
  264.         }HList
  265.         Spacer(Height = 0, Width = UseParent);
  266. /*
  267. #if Platform_Mac    
  268.         // Horizontal Separator
  269.         Spacer(Height = 15, Width = 0);    
  270.         Spacer(Height = 1, Width = UseParent, BackColor = Black);
  271.         Spacer(Height = 1, Width = UseParent, BackColor = White);
  272.         // This spacer put the horz. separator at the right hight
  273.         Spacer(Height = 21, Width = UseParent);
  274. #else
  275.         // This spacer is necessary for the VDL to compile
  276.         // Not allowed to have an empty VList
  277.         Spacer(Height = 0, Width = UseParent);
  278. #endif
  279. */    
  280.     }//VList
  281. //----------------------------------------------
  282. //    Image Policy Tab Panel
  283. //----------------------------------------------
  284. Define(ImagePolicySettings)
  285.     VList(Height = kTabPanelHeight,Width = kTabPanelWidth,TabDialogBack)
  286.     {
  287.         Spacer(Height = 10, Width = 0);
  288. //        IntegerPopup(kLit19,115, consolidationPolicy,kSmallBoldFont)
  289.         IntegerPopup(kLit19,88, consolidatePolicy,kSmallBoldFont,EH kLit51)
  290.           {
  291.            IntItem(kLit20, 0);
  292.            IntItem(kLit21, 1);
  293.            IntItem(kLit22, 2);
  294.         };
  295.         Spacer(Height = 5, Width = 0);    
  296.     
  297.         WidowCheckBox(kLit23, checkMissing, kSmallBoldFont, Width = UseParent, Height = 18,EH kLit52);
  298.     
  299.         Spacer(Height = 30, Width = 0);    
  300.         IntegerPopup(kLit24,145,imagesPolicy,kSmallBoldFont,EH kLit53)
  301.           {
  302.            IntItem(kLit25, 0);
  303.            IntItem(kLit26, 1);
  304.            IntItem(kLit27, 2);
  305.         };
  306.     
  307.         Spacer(Height = 10, Width = 0);    
  308.     
  309.         EditText(    imagesFolder, BackColor = {65535, 65535, 65535},
  310.                         Label = kLit28, LabelWidth = 141, LabelAlignment = Right,
  311.                         kStdLabelFont,kEditFont, NoSmartEdits,Width = 250, 
  312.                         NoSmartQuotes,EH kLit54);
  313.         Spacer(Height = 35, Width = 0);
  314.         HList(Width = UseParent)
  315.         {
  316.             Spacer (Height = 0,Width = UseParent);
  317.             //$$$$MR New command number needed here
  318.             PushButton( kLit29, 3107, "Consolidate",kSmallBoldFont,EH kLit50);
  319.             Spacer (Height = 0,Width = 3);
  320.         
  321.         }
  322.         Spacer(Height = 15, Width = 0);    
  323.         Spacer(Height = 1, Width = UseParent, BackColor = Black);
  324.         Spacer(Height = 1, Width = UseParent, BackColor = White);
  325.     }//VList
  326. /*$$$$MR If we implement the file replacement Tab Use this code
  327. //----------------------------------------------
  328. //    Image Policy Tab Panel
  329. //----------------------------------------------
  330. Define(FileReplacement)
  331.     VList(TabDialogBack)
  332.     {
  333.         HList(TabDialogBack)
  334.         {
  335.             Spacer(Width = 30);
  336.             VList(TabDialogBack)
  337.             {
  338.                     Spacer(Height = 30);
  339.                     StaticText(kLit31,kSmallBoldFont);
  340.                     Spacer(Height = 5);    
  341.             
  342.                     HList(TabDialogBack)
  343.                     {
  344.                         Spacer(Width = 20);        
  345.                         VList(TabDialogBack)
  346.                         {
  347.                             WidowRadioButton(kLit32, replaceFilePolicy, 0, 
  348.                                                     Height = 18,Width = 250,kSmallBoldFont,EH kLit62);
  349.                             WidowRadioButton(kLit33, replaceFilePolicy, 1, 
  350.                                                     Height = 18,Width = 280,kSmallBoldFont,EH kLit63);
  351.                             WidowRadioButton(kLit34, replaceFilePolicy, 2, 
  352.                                                     Height = 18,Width = 250,kSmallBoldFont,EH kLit64);
  353.                         }//HList
  354.                 
  355.                     }//Hlist
  356.         
  357.             }//VList
  358.     
  359.         }//HList
  360. #if Platform_Mac
  361.         Spacer(Height = 73);
  362.         // Horizontal Separator
  363.         Spacer(Height = 15, Width = 0);    
  364.         Spacer(Height = 1, Width = UseParent, BackColor = Black);
  365.         Spacer(Height = 1, Width = UseParent, BackColor = White);
  366. #endif
  367.     }//VList
  368. */
  369. /*
  370. //----------------------------------------------
  371. //    MainList - Main Cotroller for the tab control
  372. //----------------------------------------------
  373. Define(MainList)
  374.     Margin(10,10,10,10, TabDialogBack)
  375.             VList(Height = kTabPanelHeight)
  376.             {
  377.             
  378.                 Call(FTPSettings);
  379.                     
  380. //$$$$MR If we implement the file replacement Tab Use this code
  381. //                    case 2:
  382. //                        Margin(0,0,0,0)
  383. //                            Call(FileReplacement);
  384.                 } //Switch
  385.         
  386.         
  387.             } //VList
  388.         } //HList
  389. */
  390. //----------------------------------------------
  391. //    MainView - Top Most view of this dialog
  392. //----------------------------------------------
  393. Margin(10, 10, 10, 10, TabDialogBack) 
  394.     VList()
  395.     {    
  396. /*
  397.         TabControl(mode, NoUndo,Font = kTabLabelFont)
  398.         {
  399.             Tab(kLit9, 0);     // FTP Settings
  400.             //@ykh Tab(kLit10, 1);     // Image Policy
  401. //$$$$MR If we implement the file replacement Tab Use this code
  402. //            Tab(kLit30, 2);     // File Replacement
  403.             
  404.             Subview:    
  405.                 Call(MainList);
  406.         }; //Layout
  407. */
  408.         Call(FTPSettings);
  409.         //--- Tool Tips ---
  410.         Spacer(Height = 0, Width = UseParent);
  411.         #if Platform_Mac
  412.             Margin(5,0,0,0,DialogBack)
  413.         #else
  414.             Margin(16,0,0,0,DialogBack)
  415.         #endif
  416.             HelpView(Width = UseParent, Alignment = Left, Height = 25, kHelpFont);
  417.         Spacer(Height = 5);
  418.         HList(Width = UseParent)
  419.             {
  420.             
  421.             Spacer(Width = 20, Height = 0);
  422.             Switch(mode)
  423.                 {
  424.                 case 0:
  425.                     HList(Width = UseParent)
  426.                         {
  427.                         StandardDialogButtonsH;
  428.                         }
  429.                 /*@ykh
  430.                 case 1:
  431.                     StandardDialogButtonsHNoReturn;
  432.                 */
  433.                                 
  434.                 default:
  435.                     StandardDialogButtonsH;
  436.                 
  437.                 } //Switch
  438.         
  439.                 Spacer(Width = 10, Height = 0);
  440.             } //HList
  441.         
  442.     }//VList
  443.