Паттерн: Адаптер (Adapter)
Фрагмент: Параметризованный адаптер [smalltalk] 
  1. directoryDisplay :=
  2.   (TreeDisplay on: treeRoot)
  3.     getChiIdrenBlock:
  4.       [:node | node getSubdirectories]
  5.     createGraphicNodeBlock:
  6.       [:node | node createGraphicNode]