# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1393335441 -3600
# Node ID e5c34fbda3f4ed0991a63cf62952b0c6ede7de60
# Parent  cc05bf8ba3a739ec79b1d9a37eadc33f8df8a90e
class: Tools::ObjectModuleInformation
changed: #loadPackage
#loadPackage: now raises PackageLoadError when loadPackage:... fails

diff -r cc05bf8ba3a7 -r e5c34fbda3f4 Tools__ObjectModuleInformation.st
--- 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
 !