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