--- a/AbstractSettingsApplication.st	Wed Aug 25 22:06:22 2010 +0200
+++ b/AbstractSettingsApplication.st	Wed Aug 25 23:03:02 2010 +0200
@@ -13365,6 +13365,11 @@
 cvsLogin:cvsRoot
     |cmd term|
 
+    VT100TerminalView isNil ifTrue:[
+        self warn:'Function not available'.
+        ^ self.
+    ].
+
     cmd := 'cvs -d ' , cvsRoot , ' login ; exit'.
     term := VT100TerminalView open.
     term topView label:'CVS Login for ' , cvsRoot.
@@ -13382,6 +13387,8 @@
     "
      self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx'
     "
+
+    "Modified: / 25-08-2010 / 23:02:39 / cg"
 !
 
 loginCVSRoot
@@ -16480,9 +16487,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.367 2010-08-24 16:53:26 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.368 2010-08-25 21:03:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.367 2010-08-24 16:53:26 sr Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.368 2010-08-25 21:03:02 cg Exp $'
+! !