From c03c9f8b886c0e8eca5a701c0ca941e05e0b6285 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 21 Nov 2025 22:20:10 +0100
Subject: Add pharo tiny blog

---
 .../TBApplicationRootComponent.class.st            | 57 ++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 pharo-mooc/tiny-blog/src/TinyBlog-Components/TBApplicationRootComponent.class.st

(limited to 'pharo-mooc/tiny-blog/src/TinyBlog-Components/TBApplicationRootComponent.class.st')

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'
+]
-- 
cgit v1.2.3