Add pharo tiny blog

1 files changed, 57 insertions, 0 deletions

diff --git a/pharo-mooc/tiny-blog/src/TinyBlog-Components/TBApplicationRootComponent.class.st b/pharo-mooc/tiny-blog/src/TinyBlog-Components/TBApplicationRootComponent.class.st
new file mode 100644
index 0000000..6c8d80c
--- /dev/null
+++ b/pharo-mooc/tiny-blog/src/TinyBlog-Components/TBApplicationRootComponent.class.st
@@ -0,0 +1,57 @@
+Class {
+	#name : 'TBApplicationRootComponent',
+	#superclass : 'WAComponent',
+	#instVars : [
+		'main'
+	],
+	#category : 'TinyBlog-Components',
+	#package : 'TinyBlog-Components'
+}
+
+{ #category : 'testing' }
+TBApplicationRootComponent class >> canBeRoot [
+	^ true
+]
+
+{ #category : 'initialization' }
+TBApplicationRootComponent class >> initialize [
+	"self initialize"
+	| app |
+	app := WAAdmin register: self asApplicationAt: 'TinyBlog'.
+	app
+		preferenceAt: #sessionClass put: TBSession.
+	app
+		addLibrary: JQDeploymentLibrary;
+		addLibrary: JQUiDeploymentLibrary;
+		addLibrary: SBSDeploymentLibrary
+]
+
+{ #category : 'rendering' }
+TBApplicationRootComponent >> children [
+	^ {  main }
+]
+
+{ #category : 'initialization' }
+TBApplicationRootComponent >> initialize [
+	super initialize.
+	main := TBPostsListComponent new
+]
+
+{ #category : 'initialization' }
+TBApplicationRootComponent >> main: aComponent [
+
+	main := aComponent
+]
+
+{ #category : 'rendering' }
+TBApplicationRootComponent >> renderContentOn: html [
+	html render: main.
+	SBSDeploymentLibrary addLoadScriptTo: html
+]
+
+{ #category : 'rendering' }
+TBApplicationRootComponent >> updateRoot: anHtmlRoot [
+	super updateRoot: anHtmlRoot.
+	anHtmlRoot beHtml5.
+	anHtmlRoot title: 'TinyBlog'
+]