equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'stx:libbasic' }" |
1 "{ Package: 'stx:libbasic' }" |
4 |
2 |
5 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
6 |
4 |
7 AbstractMultidimensionalArray variableSubclass:#MatrixAccessor |
5 AbstractMultidimensionalArray variableSubclass:#MatrixAccessor |
201 collection:arrayArg dimensions:dimensionsArg |
199 collection:arrayArg dimensions:dimensionsArg |
202 array := arrayArg. |
200 array := arrayArg. |
203 dimensions := dimensionsArg. |
201 dimensions := dimensionsArg. |
204 ! ! |
202 ! ! |
205 |
203 |
|
204 !MatrixAccessor methodsFor:'queries'! |
|
205 |
|
206 isSquare |
|
207 ^ dimensions size == 2 |
|
208 and:[(dimensions at:1) == (dimensions at:2)] |
|
209 ! ! |
|
210 |
206 !MatrixAccessor class methodsFor:'documentation'! |
211 !MatrixAccessor class methodsFor:'documentation'! |
207 |
212 |
208 version_CVS |
213 version_CVS |
209 ^ '$Header$' |
214 ^ '$Header$' |
210 ! ! |
215 ! ! |