--- a/ChangeSetBrowser.st Sat Jan 29 11:24:38 2011 +0100
+++ b/ChangeSetBrowser.st Sat Jan 29 11:49:05 2011 +0100
@@ -689,7 +689,8 @@
ex signal == Parser::UndefinedSuperclassError ifTrue:[
codeView error:(ex errorString) position:1 to:nil from:nil
] ifFalse:[
- codeView error:(ex description) position:(ex startPosition) to:(ex endPosition) from:(ex parser)
+ codeView error:(ex description) position:(ex startPosition) to:(ex endPosition) from:(ex parser).
+ ex mayProceed ifTrue:[ex proceed].
]
] do:[
|nameSpace change package|
@@ -704,10 +705,10 @@
Class packageQuerySignal answer:package
do:[
- Class nameSpaceQuerySignal answer:nameSpace
- do:[
+ "/ Class nameSpaceQuerySignal answer:nameSpace
+ "/ do:[
self applyPossiblyModifiedChange:change.
- ]
+ "/ ]
]
"/ ]
].
@@ -725,7 +726,7 @@
^ aborted not
"Created: / 07-02-1998 / 19:32:35 / cg"
- "Modified: / 05-03-2007 / 13:19:47 / cg"
+ "Modified: / 29-01-2011 / 11:46:44 / cg"
!
applyPossiblyModifiedChange:aChange
@@ -1029,9 +1030,9 @@
!ChangeSetBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.53 2010-03-19 12:15:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.54 2011-01-29 10:49:05 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.53 2010-03-19 12:15:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.54 2011-01-29 10:49:05 cg Exp $'
! !