--- a/XTermView.st	Mon Apr 02 13:11:56 2012 +0100
+++ b/XTermView.st	Tue Apr 03 13:32:03 2012 +0100
@@ -89,6 +89,28 @@
     "Created: / 09-12-2010 / 23:21:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!XTermView methodsFor:'* As yet uncategorized *'!
+
+lineLimit:aSmallInteger
+
+    "Nothing"
+
+    "Created: / 03-04-2012 / 10:42:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+save
+
+    Dialog warn: 'Not yet implemented for XTermView'
+
+    "Created: / 03-04-2012 / 10:43:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+sendLine:aString
+    self halt:'please define sendLine: here'.
+
+    "Created: / 03-04-2012 / 10:33:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !XTermView methodsFor:'accessing'!
 
 workingDirectory: aStringOrFilename
@@ -147,8 +169,66 @@
     "Created: / 25-11-2010 / 12:34:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!XTermView methodsFor:'menu'!
+
+doClear
+    "reset the scroll-range etc, clear the text buffer"
+
+"/    rangeStartLine := 1.
+"/    rangeEndLine := numberOfLines.
+"/
+"/    self normal.
+"/    self clear.
+
+    "Created: / 03-04-2007 / 08:58:59 / cg"
+    "Modified: / 03-04-2012 / 10:34:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doReset
+    "reset the scroll-range; 
+     may have to reset more in the future (current font-set; color; etc)"
+
+"/    rangeStartLine := 1.
+"/    rangeEndLine := numberOfLines.
+"/
+"/    self normal.
+
+    "Modified: / 03-04-2012 / 10:34:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doSendInterrupt
+    "send an INT-signal to the shell (UNIX only)"
+    pid notNil ifTrue:[
+        OperatingSystem sendSignal:(OperatingSystem sigINT) to:pid negated.
+    ].
+
+    "Modified: / 10-06-1998 / 17:49:49 / cg"
+    "Modified: / 03-04-2012 / 10:34:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doSendKillSignal
+    "send a KILL-signal to the shell (UNIX only)"
+
+    pid notNil ifTrue:[
+        OperatingSystem sendSignal:(OperatingSystem sigKILL) to:pid negated.
+    ]
+
+    "Modified: / 03-04-2012 / 10:34:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !XTermView methodsFor:'mimicry'!
 
+selectionAsString
+
+    ^ (device getSelectionOwnerOf: #PRIMARY) = drawableId ifTrue:[
+        device getClipboardText:#selection for:drawableId
+    ] ifFalse:[
+        nil
+    ]
+
+    "Created: / 03-04-2012 / 10:30:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 shellTerminateAction: aBlock
 
     "Nothing to do"
@@ -258,7 +338,7 @@
 
 isTextView
 
-    ^false
+    ^true
 
     "Created: / 13-09-2011 / 11:22:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -270,7 +350,7 @@
 !
 
 version_SVN
-    ^ '$Id: XTermView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: XTermView.st 7963 2012-04-03 12:32:03Z vranyj1 $'
 ! !
 
 XTermView initialize!