equal
deleted
inserted
replaced
1300 inspectSelectedObject |
1300 inspectSelectedObject |
1301 self selectedObjectHandle inspect. |
1301 self selectedObjectHandle inspect. |
1302 ! |
1302 ! |
1303 |
1303 |
1304 loadPackage |
1304 loadPackage |
1305 |package ok| |
1305 |package| |
1306 |
1306 |
1307 package := Dialog request:'Name of Package (module:directory)'. |
1307 package := Dialog request:'Name of Package (module:directory)'. |
1308 package isEmptyOrNil ifTrue:[^ self]. |
1308 package isEmptyOrNil ifTrue:[^ self]. |
1309 self withWaitCursorDo:[ |
1309 [ |
1310 ok := Smalltalk loadPackage:package. |
1310 self withWaitCursorDo:[ |
1311 ]. |
1311 Smalltalk loadPackage:package. |
1312 ok ifFalse:[ |
1312 ]. |
1313 Dialog information:'Package not loaded' |
1313 ] on:PackageLoadError do:[:ex| |
|
1314 Dialog information:'Package not loaded: ', ex description. |
1314 ]. |
1315 ]. |
1315 self updateModuleList |
1316 self updateModuleList |
1316 ! |
1317 ! |
1317 |
1318 |
1318 menuUpdateModuleList |
1319 menuUpdateModuleList |