eudora-mac/AddressBookTabs/otherTab.r

#include "EudoraTypes.r"
#include "::tabmania.r"

resource 'eTAB' (131, "Other Tab", purgeable) {
	'CSOm',
	'Nick',
	'Othr',
	"Other",
	0,
	12,
	12,
	{
			// Object 0  (note that 33% of the tab height results in a "short" final field.  If should be 33% of tab height - defaultMargin
			// 						but there's not yet a way to express this.  Or, we say that this is item 1 of 3 and the math is taken
			//						care of for us)
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"otheremail",																								// tag
					"Other Email Addresses:",																		// label
					"Other Email:",																							// Field name
					0,																													// label height (and we don't care)
					labelFlushLeft, 																						// label justification
					labelDisplayAboveField | labelAutoSizeFieldHeight | labelWrapField,					// label field flags
					peNoStyledPaste,																						// PETE flags for the field
					{
							left   {  0, tabObject, relToLeft,	 rfDefaultMargin					},		// left coordinate
							top    {  0, tabObject, relToTop,		 rfDefaultMargin					},		// top coordinate
							right  {  0, tabObject, relToRight,	 rfNegativeDefaultMargin	},		// right coordinate
							bottom { 33, tabObject, relToHeight, rfNone										}			// bottom coordinate
					}
			};

			// Object 1
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"otherphone",																					// tag
					"Other Phone Numbers:",																// label
					"Other Phone:",																				// Field name
					0,																													// label height (and we don't care)
					labelFlushLeft, 																						// label justification
					labelDisplayAboveField | labelAutoSizeFieldHeight | labelWrapField,					// label field flags
					peNoStyledPaste,																						// PETE flags for the field
					{
							left   {  0, 0, relToLeft,	 			rfNone					},		// left coordinate
							top    {  0, 0, relToBottom,			rfDefaultMargin					},		// top coordinate
							right  {  0, 0, relToRight,	 			rfNone	},		// right coordinate
							bottom { 66, tabObject, relToHeight, rfNone							}			// bottom coordinate
					}
			};

			// Object 2
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"otherweb",																									// tag
					"Other Web Pages:",																					// label
					"Other Web:",																								// Field name
					0,																													// label height (and we don't care)
					labelFlushLeft, 																						// label justification
					labelDisplayAboveField | labelAutoSizeFieldHeight | labelWrapField,					// label field flags
					peNoStyledPaste,																						// PETE flags for the field
					{
							left   {  0, 1, relToLeft,	 			rfNone					},		// left coordinate
							top    {  0, 1, relToBottom,			rfDefaultMargin					},		// top coordinate
							right  {  0, 1, relToRight,	 			rfNone	},		// right coordinate
							bottom {  0, tabObject, relToBottom, rfNegativeDefaultMargin										}			// bottom coordinate
					}
			}
	}
};