INCLUDE SYSTEM "ixrow.4gh"

INCLUDE SYSTEM "ixwindow.4gh"
INCLUDE SYSTEM "ixlstbox.4gh"
INCLUDE SYSTEM "ixpicbtn.4gh"
INCLUDE SYSTEM "ixtxtbox.4gh"

INCLUDE SYSTEM "ixapp.4gh"
INCLUDE SYSTEM "ix4gl.4gh"
INCLUDE SYSTEM "ixrow.4gh"
INCLUDE SYSTEM "ixtxtbox.4gh"


CLASS pickListWCL DERIVED FROM ixWindow
	FUNCTION pickListWCL( 
		geometry ixGeometry : NEW ixGeometry( 
			top : 0,
			left : 3000,
			height : 4935,
			width : 3600
		),
		appearance ixAppearance : NEW ixAppearance( 
			fontName : "Courier New",
			fontSize : 8,
			fontBold : TRUE,
			fontItalic : FALSE,
			fontUnderline : FALSE,
			foreColor : NULL,
			backColor : NULL
		),
		windowStyle SMALLINT : ixWindow::normalTop,
		containingWindow ixWindow : NULL,
		title CHAR(*) : "Pick List",
		enabled BOOLEAN : TRUE,
		helpFile CHAR(*) : NULL,
		name CHAR(*) : "pickListWN",
		helpNum INTEGER : 0,
		source BOOLEAN : TRUE,
		shown BOOLEAN : FALSE,
		topicName CHAR(*) : NULL,
		icon CHAR(*) : NULL
	) 
PUBLIC VARIABLE 
	pickListLB ixListBox,
	gfFirstRowBN ixPictureButton,
	gfPrevPageBN ixPictureButton,
	gfNextPageBN ixPictureButton,
	gfLastRowBN ixPictureButton,
	applyBN ixPictureButton,
	revertBN ixPictureButton,
	PKLB ixListBox,
	messageTB ixTextBox

PUBLIC FUNCTION fillPickList(tabName CHAR(*), sqlStmt CHAR(*), 
                                                 maxRows INTEGER)
       RETURNING INTEGER
PUBLIC FUNCTION getPickList() RETURNING CHAR(*), CHAR(*)

END CLASS -- pickListWCL