--- a/Tools__NavigationState.st Tue May 19 18:39:45 2015 +0200
+++ b/Tools__NavigationState.st Wed May 20 12:27:52 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -1031,9 +1033,7 @@
selectedMethodsArray isNil ifTrue:[
selectedMethodsArray := OrderedCollection new
].
- index > selectedMethodsArray size ifTrue:[
- selectedMethodsArray grow:index
- ].
+ selectedMethodsArray ensureSizeAtLeast:index.
holder := selectedMethodsArray at:index.
holder isNil ifTrue:[
selectedMethodsArray at:index put:(holder := ValueHolder new)
@@ -1087,9 +1087,7 @@
selectorListGeneratorArray isNil ifTrue:[
selectorListGeneratorArray := OrderedCollection new
].
- index > selectorListGeneratorArray size ifTrue:[
- selectorListGeneratorArray grow:index
- ].
+ selectorListGeneratorArray ensureSizeAtLeast:index.
holder := selectorListGeneratorArray at:index.
holder isNil ifTrue:[
selectorListGeneratorArray at:index put:(holder := ValueHolder new)
@@ -1204,6 +1202,7 @@
"Created: / 24.2.2000 / 23:45:28 / cg"
! !
+
!NavigationState methodsFor:'aspects-kludges'!
metaToggle
@@ -1725,15 +1724,15 @@
!NavigationState class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.60 2015-02-20 21:46:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.61 2015-05-20 10:27:52 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.60 2015-02-20 21:46:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.61 2015-05-20 10:27:52 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__NavigationState.st,v 1.60 2015-02-20 21:46:26 cg Exp $'
+ ^ '$Id: Tools__NavigationState.st,v 1.61 2015-05-20 10:27:52 cg Exp $'
! !