let [val nbChildren | get-canvas | get-property "MyViewPort.getChildren().size()" -raw]

get-canvas | get-property "MyViewPort.getChildren()" | each [val element] {
	log [format "%d" $element]
}

proc "FindAllChildren" [val name] {
	get-view "Package Explorer" | get-tree | get-item $name | expand-all | get-items | foreach [val item] {
		if [$item | get-property caption -raw | eq "B.txt"] {
			log "Found!"
		}
	}
}

proc "find-my-figure" [val myPropToFind] {
	
	// Get the number of Children into nbChildren
	let [val nbChildren [get-canvas | get-property "getViewport().getChildren().FreeformLayeredPane[0].getChildren().ScalableFreeformLayeredPane[0].getChildren().FreeformLayeredPane[1].getChildren().FreeformLayer[0].getChildren().Viewport[0].getChildren().size()" -raw]] { 
		
		// For each Children of type Figures
		loop [val curChild 0] {
		
			// While we are not at the end of the list of getChildren()
		    if [$curChild | eq $nbChildren] {
		        // Nothing
		    } -else {
		    	
		    	// If the current Figure corresponds to the searched parameter myPropToFind
		    	if [get-canvas | get-property [format "getViewport().getChildren().FreeformLayeredPane[0].getChildren().ScalableFreeformLayeredPane[0].getChildren().FreeformLayeredPane[1].getChildren().FreeformLayer[0].getChildren().Viewport[0].getChildren().Figure[%d].getMyProp()" $curChild] -raw | eq $myPropToFind] {
					show-alert "Figure found !!"
			    
					// Now how to get this Figure and click on it ???
			    }
			    
			    // Loop on next Figure
		    	recur [$curChild | plus 1]
		    }
		}
	}
}

get-canvas | get-control -kind Figure -path "" -index [format "%d" $curChild"]