# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1213036814 -7200
# Node ID 226b25e4bb97b73ed913143cee1463eb5fb28598
# Parent  2ee7b3d263c341e45b0c78bf9830bb6ace78bd69
comments

diff -r 2ee7b3d263c3 -r 226b25e4bb97 ExternalLibraryFunction.st
--- a/ExternalLibraryFunction.st	Mon Jun 09 19:25:17 2008 +0200
+++ b/ExternalLibraryFunction.st	Mon Jun 09 20:40:14 2008 +0200
@@ -108,6 +108,12 @@
 
 !ExternalLibraryFunction class methodsFor:'class initialization'!
 
+addToDllPath:aDirectoryPathName
+    "can be used during initialization, to add more places for dll-loading"
+
+    DLLPATH := self dllPath asOrderedCollection copyWith:aDirectoryPathName
+!
+
 dllPath
     ^ DLLPATH ? #( '.' )
 !
@@ -1333,7 +1339,7 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.62 2008-05-13 13:50:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.63 2008-06-09 18:40:14 cg Exp $'
 ! !
 
 ExternalLibraryFunction initialize!