[Visual Works] Erreur "message not understood do:" sur minimumDistanceToAggregate

[youchlure]

Bon j'ai encore un petit message d'erreur dans mon code...et j'avoue je sature.

Si quelqu'un aurait la gentillesse d'y jeter un oeil

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
affectBassin
	| dist selectRule d |
	
self managedBasins do: 	[: vb | dist:= 1000000000000.

	self rules do: [: r |
		d:= ((r observable at: 1) minimumDistanceToAggregate: vb).
		d < dist
		ifTrue:
				[dist:= d.
				selectRule := r]].

	selectRule spatialScope addAll: vb components.
	vb myUsers do: [:u | u knownRules add: selectRule]].

VW me souligne minimum DistanceToAggregate et me note "message not understood do:"

Ce que je cherche à faire c'est de trouver la distance minimum entre un bassin : vb et r. Le but est qu'un bassin à une régle et que le bassin le plus proche de lui applique sa propre regle...
Bref il doit y avoir un probleme autour de minimumDistance...je pense ?

[maske]

Salut,

self rules ça renvoit quoi ?

Mêmes questions pour self managedBasins , vb myUsers et minimumDistanceToAggregate:.

Tu peux montrer le code de ces méthodes et ce qu'elles renvoient ?

A tous les coups t'en a une qui ne retourne pas un objet qui comprend ce message (ou bien tu as un do: dans minimumDistanceToAggregate: qui est envoyé à un objet qui ne comprend pas ce message).

[youchlure]

Salut,
oui désolé je vais vous mettre tous les codes correspondants :

Self rules et sel managedbassin sont des attributs de la classe "pm" et c'est dans "pm" que l'on trouve "affect bassin".

Leur init est :

Code :

1
2
self managedBasins: OrderedCollection new.
self rules: OrderedCollection new.

myUsers : est un attribut de riverBassin
self myUsers: OrderedCollection new.

et vb correspond à

Code :

self validationBasins do: [:vb |vb components do: [:c | vb myUsers addAll: (c theOccupants at: #User)]].

et myDistanceToaggregate :

Code :

1
2
3
4
5
6
7
8
9
10
minimumDistanceToAggregate: aSpatialEntityAggregate 
	"returns the minimum distance in cells, between the sender and aSpatialEntityAggregate"

	| dist b |
	dist := 100000000000000000.
	aSpatialEntityAggregate surround do: 
			[:aComponent | 
			b := aComponent distCell: self.
			b < dist ifTrue: [dist := b]].
	^dist

Si il manque quelque chose dites le moi?

[maske]

Dans ce code là, j'aurais besoin de savoir ce que renvoi aSpatialEntityAggregate surround.

S'il y a des appels de méthodes dedans, ce que ça renvoit aussi.

Code :

1
2
3
4
5
6
7
8
9
10
minimumDistanceToAggregate: aSpatialEntityAggregate 
	"returns the minimum distance in cells, between the sender and aSpatialEntityAggregate"

	| dist b |
	dist := 100000000000000000.
	aSpatialEntityAggregate surround do: 
			[:aComponent | 
			b := aComponent distCell: self.
			b < dist ifTrue: [dist := b]].
	^dist

Pour moi l'erreur se situe dans aSpatialEntityAggregate surround qui ne doit pas renvoyer un objet répondant à do:.

Est-ce que tu as essayé de suivre le cheminement de ton erreur dans le debuggeur ?

[youchlure]

Effectivement l'erreur est celle ci : il me souligne ce bloc!

do:
[: aComponent |
b := aComponent distCell: self.
b < dist ifTrue: [dist := b]]

Il faut que je trouv epourquoi maintenant!

Merci de ton aide!!!

Bon weekend

[youchlure]

Bon aprés réflexion cela doit provenir d'un défaut d'initialisation de VW pour la fonction "surround"