%!
% scrolldata example

/win framebuffer /new DefaultWindow send def
/reshapefromuser win send
/map win send
/can win /ClientCanvas get def

   /foo can {} /new ScrollDataItem send def
   {
	   /AllowMultipleSelect? true def
  	   /HScrollbar? false def
  	   /BufferColor 1 1 1 rgbcolor def
	   /ItemTextColor 0 0 0 rgbcolor def
	   /ItemHighLightColor .5 .5 .5 rgbcolor def
	   50 50 200 315 reshape
	   /ItemLabel (This is a TEST []) def
	   /ItemLabelFont /Times-Bold findfont 24 scalefont def
	   /ItemLabelColor 0 0 0 rgbcolor def
	   /ShowItemSeperators true def
   } foo send

   /fooa [foo] def
   /foom fooa forkitems def
   fooa paintitems
   
   [
   	(hello)
   	[(hello) 20 0 (there)]
   	[(hello small) /Times-Roman findfont 10 scalefont]
   	[(hello big) /Times-Bold findfont 30 scalefont]
   
   	[(hello red) 1 0 0 rgbcolor]
   
   	[(hello 1) /Times-Bold findfont 10 scalefont
   	(hello 2) /Times-Italic findfont 20 scalefont]
   
   	[(hello 3) /Times-Bold findfont 10 scalefont
   	  20 20
   	  (hello 4) /Times-Italic findfont 20 scalefont]
   	[/boy1 /boy2]
   	[/horse5 0 1 0 rgbcolor]
   ] /setdata foo send
   
   (padding) 30 /additem foo send

{ /PaintClient { fooa paintitems } def } win send