# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1385334753 -3600
# Node ID 47e667a018f657d8f9982b788c0d49b2786e0898
# Parent  6aaf8e69e6688edaf16fc9169989bf0e272d64cf
class: CVSSourceCodeManagementSettingsAppl
changed:
        #cvsInit:
        #cvsLogin:

diff -r 6aaf8e69e668 -r 47e667a018f6 CVSSourceCodeManagementSettingsAppl.st
--- a/CVSSourceCodeManagementSettingsAppl.st	Sat Nov 23 04:25:55 2013 +0000
+++ b/CVSSourceCodeManagementSettingsAppl.st	Mon Nov 25 00:12:33 2013 +0100
@@ -785,14 +785,15 @@
 !
 
 cvsInit:cvsRoot
-    |cmd term rootLocal|
+    |terminalEmulatorClass cmd term rootLocal|
 
-    VT100TerminalView isNil ifTrue:[
+    terminalEmulatorClass := "VT100TerminalView ?" TerminalView.
+    terminalEmulatorClass isNil ifTrue:[
         self warn:'Function not available (missing terminal emulation class)'.
         ^ self.
     ].
 
-    term := VT100TerminalView open.
+    term := terminalEmulatorClass open.
     term topView 
         label:'CVS init for ' , cvsRoot;
         waitUntilVisible.
@@ -802,7 +803,7 @@
 
     rootLocal := cvsRoot withoutPrefix:':local:'.
     rootLocal := rootLocal asFilename asAbsoluteFilename pathName.
-self halt.
+"/ self halt.
     term showCR:(('Close this terminal window, when finished') allBold colorizeAllWith:Color red).
     term showCR:''.
     term endEntry.
@@ -825,14 +826,15 @@
 !
 
 cvsLogin:cvsRoot
-    |cmd term|
+    |terminalEmulatorClass cmd term|
 
-    VT100TerminalView isNil ifTrue:[
+    terminalEmulatorClass := "VT100TerminalView ?" TerminalView.
+    terminalEmulatorClass isNil ifTrue:[
         self warn:'Function not available (missing terminal emulation class)'.
         ^ self.
     ].
 
-    term := VT100TerminalView open.
+    term := terminalEmulatorClass open.
     term topView 
         label:'CVS Login for ' , cvsRoot;
         waitUntilVisible.
@@ -1143,10 +1145,10 @@
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.33 2013-07-31 17:32:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.34 2013-11-24 23:12:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.33 2013-07-31 17:32:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.34 2013-11-24 23:12:33 cg Exp $'
 ! !