% PStill Annotation insert example
% Frank Siegert July 2008
% Insert a few widgets (text fields)

define ps_do_showpage(pagenum) {

	if (pagenum == 1) {
		startGFX();

		% Do a text widget	

		execPSCode ("[ /Rect [ 100 110 400 140 ]\n");
		execPSCode ("/T (YourName)\n");
		execPSCode ("/FT /Tx /F 4\n");
		execPSCode ("/BS << /W 2 /S /S >>\n");
		execPSCode ("/MK << /BC [ 0.9647 0.6274 0.7882 ] % Color BC\n");
		execPSCode ("/BG [.7529 .7529 .7529] >> % Color BG\n");
		execPSCode ("/DA (/Helv 10 Tf 0 0 1 rg)\n");
		execPSCode ("/Subtype /Widget /ANN pdfmark\n");

		% Do another

		execPSCode ("[ /Rect [ 200 210 500 240 ]\n");
		execPSCode ("/T (YourCity)\n");
		execPSCode ("/FT /Tx /F 4\n");
		execPSCode ("/BS << /W 2 /S /S >>\n");
		execPSCode ("/MK << /BC [ 0.9647 0.6274 0.7882 ]\n");
		execPSCode ("/BG [.7529 .7529 .7529] >>\n");
		execPSCode ("/DA (/Helv 10 Tf 0 0 1 rg)\n");
		execPSCode ("/Subtype /Widget /ANN pdfmark\n");


		% and so on...
		
		endGFX();
	}
}