"
	  Module:		LIST.ST
          Date:		30-Jan-1991
	  Version:	1.00-00
	  Modified:	30-Jan_1991
	"

	"
	|  Change Log
	| ==================================================================
	| Author	Date		Change
	|
	"

	FileStream fileIn: 'smalltalk_image:xw-list-defs.st' !
	Smalltalk at: #List put: (XListBox new: 'List' with: 'one\two\three') !

	| selection |

	selection := List getSelection.
	selection print.
	!