--- 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 $'
! !