home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 154 < prev    next >
Encoding:
Text File  |  1997-12-10  |  6.7 KB  |  195 lines
  1. // -----
  2. // VDL154.txt
  3. // Copyright 1996 Claris
  4. // -----
  5. // Library
  6. #include "StdVPref.txt"
  7. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  8. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  9. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  10. //This section contains all localizable string constants for this VDL program. Be sure to 
  11. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  12. //You may also flatten multiline constants into a single line, if you prefer
  13. #define kLit4 "New Entry"
  14. #define kLit9 "Insert Image"
  15. #define kLit38 " Insert in Page "
  16. #define kLit39 " Use as Page Background "
  17. //Localized Fonts
  18. #if Platform_Mac
  19. #define kHelpFont Font = {Geneva, 9, {Italic}}
  20. #endif
  21. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  22. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  23. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  24. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  25. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  26. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  27. //This section contains integer constants that are used to format this VDL program.
  28. //These are localizable - they only need to be changed if the localized strings 
  29. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  30. //This is the width of the popup menu controlling paragraph style.
  31. #define kParagraphStylePopupWidth 124
  32. #if Platform_Mac
  33. #define kHelpViewWidth 300
  34. #define kHelpViewHeight 20
  35. #endif
  36. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  37. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  38. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  39. //No further localizable data past this point
  40. /************************** END LOCALIZABLE DATA ***************************************************/
  41. /************************** END LOCALIZABLE DATA ***************************************************/
  42. /************************** END LOCALIZABLE DATA ***************************************************/
  43. #define kStandardPadSpace 9
  44. #if Platform_Mac
  45.     #define ToolSep GenericView("ToolSepView");
  46. #else
  47.     #define ToolSep 
  48. #endif
  49. #define LibBack stdBackColor
  50.         
  51. Define(LibraryToolbar)
  52.     VList(stdBackColor, Width = UseParent)
  53.     {
  54.         Spacer(Height = 1, Width = UseParent, BackColor = White);
  55.         Spacer(Height = 3);
  56.  
  57.         HList(Width = UseParent)
  58.         {
  59.             Spacer(Height = 0, Width = 6);
  60.             
  61.             //@ykh 080497 begin 
  62.             ToolSep
  63.             PictPushButton(3301, "None", EH kLit4) // ccNewLibraryEntry
  64.                 {
  65.                 Enabled (Draw, 'cicn', 10200);
  66.                 Disabled(Draw, 'cicn', 10202); 
  67.                 Tracking(Draw, 'cicn', 10201);
  68.                 };
  69.             ToolSep
  70.             Spacer(Height = UseParent, Width = 3);
  71.  
  72.             ToolSep
  73.             Tag(libWinInsertImagePictButton)
  74.             PictPushButton(3081, "None", EH kLit9) // ccInsertImage
  75.                 {
  76.                 Enabled(Draw, 'cicn',13005 );
  77.                 Disabled(Draw, 'cicn',13045 ); 
  78.                 Tracking(Draw, 'cicn',13025 );
  79.                 };
  80.             ToolSep
  81.             Spacer(Height = UseParent, Width = 3);
  82.             //@ykh 080497 end 
  83.  
  84.             Tag(libWinInsertInDocPictButton)
  85.             GenericView("InsertInDocument");  // ccInsertInDocument HTMLDocButtonMenu
  86.             Spacer(Height = UseParent, Width = 3);
  87.             
  88.             Tag(libWinUseAsBkgdPictButton)
  89.             GenericView("UseAsBackground");   // ccUseAsBackground    HTMLDocButtonMenu
  90.             Spacer(Height = UseParent, Width = 8);
  91.             
  92.             //@ykh 080497 begin             
  93.             Margin( 0,6,0,0, LibBack, Height = UseParent,
  94.                        Width = UseParent )
  95.             VList(Height = UseParent, Width = UseParent)
  96.                 {
  97.                 #if Platform_Mac
  98.                     HelpView(Width = kHelpViewWidth, Height = kHelpViewHeight, kHelpFont);
  99.                 #endif
  100.                 }
  101.             //@ykh 080497 end 
  102.  
  103.         }
  104.         
  105.         Spacer(Height = 3);
  106.         Spacer(Height = 1, Width = UseParent, BackColor = DkGray);
  107.       Spacer(Height = 1, Width = UseParent, BackColor = Black);
  108.     }
  109.  
  110.         
  111.         
  112. Margin( 0,0,0,0, LibBack, Height = UseParent,
  113.            Width = UseParent )
  114.     VList(Height = UseParent, Width = UseParent)
  115.         {
  116.         Call(LibraryToolbar);
  117.         HSplit(MinLeftPixels = 75, MinRightPixels = 75)
  118.         {
  119.             //Left View
  120.             Tag(ListView)
  121.                 GenericView("LibraryListProc");                        
  122.             
  123.             //Splitter
  124.             VList(Height = UseParent, BackColor = {0xEEEE, 0xEEEE, 0xEEEE})    
  125.             {
  126.                 // Spacer(Width = 5);
  127.                 #if Platform_Mac
  128.                 HList(Height = UseParent)
  129.                 #else
  130.                 HList(Height = UseParent, BackColor = {45000,45000,45000} )
  131.                 #endif
  132.                 {
  133.                     Spacer(Width = 1, BackColor = {0, 0, 0});
  134.                     Spacer(Width = 1, BackColor = {65535, 65535, 65535});
  135.                     
  136.                     #if Platform_Mac
  137.                         Spacer(Width = 2, BackColor = {0xEEEE, 0xEEEE, 0xEEEE});
  138.                     #else
  139.                         Spacer(Width = 3, BackColor = {45000,45000,45000});
  140.                     #endif
  141.                     
  142.                     VList(Height = UseParent)
  143.                     {
  144.                         Spacer(Width = UseParent, Height = 5);
  145.                         #if Platform_Mac
  146.                             Spacer(Width = 1, BackColor = {65535, 65535, 65535});
  147.                         #else
  148.                             Spacer(Width = 1, BackColor = {45000, 45000, 45000});
  149.                         #endif
  150.                         Spacer(Width = UseParent, Height = 5);
  151.                     }
  152.                     
  153.                     #if Platform_Mac
  154.                     VList(Height = UseParent)
  155.                     {
  156.                         Spacer(Width = UseParent, Height = 5);
  157.                         Spacer(Width = 1, BackColor = {0x6666, 0x6666, 0x6666});
  158.                         Spacer(Width = UseParent, Height = 5);
  159.                     }
  160.                     VList(Height = UseParent)
  161.                     {
  162.                         Spacer(Width = UseParent, Height = 5);
  163.                         Spacer(Width = 1, BackColor = {65535, 65535, 65535});
  164.                         Spacer(Width = UseParent, Height = 5);
  165.                     }
  166.                     VList(Height = UseParent)
  167.                     {
  168.                         Spacer(Width = UseParent, Height = 5);
  169.                         Spacer(Width = 1, BackColor = {0x6666, 0x6666, 0x6666});
  170.                         Spacer(Width = UseParent, Height = 5);
  171.                     }
  172.                     
  173.                     Spacer(Width = 3, BackColor = {0xEEEE, 0xEEEE, 0xEEEE});
  174.                     Spacer(Width = 1, BackColor = {0x8888, 0x8888, 0x8888});
  175.                     #else
  176.                         //Main bar
  177.                     Spacer(Width = 1, BackColor = {0x6666, 0x6666, 0x6666});
  178.                     Spacer(Width = 1, BackColor = {65535, 65535, 65535});
  179.                     Spacer(Width = 1, BackColor = {0x6666, 0x6666, 0x6666});
  180.                         
  181.                     Spacer(Width = 3, BackColor = {45000, 45000, 45000});
  182.                     Spacer(Width = 1, BackColor = {25000, 25000, 25000});
  183.                     #endif
  184.                     
  185.                     
  186.                     Spacer(Width = 1, BackColor = {0, 0, 0});
  187.                 }
  188.                 // Spacer(Width = 5);
  189.             }
  190.             // Right View
  191.             GenericView("LibraryViewProc");                        
  192.             
  193.         } //HSplit
  194.     } //VList
  195.