--- a/NewSystemBrowser.st Fri Nov 22 14:44:00 2002 +0100
+++ b/NewSystemBrowser.st Fri Nov 22 16:14:19 2002 +0100
@@ -12186,7 +12186,7 @@
generator selectedMethods selectedMethod
myGenerator myGeneratorsHome |
- selectedMethods := (navigationState selectedMethodsArrayAt:index) value.
+ selectedMethods := (navigationState selectedMethodsArrayAt:index) value ? #().
"/ filter those which are lost due to recompilation ...
selectedMethods := selectedMethods select:[:m | m selector notNil].
@@ -54195,7 +54195,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.492 2002-11-22 13:44:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.493 2002-11-22 15:14:19 martin Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Fri Nov 22 14:44:00 2002 +0100
+++ b/Tools__NewSystemBrowser.st Fri Nov 22 16:14:19 2002 +0100
@@ -12186,7 +12186,7 @@
generator selectedMethods selectedMethod
myGenerator myGeneratorsHome |
- selectedMethods := (navigationState selectedMethodsArrayAt:index) value.
+ selectedMethods := (navigationState selectedMethodsArrayAt:index) value ? #().
"/ filter those which are lost due to recompilation ...
selectedMethods := selectedMethods select:[:m | m selector notNil].
@@ -54195,7 +54195,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.492 2002-11-22 13:44:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.493 2002-11-22 15:14:19 martin Exp $'
! !
NewSystemBrowser initialize!