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


This module provides the transcript window of the X-Window interface.
"

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


XTextWindow subclass:  #XTranscript
       	instanceVariableNames: ''
       	classVariableNames:  ''
       	poolDictionaries:  ''
       	category: 'X-Windows'.
!


!XTranscript class methodsFor: 'creation'!

new

| newWindow newController|

  newWindow := super new.
  newController := XTranscriptController newControllerFor: newWindow.
  newWindow setController: newController.
  ^newWindow
!!

!XTranscript class methodsFor: 'class initialization'!

initialize

	windowTitle := 'TRANSCRIPT'
!!