--- a/AbstractMultidimensionalArray.st	Thu Aug 22 01:20:06 2019 +0200
+++ b/AbstractMultidimensionalArray.st	Thu Aug 22 01:30:24 2019 +0200
@@ -10,12 +10,28 @@
 !
 
 
+!AbstractMultidimensionalArray methodsFor:'accessing'!
+
+dimensions
+    self subclassResponsibility
+! !
+
 !AbstractMultidimensionalArray methodsFor:'error handling'!
 
 dimensionError
     self error:'number of dimensions vs. number of given indices'
 ! !
 
+!AbstractMultidimensionalArray methodsFor:'queries'!
+
+isSquare
+    |dims|
+
+    dims := self dimensions.
+    ^ dims size == 2
+    and:[(dims at:1) == (dims at:2)]
+! !
+
 !AbstractMultidimensionalArray class methodsFor:'documentation'!
 
 version_CVS