--- a/ShowMeHowItWorks.st Sun Oct 20 08:13:53 2019 +0200
+++ b/ShowMeHowItWorks.st Sun Oct 20 08:33:57 2019 +0200
@@ -1029,6 +1029,14 @@
^ self findComponent:restPath in:container
]
].
+ (componentNameOrPath matchesRegex:'item\[[0-9]+\]') ifTrue:[
+ anApplicationOrViewOrMenuItem isMenu ifFalse:[
+ self assert:false message:'container is not a menu'.
+ ].
+ idx := Integer readFrom:(componentNameOrPath withoutPrefix:'item[') readStream.
+ item := anApplicationOrViewOrMenuItem itemAt:idx.
+ ^ item
+ ].
componentNameSymbol := componentNameOrPath asSymbolIfInterned ? componentNameOrPath.