ShowMeHowItWorks.st
changeset 3794 49da17b54a22
parent 3793 4759769ba7a3
child 3795 0b36f57fd1c9
equal deleted inserted replaced
3793:4759769ba7a3 3794:49da17b54a22
  1026             restPath := componentNameOrPath copyFrom:idx+1.
  1026             restPath := componentNameOrPath copyFrom:idx+1.
  1027             container := self findComponent:containerName in:anApplicationOrViewOrMenuItem.
  1027             container := self findComponent:containerName in:anApplicationOrViewOrMenuItem.
  1028             container isNil ifTrue:[ ^ nil ].
  1028             container isNil ifTrue:[ ^ nil ].
  1029             ^ self findComponent:restPath in:container
  1029             ^ self findComponent:restPath in:container
  1030         ]
  1030         ]
       
  1031     ].
       
  1032     (componentNameOrPath matchesRegex:'item\[[0-9]+\]') ifTrue:[
       
  1033         anApplicationOrViewOrMenuItem isMenu ifFalse:[
       
  1034             self assert:false message:'container is not a menu'.
       
  1035         ].
       
  1036         idx := Integer readFrom:(componentNameOrPath withoutPrefix:'item[') readStream.
       
  1037         item := anApplicationOrViewOrMenuItem itemAt:idx.
       
  1038         ^ item
  1031     ].
  1039     ].
  1032 
  1040 
  1033     componentNameSymbol := componentNameOrPath asSymbolIfInterned ? componentNameOrPath.
  1041     componentNameSymbol := componentNameOrPath asSymbolIfInterned ? componentNameOrPath.
  1034 
  1042 
  1035     (app := anApplicationOrViewOrMenuItem) isView ifTrue:[
  1043     (app := anApplicationOrViewOrMenuItem) isView ifTrue:[