equal
deleted
inserted
replaced
624 moduleNameUsed := owningClass theNonMetaclass libraryName asSymbol. |
624 moduleNameUsed := owningClass theNonMetaclass libraryName asSymbol. |
625 ]. |
625 ]. |
626 moduleHandle isNil ifTrue:[ |
626 moduleHandle isNil ifTrue:[ |
627 handle := self loadLibrary:moduleNameUsed. |
627 handle := self loadLibrary:moduleNameUsed. |
628 handle isNil ifTrue:[ |
628 handle isNil ifTrue:[ |
629 self error:('Cannot load dll/module: "%1"' bindWith: moduleNameUsed). |
629 self error:('Cannot find or load dll/module: "%1"' bindWith: moduleNameUsed). |
630 ]. |
630 ]. |
631 moduleHandle := handle. |
631 moduleHandle := handle. |
632 ]. |
632 ]. |
633 name isNumber ifFalse:[ |
633 name isNumber ifFalse:[ |
634 functionName := name. |
634 functionName := name. |
1634 ! ! |
1634 ! ! |
1635 |
1635 |
1636 !ExternalLibraryFunction class methodsFor:'documentation'! |
1636 !ExternalLibraryFunction class methodsFor:'documentation'! |
1637 |
1637 |
1638 version_CVS |
1638 version_CVS |
1639 ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.87 2012-09-25 10:11:36 cg Exp $' |
1639 ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.88 2012-10-20 20:54:26 cg Exp $' |
1640 ! |
1640 ! |
1641 |
1641 |
1642 version_SVN |
1642 version_SVN |
1643 ^ '§ Id: ExternalLibraryFunction.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
1643 ^ '§ Id: ExternalLibraryFunction.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
1644 ! ! |
1644 ! ! |