home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 4.7 / 1999-01_-_Disc_4.7.bin / ELINK / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 150 < prev    next >
Text File  |  1997-02-20  |  48KB  |  1,733 lines
  1. // -----
  2. // VDL150.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7.  
  8. //Object Editor
  9. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12.  
  13. //This section contains all localizable string constants for this VDL program. Be sure to 
  14. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  15. //You may also flatten multiline constants into a single line, if you prefer
  16.  
  17. // NEWLY GENERATED STRING MACROS
  18. #define kLit1 "&Name:"
  19. #define kLit2 "Reminder: when using an anchor name in a URL,"\
  20.                                   " add a '#' (e.g. ╥#part2╙ or"\
  21.                                   " ╥mypage#part2╙ for an anchor named part2),"\
  22.                                   " but do not enter the '#' here."
  23.                                   
  24.                                   
  25. #define kLit3 "Reminder: when using an anchor name in a URL,"\
  26.                                   " add a '#' (e.g. \"#part2\" or"\
  27.                                   " \"mypage#part2\" for an anchor named part2),"\
  28.                                   " but do not enter the '#' here."
  29.                                   
  30. #define kLit5 "&Height:"
  31. #define kLit7 "&Width:"
  32. #define kLit8 "Pixels"
  33. #define kLit9 "Percent"
  34. #define kLit10 "&Reset Size"
  35. #define kLit11 "Alt &Label:"
  36. #define kLit12 "&Border:"
  37. #define kLit13 "&Image Map..."
  38. #define kLit14 "&Alignment:"
  39.  
  40. #define kLit15 "Top"
  41. #define kLit16 "Middle"
  42. #define kLit17 "Bottom"
  43. #define kLit18 "Left"
  44. #define kLit19 "Right"
  45. #define kLit20 "Left and Right alignment are not displayed in Claris"\
  46.                   " Home Page, but will appear in browsers which support this option."
  47.  
  48. #define kLit21 "&Behavior:"
  49. #define kLit22 "Picture"
  50. #define kLit23 "Form Button"
  51. #define kLit24 "Server-Side Image Map"
  52. #define kLit25 "Button &Name:"
  53. #define kLit26 "Button &Value:"
  54. #define kLit27 "Checked"
  55. #define kLit28 "&Checked"
  56. #define kLit29 "&Rows:"
  57. #define kLit30 "&Columns:"
  58. #define kLit31 "&Size:"
  59. #define kLit32 "&Max Length:"
  60. #define kLit33 "&Items Visible:"
  61. #define kLit34 "E&dit Items..."
  62. #define kLit35 "Allow Multiple Selections"
  63. #define kLit36 "Allow &Multiple Selections"
  64. #define kLit37 "Action Name:"
  65. #define kLit38 "Use this window to set parameters for an object"\
  66.                     " selected in the front document or library window."\
  67.                     "  (Reset buttons have no settable parameters.)"
  68.                     
  69. #define kLit39 "Cell Settings"
  70. #define kLit40 "Baseline"
  71. #define kLit41 "&Row Span:"
  72. #define kLit42 "Header Cell"
  73. #define kLit43 "&Header Cell"
  74. #define kLit44 "&Col Span:"
  75. #define kLit45 "&Extra HTML:"
  76. #define kLit46 "&Add Row"
  77. #define kLit47 "&Remove Row"
  78. #define kLit48 "A&dd Col"
  79. #define kLit49 "Re&move Col"
  80. #define kLit50 "&Spacing:"
  81. #define kLit51 "&Padding:"
  82. #define kLit52 "&Code:"
  83. #define kLit53 "Code &Base:"
  84.                   
  85. #define kLit55 "HS&pace:"
  86. #define kLit56 "&VSpace:"
  87. #define kLit57 "&Content:"
  88. #define kLit58 "Entry &Name:"
  89. #define kLit59 "Entry &Value:"
  90. #define kLit60 "Stars"
  91. #define kLit61 "&URL:"
  92. #define kLit62 "&Direction:"
  93. #define kLit63 "Vertical"
  94. #define kLit64 "Horizontal"
  95. #define kLit65 "&Scrollbars:"
  96. #define kLit66 "Always"
  97. #define kLit67 "Never"
  98. #define kLit68 "Auto"
  99. #define kLit69 "Margin Width:"
  100. #define kLit70 "Margin Height:"
  101.  
  102. #define kLit72 "&Fixed Size"
  103. #define kLit73 "Use this window to set parameters for an object (such"\
  104.                     " as an image, table, horizontal rule, or form entry)"\
  105.                     " selected in the front document or library window."
  106. #define kLit74 "&Browse Files..."
  107. #define kLit75 "Center"
  108.  
  109. #define kLit76 "&Shade"
  110.  
  111. #define kLit77 "&Edit..."
  112. #define kLit78 "&Clear"
  113. #define kLit79 "Client-Side Image Map:"
  114. #define kLit80 "Server-Side Image Map:"
  115.  
  116. #if Platform_Mac
  117. // #define kLit81 "Quality:"
  118. #define kLit82 "Controller:"
  119. #else
  120. // #define kLit81 "&Quality:"
  121. #define kLit82 "&Controller:"
  122. #endif
  123.  
  124. #define kLit83 "Yes"
  125. #define kLit84  "No"
  126. // #define kLit85  "Badge"
  127. #define kLit86  "(unspecified)"
  128. // #define kLit87  "Draft"
  129. // #define kLit88  "High"
  130. // #define kLit89  ""
  131.  
  132. #if Platform_Mac
  133. #define kLit90 "Loop:"
  134. #else
  135. #define kLit90 "&Loop:"
  136. #endif
  137.  
  138. #define kLit91 "No"
  139. #define kLit92 "Yes"
  140. #define kLit93 "Auto-Reverse"
  141.  
  142. #if Platform_Mac
  143. #define kLit94 "Auto-play"
  144. #define kLit95 "Plugin Page:"
  145. // #define kLit96 "Play rate:"
  146. #else
  147. #define kLit94 "&Auto-play"
  148. #define kLit95 "Plugin &Page:"
  149. // #define kLit96 "Play &rate:"
  150. #endif
  151.  
  152. #define kLit97 "Basic"
  153. #define kLit98 "Advanced"
  154. #define kLit99 "Both"
  155.  
  156. #define kLit100 "Col &Width:"
  157. #define kLit101 "Row &Height:"
  158.  
  159. #define kLit102 "Transparency and Interlace:"
  160. #define kLit103 "&Set..."
  161.  
  162. //Localized Fonts
  163.  
  164. #if Platform_Mac
  165.     #define kSmallBold        Font = {Geneva, 10, {Bold}}
  166.     #define kSmallDisplay     Font = {Geneva, 9, {plain}}
  167.     
  168.     #define kPlainFont          Font = {Geneva, 10, {Plain}}
  169.     #define kStaticFont         Font = {Geneva, 10, {Bold}}
  170.     #define kEditFont           Font = {Geneva, 10, {Plain}}
  171.     #define kPopupFont          Font = {Geneva, 10, {Plain}}
  172.     #define kPopupLabelFont LabelFont = {Geneva, 10, {Bold}}
  173.     #define kButtonFont         Font = {Geneva, 10, {Plain}}
  174.     #define kStdLabelFont     LabelFont = {Geneva, 10, {Bold}}
  175.  
  176. #else
  177.     #define kSmallBold        Font = SystemFont
  178.     #define kSmallDisplay     Font = SystemFont
  179.     
  180.     #define kPlainFont          Font = SystemFont
  181.     #define kStaticFont         Font = SystemFont
  182.     #define kEditFont           Font = SystemFont
  183.     #define kPopupFont          Font = SystemFont
  184.     #define kPopupLabelFont LabelFont = SystemFont
  185.     #define kButtonFont      Font = SystemFont
  186.     #define kStdLabelFont     LabelFont = SystemFont
  187.  
  188. #endif
  189.  
  190.  
  191.  
  192. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  193. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  194. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  195.  
  196.  
  197.  
  198. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  199. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  200. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  201.  
  202. //This section contains integer constants that are used to format this VDL program.
  203. //These are localizable - they only need to be changed if the localized strings 
  204. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  205.  
  206. //This can be used to get a popup menu at the bottom of the test window, 
  207. //that will allow you to switch between panes of the editor. 
  208. //CAUTION: It MUST be set to 0 before shipping. DO NOT FORGET TO DO THIS!
  209. #ifdef TryMe
  210. #define kShowDebugPopup 1
  211. #define LITE_VERSION 1
  212. #else
  213. #define kShowDebugPopup 0
  214. #endif
  215.  
  216. #if Platform_Mac
  217.     /******* GENERAL *********/
  218.     
  219.     //The width of a standard label. Used to align most of the palette's edit text labels.
  220.     #define LblWidthVal                     81
  221.     
  222.     //The width of some standard-placed edit fields, fields which are small (large fields
  223.     //take their size from the palette width). An example: the "Height" and "Width" edit
  224.     //text in the "Rule" case.
  225.     #define EditWidthVal                 44
  226.  
  227.     //Overall width of the palette itself.
  228.     #define kObjectEditorBaseWidth     305
  229.     
  230.     //Height of the top pane of the editor
  231.     #define kUpperPaneHeight     64
  232.  
  233.     //Width of the "Checked" checkbox in a few of the panes
  234.     #define kCheckedCheckBoxWidth 250
  235.     
  236.     //Width of the "SHADE" checkbox in the rule pane
  237.     #define kShadeCheckBoxWidth 250
  238.     
  239.     /********** IMAGES PANE ***********/
  240.     
  241.     //This is the width of the 'behavior' popup itself
  242.     #define kImageBehaviorPopupWidth    225
  243.  
  244.     //This is the width of the 'alignment' popup in the images pane...
  245.     #define kImageAlignPopupWidth      138
  246.  
  247.     ///...this is the width of the label of that popup, also used for the label of the 
  248.     //'behavior' popup
  249.     #define kImageAlignPopupLWidth      78
  250.  
  251.     //This is the width of the static text "Client-Side Image Map" and 
  252.     //"Server-Side Image Map"
  253.     #define kImageDataLabelWidth 170
  254.     
  255.     /******** POPUP PANE ***********/
  256.     //Width of the "Edit Items" button
  257.     #define kEditItemsButtonWidth 78
  258.     
  259.     //Width of the check box for allow multiple selections
  260.     #define kAllowMultipleSelectionsWidth 280
  261.  
  262.     /******* TABLES PANE **********/
  263.     //These two regulate the width of the edit texts that appear 
  264.     //along the right edge of the middle and bottom pane, so that
  265.     //they will be aligned. Label width is the width of just the label
  266.     //part, and edit width is the width of the overall label-and-edit field.
  267.     #define kTableRightLabelWidth     60
  268.     #define kTableRightEditWidth         100
  269.     
  270.     //Width of the "Alignment" popup menu in the Cell sub-pane of the tables pane.
  271.     //(Check the "Cell" checkbox in the debug controls to see this.
  272.     #define kTableCellAlignmentPopupWidth 154
  273.     
  274.     //The width of the label for this popup
  275.     #define kTableCellAlignmentPopupLabelWidth LblWidthVal + 4
  276.  
  277.     //Width of the "Header Cell" check box in the Table/Cell subpane
  278.     //If you change this, you may need to change kObjectEditorBaseWidth as well 
  279.     #define kHeaderCellCheckBoxWidth 100
  280.     
  281.     //Some padding in the TableCell pane
  282.     #define kTableCellLeftPadding 107
  283.     
  284.     //Sizes of the Add Row and Remove Row Buttons. Also used for the Column Buttons
  285.     #define kAddRowButtonWidth 58
  286.     #define kRemoveRowButtonWidth 80
  287.         
  288.  
  289.     /*********** APPLET PANE ***********/
  290.     //Width of the "Alignment" popup in the upper sub-pane of the Applet pane
  291.     #define kAppletAlignmentPopupWidth     150
  292.     
  293.     //Width of the label and whole edit text field for HSpace and VSpace in the Applet pane
  294.     //Not applicable on windows - the labels are laid out with the standard label width.
  295.     #define kAppletSpaceLabelWidth         55
  296.     #define kAppletSpaceEditWidth         104
  297.     
  298.     
  299.     /*********** QTMOVIE PANE ***********/
  300.     //Width of the "Loop" popup in the upper sub-pane of the QuickTime movie pane
  301.     #define kQTLoopPopupWidth        180
  302.     
  303.     //Width of the label of the "Loop" popup in the upper sub-pane of the 
  304.     //QuickTime movie pane.
  305.     #define kQTLoopPopupLabelWidth      LblWidthVal + 4
  306.  
  307.     //Width of the "Controller" popup in the lower sub-pane of the QuickTime movie pane
  308.     #define kQTControllerPopupWidth  -1
  309.     
  310.     //Width of the "Quality" popup in the lower sub-pane of the QuickTime movie pane
  311.     // #define kQTQualityPopupWidth     136
  312.     
  313.     //Width of the "Auto-play" check box
  314.     #define kAutoPlayCheckBoxWidth   80
  315.     
  316.  
  317.     /********* FRAMES PANE ***********/
  318.     //Width of the "Fixed Width" check box
  319.     #define kFixedSizeCheckBoxWidth     80
  320.     
  321.     #define kFrameDirectionPopupWidth     160
  322.     #define kFrameDirectionLabelWidth     LblWidthVal + 4
  323.  
  324. #else
  325.     //WINDOWS
  326.  
  327.     /******* GENERAL *********/
  328.     //The width of a standard label. Used to align most of the palette's edit text labels
  329.     #define LblWidthVal                     100
  330.     
  331.     //The width of some standard-placed edit fields
  332.     #define EditWidthVal                 45
  333.     
  334.     //Overall width of the palette itself.
  335.     #define kObjectEditorBaseWidth     390
  336.     
  337.     //Height of the top pane of the editor
  338.     #define kUpperPaneHeight     64
  339.     
  340.     //Width of the "Checked" checkbox in a few of the panes
  341.     #define kCheckedCheckBoxWidth 250
  342.  
  343.     //Width of the "SHADE" checkbox in the rule pane
  344.     #define kShadeCheckBoxWidth 200
  345.  
  346.     /******** POPUP PANE ***********/
  347.     //Width of the "Edit Items" button
  348.     #define kEditItemsButtonWidth 100
  349.     
  350.     //Width of the check box for allow multiple selections
  351.     #define kAllowMultipleSelectionsWidth 280
  352.  
  353.     /******* IMAGES PANE *********/
  354.     //This is the width of the 'alignment' popup in the images pane...
  355.     #define kImageAlignPopupWidth      175
  356.     
  357.     ///...this is the width of the label of that popup, also used for the label of the 
  358.     //'behavior' popup
  359.     #define kImageAlignPopupLWidth      103
  360.     
  361.     //This is the width of the 'behavior' popup itself
  362.     #define kImageBehaviorPopupWidth    230
  363.     
  364.     //This is the width of the static text "Client-Side Image Map" and 
  365.     //"Server-Side Image Map"
  366.     #define kImageDataLabelWidth         175
  367.  
  368.     /******* TABLES PANE *********/
  369.     //These two regulate the width of the edit texts that appear 
  370.     //along the right edge of the middle and bottom pane, so that
  371.     //they will be aligned. Label width is the width of just the label
  372.     //part, and edit width is the width of the overall label-and-edit field.
  373.     #define kTableRightLabelWidth 70
  374.     #define kTableRightEditWidth 100
  375.     
  376.     //Width of the "Alignment" popup menu in the Cell sub-pane of the tables pane.
  377.     //(Check the "Cell" checkbox in the debug controls to see this.
  378.     #define kTableCellAlignmentPopupWidth 178
  379.     
  380.     //The width of the label for this popup
  381.     #define kTableCellAlignmentPopupLabelWidth 103
  382.     
  383.     //Width of the "Header Cell" check box in the Table/Cell subpane
  384.     //If you change this, you may need to change kObjectEditorBaseWidth as well 
  385.     #define kHeaderCellCheckBoxWidth 100
  386.  
  387.     //Some padding in the TableCell pane
  388.     #define kTableCellLeftPadding 107
  389.     
  390.     //Sizes of the Add Row and Remove Row Buttons. Also used for the Column Buttons
  391.     #define kAddRowButtonWidth 70
  392.     #define kRemoveRowButtonWidth 96
  393.  
  394.     /*********** APPLET PANE ***********/
  395.     //Width of the "Alignment" popup in the upper sub-pane of the Applet pane
  396.     #define kAppletAlignmentPopupWidth 175
  397.  
  398.     //Width of the label of the "Alignment" popup in the upper sub-pane of the 
  399.     //Applet pane.
  400.     #define kAppletAlignPopupLabelWidth        103
  401.     
  402.     /*********** QTMOVIE PANE ***********/
  403.     //Width of the "Loop" popup in the upper sub-pane of the QuickTime movie pane
  404.     #define kQTLoopPopupWidth           225
  405.     
  406.     //Width of the "Controller" popup in the lower sub-pane of the QuickTime movie pane
  407.     #define kQTControllerPopupWidth  -1
  408.     
  409.     //Width of the "Quality" popup in the lower sub-pane of the QuickTime movie pane
  410.     // #define kQTQualityPopupWidth     200
  411.  
  412.     //Width of the label of the "Loop" popup in the upper sub-pane of the 
  413.     //QuickTime movie pane.
  414.     #define kQTLoopPopupLabelWidth      103
  415.     
  416.     //Width of the "Auto-play" check box
  417.     #define kAutoPlayCheckBoxWidth      80
  418.     
  419.     /*********** FRAMES PANE ***********/
  420.     //Width of the "Direction" popup in the Frames pane, and the width of it's label.
  421.     #define kFrameDirectionPopupWidth     230
  422.     #define kFrameDirectionLabelWidth     103
  423.  
  424.     //Width of the "Fixed Width" check box
  425.     #define kFixedSizeCheckBoxWidth         100
  426.     
  427. #endif
  428.  
  429.  
  430. //Width of the margin to the left of the comment in the 'anchor' pane.    
  431. #define kAnchorCommentWidth 47
  432.  
  433.  
  434. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  435. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  436. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  437.  
  438. //No further localizable data past this point
  439.  
  440. /************************** END LOCALIZABLE DATA ***************************************************/
  441. /************************** END LOCALIZABLE DATA ***************************************************/
  442. /************************** END LOCALIZABLE DATA ***************************************************/
  443.  
  444. #if Platform_Mac
  445.     #define palBack         BackColor = {57015, 57015, 57015}
  446. #else
  447.     #define palBack     BackColor = Dialog
  448. #endif
  449.  
  450. #define StdLblWidth RightLWid LblWidthVal
  451. #define StdEditWidth Width = (LblWidthVal+EditWidthVal)
  452.  
  453.  
  454. #define BackWhite   BackColor = {65535, 65535, 65535}
  455.  
  456. #define EH          EnabledHelpString =
  457. #define UseParWidth Width = UseParent
  458. #define RightLWid   LabelAlignment = Right, LabelWidth =
  459.  
  460. #define AllowQFlags        BackWhite, DropOnReturn, DropOnEnter, kEditFont, kStdLabelFont
  461. #define SmartPasteFlags AllowQFlags, NoSmartQuotes
  462. #define StdFlags            SmartPasteFlags, NoSmartEdits
  463.  
  464.  
  465. #define HSpace(x) Spacer(Width = x, Height = 0)
  466. #define VSpace(x) Spacer(Width = 0, Height = x)
  467.  
  468. #define StdHSpace HSpace(6)
  469. #define StdVSpace VSpace(6)
  470.  
  471.  
  472. /*************************************************************************/
  473. /********************************* Anchor ********************************/
  474. /*************************************************************************/
  475.  
  476. Define(AnchorTop)
  477.     VList(UseParWidth, palBack)
  478.         {
  479.         EditText(obj.name, Label = kLit1, StdLblWidth, UseParWidth, StdFlags);
  480.         Margin(kAnchorCommentWidth,5,0,0)
  481.             #if Platform_Mac
  482.                 StaticText( kLit2,
  483.                                   Width = UseParent, kPlainFont);
  484.             #else
  485.                 StaticText( kLit3,
  486.                                   Width = UseParent, kPlainFont);
  487.             #endif
  488.         }
  489.  
  490. Define(AnchorBot)
  491.     VSpace(0);
  492.  
  493.  
  494. /*************************************************************************/
  495. /********************************** Rule *********************************/
  496. /*************************************************************************/
  497.  
  498. Define(RuleTop)
  499.     VList(UseParWidth, palBack)
  500.         {
  501.         EditText( obj.size, FilterProc = "RuleHeight", Label = kLit5,
  502.                      StdEditWidth, StdLblWidth, StdFlags );
  503.         StdVSpace;
  504.         HList()
  505.             {
  506.             EditText( obj.width, FilterProc = "RuleWidth", Label = kLit7,
  507.                          StdLblWidth, StdEditWidth, StdFlags );
  508.             StdHSpace;
  509.             IntegerPopup("", 0, obj.wUnit, kPopupFont, Action = ToggleWUnit)
  510.                 {
  511.                 IntItem(kLit8, 0);
  512.                 IntItem(kLit9, 1);
  513.                 };
  514.             } // HList
  515.     
  516.         StdVSpace;
  517.         HList()
  518.             {
  519.             IntegerPopup(kLit14, LblWidthVal + 4, obj.hAlign, kPopupFont,     kPopupLabelFont)
  520.                 {
  521.                 IntItem(kLit18, 0);
  522.                 IntItem(kLit75, 1);
  523.                 IntItem(kLit19, 2);
  524.                 };
  525.             Spacer(Height = 0, Width = 10);
  526.             #if Platform_Mac
  527.                 WidowCheckBox(kLit76, obj.shade, Width = kShadeCheckBoxWidth, Height = 18, kSmallBold);
  528.             #else
  529.                 CheckBox(kLit76, obj.shade, Width = kShadeCheckBoxWidth, Height = 18, kSmallBold);
  530.             #endif
  531.             }
  532.         }
  533.  
  534. Define(RuleBot)
  535.     VSpace(0);
  536.  
  537.  
  538. /*************************************************************************/
  539. /********************************* Image *********************************/
  540. /*************************************************************************/
  541.  
  542. Define(ImageWidth)
  543.     HList( palBack)
  544.         {
  545.         Tag(ImageWidth)
  546.             EditText( obj.width, FilterProc = "ImageWidthFilter",
  547.                          Prefilter="ImageWidthPrefilter",
  548.                          Label = kLit7, StdLblWidth, StdEditWidth, StdFlags );
  549.         
  550.         StdHSpace;
  551.         IntegerPopup("", 0, obj.wUnit, kPopupFont, Action = ToggleWUnit)
  552.             {
  553.             IntItem(kLit8, 0);
  554.             IntItem(kLit9, 1);
  555.             };
  556.         
  557.         }
  558.  
  559. Define(ImageHeight)
  560.     HList(palBack)
  561.         {
  562.         Tag(ImageHeight)
  563.             EditText( obj.height, FilterProc = "ImageHeightFilter",
  564.                          Prefilter="ImageHeightPrefilter",
  565.                          Label = kLit5, StdLblWidth, StdEditWidth, StdFlags );
  566.         
  567.         StdHSpace;
  568.         IntegerPopup("", 0, obj.hUnit, kPopupFont, Action = ToggleHUnit)
  569.             {
  570.             IntItem(kLit8, 0);
  571.             IntItem(kLit9, 1);
  572.             };
  573.         }
  574.  
  575. Define(ImageTop)
  576.     VList(UseParWidth, palBack)
  577.         {
  578.         Switch (obj.pMode)
  579.             {
  580.             case 0:
  581.             case 2:
  582.                 EditText( obj.alt, Label = kLit11, StdLblWidth, UseParWidth,
  583.                              SmartPasteFlags );
  584.             
  585.             case 1:
  586.                 EditText(obj.name, Label = kLit1, StdLblWidth, UseParWidth, StdFlags);
  587.             
  588.             default: 
  589.                 VSpace(0);
  590.             }
  591.         StdVSpace;
  592.         
  593.         HList(UseParWidth)
  594.             {
  595.             EditText( obj.border,
  596.                          FilterProc = "ImageBorderFilter", Prefilter="ImageBorderPrefilter",
  597.                          Label = kLit12, StdLblWidth, StdEditWidth, StdFlags );
  598.             Margin(5,2,0,0)
  599.                 StaticText(kLit8, kStaticFont);
  600.             
  601.             Margin(0,1,0,0)
  602.                 IntegerPopup(kLit14, kImageAlignPopupLWidth, obj.vAlign, kPopupFont, kPopupLabelFont, Width = kImageAlignPopupWidth)
  603.                     {
  604.                     IntItem(kLit15,    0);
  605.                     IntItem(kLit16,     1);
  606.                     IntItem(kLit17,     2);
  607.                     IntItem(kLit18,   3);
  608.                     IntItem(kLit19,      4);
  609.                     };
  610.             }
  611.             
  612.         StdVSpace;
  613.         HList(Width = UseParent)
  614.             {
  615.             Margin(0,2,0,0)
  616.                 StaticText(kLit79,  kStaticFont, Alignment = Right, Width = kImageDataLabelWidth);
  617.             StdHSpace;
  618.             PushButton(kLit77, 3413, "None",  kButtonFont); // ccEditClientMap
  619.             StdHSpace;
  620.             PushButton(kLit78, 3414, "None",  kButtonFont); // ccClearClientMap
  621.             }
  622.         StdVSpace;
  623.         HList(Width = UseParent)
  624.             {
  625.             Margin(0,2,0,0)
  626.                 StaticText(kLit102,  kStaticFont, Alignment = Right, Width = kImageDataLabelWidth);
  627.             StdHSpace;
  628.             PushButton(kLit103, 3415, "None",  kButtonFont); // ccEditImageData
  629.             }
  630.         
  631.         // Display a warning for use of Left or Right alignment.
  632.         Switch (obj.vAlign)
  633.             {
  634.             case 3:
  635.             case 4:
  636.                 Margin(10, 5, 4, 0, UseParWidth)
  637.                     StaticText( kLit20,
  638.                                       kSmallDisplay, UseParWidth );
  639.             
  640.             default:
  641.                 VSpace(0);
  642.             }
  643.         
  644.         } // Image
  645.  
  646.  
  647. Define(ImageBot)
  648.     VList(palBack, UseParWidth)
  649.         {
  650.         HList(UseParWidth)
  651.             {
  652.             VList()
  653.                 {
  654.                 Call(ImageWidth);
  655.                 StdVSpace;
  656.                 Call(ImageHeight);
  657.                 }
  658.             
  659.             Margin(16, 10, 0, 0)
  660.                 PushButton(kLit10, 3420, "None",  kButtonFont); // ccResetImageSize
  661.             }
  662.         StdVSpace;
  663.         
  664.         #if !LITE_VERSION
  665.         IntegerPopup(kLit21, LblWidthVal + 4, obj.pMode, Width = kImageBehaviorPopupWidth, kPopupFont, kPopupLabelFont)
  666.             {
  667.             IntItem(kLit22, 0);
  668.             IntItem(kLit23, 1);
  669.             IntItem(kLit24, 2);
  670.  
  671.             };
  672.             
  673.          StdVSpace;
  674.         HList(Width = UseParent)
  675.             {
  676.             Margin(0,2,0,0)
  677.                 StaticText(kLit80,  kStaticFont, Alignment = Right, Width = kImageDataLabelWidth);
  678.             StdHSpace;
  679.             PushButton(kLit77, 3411, "None",  kButtonFont); // ccEditServerMap
  680.             }
  681.         StdVSpace;
  682.         #endif
  683.         }
  684.  
  685.  
  686. /*************************************************************************/
  687. /************************ Check Box & Radio Button ***********************/
  688. /*************************************************************************/
  689.  
  690. Define(CheckBoxAndRadioButtonTop)
  691.     VList(UseParWidth, palBack)
  692.         {
  693.         EditText(obj.name, Label = kLit25, UseParWidth, StdLblWidth, StdFlags);
  694.         StdVSpace;
  695.         EditText(obj.value, Label = kLit26, UseParWidth, StdLblWidth, StdFlags);
  696.         Margin(LblWidthVal+5, 5, 0, 3)
  697.             #if Platform_Mac
  698.                 WidowCheckBox(kLit27, obj.checked, Width = kCheckedCheckBoxWidth, Height = 18, kSmallBold);
  699.             #else
  700.                 CheckBox(kLit28, obj.checked, Width = kCheckedCheckBoxWidth, Height = 18, kSmallBold);
  701.             #endif
  702.         }
  703.  
  704. Define(CheckBoxAndRadioButtonBot)
  705.     VSpace(0);
  706.  
  707.  
  708. /*************************************************************************/
  709. /******************************* Multiline *******************************/
  710. /*************************************************************************/
  711.  
  712. Define(MultilineTop)
  713.     VList(UseParWidth, palBack)
  714.         {
  715.         EditText(obj.name, Label = kLit1, UseParWidth, StdLblWidth, StdFlags);
  716.         StdVSpace;
  717.         EditText( obj.rows, FilterProc = "TextAreaRows",
  718.                      Label = kLit29, StdEditWidth, StdLblWidth, StdFlags );
  719.         StdVSpace;
  720.         EditText( obj.columns, FilterProc = "TextAreaColumns",
  721.                      Label = kLit30, StdEditWidth, StdLblWidth, StdFlags );
  722.         }
  723.  
  724.  
  725. Define(MultilineBot)
  726.     VSpace(0);
  727.  
  728.  
  729. /*************************************************************************/
  730. /******************************** EditText *******************************/
  731. /*************************************************************************/
  732.  
  733. Define(TextFieldTop)
  734.     VList(UseParWidth, palBack)
  735.         {
  736.         EditText(obj.name, Label = kLit1, UseParWidth, StdLblWidth, StdFlags);
  737.         StdVSpace;
  738.         EditText( obj.size, FilterProc = "TextFieldSize", Label = kLit31,
  739.                      StdEditWidth, StdLblWidth, StdFlags );
  740.         StdVSpace;
  741.         EditText( obj.maxLength, FilterProc = "TextFieldMaxLength",
  742.                      Prefilter = "TextFieldPrefilter",
  743.                      Label = kLit32, StdEditWidth, StdLblWidth, StdFlags );
  744.         } // TextFieldTop
  745.  
  746. Define(TextFieldBot)
  747.     VSpace(0);
  748.  
  749.  
  750. /*************************************************************************/
  751. /********************************* Popup *********************************/
  752. /*************************************************************************/
  753.  
  754. Define(PopupTop)
  755.     VList(UseParWidth, palBack)
  756.         {
  757.         EditText( obj.name, Label = kLit1, UseParWidth, StdLblWidth ,
  758.                      StdFlags );
  759.         StdVSpace;
  760.         HList()
  761.             {
  762.             EditText( obj.visCount, FilterProc = "MenuVisCount",
  763.                          Label = kLit33, StdLblWidth,
  764.                          StdEditWidth, StdFlags );
  765.             HSpace(10);
  766.             
  767.             #if Platform_Mac
  768.                 PushButton(kLit34, 3410, "None", Width = kEditItemsButtonWidth, kButtonFont); // ccEditPopup
  769.             #else
  770.                 PushButton(kLit34, 3410, "None", Width = 100, kButtonFont); // ccEditPopup
  771.             #endif
  772.             }
  773.         
  774.         Margin(LblWidthVal+5, 5, 0, 3)
  775.             #if Platform_Mac
  776.                 WidowCheckBox( kLit35, obj.allowMult,
  777.                                       kSmallBold, Width = kAllowMultipleSelectionsWidth, Height = 16 );
  778.             #else
  779.                 CheckBox( kLit36, obj.allowMult,
  780.                                       kSmallBold, Width = kAllowMultipleSelectionsWidth, Height = 16 );
  781.             #endif
  782.         }
  783.  
  784. Define(PopupBot)
  785.     VSpace(0);
  786.  
  787.  
  788. /*************************************************************************/
  789. /******************************** Buttons ********************************/
  790. /*************************************************************************/
  791.  
  792. Define(SubmitButtonTop)
  793.     VList(UseParWidth, palBack)
  794.         {
  795.         EditText(obj.name, Label = kLit37, UseParWidth, StdLblWidth, StdFlags);
  796.         }
  797.  
  798. Define(SubmitButtonBot)
  799.     VSpace(0);
  800.  
  801. Define(ResetButtonTop)
  802.     Margin(10,18,10,5, palBack)
  803.         StaticText( kLit38,
  804.                         UseParWidth, Alignment = Center, kPlainFont );
  805.  
  806. Define(ResetButtonBot)
  807.     VSpace(0);
  808.  
  809.  
  810. /*************************************************************************/
  811. /********************************* Table *********************************/
  812. /*************************************************************************/
  813.  
  814. #if Platform_Mac
  815.     #define RightEditParams RightLWid kTableRightLabelWidth, Width = kTableRightEditWidth
  816. #else
  817.     #define RightEditParams RightLWid kTableRightLabelWidth, Width = kTableRightEditWidth
  818. #endif
  819.  
  820. Define(TableCell)
  821.     VList(palBack, UseParWidth)
  822.         {
  823.         StdVSpace;
  824.         HList(Width = UseParent)
  825.             {
  826.             VList(Width = kTableCellLeftPadding)
  827.                 {
  828.                 VSpace(6);
  829.                 Spacer(Height = 1, UseParWidth, BackColor = {25000, 25000, 25000});
  830.                 // Spacer(Height = 1, UseParWidth, BackWhite);
  831.                 }
  832.             
  833.             StdHSpace;
  834.             StaticText(kLit39, kStaticFont);
  835.             StdHSpace;
  836.             
  837.             VList(Width = UseParent)
  838.                 {
  839.                 VSpace(6);
  840.                 Spacer(Height = 1, UseParWidth, BackColor = {25000, 25000, 25000});
  841.                 // Spacer(Height = 1, UseParWidth, BackWhite);
  842.                 }
  843.             }
  844.         
  845.         StdVSpace;
  846.         HList(UseParWidth)
  847.             {
  848.             EditText( widthObj.size, FilterProc = "ColWidth",
  849.                          Prefilter = "CellSizePrefilter", Label = kLit100,
  850.                          StdLblWidth, StdEditWidth, StdFlags );
  851.             StdHSpace;
  852.             IntegerPopup("", 0, widthObj.units, kPopupFont, Action = ToggleColWUnit)
  853.                 {
  854.                 IntItem(kLit8, 0);
  855.                 IntItem(kLit9, 1);
  856.                 };
  857.             
  858.             HSpace(UseParent);
  859.             EditText( cell.colSpan, FilterProc = "TableColSpanFilter",
  860.                          Label = kLit44, RightEditParams, StdFlags );
  861.             }
  862.                 
  863.         StdVSpace;
  864.         
  865.         HList(UseParWidth)
  866.             {
  867.             EditText( heightObj.size, FilterProc = "RowHeight",
  868.                          Prefilter = "CellSizePrefilter", Label = kLit101,
  869.                          StdLblWidth, StdEditWidth, StdFlags );
  870.             StdHSpace;
  871.             IntegerPopup("", 0, heightObj.units, kPopupFont, Action = ToggleRowHUnit)
  872.                 {
  873.                 IntItem(kLit8, 0);
  874.                 IntItem(kLit9, 1);
  875.                 };
  876.             
  877.             HSpace(UseParent);
  878.             EditText( cell.rowSpan, FilterProc = "TableRowSpanFilter",
  879.                          Label = kLit41, RightEditParams, StdFlags );
  880.             }
  881.         
  882.         StdVSpace;
  883.         
  884.         HList(UseParWidth)
  885.             {
  886.             IntegerPopup(    kLit14, 
  887.                                 kTableCellAlignmentPopupLabelWidth, 
  888.                                 cell.vAlign, 
  889.                                 Width = kTableCellAlignmentPopupWidth, 
  890.                                 kPopupFont, kPopupLabelFont)
  891.                 {
  892.                 IntItem(kLit15, 0);
  893.                 IntItem(kLit16, 1);
  894.                 IntItem(kLit17, 2);
  895.                 IntItem(kLit40, 3);
  896.                 };
  897.             
  898.             HSpace(UseParent);
  899.             
  900.             #if Platform_Mac
  901.                 WidowCheckBox(kLit42, cell.type, Height = 18, kSmallBold, Width = kHeaderCellCheckBoxWidth);
  902.             #else
  903.                 CheckBox(kLit43, cell.type, Width = kHeaderCellCheckBoxWidth);
  904.             #endif
  905.             }
  906.         
  907.         StdVSpace;
  908.         
  909.         #if !LITE_VERSION
  910.         EditText( cell.extraParams, Label = kLit45, StdLblWidth, UseParWidth,
  911.                         StdFlags );
  912.         StdVSpace;
  913.         #endif
  914.         } // TableCell
  915.  
  916.  
  917. Define(TableTop)
  918.     VList(UseParWidth, palBack)
  919.         {
  920.         EditText( obj.border, FilterProc = "TableBorder",
  921.                      Prefilter="TableBorderPrefilter",
  922.                      Label = kLit12, StdLblWidth, StdEditWidth, StdFlags );
  923.         StdVSpace;
  924.         HList(UseParWidth)
  925.             {    
  926.             EditText( obj.rows, FilterProc = "TableRowCountFilter",
  927.                           Label = kLit29, StdLblWidth, StdEditWidth, StdFlags );
  928.             Spacer(Width = UseParent, Height = 0);
  929.             #if Platform_Mac
  930.                 PushButton(kLit46, 3400, "None", Width = kAddRowButtonWidth, kButtonFont); // ccAddTableRow
  931.             #else
  932.                 PushButton(kLit46, 3400, "None", Width = kAddRowButtonWidth, kButtonFont); // ccAddTableRow
  933.             #endif
  934.             StdHSpace;
  935.             #if Platform_Mac
  936.                 PushButton(kLit47, 3402, "None", Width = kRemoveRowButtonWidth, kButtonFont); // ccDelTableRow
  937.             #else
  938.                 PushButton(kLit47, 3402, "None", Width = kRemoveRowButtonWidth, kButtonFont); // ccDelTableRow
  939.             #endif
  940.             }
  941.         StdVSpace;
  942.         
  943.         HList(UseParWidth)
  944.             {
  945.             EditText( obj.columns, FilterProc = "TableColCountFilter",
  946.                          Label = kLit30, StdLblWidth, StdEditWidth, StdFlags );
  947.             Spacer(Width = UseParent, Height = 0);
  948.             #if Platform_Mac
  949.                 PushButton(kLit48, 3401, "None", Width = kAddRowButtonWidth, kButtonFont); // ccAddTableCol
  950.             #else
  951.                 PushButton(kLit48, 3401, "None", Width = kAddRowButtonWidth, kButtonFont); // ccAddTableCol
  952.             #endif
  953.             StdHSpace;
  954.             #if Platform_Mac
  955.                 PushButton(kLit49, 3403, "None", Width = kRemoveRowButtonWidth, kButtonFont); // ccDelTableCol
  956.             #else
  957.                 PushButton(kLit49, 3403, "None", Width = kRemoveRowButtonWidth, kButtonFont); // ccDelTableCol
  958.             #endif
  959.             }
  960.         
  961.         } // TableTop
  962.  
  963.  
  964. Define(TableBot)
  965.     VList(UseParWidth, palBack)
  966.         {
  967.         HList(UseParWidth)
  968.             {    
  969.             EditText( obj.width, FilterProc = "TableWidth",
  970.                          Prefilter="TableWidthPrefilter",
  971.                          Label = kLit7, StdLblWidth, StdEditWidth, StdFlags );
  972.             Margin(5,0,0,0)
  973.                 GenericView("TableModeViewProc", Attribute = obj.wUnit);
  974.             Spacer(UseParWidth);
  975.                 EditText( obj.cellSpacing, 
  976.                              FilterProc = "CellSpacing",
  977.                              Label = kLit50, 
  978.                              
  979.                              #if Platform_Mac
  980.                              RightEditParams, 
  981.                              #else
  982.                              StdLblWidth, StdEditWidth,
  983.                              #endif
  984.                              
  985.                              StdFlags );
  986.             }
  987.         VSpace(5);
  988.         
  989.         HList(UseParWidth)
  990.             {
  991.             EditText( obj.height, FilterProc = "TableHeight",
  992.                          Prefilter="TableHeightPrefilter",
  993.                          Label = kLit5, StdLblWidth, StdEditWidth, StdFlags );
  994.             Margin(5,0,0,0)
  995.                 GenericView("TableModeViewProc", Attribute = obj.hUnit);
  996.             Spacer(UseParWidth);
  997.             EditText( obj.cellPadding, 
  998.                          FilterProc = "CellPadding",
  999.                          Label = kLit51, 
  1000.                         
  1001.                          #if Platform_Mac
  1002.                          RightEditParams, 
  1003.                          #else
  1004.                          StdLblWidth, StdEditWidth,
  1005.                          #endif
  1006.                          
  1007.                          StdFlags );
  1008.             }
  1009.         
  1010.         #if !LITE_VERSION
  1011.         VSpace(5);
  1012.         EditText(obj.extraParams, Label = kLit45, StdLblWidth, UseParWidth, StdFlags);
  1013.         #endif
  1014.         
  1015.         Switch (cellPresent)
  1016.             {
  1017.             case 0:
  1018.                 VSpace(2);
  1019.                 
  1020.             default:
  1021.                 Call(TableCell);
  1022.                 
  1023.             } //Switch
  1024.         } // TableBot
  1025.  
  1026.  
  1027. /*************************************************************************/
  1028. /********************************* Applet ********************************/
  1029. /*************************************************************************/
  1030.  
  1031. Define(AppletTop)
  1032.     VList(UseParWidth, palBack)
  1033.         {
  1034.         EditText(obj.code, Label = kLit52, StdLblWidth, UseParWidth, StdFlags);
  1035.         StdVSpace;
  1036.         EditText(obj.codebase, Label = kLit53, StdLblWidth, UseParWidth, StdFlags);
  1037.         StdVSpace;
  1038.         EditText( obj.alt, Label = kLit11, StdLblWidth, UseParWidth,
  1039.                      SmartPasteFlags ); // AllowQFlags
  1040.         StdVSpace;
  1041.         IntegerPopup(kLit14, LblWidthVal + 4, obj.vAlign, Width = kAppletAlignmentPopupWidth , kPopupFont)
  1042.             {
  1043.             IntItem(kLit15,    0);
  1044.             IntItem(kLit16, 1);
  1045.             IntItem(kLit17, 2);
  1046.             IntItem(kLit18,   3);
  1047.             IntItem(kLit19,  4);
  1048.             };
  1049.         
  1050.         // Display a warning for use of Left or Right alignment.
  1051.         Switch (obj.vAlign)
  1052.             {
  1053.             case 3:
  1054.             case 4:
  1055.                 Margin(10, 6, 4, 0, UseParWidth)
  1056.                     StaticText( kLit20,
  1057.                                 #if Platform_Mac
  1058.                                       Font = {Geneva, 9, {plain}}, UseParWidth );
  1059.                                 #else
  1060.                                       Font = SystemFont, UseParWidth );
  1061.                                 #endif
  1062.             
  1063.             default:
  1064.                 VSpace(0);
  1065.             }
  1066.         
  1067.         } // AppletTop
  1068.  
  1069. Define(AppletBot)
  1070.     VList(UseParWidth, palBack)
  1071.         {
  1072.         HList(UseParWidth, palBack)
  1073.             {    
  1074.             EditText( obj.width, FilterProc = "AppletWidth",
  1075.                          Label = kLit7, StdLblWidth, StdEditWidth, StdFlags );
  1076.             
  1077.             StdHSpace;
  1078.             IntegerPopup("", 0, obj.wUnit, kPopupFont, Action = ToggleWUnit)
  1079.                 {
  1080.                 IntItem(kLit8, 0);
  1081.                 IntItem(kLit9, 1);
  1082.                 };
  1083.             
  1084.             #if Platform_Mac
  1085.                 EditText( obj.hSpace, FilterProc = "AppletHSpace",
  1086.                              Label = kLit55, RightLWid kAppletSpaceLabelWidth, Width = kAppletSpaceEditWidth, StdFlags );
  1087.             #endif
  1088.             } // AppletWidth
  1089.         
  1090.         StdVSpace;
  1091.         HList(UseParWidth, palBack)
  1092.             {
  1093.             EditText( obj.height, FilterProc = "AppletHeight",
  1094.                          Label = kLit5, StdLblWidth, StdEditWidth, StdFlags );
  1095.             
  1096.             StdHSpace;
  1097.             IntegerPopup("", 0, obj.hUnit, kPopupFont, Action = ToggleHUnit)
  1098.                 {
  1099.                 IntItem(kLit8, 0);
  1100.                 IntItem(kLit9, 1);
  1101.                 };
  1102.             
  1103.             #if Platform_Mac
  1104.                 EditText( obj.vSpace, FilterProc = "AppletVSpace",
  1105.                              Label = kLit56, RightLWid kAppletSpaceLabelWidth, Width = kAppletSpaceEditWidth, StdFlags );
  1106.             #endif
  1107.             } // AppletHeight
  1108.         
  1109.         #if Platform_Win
  1110.         StdVSpace;
  1111.         EditText( obj.hSpace, FilterProc = "AppletHSpace", Label = kLit55,
  1112.                      StdLblWidth, UseParWidth, StdFlags );
  1113.         StdVSpace;
  1114.         EditText( obj.vSpace, FilterProc = "AppletVSpace", Label = kLit56,
  1115.                      StdLblWidth, UseParWidth, StdFlags );
  1116.         #endif
  1117.         
  1118.         StdVSpace;
  1119.         EditText(obj.name, Label = kLit1, StdLblWidth, UseParWidth, StdFlags);
  1120.         StdVSpace;
  1121.         EditText( obj.content, Label = kLit57, StdLblWidth, UseParWidth,
  1122.                      StdFlags ); // AllowQFlags
  1123.         StdVSpace;
  1124.         } // AppletBot
  1125.  
  1126.  
  1127. /*************************************************************************/
  1128. /********************************* QTMovie *******************************/
  1129. /*************************************************************************/
  1130.  
  1131. Define(QTMovieTop)
  1132.     VList(UseParWidth, palBack)
  1133.         {
  1134.         HList(UseParWidth, palBack)
  1135.             {    
  1136.             Tag(ImageWidth)
  1137.                 EditText( obj.width, FilterProc = "QTMovieWidth",
  1138.                              Label = kLit7, StdLblWidth, StdEditWidth, StdFlags );
  1139.             
  1140.             StdHSpace;
  1141.             IntegerPopup("", 0, obj.wUnit, kPopupFont, Action = ToggleWUnit)
  1142.                 {
  1143.                 IntItem(kLit8, 0);
  1144.                 IntItem(kLit9, 1);
  1145.                 };
  1146.             
  1147.             HSpace(6);
  1148.             PushButton(kLit10, 3420, "None",  kButtonFont); // ccResetImageSize
  1149.             } // QTMovieWidth
  1150.         
  1151.         StdVSpace;
  1152.         HList(UseParWidth, palBack)
  1153.             {
  1154.             Tag(ImageHeight)
  1155.                 EditText( obj.height, FilterProc = "QTMovieHeight",
  1156.                              Label = kLit5, StdLblWidth, StdEditWidth, StdFlags );
  1157.             
  1158.             StdHSpace;
  1159.             IntegerPopup("", 0, obj.hUnit, kPopupFont, Action = ToggleHUnit)
  1160.                 {
  1161.                 IntItem(kLit8, 0);
  1162.                 IntItem(kLit9, 1);
  1163.                 };
  1164.             
  1165.             } // QTMovieHeight
  1166.         
  1167.         StdVSpace;
  1168.         HList()
  1169.             {
  1170.             IntegerPopup(kLit90, kQTLoopPopupLabelWidth, obj.loop, Width = kQTLoopPopupWidth, kPopupFont, kPopupLabelFont)
  1171.                 {
  1172.                 IntItem(kLit91,           0);
  1173.                 IntItem(kLit92,          1);
  1174.                 IntItem(kLit93, 2);
  1175.                 };
  1176.             
  1177.             StdHSpace;
  1178.             
  1179.             #if Platform_Mac
  1180.                 WidowCheckBox( kLit94, obj.autoPlay, Width = kAutoPlayCheckBoxWidth,
  1181.                                       Height = 17, kSmallBold );
  1182.             #else
  1183.                 CheckBox( kLit94, obj.autoPlay, Width = kAutoPlayCheckBoxWidth,
  1184.                                 Height = 18, kSmallBold );
  1185.             #endif
  1186.             }
  1187.         
  1188.         } // QTMovieTop
  1189.  
  1190.  
  1191. Define(QTMovieBot)
  1192.     VList(UseParWidth, palBack)
  1193.         {
  1194.         #ifdef DISABLED
  1195.             IntegerPopup(kLit81, kQTLoopPopupLabelWidth, obj.quality, Width = kQTQualityPopupWidth, kPopupFont,kPopupLabelFont)
  1196.                 {
  1197.                 IntItem(kLit87, 1);
  1198.                 IntItem(kLit88, 0);
  1199.                 IntItem(kLit89, 2);
  1200.                 };
  1201.             StdVSpace;
  1202.         #endif // DISABLED
  1203.         
  1204.         HList(UseParWidth)
  1205.             {
  1206.             IntegerPopup( kLit82, kQTLoopPopupLabelWidth, obj.controller,
  1207.                               Width = kQTControllerPopupWidth, kPopupFont, kPopupLabelFont,
  1208.                               Action = SetController )
  1209.                 {
  1210.                 IntItem(kLit83,       1);
  1211.                 IntItem(kLit84,        0);
  1212.                 // IntItem(kLit85,     2);
  1213.                 IntItem(kLit86,      3);
  1214.                 };
  1215.         
  1216.             #ifdef DISABLED
  1217.                 Spacer(UseParWidth, Height=0);
  1218.                 
  1219.                 EditText( obj.playRate, FilterProc = "PlayRateFilter",
  1220.                              Prefilter="PlayRatePrefilter",
  1221.                              Label = kLit96, StdLblWidth, StdEditWidth, StdFlags );
  1222.             #endif // DISABLED
  1223.             }
  1224.         
  1225.         StdVSpace;
  1226.         EditText( obj.pluginsPage, Label = kLit95, StdLblWidth,
  1227.                      UseParWidth, StdFlags );
  1228.         StdVSpace;
  1229.         } // QTMovieBot
  1230.  
  1231.  
  1232. /*************************************************************************/
  1233. /********************************** Embed ********************************/
  1234. /*************************************************************************/
  1235.  
  1236. Define(EmbedTop)
  1237.     VList(UseParWidth, palBack)
  1238.         {
  1239.         HList(UseParWidth, palBack)
  1240.             {    
  1241.             EditText( obj.width, FilterProc = "AppletWidth",
  1242.                          Label = kLit7, StdLblWidth, StdEditWidth, StdFlags );
  1243.             
  1244.             StdHSpace;
  1245.             IntegerPopup("", 0, obj.wUnit, kPopupFont, Action = ToggleWUnit)
  1246.                 {
  1247.                 IntItem(kLit8, 0);
  1248.                 IntItem(kLit9, 1);
  1249.                 };
  1250.             
  1251.             } // EmbedWidth
  1252.         
  1253.         StdVSpace;
  1254.         HList(UseParWidth, palBack)
  1255.             {
  1256.             EditText( obj.height, FilterProc = "AppletHeight",
  1257.                          Label = kLit5, StdLblWidth, StdEditWidth, StdFlags );
  1258.             
  1259.             StdHSpace;
  1260.             IntegerPopup("", 0, obj.hUnit, kPopupFont, Action = ToggleHUnit)
  1261.                 {
  1262.                 IntItem(kLit8, 0);
  1263.                 IntItem(kLit9, 1);
  1264.                 };
  1265.             
  1266.             } // EmbedHeight
  1267.         
  1268.         } // EmbedTop
  1269.  
  1270.  
  1271. Define(EmbedBot)
  1272.     VList(UseParWidth, palBack)
  1273.         {
  1274.         EditText( obj.pluginsPage, Label = kLit95, StdLblWidth,
  1275.                      UseParWidth, StdFlags );
  1276.         StdVSpace;
  1277.         } // EmbedBot
  1278.  
  1279.  
  1280. /*************************************************************************/
  1281. /************************** Hidden Form Entries **************************/
  1282. /*************************************************************************/
  1283.  
  1284. Define(HiddenTop)
  1285.     VList(UseParWidth, palBack)
  1286.         {
  1287.         EditText(obj.name, Label = kLit58, UseParWidth, StdLblWidth, StdFlags);
  1288.         StdVSpace;
  1289.         EditText(obj.value, Label = kLit59, UseParWidth, StdLblWidth, StdFlags);
  1290.         } // HiddenTop
  1291.  
  1292. Define(HiddenBot)
  1293.     VSpace(0);
  1294.  
  1295.  
  1296. /*************************************************************************/
  1297. /********************************* Frame *********************************/
  1298. /*************************************************************************/
  1299.  
  1300. Define(FrameTop)
  1301.     VList(UseParWidth, palBack)
  1302.         {
  1303.         Switch(isFrameRoot)
  1304.             {
  1305.             case 0:
  1306.                 VList()
  1307.                     {
  1308.                     HList()
  1309.                         {
  1310.                         EditText( obj.size, FilterProc = "FrameSize",
  1311.                                      Label = kLit31, StdLblWidth, StdEditWidth-5, StdFlags );
  1312.                         StdHSpace;
  1313.                         IntegerPopup( "", 0, obj.sizeMode, kPopupFont, Action = SetFrameUnit )
  1314.                             {
  1315.                             IntItem(kLit8, 0);
  1316.                             IntItem(kLit9, 1);
  1317.                             IntItem(kLit60, 2);
  1318.                             };
  1319.                         
  1320.                         } //HList
  1321.                     
  1322.                     StdVSpace;
  1323.                     }
  1324.             
  1325.             default:
  1326.                 VSpace(0);
  1327.             
  1328.             } // Switch(isFrameRoot)
  1329.         
  1330.         Switch(obj.feType, UseParWidth)
  1331.             {
  1332.             case 2: 
  1333.                 VList(UseParWidth)
  1334.                     {
  1335.                     HList(UseParWidth)
  1336.                         {
  1337.                         EditText( obj.src, FilterProc = "FrameSrcFilter",
  1338.                                   Prefilter = "FrameSrcPrefilter",
  1339.                                   Label = kLit61, StdLblWidth, UseParWidth, StdFlags );
  1340.                         Spacer(Width = 10, Height = 0);
  1341.                         GenericView("LinkShortcut");
  1342.                         }
  1343.                         
  1344.                     Margin(LblWidthVal + 5, 5, 0, 0)
  1345.                         PushButton(kLit74, 3015, "None",  kButtonFont); // ccEditLink
  1346.                     }
  1347.                 
  1348.             default:
  1349.                 VList(UseParWidth)
  1350.                     {
  1351.                     IntegerPopup(    kLit62, 
  1352.                                         kFrameDirectionLabelWidth, 
  1353.                                         obj.feType, 
  1354.                                         Width = kFrameDirectionPopupWidth, kPopupLabelFont, kPopupFont)
  1355.                         {
  1356.                         IntItem(kLit63, 1);
  1357.                         IntItem(kLit64, 0);
  1358.                         };
  1359.                     }
  1360.             
  1361.             } // Switch(obj.feType)
  1362.         
  1363.         } // FrameTop
  1364.  
  1365.  
  1366. Define(FrameBot)
  1367.     Switch(obj.feType)
  1368.         {
  1369.         case 2: 
  1370.             VList(UseParWidth, palBack)
  1371.                 {
  1372.                 EditText(obj.name,
  1373.                             Label = kLit1, UseParWidth, StdLblWidth,
  1374.                             StdFlags );
  1375.                 StdVSpace;
  1376.                 HList(UseParWidth)
  1377.                     {
  1378.                     IntegerPopup(    kLit65, 
  1379.                                         kFrameDirectionLabelWidth, 
  1380.                                         obj.scrollMode, 
  1381.                                         Width = kFrameDirectionPopupWidth, kPopupLabelFont,  kPopupFont)
  1382.                         {
  1383.                         IntItem(kLit66, 1);
  1384.                         IntItem(kLit67, 0);
  1385.                         IntItem(kLit68, 2);
  1386.                         };
  1387.  
  1388.                     HSpace(UseParent);
  1389.                     
  1390.                     #if Platform_Mac
  1391.                     EditText(obj.marginWidth, FilterProc = "MarginWidth",
  1392.                                 Label = kLit69, StdEditWidth, StdLblWidth+10,
  1393.                                 StdFlags );
  1394.                     #endif
  1395.                     
  1396.                     }
  1397.                     #if Platform_Win
  1398.                     StdVSpace;
  1399.                     EditText(obj.marginWidth, FilterProc = "MarginWidth",
  1400.                                 Label = kLit69, StdEditWidth, StdLblWidth,
  1401.                                 StdFlags );
  1402.                     StdVSpace;
  1403.                     EditText(obj.marginHeight, FilterProc = "MarginHeight",
  1404.                                 Label = kLit70, StdEditWidth, StdLblWidth,
  1405.                                 StdFlags );
  1406.                     #endif
  1407.                     
  1408.                 StdVSpace;
  1409.                 HList(UseParWidth)
  1410.                     {
  1411.                     HSpace(LblWidthVal+5);
  1412.                     
  1413.                     #if Platform_Mac
  1414.                         WidowCheckBox( kLit72, obj.noResize, Width = kFixedSizeCheckBoxWidth,
  1415.                                               Height = 17, kSmallBold );
  1416.                     #else
  1417.                         CheckBox( kLit72, obj.noResize, Width = kFixedSizeCheckBoxWidth,
  1418.                                         Height = 18, kSmallBold );
  1419.                     #endif
  1420.                     HSpace(UseParent);
  1421.                     
  1422.                     #if Platform_Mac
  1423.                     EditText(obj.marginHeight, FilterProc = "MarginHeight",
  1424.                                 Label = kLit70, StdEditWidth, StdLblWidth+10,
  1425.                                 StdFlags );
  1426.                     #endif
  1427.                     }
  1428.                 StdVSpace;
  1429.                 }
  1430.         
  1431.         default:
  1432.             VSpace(0);
  1433.             
  1434.         } // Switch(obj.feType)
  1435.  
  1436.  
  1437. /*************************************************************************/
  1438. /********************************** Main *********************************/
  1439. /*************************************************************************/
  1440.  
  1441. Define(Flipdown)
  1442.     VList(UseParWidth,palBack)
  1443.         {
  1444.         VSpace(4);
  1445.         HList(UseParWidth)
  1446.             {
  1447.             PictCheckBox(moreOEChoices)
  1448.                 {
  1449.                 On(Draw, 'cicn', 1204);
  1450.                 Off(Draw, 'cicn',1203);
  1451.                 DisabledOn(Draw,  'cicn', 1204);
  1452.                 DisabledOff(Draw, 'cicn', 1203);
  1453.                 TrackingOn(Draw,  'cicn', 1206);
  1454.                 TrackingOff(Draw, 'cicn', 1205);
  1455.                 };
  1456.             
  1457.             #if Platform_Win
  1458.                 HSpace(4);
  1459.             #else
  1460.                 HSpace(1);
  1461.             #endif
  1462.             
  1463.             VList(UseParWidth)
  1464.                 {
  1465.                 VSpace(5);
  1466.                 Spacer(Height = 1, UseParWidth, BackColor = {25000, 25000, 25000});
  1467.                 // Spacer(Height = 1, UseParWidth, BackWhite);
  1468.                 VSpace(9);
  1469.                 }
  1470.             }
  1471.         }
  1472.  
  1473. Define(LowerSwitch)
  1474.     VList(UseParWidth, palBack)
  1475.         {
  1476.         VSpace(1);
  1477.         Switch(objType) // Lower switch
  1478.             {                
  1479.             case 0:  Call(AnchorBot);
  1480.             case 1:  Call(RuleBot);
  1481.             case 2:  Call(ImageBot);                
  1482.             case 15: Call(TableBot);
  1483.             case 16: Call(AppletBot);
  1484.             case 17: Call(HiddenBot);
  1485.             case 21: Call(QTMovieBot);
  1486.             case 22: Call(EmbedBot);
  1487.             
  1488.             #if !LITE_VERSION
  1489.             case 3:
  1490.             case 4:  Call(CheckBoxAndRadioButtonBot);
  1491.             case 5:  Call(MultilineBot);                
  1492.             case 6: 
  1493.             case 7:  Call(TextFieldBot);
  1494.             case 8:  Call(PopupBot);
  1495.             case 9:  Call(SubmitButtonBot);
  1496.             case 10: Call(ResetButtonBot);
  1497.             case 18: Call(FrameBot);
  1498.             #endif
  1499.             
  1500.             default: VSpace(0);
  1501.             } // Lower switch
  1502.         
  1503.         Switch(objType)
  1504.             {
  1505.             #if !LITE_VERSION
  1506.             case 0: case 1: case 2: case 3: case 4: case 5:
  1507.             case 6: case 7: case 8: case 9: case 10:
  1508.             case 16: case 17: case 18:
  1509.             case 21: case 22:
  1510.                 VList(UseParWidth)
  1511.                     {
  1512.                     EditText( obj.extraParams, Label = kLit45,
  1513.                                   StdLblWidth, UseParWidth, StdFlags );
  1514.                     VSpace(3);
  1515.                     }
  1516.             #endif
  1517.             
  1518.             case 31:
  1519.             default:
  1520.                 VSpace(0);
  1521.             }
  1522.         } //LowerSwitch
  1523.         
  1524. Define(UpperSwitch)
  1525.     HList(UseParWidth, palBack)
  1526.         {
  1527.         VSpace(kUpperPaneHeight);
  1528.         Switch(objType) // Upper switch
  1529.             {
  1530.             case 0:  Call(AnchorTop);
  1531.             case 1:  Call(RuleTop);
  1532.             case 2:  Call(ImageTop);                
  1533.             case 15: Call(TableTop);
  1534.             case 16: Call(AppletTop);
  1535.             case 17: Call(HiddenTop);
  1536.             case 21: Call(QTMovieTop);
  1537.             case 22: Call(EmbedTop);
  1538.             
  1539.             #if !LITE_VERSION
  1540.             case 3:
  1541.             case 4:  Call(CheckBoxAndRadioButtonTop);
  1542.             case 5:  Call(MultilineTop);                
  1543.             case 6: 
  1544.             case 7:  Call(TextFieldTop);
  1545.             case 8:  Call(PopupTop);
  1546.             case 9:  Call(SubmitButtonTop);
  1547.             case 10: Call(ResetButtonTop);
  1548.             case 18: Call(FrameTop);
  1549.             #endif
  1550.             
  1551.             // case 19: // hoBreak
  1552.             default:
  1553.                 Margin(5,18,5,5)
  1554.                     StaticText( kLit73,
  1555.                                       UseParWidth, Alignment = Center, kPlainFont );
  1556.             
  1557.             } // Upper switch
  1558.         } //UpperSwitch 
  1559.  
  1560. Define(TabSwitch)
  1561.     Margin(10, 10, 10, 10, palBack)
  1562.         Switch(tabMode)
  1563.             {
  1564.             case 1:  //"advanced"
  1565.                 VList()
  1566.                     {
  1567.                     Spacer(Height = 0, Width = kObjectEditorBaseWidth, HScale);
  1568.                     Call(LowerSwitch);
  1569.                     }
  1570.             
  1571.             case 2:  //"All"
  1572.                 VList()
  1573.                     {
  1574.                     Spacer(Height = 0, Width = kObjectEditorBaseWidth, HScale);
  1575.                     Call(UpperSwitch);
  1576.                     Spacer(Height = 5, Width = UseParent);
  1577.                     
  1578.                     Call(LowerSwitch);
  1579.                     }
  1580.                     
  1581.             default:  //"Basic"
  1582.                 VList()
  1583.                     {
  1584.                     Spacer(Height = 0, Width = kObjectEditorBaseWidth, HScale);
  1585.                     Call(UpperSwitch);
  1586.                     }
  1587.             } //TabMode
  1588.         
  1589. #if kShowDebugPopup
  1590. VList()
  1591.     {
  1592. #endif
  1593.     Margin(4,7,7,2, palBack)
  1594.         VList()
  1595.             {            
  1596.             #if Platform_Mac
  1597.             Spacer(Height = 0, Width = kObjectEditorBaseWidth);
  1598.             
  1599.             Call(UpperSwitch);
  1600.             
  1601.             Switch(objType) // Lower switch
  1602.                 {                
  1603.                 #if !LITE_VERSION
  1604.                 case 0:
  1605.                 case 1:
  1606.                 case 3:
  1607.                 case 4:
  1608.                 case 5:
  1609.                 case 6: 
  1610.                 case 7:
  1611.                 case 8:
  1612.                 case 9:
  1613.                 case 10:
  1614.                 case 17:
  1615.                 case 18:
  1616.                 #endif
  1617.  
  1618.                 case 2:                
  1619.                 case 15:
  1620.                 case 16:
  1621.                 case 21:
  1622.                 case 22:
  1623.                         Call(Flipdown);
  1624.  
  1625.                 case 31:
  1626.                 default: VSpace(19);
  1627.                 } // Lower switch
  1628.             
  1629.             Switch(moreOEChoices, UseParWidth)
  1630.                 {
  1631.                 case 0:
  1632.                     VSpace(0);
  1633.                 
  1634.                 case 1:
  1635.                     Call(LowerSwitch);
  1636.                     
  1637.                 } // Switch(moreOEChoices)
  1638.             #else //if Platform_Win
  1639.             
  1640.             //This switch is here so that the 'default text' doesn't appear in 
  1641.             //a tab control, but appears at the root of the palette, which 
  1642.             //looks better.
  1643.             Switch(objType) // Upper switch
  1644.                 {
  1645.                 case 0:  
  1646.                 case 1:  
  1647.                 case 3:
  1648.                 case 4:  
  1649.                 case 5:             
  1650.                 case 6: 
  1651.                 case 7:  
  1652.                 case 8:  
  1653.                 case 9:  
  1654.                 case 10: 
  1655.                 case 17: 
  1656.                 case 18: 
  1657.                 // case 19: 
  1658.                     TabControl(tabMode, NoUndo)
  1659.                         {
  1660.                         Tab(kLit97, 0);
  1661.                         Tab(kLit98, 1);
  1662.                         Tab(kLit99, 2);
  1663.                         
  1664.                         Subview:
  1665.                             Call(TabSwitch);                
  1666.                         };
  1667.  
  1668.                 case 2:              
  1669.                 case 15: 
  1670.                 case 16: 
  1671.                 case 21:
  1672.                 case 22: 
  1673.                     TabControl(tabMode, NoUndo)
  1674.                         {
  1675.                         Tab(kLit97, 0);
  1676.                         Tab(kLit98, 1);
  1677.                         Tab(kLit99, 2);
  1678.                         
  1679.                         Subview:
  1680.                             Call(TabSwitch);                
  1681.                         };
  1682.  
  1683.                 default:
  1684.                     Margin(5,18,5,5)
  1685.                         StaticText( kLit73,
  1686.                                         Width = kObjectEditorBaseWidth - 40,
  1687.                                         Alignment = Center, kPlainFont );
  1688.                 
  1689.                 } // Base Tab switch
  1690.             #endif //Platform_Win
  1691.             
  1692.  
  1693.             } // Main V list
  1694.     
  1695.     #if kShowDebugPopup
  1696.     
  1697.         // This is just used during testing.
  1698.         Spacer(Height = 10);
  1699.         StaticText("Debugging Menu:");
  1700.         Spacer(Height = 10);
  1701.         IntegerPopup("Type:", 50, objType, Width = 150, NoCombo, kPopupFont)
  1702.             {
  1703.             IntItem("Anchor", 0);
  1704.             IntItem("Rule",1);
  1705.             IntItem("Image",2);
  1706.             IntItem("Checkbox", 3);
  1707.             IntItem("Radio Button", 4);
  1708.             IntItem("Text Area", 5);
  1709.             IntItem("Entry Field", 6);
  1710.             IntItem("Password Field",7);
  1711.             IntItem("Selection Field", 8);
  1712.             IntItem("Submit Button", 9);
  1713.             IntItem("Reset Button", 10);        
  1714.             IntItem("Table",15);
  1715.             IntItem("Applet",16);
  1716.             IntItem("Hidden",17);
  1717.             IntItem("Frame",18);
  1718.             IntItem("None", 20);
  1719.             IntItem("QTMovie", 21);
  1720.             IntItem("Embed", 22);
  1721.             };
  1722.         CheckBox("Cell", cellPresent);    
  1723.         IntegerPopup("Frame Type:", 150, obj.feType, Width = 250, NoCombo, kPopupFont)
  1724.             {
  1725.             IntItem("0", 0);
  1726.             IntItem("1", 1);
  1727.             IntItem("2", 2);
  1728.             };
  1729.         CheckBox("Is Frame Root", isFrameRoot);    
  1730.     } //Vlist
  1731.     #endif
  1732.  
  1733.