1497 ! |
1497 ! |
1498 |
1498 |
1499 checkClassIsLoaded:aClass |
1499 checkClassIsLoaded:aClass |
1500 "check for and warn if a class is unloaded (helper for compare-change)" |
1500 "check for and warn if a class is unloaded (helper for compare-change)" |
1501 |
1501 |
1502 |cls| |
1502 |cls answer| |
1503 |
1503 |
1504 cls := aClass theNonMetaclass. |
1504 cls := aClass theNonMetaclass. |
1505 cls isLoaded ifTrue:[ |
1505 cls isLoaded ifTrue:[ |
1506 ^ true. |
1506 ^ true. |
1507 ]. |
1507 ]. |
1508 |
1508 |
1509 (self confirm:(resources |
1509 answer := (self confirmWithCancel:(resources |
1510 string:'%1 is an autoloaded class.\I can only compare the methods source if its loaded first.\\Shall the class be loaded now ?' |
1510 string:'%1 is an autoloaded class.\I can only compare the methods source if its loaded first.\\Shall the class be loaded now ?' |
1511 with:cls name allBold) withCRs) |
1511 with:cls name allBold) withCRs). |
1512 ifFalse:[ |
1512 |
1513 AbortOperationRequest raise |
1513 answer == true ifTrue:[ |
1514 ]. |
1514 ^ cls autoload isLoaded |
1515 ^ cls autoload isLoaded |
1515 ]. |
1516 |
1516 |
1517 "Created: / 12.12.1995 / 14:04:39 / cg" |
1517 answer isNil ifTrue:[ |
1518 "Modified: / 5.11.2001 / 16:34:29 / cg" |
1518 "cancel the operation" |
|
1519 AbortAllOperationRequest raiseRequest. |
|
1520 ^ false. |
|
1521 ]. |
|
1522 |
|
1523 "cancel operation for this change, (but possibly continue with others)" |
|
1524 AbortOperationRequest raiseRequest. |
|
1525 ^ false. |
1519 ! |
1526 ! |
1520 |
1527 |
1521 clearCodeView |
1528 clearCodeView |
1522 "clear the (lower) code view." |
1529 "clear the (lower) code view." |
1523 |
1530 |
4633 |toDelete| |
4640 |toDelete| |
4634 |
4641 |
4635 toDelete := OrderedCollection new. |
4642 toDelete := OrderedCollection new. |
4636 self withExecuteCursorDo:[ |
4643 self withExecuteCursorDo:[ |
4637 1 to:self numberOfChanges do:[:changeNr | |
4644 1 to:self numberOfChanges do:[:changeNr | |
4638 (self compareChange:changeNr showResult:false) == true ifTrue:[ |
4645 [ |
4639 toDelete add:changeNr |
4646 (self compareChange:changeNr showResult:false) == true ifTrue:[ |
4640 ] |
4647 toDelete add:changeNr |
|
4648 ] |
|
4649 ] on:AbortOperationRequest do:[:ex| "ignore unloaded clases" ] |
4641 ]. |
4650 ]. |
4642 ]. |
4651 ]. |
4643 |
4652 |
4644 toDelete reverseDo:[:changeNr | |
4653 toDelete reverseDo:[:changeNr | |
4645 self silentDeleteChange:changeNr. |
4654 self silentDeleteChange:changeNr. |