class: Tools::ObjectModuleInformation
changed: #loadPackage
#loadPackage: now raises PackageLoadError when loadPackage:... fails
--- a/Tools__ObjectModuleInformation.st Tue Feb 25 12:30:12 2014 +0100
+++ b/Tools__ObjectModuleInformation.st Tue Feb 25 14:37:21 2014 +0100
@@ -1302,15 +1302,16 @@
!
loadPackage
- |package ok|
+ |package|
package := Dialog request:'Name of Package (module:directory)'.
package isEmptyOrNil ifTrue:[^ self].
- self withWaitCursorDo:[
- ok := Smalltalk loadPackage:package.
- ].
- ok ifFalse:[
- Dialog information:'Package not loaded'
+ [
+ self withWaitCursorDo:[
+ Smalltalk loadPackage:package.
+ ].
+ ] on:PackageLoadError do:[:ex|
+ Dialog information:'Package not loaded: ', ex description.
].
self updateModuleList
!