--- a/VT100TerminalView.st	Wed Jun 10 16:25:21 1998 +0200
+++ b/VT100TerminalView.st	Wed Jun 10 16:25:27 1998 +0200
@@ -1,4 +1,4 @@
-VT52TerminalView subclass:#VT100TerminalView
+TerminalView subclass:#VT100TerminalView
 	instanceVariableNames:'state currentParam parameters'
 	classVariableNames:''
 	poolDictionaries:''
@@ -326,8 +326,16 @@
     "Modified: / 10.6.1998 / 15:10:58 / cg"
 ! !
 
+!VT100TerminalView methodsFor:'queries'!
+
+terminalType
+    ^ #vt100
+
+    "Created: / 10.6.1998 / 16:22:39 / cg"
+! !
+
 !VT100TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.2 1998-06-10 13:23:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VT100TerminalView.st,v 1.3 1998-06-10 14:25:27 cg Exp $'
 ! !