#BUGFIX
authorClaus Gittinger <cg@exept.de>
Thu, 29 Oct 2015 09:24:47 +0100
changeset 3639 69157be6c67d
parent 3637 d69498f5b5f5
child 3640 098175b79b25
#BUGFIX class: SftpURI changed: #connectThenDo: care for the SftpClient class being present.
SftpURI.st
--- a/SftpURI.st	Wed Oct 28 09:23:49 2015 +0100
+++ b/SftpURI.st	Thu Oct 29 09:24:47 2015 +0100
@@ -1,15 +1,6 @@
-"
- COPYRIGHT (c) 2009 by eXept Software AG
-              All Rights Reserved
+"{ Package: 'stx:libbasic2' }"
 
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
- be provided or otherwise made available to, or used by, any
- other person.  No title to or ownership of the software is
- hereby transferred.
-"
-"{ Package: 'stx:libbasic2' }"
+"{ NameSpace: Smalltalk }"
 
 HierarchicalURI subclass:#SftpURI
 	instanceVariableNames:''
@@ -79,7 +70,10 @@
 
     |sftpClient|
 
-    sftpClient := Smalltalk::SftpClient new
+    SftpClient isNil ifTrue:[
+        Smalltalk loadPackage:'stx:goodies/communication'.
+    ].    
+    sftpClient := SftpClient new
                 hostname:self host;
                 username:self user;
                 port:self port.
@@ -464,6 +458,6 @@
 !SftpURI class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SftpURI.st,v 1.5 2014-12-02 14:22:27 stefan Exp $'
+    ^ '$Header$'
 ! !