home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1999 March / CDW0399.iso / Demos / HomePage / data1.cab / Program_Executable_Files / Homepage.exe / 1009 / 500 < prev    next >
Encoding:
Text File  |  1997-12-10  |  4.3 KB  |  134 lines
  1. // -----
  2. // VDL500.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6. /* Standard prefix file for all CHP VDL programs - contains common constants
  7.  * and definitions.
  8.  */
  9.  
  10. // This ifndef corrects a bug in TryMe mode
  11. #ifndef KRAKATOA
  12.     #define KRAKATOA 0
  13. #endif
  14.  
  15. #if KRAKATOA
  16.     #include "KrakatoaVPref.txt"
  17. #endif // KRAKATOA
  18.  
  19. //No further localizable data past this point
  20.  
  21. /************************** END LOCALIZABLE DATA ***************************************************/
  22. /************************** END LOCALIZABLE DATA ***************************************************/
  23. /************************** END LOCALIZABLE DATA ***************************************************/
  24.  
  25.  
  26. //    DO NOT TOUCH
  27. //    WORK IN PROGRESS
  28. //    - Russ [08.17.97]
  29. //#if Platform_Mac
  30. //    #define stdBackColor BackColor = {57015, 57015, 57015}
  31. //#else
  32.     #define stdBackColor BackColor = Dialog
  33. //#endif
  34.  
  35.  
  36. #define HSpace(x) Spacer(Width = x, Height = 0)
  37. #define VSpace(x) Spacer(Width = 0, Height = x)
  38.  
  39. #define EH          EnabledHelpString =
  40. #define UseParWidth Width = UseParent
  41. #define RightLWid   LabelAlignment = Right, LabelWidth =
  42.  
  43. #define BackWhite   BackColor = {65535, 65535, 65535}
  44.  
  45. //Define the symbols for some custom radio buttons and check boxes. These are 
  46. //only really used to draw custom back colors for Mac controls, in some of the dialogs.
  47. //These are macros, so I can turn them off later, if I want to.
  48. #if Platform_Mac
  49. #define WidowRadioButton     Mac_Appearance_RadioButton
  50. #define WidowCheckBox         Mac_Appearance_CheckBox
  51. #define WidowPushButton     Mac_Appearance_PushButton
  52. #else
  53. #define WidowRadioButton     RadioButton
  54. #define WidowCheckBox          CheckBox
  55. #define WidowPushButton     PushButton
  56. #endif
  57.  
  58. #ifndef LITE_VERSION
  59. #define LITE_VERSION 0
  60. #endif
  61.  
  62. //Some Dialogs have a notebook tab look, on the mac. If you use this effect, 
  63. //you should use the TabDialog_CheckBox and TabDialog_RadioButton
  64. //macros below, to give the dialog controls that have a gray background. 
  65. //Also, you should use TabDialogBack for the backColor, as below, or some similar
  66. //color. 
  67.  
  68. //It is important that all radio buttons and checkboxes in tabbed dialogs use 
  69. //these macros, so that the implemented view may be universally changed later, as
  70. //needed.
  71.  
  72. //If you turn tabs on, on the mac, you will get a gray background, and 
  73. //"Fake" buttons for the radio buttons and check boxes. You only need to 
  74. //change this one switch to get that. If this is set to 0, 
  75. //you get a white background, and a popup list for the setting.
  76. #if Platform_Mac
  77. #define WANT_TABS 1
  78. #endif
  79.  
  80. #if Platform_Win
  81. #define WANT_TABS 1
  82. #endif
  83.  
  84. #if Platform_Mac
  85.  
  86.     #if WANT_TABS
  87.     #define TabDialogBack                 stdBackColor
  88.     #define TabDialog_RadioButton     Mac_Appearance_RadioButton
  89.     #define TabDialog_CheckBox         Mac_Appearance_CheckBox
  90.     #else
  91.     #define TabDialogBack                 BackColor = {65535, 65535, 65535}
  92.     #define TabDialog_CheckBox         CheckBox
  93.     #define TabDialog_RadioButton     RadioButton
  94.     #endif
  95.     
  96. #else
  97.     #define TabDialogBack                 BackColor = Dialog
  98.     
  99.     //On Windows, the standard dialog controls work correctly, so we use them.
  100.     #define TabDialog_CheckBox         CheckBox
  101.     #define TabDialog_RadioButton     RadioButton
  102. #endif
  103.  
  104. #define VFlipper(max, min) HList(){EditText("NumberOfPages", Signed(32), Width = 30); \
  105. VList () { \
  106.  PictPushButton (NumberOfPages, "NumberFlipperProc", Step = 1, Max = max, Min = min){ \
  107.     Enabled (Draw, 'cicn', 16100); \
  108.     Disabled (Draw, 'cicn', 16101); \
  109.     Tracking (Draw, 'cicn', 16102); }; \
  110.  PictPushButton (NumberOfPages, "NumberFlipperProc", Step = -1, Max = max, Min = min){ \
  111.     Enabled (Draw, 'cicn', 16103);  \
  112.     Disabled (Draw, 'cicn', 16104); \
  113.     Tracking (Draw, 'cicn', 16105); }; } }
  114.  
  115. #define AddRemoveList \
  116. HList ()                                \
  117. {                                       \
  118.     EditText (PageName, Width = 100);    \
  119.     Spacer(Height = 0, Width = 10);      \
  120.     VList ()                             \
  121.     {                                    \
  122.         PushButton ("Add Page", 5001, "None"); \
  123.         Spacer (Height = 5, Width = 0);        \
  124.         PushButton ("Remove Page", 5002, "None"); \
  125.     }                                            \
  126.     Spacer(Height = 0, Width = 10);              \
  127.     VList (VScroll, Height = 75, Width = 100)    \
  128.     {                                            \
  129.         PageList (ListAttribute = "MyList");      \
  130.     }                                            \
  131. }
  132.  
  133.  
  134.