INCLUDE SYSTEM "ixrow.4gh"

INCLUDE SYSTEM "ixwindow.4gh"
INCLUDE SYSTEM "ixlstbox.4gh"
INCLUDE SYSTEM "ixbutton.4gh"
INCLUDE SYSTEM "ixframe.4gh"
INCLUDE SYSTEM "ixlabel.4gh"

INCLUDE SYSTEM "ixsuptbl.4gh"
INCLUDE SYSTEM "ixsupfld.4gh"

CLASS pickDateWCL DERIVED FROM ixWindow
	FUNCTION pickDateWCL( 
		geometry ixGeometry : NEW ixGeometry( 
			top : 0,
			left : 0,
			height : 3717,
			width : 2820
		),
		appearance ixAppearance : NEW ixAppearance( 
			fontName : "Arial",
			fontSize : 8,
			fontBold : TRUE,
			fontItalic : FALSE,
			fontUnderline : FALSE,
			foreColor : NULL,
			backColor : NULL
		),
		windowStyle SMALLINT : ixWindow::normalTop,
		containingWindow ixWindow : NULL,
		title CHAR(*) : "Pick A Date",
		enabled BOOLEAN : TRUE,
		helpFile CHAR(*) : NULL,
		name CHAR(*) : "pickDateWN",
		helpNum INTEGER : 0,
		source BOOLEAN : TRUE,
		shown BOOLEAN : FALSE,
		topicName CHAR(*) : NULL,
		icon CHAR(*) : NULL
	) 
PUBLIC VARIABLE 
	monthLB ixListBox,
	nextMonthBN ixButton,
	prevMonthBN ixButton,
	yearLB ixListBox,
	nextYearBN ixButton,
	prevYearBN ixButton,
	dateFR ixFrame,
	sunLL ixLabel,
	monLL ixLabel,
	tueLL ixLabel,
	wedLL ixLabel,
	thuLL ixLabel,
	friLL ixLabel,
	satLL ixLabel,
	date11BN ixButton,
	date21BN ixButton,
	date31BN ixButton,
	date41BN ixButton,
	date51BN ixButton,
	date61BN ixButton,
	date71BN ixButton,
	date12BN ixButton,
	date22BN ixButton,
	date32BN ixButton,
	date42BN ixButton,
	date52BN ixButton,
	date62BN ixButton,
	date72BN ixButton,
	date13BN ixButton,
	date23BN ixButton,
	date33BN ixButton,
	date43BN ixButton,
	date53BN ixButton,
	date63BN ixButton,
	date73BN ixButton,
	date14BN ixButton,
	date24BN ixButton,
	date34BN ixButton,
	date44BN ixButton,
	date54BN ixButton,
	date64BN ixButton,
	date74BN ixButton,
	date15BN ixButton,
	date25BN ixButton,
	date35BN ixButton,
	date45BN ixButton,
	date55BN ixButton,
	date65BN ixButton,
	date75BN ixButton,
	date16BN ixButton,
	date26BN ixButton,
	date36BN ixButton,
	date46BN ixButton,
	date56BN ixButton,
	date66BN ixButton,
	date76BN ixButton,
	cancelBN ixButton

PUBLIC FUNCTION pickDateForSF(mySF ixSuperField, otherST ixSuperTable)
    RETURNING VOID
PUBLIC FUNCTION setDate(dateToSet DATE:TODAY) RETURNING VOID
PUBLIC FUNCTION setLocation(sourceWN ixWindow: NULL,
                            topAnchor SMALLINT: 0,
                            leftAnchor SMALLINT: 0 ) RETURNING VOID
PUBLIC FUNCTION getDate() RETURNING DATE

END CLASS -- pickDateWCL