Fix errors in Slime rules (due to code that was forgotten when moving…

… from RB to Renraku framework)
SeasideSt · Jun 11, 2024 · aa7676b · aa7676b
1 parent 7a76a2b
commit aa7676b
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 3 deletions.
diff --git a/...110-Slime.package/WAChangesStateWhileRenderingRule.class/instance/afterCheck.mappings..st b/...110-Slime.package/WAChangesStateWhileRenderingRule.class/instance/afterCheck.mappings..st
@@ -5,4 +5,4 @@ afterCheck: aNode mappings: dict
 	aNode isWrite ifFalse: [ ^ false ].
 	(WASlime isWithinCallback: aNode) ifTrue:[ ^ false ].
 
-	^ true
+	^ aNode methodNode methodClass instVarNames includes: aNode name
diff --git a/...ide-Pharo110-Slime.package/WAUsesWrongRendererRule.class/instance/afterCheck.mappings..st b/...ide-Pharo110-Slime.package/WAUsesWrongRendererRule.class/instance/afterCheck.mappings..st
@@ -0,0 +1,4 @@
+hooks
+afterCheck: aNode mappings: dict
+
+	^ aNode arguments first references: aNode receiver leftmostChainReceiver name
diff --git a/repository/Seaside-Tests-Slime.package/WASlimeTest.class/instance/testUsesWrongRenderer.st b/repository/Seaside-Tests-Slime.package/WASlimeTest.class/instance/testUsesWrongRenderer.st
@@ -9,4 +9,12 @@ testUsesWrongRenderer
 		in: class.
 	self 
 		assertRule: WAUsesWrongRendererRule
-		matches: { class>>#renderContentOn: }
+		matches: { class>>#renderContentOn: }.
+
+	self
+		compile: 'renderContentOn: html
+			html jQuery load html: [ :r | html div ]'
+		in: class.
+	self 
+		assertRule: WAUsesWrongRendererRule
+		matches: { class>>#renderContentOn: }.
diff --git a/repository/Seaside-Tests-Slime.package/monticello.meta/categories.st b/repository/Seaside-Tests-Slime.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Tests-Slime'!
+self packageOrganizer ensurePackage: #'Seaside-Tests-Slime' withTags: #()!