home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 2003 < prev    next >
Encoding:
Text File  |  1997-12-10  |  3.5 KB  |  141 lines
  1. //
  2. // VDL
  3. //
  4. // Copyright (c) 1997 Claris Corporation
  5. //
  6. // FileMaker Link Palette (aka the chicken)
  7. //
  8. #include "StdVPref.txt"
  9.  
  10. /******************************************************************************/
  11. /********************* LOCALIZED STRING CONSTANTS BEGIN ***********************/
  12. /******************************************************************************/
  13.  
  14. // tab labels
  15. #define kLit1    "Database"
  16. #define kLit2    "Insert"
  17.  
  18. // "database tab" control labels
  19. #define kLit3    "Select Database:"
  20. #define kLit4    "Update List"
  21. #define kLit5    "Open Remote..."
  22. #define kLit6    "Select Layout:"
  23.  
  24. // "insert tab" control labels
  25. #define kLit7    "Fields"
  26. #define kLit8    "Scripts"
  27. #define kLit9    "Forms"
  28. #define kLit10    "Tags"
  29.  
  30. /******************************************************************************/
  31. /********************** LOCALIZED STRING CONSTANTS END ************************/
  32. /******************************************************************************/
  33.  
  34. #define kTabHeight    250
  35. #define kTabWidth        175
  36.  
  37. #define kControlWidth    150
  38. #define kRadioButtonWidth    75
  39. #define kListBoxWidth    160
  40. #define kListBoxHeight    75
  41.  
  42. #if Platform_Mac
  43.     #define kTabLabelFont         {Geneva, 10, {Plain}}    
  44. #else
  45.     #define kTabLabelFont         SystemFont
  46. #endif
  47.  
  48.  
  49. //
  50. // database tab definition
  51. //
  52. Define(DatabaseTab)
  53.     VList(TabDialogBack)
  54.     {
  55.         StaticText( kLit3, Width = kControlWidth, Alignment = Left);
  56.         VList (VScroll, Height = kListBoxHeight, Width = kListBoxWidth)    
  57.         {
  58.             PageList(ListAttribute = "DatabaseList");
  59.         }
  60.         Spacer(Height = 10, Width = 0);
  61.         HList()
  62.         {
  63.             PushButton(kLit4, 5016, "None", kButtonFont); // ccUpdateFMDatabases
  64.             Spacer(Height = 0, Width = 20);
  65.             PushButton(kLit5, 5017, "None", kButtonFont); // ccRemoteFMDatabases
  66.         }
  67.         Spacer(Height = 25, Width = 0);
  68.         StaticText( kLit6, Width = kControlWidth, Alignment = Left);
  69.         VList (VScroll, Height = kListBoxHeight, Width = kListBoxWidth)    
  70.         {                                            
  71.             PageList(ListAttribute = "LayoutList");
  72.         }
  73.     }
  74.  
  75. //
  76. // insert tab definition
  77. //
  78. Define(InsertTab)
  79.     VList(TabDialogBack)
  80.     {
  81.         VList()
  82.         {
  83.             HList()
  84.             {
  85.                 Spacer(Width = 20, Height = 0);
  86.                 WidowRadioButton(kLit7, displayMode, 0, Width = kRadioButtonWidth, Height = 18);
  87.                 WidowRadioButton(kLit8, displayMode, 1, Width = kRadioButtonWidth, Height = 18);
  88.             }
  89.             Spacer(Height = 5, Width = 0);
  90.             HList()
  91.             {
  92.                 Spacer(Width = 20, Height = 0);
  93.                 WidowRadioButton(kLit9, displayMode, 2, Width = kRadioButtonWidth, Height = 18);
  94.                 WidowRadioButton(kLit10, displayMode, 3, Width = kRadioButtonWidth, Height = 18);
  95.             }
  96.         }
  97.         Spacer(Width = 0, Height = 10);
  98.         VList (VScroll, Height = 185, Width = kListBoxWidth)    
  99.         {                                            
  100.             PageList(ListAttribute = "InsertList");
  101.         }                                            
  102.     }
  103.  
  104. //
  105. // controller for tab dialog
  106. //
  107. Define(TabController)
  108.     Margin(7, 20, 10, 10, TabDialogBack)
  109.         HList()
  110.         {
  111.             VList(Height = kTabHeight)
  112.             {
  113.                 Switch(mode)
  114.                 {
  115.                     case 0:
  116.                         Call(DatabaseTab);
  117.                     case 1:
  118.                         Call(InsertTab);
  119.                 }
  120.                 Spacer(Height = 0, Width = kTabWidth);
  121.             }
  122.             Spacer(Width = 0, Height = kTabWidth);
  123.         }
  124.  
  125.  
  126. //
  127. // tab dialog definition
  128. //
  129. Margin(10, 10, 10, 10, TabDialogBack)
  130.     VList()
  131.     {
  132.         TabControl(mode, noUndo,Font = kTabLabelFont)
  133.         {
  134.             Tab(kLit1, 0);    // Database
  135.             Tab(kLit2, 1);    // Insert
  136.             Subview:
  137.                 Call(TabController);
  138.         };
  139.     }
  140.     
  141.