| fs browser|
	fs := FileSystem memory.
	"some test data"
	fs ensureCreateDirectory: '/one/code'.
	fs ensureCreateDirectory: '/two'.
	(fs writeStreamOn: '/one/code/example1.st') nextPutAll: '[1+2] value'.
	(fs writeStreamOn: '/one/code/example2.st') nextPutAll: '''text'''.
	browser := GLMTabulator new.
	browser
		column: #tree; column: #text.
	browser transmit
		to: #tree;
		andShow: [ :a | 
					a tree
						title: 'book';
						format: [ :item | item basename ];
						children: [ :item :x :level :e | 
									item isDirectory
										ifFalse: [ #() ]
										ifTrue: [ item children ] ]
					].
	browser transmit
		from: #tree;
		to: #text;
		when: [ :item | 
					item isDirectory not];
		andShow: [ :a | 
					a smalltalkCode
						title: 'Code';
						display: [ :x | x contents ];
						"save content"
						act: [ :pane :file | 
								(file openWritable: true) truncateTo: 0.
								file writeStreamDo: [ :s | s nextPutAll: pane text asString ] ]
							icon: GLMUIThemeExtraIcons glamorousAccept
							on: $s
							entitled: 'Accept' ].
	browser openOn: fs root. browser