home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 2004 < prev    next >
Encoding:
Text File  |  1997-12-10  |  8.2 KB  |  321 lines
  1. // -----
  2. // VDL2004.txt
  3. // Copyright 1997 Claris
  4. // -----
  5.  
  6. //---------------------------------
  7. // ConfirmPageUpload.txt 
  8. //---------------------------------
  9.  
  10.  
  11. #include "StdVPref.txt"
  12.  
  13.  
  14. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  15. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  16. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  17.  
  18. //This section contains all localizable string constants for this VDL program. Be sure to 
  19. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  20. //You may also flatten multiline constants into a single line, if you prefer
  21.  
  22.  
  23. #define kLit1 "Upload Page"
  24. #define kLit2 "Server Name:"
  25.  
  26. #define kLit3 "Remote Folder:"
  27.  
  28.  
  29. #define kLit11 "Upload"
  30. #define kLit12 "Page:"
  31. #define kLit13 "&Include image files"
  32.  
  33.  
  34.  
  35. #define kLit15 "Upload"
  36. #define kLit16 "Cancel"
  37. #define kLit17 "Set &FTP Options..."
  38. //#define kLit18 "Assistant..."
  39. #define kLit19 "Upload Location"
  40. #define kLit20 "Upload"
  41. #define kLit21 "Cancel"
  42.  
  43.  
  44. #define kHelpPublish "Help/PublishSite.htm"
  45. #define kHelpTitle "&Help"
  46.  
  47.  
  48. //Localized Fonts
  49. #if Platform_Mac
  50.     #define DisplayFont { Geneva, 10, {Plain} }    
  51.     // Font for the small push buttons
  52.     #define kSmallBoldFont  Font = {Geneva, 10, {Bold}}
  53.     #define kBoldLabelFont              {Geneva, 10, {Bold}}
  54. #else
  55.     #define DisplayFont SystemFont
  56.         
  57.     // Font for the small push buttons
  58.     #define kSmallButtonFont          Font = SystemFont
  59.     #define kBoldLabelFont             SystemFont
  60. #endif
  61.  
  62.  
  63. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  64. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  65. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  75. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  76. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  77.  
  78. //This section contains integer constants that are used to format this VDL program.
  79. //These are localizable - they only need to be changed if the localized strings 
  80. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  81.  
  82. #if Platform_Mac
  83.     //Width of the Dialog
  84.     #define kDialogWidth 435
  85.  
  86.     //Width of the labels
  87.     #define kLabelWidth 100
  88.     
  89.     //Width of the displayed values
  90.     #define kValueWidth 100
  91.     
  92.     //Width of the OK Button
  93.     #define kOKButtonWidth 80
  94. #else
  95.     //Width of the Dialog
  96.     #define kDialogWidth 435
  97.  
  98.     //Width of the labels
  99.     #define kLabelWidth 100
  100.     
  101.     //Width of the displayed values
  102.     #define kValueWidth 100
  103.     
  104.     //Width of the OK Button
  105.     #define kOKButtonWidth 100
  106.  
  107. #endif
  108.  
  109.  
  110.  
  111.  
  112. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  113. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  114. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  115.  
  116.  
  117.  
  118. //No further localizable data past this point
  119.  
  120. /************************** END LOCALIZABLE DATA ***************************************************/
  121. /************************** END LOCALIZABLE DATA ***************************************************/
  122. /************************** END LOCALIZABLE DATA ***************************************************/
  123.  
  124. #define ccCancel        1070
  125. #define ccOK            1071
  126.  
  127.  
  128.  
  129. //-------------------------------------------------------------------------------------
  130. //        Debug / Try Me Defines:  These are for testing only
  131. //-------------------------------------------------------------------------------------
  132.     
  133. #ifdef TryMe
  134.  
  135.     
  136. #endif
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144. //-------------------------------------------------------------------------------------
  145. //        VDL Code Below Here
  146. //-------------------------------------------------------------------------------------
  147.  
  148.  
  149. //--- Defines ---------
  150. #if Platform_Mac
  151.     #define dlogBack stdBackColor
  152. #else
  153.     #define dlogBack stdBackColor
  154. #endif
  155.  
  156.  
  157. #define kUploadBtnCmdID            1
  158. #define kCancelBtnCmdID            2
  159. #define kUnknown1BtnCmdID        3
  160. #define kUnknown2BtnCmdID        3
  161.  
  162.  
  163.  
  164. Margin(10, 10, 10, 10, dlogBack)
  165. VList(Width = kDialogWidth)
  166. {
  167.     
  168.     VList(Width = UseParent)
  169.     {
  170.  
  171. //        StaticText(kLit1);
  172.  
  173.         // 3D Horizontal Separator
  174. //        Spacer(Height = 1, Width = UseParent, BackColor = Black);
  175. //      Spacer(Height = 1, Width = UseParent, BackColor = White);
  176.  
  177.         Spacer(Height = 10, Width = 0);
  178.  
  179.         // Radio Group
  180.         Label(kLit11, Single,Font = kBoldLabelFont)
  181.                 Margin(5,5,5,5)
  182.                     VList(Width = UseParent)
  183.                     {
  184.                         HList()    // Page Name
  185.                         {
  186.                             StaticText(kLit12,Font = DisplayFont);
  187.                             Spacer(Width = 5);                
  188.                             StaticText(ftpFile,Width = 350,Font = DisplayFont);
  189.                         }//HList
  190.     
  191.                         Spacer(Height = 5);    
  192.  
  193.                         HList()     // Upload Images Check Box
  194.                         {
  195.                             Spacer(Width = 50);
  196.                             WidowCheckBox(kLit13, uploadRelatedImages, kSmallBoldFont, Font = DisplayFont,Width = 150, Height = 18);
  197.                         }//HList
  198.  
  199.                     }//VList
  200.  
  201.         Spacer(Height = 10, Width = 0);
  202.  
  203.         Label(kLit19, Single,Width = UseParent,Font = kBoldLabelFont)
  204.             Margin(5,5,7,5)
  205.                 VList(Width = UseParent)
  206.                 {
  207.                     Spacer(Height = 3);
  208.  
  209.                     HList(Width = UseParent)        //Server
  210.                     {
  211.                         StaticText(kLit2,Width = kLabelWidth,Alignment = Right,Font = DisplayFont);
  212.                         Spacer(Width = 5);                        
  213.                         StaticText(ftpServer,Width = UseParent,Font = DisplayFont);
  214.                     }//HList
  215.                         
  216.                     Spacer(Height = 10, Width = 0);
  217.     
  218.                     HList(Width = UseParent)        //Remote Directory
  219.                     {
  220.     
  221.                         StaticText(kLit3,Width = kLabelWidth,Alignment = Right,Font = DisplayFont);
  222.                         Spacer(Width = 5);                        
  223.                         StaticText(ftpDir,Width = UseParent,Font = DisplayFont);                
  224.                     }//HList
  225.     
  226.                     Spacer(Height = 10,ScaleV);
  227.  
  228.                     HList(Width = UseParent)        //Change Upload Options
  229.                     {
  230.                         Spacer(Width = UseParent);
  231.                         PushButton( kLit17, 0, "ChangePageUploadOptions",kSmallBoldFont);
  232.                     }//HList
  233.                     
  234.                 }//VList
  235.  
  236.             Spacer(Height = 20, Width = 0,ScaleV);
  237.     
  238.             HList()
  239.             {
  240.  
  241. //                #if Platform_Mac
  242. //                    PictPushButton(4000, "ContextHelpProc", HelpFile = kHelpPublish)
  243. //                    {
  244. //                        Enabled(Draw, 'cicn',14055 );
  245. //                        Disabled(Draw, 'cicn',14057 ); 
  246. //                        Tracking(Draw, 'cicn',14056 );
  247. //                    };
  248. //                #else
  249. //                    PushButton(kHelpTitle, 4000, "ContextHelpProc", HelpFile = kHelpPublish);
  250. //                #endif
  251.  
  252.  
  253.                 //Use this for the ok and cancel
  254. //                Spacer(Height = 0, Width = 240);
  255. //                CancelButton(kLit16, kCancelBtnCmdID, "None", Width = kOKButtonWidth);
  256. //                Spacer(Height = 0, Width = 5);
  257. //                DefaultButton(kLit15,kUploadBtnCmdID, "None", Width = kOKButtonWidth);
  258.  
  259.             }//Hlist
  260.  
  261.             Spacer(Width = 240);
  262. //            StandardDialogButtonsH;
  263.             HList(Width = UseParent)
  264.             {
  265.                 #if Platform_Mac    
  266.                         Spacer(Height = 0,Width = UseParent);
  267.                         CancelButton( kLit21,ccCancel, "None");
  268.                         Spacer(Height = 0,Width = 5);
  269.                         DefaultButton( kLit20,ccOK, "None");
  270.                         Spacer(Height = 0, Width = 5);
  271.                 #else
  272.                         Spacer(Height = 0,Width = UseParent);
  273.                         DefaultButton( kLit20,ccOK, "None");
  274.                         Spacer(Height = 0,Width = 5);
  275.                         CancelButton( kLit21,ccCancel, "None");
  276.                         Spacer(Height = 0, Width = 5);
  277.                 #endif
  278.             }//Hlist
  279.     }//VList            
  280.     
  281.     
  282.     
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.     
  291. //-------------------------------------------------------------------------------------
  292. //     Try Me Mode VDL Code Below Here: For Testing Only
  293. //-------------------------------------------------------------------------------------
  294.     
  295.     // This is just used during Try Me Mode (Debugging).
  296.     // Use this area to set up and display controls
  297.     // only during debug mode.  This can be usefull to
  298.     // set test how the UI will look and function under
  299.     // differnt states set by controls in this ifdef area.
  300.  
  301.     #ifdef TryMe
  302.         Spacer(Height = 200);
  303.         StaticText("--------- Debugging Controls Below Here ---------");
  304.     #endif
  305. }
  306.  
  307.  
  308.  
  309.  
  310.  
  311.     
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.