diff --git a/repository/Grafoscopio-Utils/LePage.extension.st b/repository/Grafoscopio-Utils/LePage.extension.st
index f0ec0cb..427c2a9 100644
--- a/repository/Grafoscopio-Utils/LePage.extension.st
+++ b/repository/Grafoscopio-Utils/LePage.extension.st
@@ -52,3 +52,11 @@ LePage >> metadata [
 LePage >> options [
 	^ options
 ]
+
+{ #category : #'*Grafoscopio-Utils-Core' }
+LePage >> preorderTraversal [
+	| output |
+	output := OrderedCollection new.
+	self withDeepCollect: [:each | each allChildrenBreadthFirstDo: [:child | output add: child ] ].
+	^ output.
+]