'From Pharo1.4a of ''16 June 2011'' [Latest update: #14284] on 7 March 2012 at 11:15:28 am'!

!SimpleGridNodeExample methodsFor: 'as yet unclassified' stamp: 'AlexisParseghian 3/7/2012 11:13'!
ageComment
	"with self theme builder newLabel: the text is not properly clipped and pushes the next column to
	the right regardless of column boundaries"
	"^ self theme builder newLabel: "
	^ self theme newTextIn: self text: 
		((item age > 60) 
			ifTrue: [ 'This is a senior citizen and an overly long comment' ]
			ifFalse: [
				(item age < 12) ifTrue: [ 'Still a kid' ] ifFalse: [ 'Not too old' ] ] )! !

!SimpleGridNodeExample methodsFor: 'as yet unclassified' stamp: 'AlainPlantec 2/2/2010 08:36'!
ageMorph
	^ (UITheme current
				newTextEntryIn: World
				for: self 
				get: #age
				set: #age:
				class: Integer
				getEnabled: nil
				help: nil) color: Color transparent! !


!SimpleGridExample methodsFor: 'as yet unclassified' stamp: 'AlexisParseghian 3/6/2012 12:59'!
rootItems
	| rand |
	rand := Random seed: 1000.
	^ rootItems ifNil: [rootItems := (1 to: 100)
		collect: [:i | PersonDataExample
				firstName: 'Person' , i asString
				secondName: 'Person' , i asString , ' second name'
				age: (rand nextInt: 100)
				married: false] ]! !

!SimpleGridExample methodsFor: 'as yet unclassified' stamp: 'AlexisParseghian 3/6/2012 13:10'!
treeMorph
	| treeMorph oddColor evenColor |
	treeMorph := (self treeMorphClass on: self)
		beCheckList;
		beMultiple;
		columns: {MorphTreeColumn new startWidth: 100;
						rowMorphGetSelector: #firstNameMorph;
						headerButtonLabel: 'First name' font:  nil.
					MorphTreeColumn new startWidth: 150;
						rowMorphGetSelector: #secondNameMorph;
						headerButtonLabel: 'Second name' font:  nil.
					MorphTreeColumn new startWidth: 50;
						rowMorphGetSelector: #ageMorph;
						headerButtonLabel: 'Age' font:  nil.
					MorphTreeColumn new startWidth: 100;
						rowMorphGetSelector: #ageComment;
						headerButtonLabel: 'Comment' font: nil.
					MorphTreeColumn new startWidth: 50;
						rowMorphGetSelector: #marriedMorph;
					 	headerButtonLabel: 'Married' font: nil};
		columnInset: 3;
		rowInset: 1;
		preferedPaneColor: Color white;
		rowColorForEven:  Color veryLightGray muchLighter odd: Color white .
	^ treeMorph ! !