INCLUDE SYSTEM "ixrow.4gh"

INCLUDE SYSTEM "ixwindow.4gh"
INCLUDE SYSTEM "ixsuptbl.4gh"
INCLUDE SYSTEM "ixsupfld.4gh"
INCLUDE SYSTEM "ixbutton.4gh"
INCLUDE SYSTEM "ixtxtbox.4gh"
INCLUDE SYSTEM "ixlabel.4gh"

INCLUDE SYSTEM "ixdate.4gh"
INCLUDE "pickdate.4gh"

CLASS dateTestWCL DERIVED FROM ixWindow
	FUNCTION dateTestWCL( 
		geometry ixGeometry : NEW ixGeometry( 
			top : 0,
			left : 0,
			height : 6225,
			width : 8160
		),
		appearance ixAppearance : NEW ixAppearance( 
			fontName : "System",
			fontSize : 10,
			fontBold : TRUE,
			fontItalic : FALSE,
			fontUnderline : FALSE,
			foreColor : NULL,
			backColor : NULL
		),
		windowStyle SMALLINT : ixWindow::mainTop,
		containingWindow ixWindow : NULL,
		title CHAR(*) : "Date Test",
		enabled BOOLEAN : TRUE,
		helpFile CHAR(*) : NULL,
		name CHAR(*) : "dateTestWN",
		helpNum INTEGER : 0,
		source BOOLEAN : TRUE,
		shown BOOLEAN : TRUE,
		topicName CHAR(*) : NULL,
		icon CHAR(*) : NULL
	) 
PUBLIC VARIABLE 
	SuperTable2 ixSuperTable,
	SuperField34 ixSuperField,
	Button67 ixButton,
	TextBox80 ixTextBox,
	Label81 ixLabel,
	SuperField1213 ixSuperField,
	SuperField1516 ixSuperField
END CLASS -- dateTestWCL