fix release tests

ObjectProfile · Sep 2, 2023 · 995120f · 995120f
1 parent 9d123c1
commit 995120f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 9 deletions.
diff --git a/src/Roassal3-Inspector/SpRSTransitionInspectorPresenter.class.st b/src/Roassal3-Inspector/SpRSTransitionInspectorPresenter.class.st
@@ -76,15 +76,15 @@ SpRSTransitionInspectorPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #controls }
 SpRSTransitionInspectorPresenter >> disableDebuggingControls [
 
 	slider disable.
 	step disable.
 	debug disable
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #controls }
 SpRSTransitionInspectorPresenter >> enableDebuggingControls [
 
 	sliderMorph updateValue.

diff --git a/src/Roassal3/RSCanvas.class.st b/src/Roassal3/RSCanvas.class.st
@@ -607,11 +607,6 @@ RSCanvas >> setAsFixed: aShape [
 	self addShape: aShape
 ]
 
-{ #category : #accessing }
-RSCanvas >> shapeCollection [
-	^ shapeCollection
-]
-
 { #category : #accessing }
 RSCanvas >> shapeCollection: anRSShapeCollection [
 	shapeCollection := anRSShapeCollection.
@@ -638,7 +633,6 @@ RSCanvas >> shapeWithActionForPosition: aPositionInSpace [
 	| result |
 	result := self shapesWithActionForPosition: aPositionInSpace.
 	result ifEmpty: [ ^ nil ].
-	result traceCr.
 	^ result first
 ]
 

diff --git a/src/Roassal3/RSShape.class.st b/src/Roassal3/RSShape.class.st
@@ -402,7 +402,7 @@ RSShape >> index: anObject [
 	self propertyAt: #index put: anObject
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #private }
 RSShape >> indexesArray [
 
 	| vector |