INCLUDE SYSTEM "ixrow.4gh"

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

INCLUDE SYSTEM "ix4gl.4gh"
# picklist picker
INCLUDE "picklist.4gh"

CLASS Window1 DERIVED FROM ixWindow
	FUNCTION Window1( 
		geometry ixGeometry : NEW ixGeometry( 
			top : 0,
			left : 0,
			height : 2895,
			width : 7740
		),
		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(*) : "Pick Test",
		enabled BOOLEAN : TRUE,
		helpFile CHAR(*) : NULL,
		name CHAR(*) : "picktestWN",
		helpNum INTEGER : 0,
		source BOOLEAN : TRUE,
		shown BOOLEAN : TRUE,
		topicName CHAR(*) : NULL,
		icon CHAR(*) : NULL
	) 
PUBLIC VARIABLE 
	testST ixSuperTable,
	stateSF ixSuperField,
	snameSF ixSuperField,
	manuCodeSF ixSuperField,
	manuNameSF ixSuperField,
	okBN ixButton
END CLASS -- Window1