'From Pharo5.0 of 16 April 2015 [Latest update: #50729] on 29 April 2016 at 2:54:51.897182 pm'!
GTPlayground subclass: #GTPlaygroundVertical
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'GT-Playground'!
!GTPlaygroundVertical commentStamp: 'AndreiChis 4/29/2016 14:53' prior: 0!
Quick prototype of a playgrond that stacks panes vertically!


!GTPlaygroundVertical methodsFor: 'as yet unclassified' stamp: 'AndreiChis 4/29/2016 14:43'!
inspectorPresentation

	^ (self presentations first paneNamed: #inspector) presentations first! !

!GTPlaygroundVertical methodsFor: 'as yet unclassified' stamp: 'AndreiChis 4/29/2016 14:54'!
compose
	super compose.
	self presentations removeLast.
	self tabulator with: [ :aTabulator |
		aTabulator
			row: #code;
			row: #inspector span: 2.
		aTabulator transmit
			to: #code;
			andShow: [ :aComposite |
				self codeIn: aComposite ].
		aTabulator transmit
			from: #code port: #selection;
			to: #inspector;
			andShow: [ :aComposite | 
				aComposite custom: 
					GTInspector new
						"noTitle;" 
						noActions;
						yourself ] ]! !

!GTPlaygroundVertical methodsFor: 'as yet unclassified' stamp: 'AndreiChis 4/29/2016 14:42'!
codePresentation

	^ (self presentations first paneNamed: #code) presentations first! !