home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 2001 < prev    next >
Encoding:
Text File  |  1997-12-10  |  8.7 KB  |  339 lines
  1.  
  2.     
  3. // -----
  4. // VDL2001.txt
  5. // Copyright 1997 Claris
  6. // -----
  7.  
  8. //---------------------------------
  9. // ConfirmSiteUpload.txt 
  10. //---------------------------------
  11.  
  12.  
  13. #include "StdVPref.txt"
  14.  
  15.  
  16. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  17. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  18. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  19.  
  20. //This section contains all localizable string constants for this VDL program. Be sure to 
  21. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  22. //You may also flatten multiline constants into a single line, if you prefer
  23.  
  24.  
  25. #define kLit1 "Upload Site"
  26. #define kLit2 "Server Name:"
  27.  
  28. #define kLit3 "Remote Folder:"
  29.  
  30.  
  31. #define kLit11 "Upload"
  32. #define kLit12 "&Selected files and folders in the Site Editor Window"
  33. #define kLit13 "&Only those files that have changed since the last upload"
  34. #define kLit14 "&Entire Site"
  35.  
  36. #define kLit15 "Upload"
  37. #define kLit16 "Cancel"
  38. #define kLit17 "Set &FTP Options..."
  39. #define kLit18 "Page:"
  40. #define kLit19 "Upload Location"
  41. #define kLit20 "&Include image files"
  42. #define kLit21 "Upload"
  43. #define kLit22 "Cancel"
  44. #define kLit23 "Consolidate"
  45.  
  46.  
  47. #define kHelpPublish "Help/PublishSite.htm"
  48. #define kHelpTitle "&Help"
  49.  
  50.  
  51. //Localized Fonts
  52. #if Platform_Mac
  53.     #define DisplayFont         Font = {Geneva, 10, {Plain}}
  54.     // Font for the small push buttons
  55.     #define kSmallBoldFont  Font = {Geneva, 10, {Bold}}
  56.     #define kBoldLabelFont  {Geneva, 10, {Bold}}
  57. #else
  58.     #define DisplayFont         Font = SystemFont    
  59.     // Font for the small push buttons
  60.     #define kSmallButtonFont          Font = SystemFont
  61.     #define kBoldLabelFont   SystemFont
  62. #endif
  63.  
  64.  
  65.  
  66. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  67. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  68. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  78. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  79. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  80.  
  81. //This section contains integer constants that are used to format this VDL program.
  82. //These are localizable - they only need to be changed if the localized strings 
  83. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  84.  
  85. #if Platform_Mac
  86.     
  87.         
  88.     #define kGroupBoxWidth 400
  89.  
  90. #else
  91.  
  92.     
  93.     
  94.     #define kGroupBoxWidth 400
  95.  
  96. #endif
  97.  
  98.  
  99.  
  100.  
  101. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  102. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  103. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  104.  
  105.  
  106.  
  107. //No further localizable data past this point
  108.  
  109. /************************** END LOCALIZABLE DATA ***************************************************/
  110. /************************** END LOCALIZABLE DATA ***************************************************/
  111. /************************** END LOCALIZABLE DATA ***************************************************/
  112.  
  113.  
  114.  
  115.  
  116. //-------------------------------------------------------------------------------------
  117. //        Debug / Try Me Defines:  These are for testing only
  118. //-------------------------------------------------------------------------------------
  119.     
  120. #ifdef TryMe
  121.     
  122.     
  123. #endif
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131. //-------------------------------------------------------------------------------------
  132. //        VDL Code Below Here
  133. //-------------------------------------------------------------------------------------
  134.  
  135.  
  136. //--- Defines ---------
  137. #define ccUploadFiles                5006
  138. #define ccDisabledCommandCode        9999    // This command code is used to disable the control that it is    
  139.                                                     // asssociated with.  Never bind this command code. 
  140. #define ccChangeUploadOptions        5009
  141. //#define ccUploadOptions                5002
  142.  
  143.  
  144. #if Platform_Mac
  145.     #define dlogBack stdBackColor
  146. #else
  147.     #define dlogBack stdBackColor
  148. #endif
  149.  
  150.  
  151. #define kUploadBtnCmdID            1
  152. #define kCancelBtnCmdID            2
  153.  
  154. Define(UploadSite)
  155.     Margin(15,5,5,5,stdBackColor)
  156.         Switch(aFileIsSelected)
  157.         {
  158.             case 0:
  159.                 VList()
  160.                 {
  161. // Just don't show this option 
  162. //                    WidowRadioButton(kLit12, ccDisabledCommandCode, 0, Height = 20);    // "ccDisabledCommandCode" bogus command, see declaration
  163.                     WidowRadioButton(kLit13, uploadWhichFiles, 1, Height = 20,DisplayFont);
  164.                     WidowRadioButton(kLit14, uploadWhichFiles, 2, Height = 20,DisplayFont);
  165.                 }//VList
  166.             default:
  167.                 VList()
  168.                 {
  169.                     WidowRadioButton(kLit12, uploadWhichFiles, 0, Height = 20,DisplayFont);
  170.                     WidowRadioButton(kLit13, uploadWhichFiles, 1, Height = 20,DisplayFont);
  171.                     WidowRadioButton(kLit14, uploadWhichFiles, 2, Height = 20,DisplayFont);
  172.                 }//VList
  173.         }//switch
  174.  
  175.  
  176.  
  177. Define(UploadPage)
  178.     Margin(5,5,5,5,stdBackColor)
  179.         VList(Width = UseParent)
  180.         {
  181.             HList(Width = UseParent)                                            //    Display Page name
  182.             {
  183.                 StaticText(kLit18,DisplayFont);
  184.                 Spacer(Width = 5);
  185.                 StaticText(pageName,Width = UseParent,DisplayFont);
  186.             }//HList
  187.  
  188.             Spacer(Height = 5);
  189.  
  190.             HList(Width = UseParent)
  191.             {    
  192.                 Spacer(Width = 43);
  193.                 WidowCheckBox(kLit20, includeImages, Width = UseParent, Height = 18,DisplayFont);
  194.             }//HList
  195.  
  196.         }//VList
  197.  
  198.  
  199. Margin(10, 10, 10, 10, dlogBack)
  200. VList()
  201. {
  202.     
  203.     VList()
  204.     {
  205.  
  206.         Spacer(Height = 20, Width = 0);
  207.  
  208.         // Lable Group
  209.         Label(kLit11, Single,Width = UseParent,Font = kBoldLabelFont)
  210.             Margin(0,0,0,0,MinSizeX = kGroupBoxWidth)
  211.             Switch(uploadPageOrSite)        // Are we uploading from a page or a site
  212.             {
  213.                 case 1:
  214.                     Call(UploadPage);            // Display Page Upload info
  215.                 case 2:
  216.                     Call(UploadSite);            // Display Upload Site Radio group
  217.             }//switch
  218.  
  219.         
  220.         Spacer(Height = 10, Width = 0);
  221.  
  222.         Label(kLit19, Single,Font = kBoldLabelFont)
  223.             Margin(5,5,5,5,MinSizeX = kGroupBoxWidth)
  224.                 VList(Width = UseParent)
  225.                 {
  226.                     HList(Width = UseParent)
  227.                     {
  228.                         Spacer(Width = 6,ScaleH);
  229.                         StaticText(kLit2,DisplayFont);
  230.                         Spacer(Width = 5,ScaleH);                
  231.                         StaticText(serverName,Width = UseParent,DisplayFont);
  232.                     }//HList
  233.                         
  234.                     Spacer(Height = 10, Width = 0);
  235.     
  236.                     HList(Width = UseParent)
  237.                     {
  238.     
  239.                         StaticText(kLit3,DisplayFont);    
  240.                         Spacer(Width = 5);                
  241. //                        StaticText(serverDirectory,Width = 320,DisplayFont);
  242.                         StaticText(serverDirectory,Width = UseParent,DisplayFont);
  243.                     }//HList
  244.     
  245.                     Spacer(Height = 10, Width = 0);
  246.  
  247.                     HList(Width = UseParent)
  248.                     {
  249.                         Spacer(Height = 0, Width = UseParent);
  250.                         PushButton( kLit17, 0, "ChangeUploadOptions",kSmallBoldFont);
  251.                     }//HList
  252.                     
  253.                 }//VList
  254.  
  255.             Spacer(Height = 20, Width = 0);
  256.     
  257.             HList(Width = UseParent)
  258.             {
  259.                 /* No More Help Buttons.
  260.                 #if Platform_Mac
  261.                     PictPushButton(4000, "ContextHelpProc", HelpFile = kHelpPublish)
  262.                     {
  263.                         Enabled(Draw, 'cicn',14055 );
  264.                         Disabled(Draw, 'cicn',14057 ); 
  265.                         Tracking(Draw, 'cicn',14056 );
  266.                     };
  267.                 #else
  268.                     PushButton(kHelpTitle, 4000, "ContextHelpProc", HelpFile = kHelpPublish);
  269.                 #endif
  270.                 */
  271.                 // Standard Ok & Cancel butons
  272.                 
  273.                 #if Platform_Mac
  274.                     Spacer(Height = 0, Width = UseParent);
  275.                     CancelButton(kLit16, 0, "cancelConfirmDialog");
  276.                     Spacer(Height = 0, Width = 5);                
  277.                     DefaultButton(kLit15, 0, "okConfirmDialog");
  278.                     Spacer(Height = 0, Width = 5);
  279.                 #else
  280.                     Spacer(Height = 0, Width = UseParent);
  281.                     DefaultButton(kLit15, 0, "okConfirmDialog");
  282.                     Spacer(Height = 0, Width = 5);                
  283.                     CancelButton(kLit16, 0, "cancelConfirmDialog");
  284.                     Spacer(Height = 0, Width = 5);
  285.                 #endif
  286.                 
  287.  
  288.             }//Hlist
  289.  
  290.     }//VList            
  291.     
  292.     
  293.     
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.     
  302. //-------------------------------------------------------------------------------------
  303. //     Try Me Mode VDL Code Below Here: For Testing Only
  304. //-------------------------------------------------------------------------------------
  305.     
  306.     // This is just used during Try Me Mode (Debugging).
  307.     // Use this area to set up and display controls
  308.     // only during debug mode.  This can be usefull to
  309.     // set test how the UI will look and function under
  310.     // differnt states set by controls in this ifdef area.
  311.  
  312.     #ifdef TryMe
  313.         Spacer(Height = 200);
  314.         StaticText("--------- Debugging Controls Below Here ---------");
  315.         
  316.         
  317.     #endif
  318. }
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.     
  327.     
  328.  
  329.     
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.