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


This module provides definitions for the basic X-Window class.
"

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


Object subclass:  #XWindow
       instanceVariableNames: 'wId wController'
       classVariableNames:  ''
       poolDictionaries:  ''
       category: 'X-Windows'.
!


!XWindow class methodsFor: 'creation'!

new

| newWindow |

  newWindow := super new.
  ^newWindow
!!


!XWindow methodsFor: 'private'!

setId: newId

  wId := newId.
  ^self
!

setController: newController

   wController := newController.
   ^self                                                     
!!


!XWindow methodsFor: 'using'!

wId

	^wId
!

wController

	^wController
!!