diff -r 4759769ba7a3 -r 49da17b54a22 ShowMeHowItWorks.st --- 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.