"
  Module      XW.ST
  Date	      8-Jan-1991
  Version     2.02-00
  Modified    5-Mar-1991
"

"
|     Change Log
| ============================================================================
| Author       Date       Change 
|
| KAREN	     5  Mar 91    Changed to take account of new model-controller
|			  structure
|
| KAREN	     25 Feb 91    Made changes arising from renaming of text window
|			  object from XDisplay to XTextWindow
|
| ALISTAIR   31 Jan 91	  V2.02-00
|			  Added error: method to print error's in the
|			  transcript window.
|
| ALISTAIR   30 Jan 91	  V2.01-00
|			  Changed run loop from huge if-then-else to testing
|			  for method definitions, and using those.  Methods are
|			  named key<key number>, e.g. key65293 inserts a
|			  return. 
|
| KAREN      29 Jan 91	  Added code to handle key presses and invoke editing 
|			  functions
|
|
| ALISTAIR   18 Jan 91	  V2.00-02
|			  Handle X-Window Quit selection correctly.
|
| ALISTAIR   18 Jan 91	  V2.00-01
|			  Changed storeString to printString to make output
|			  more readable.
|
| ALISTAIR    8 Jan 91	  Added code so that all IO to standard input/output
|			  now goes to the transcript window.
|
"
FileStream fileIn: 'smalltalk_image:xw-text-ctrl-defs.st'!
FileStream fileIn: 'smalltalk_image:xw-text-defs.st'!
FileStream fileIn: 'smalltalk_image:xw-display-defs.st'!

Smalltalk at: #Display put: (XDisplay new) !
Smalltalk at: #Transcript put: (Display addTextWindow) !
"
!Object methodsFor: 'printing'!

print

  (self class = String) ifTrue:
    [
      Transcript print: self
    ]
  ifFalse:
    [
      Transcript print: self printString
    ].
!                                                     

printNl

  self print.
  Transcript nextPut: (Character value: 13).
"
"  Transcript nextPut: (Character value: 10). "
"
!!
"



!Message methodsFor: 'debugging'!

selector
  ^selector
!

arguments
  ^args
!!


!BlockContext methodsFor: 'debugging'!

callers
    self inspect.
    caller notNil
	ifTrue: [ caller callers ]
!

parentContext
    ^caller
!

selector
    ^selector
!

receiver
    ^'[] in ', home class name
!!

!MethodContext methodsFor: 'debugging'!

callers
    self inspect.
    sender notNil 
	ifTrue: [ sender callers ]
!

parentContext
    ^sender
!

receiver
"    ^receiver class name "

    ^receiver

!

sender
  ^sender
!


selector
    ^selector
!!



!XTextWindow methodsFor: 'Transcript'!

transcript

| tmp tmp1 action string key method |

"
  Smalltalk executionTrace: true.
  Smalltalk verboseTrace: true.
"
  Transcript definePopUp: 'One\Two' with: 'Aa\Bb'.

   Display searchForActiveController.

!!

Transcript transcript.
!