"
  Module:	XW-LIST-CTRL-DEFS.ST
  Date:		15-Mar-1991
  Version:	1.00-00
  Modified:	03-Apr-1991

This module provides a controller for the list box window of the X-Window
interface.
"

"
|	Change Log
|===========================================================================
| Author	Date		Change
|
| KAREN      03-Apr_1991 	Changed class definition to inherit from
|				general class XWindowController
|
"

XWindowController	subclass: #XListBoxController
        		instanceVariableNames: ''
       			classVariableNames: ''
       			poolDictionaries:''
			category: 'X-Windows'.
!


!XListBoxController methodsFor: 'using'!


controlActivity

|selection|

	selection := window getSelection.
	(selection = nil) 
		ifTrue: [ self setActive: false]
		ifFalse: [ selection printNl]. 
!!