eudora-mac/AddressBookTabs/homeTab.r

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

resource 'eTAB' (129, "Home Tab", purgeable) {
	'CSOm',
	'Nick',
	'Home',
	"Home",
	0,
	13,
	13,
	{
			// Object 0
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"address",															// tag
					"Street Address:",											// label
					"Address:",															// Field name
					48,																			// label width
					labelFlushRight, 												// label justification
					labelWrapLabel | labelWrapField,													// label field flags
					peNoStyledPaste,												// PETE flags for the field
					{
							left   {   0, tabObject, relToLeft,  rfDefaultMargin   },		// left coordinate
							top    {  18, tabObject, relToTop,	 rfNone    },		// top coordinate
							right  {   0, tabObject, relToRight, rfNegativeDefaultMargin  },			// right coordinate
							height { kUseTwoLineHeight }
					}
			};

			// Object 1
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"city",																	// tag
					"City:",																// label
					"City:",																// Field name
					48,																			// label width
					labelFlushRight, 												// label justification
					labelNoFlags,														// label field flags
					peNoStyledPaste | peClearAllReturns,		// PETE flags for the field
					{
							left   {   0, tabObject, relToLeft,  	rfDefaultMargin   },		// left coordinate
							top    {   0, 0,				 relToBottom,	rfDefaultMargin	},		// top coordinate
							right  {   0, tabObject, relToHorzCenter, rfNone  },			// right coordinate
							height { kUseOneLineHeight }
					}
			};

			// Object 2
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"state",																// tag
					"State/Province:",											// label
					"State/Province:",											// Field name
					76,																			// label width
					labelFlushRight, 												// label justification
					labelNoFlags,														// label field flags
					peNoStyledPaste | peClearAllReturns,		// PETE flags for the field
					{
							left   {   0, tabObject, relToHorzCenter,  	rfDefaultMargin   },		// left coordinate
							top    {   0, 0,				 relToBottom,	rfDefaultMargin	},		// top coordinate
							right  {   0, tabObject, relToRight, rfNegativeDefaultMargin  },			// right coordinate
							height { kUseOneLineHeight }
					}
			};

			// Object 3
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"country",															// tag
					"Country:",															// label
					"Country:",															// Field name
					48,																			// label width
					labelFlushRight, 												// label justification
					labelNoFlags,														// label field flags
					peNoStyledPaste | peClearAllReturns,		// 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
							height { kUseOneLineHeight }
					}
			};

			// Object 4
			fieldObject {
					objectFlagAcceptsFocus | objectFlagExportable,
					"zip",																	// tag
					"Zip/Postal Code:",											// label
					"Zip/Postal Code:",											// Field name
					76,																			// label width
					labelFlushRight, 												// label justification
					labelNoFlags,														// label field flags
					peNoStyledPaste | peClearAllReturns,		// PETE flags for the field
					{
							left   {   0, 2, relToLeft,  	rfNone   },		// left coordinate
							top    {   0, 2,				 relToBottom,	rfDefaultMargin	},		// top coordinate
							right  {   0, 2, relToRight, rfNone  },			// right coordinate
							height { kUseOneLineHeight }
					}
			};

			// Object 5
			controlObject {
					objectFlagNone,
					"",
					"",
					"",
					0, 0, 0, kControlSeparatorLineProc, 0, coNone, noBehavior, "", "",
					{
							left   { 0, 3, relToLeft,  	rfNone   },		// left coordinate
							top    { 0, 3, relToBottom,  	rfDefaultMargin   },