This can be found at http://deepintopharo.com/, it is considered the follow-up to Pharo by Example.
Example code from Glamour:
| browser | browser := GLMFinder new variableSizePanes; title: 'Find your file'; yourself. browser show: [ :a | a list when: #isDirectory; display: [ :each | [ each children ] on: Exception do: [ Array new ] ]; format: #basenameWithIndicator. a text when: #isFile; display: [ :entry | [ entry readStream contents ] on: Exception do: [ 'Can''t display the contents of this file' ] ] ]. browser openOn: FileSystem disk root.