From c03c9f8b886c0e8eca5a701c0ca941e05e0b6285 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 21 Nov 2025 22:20:10 +0100 Subject: Add pharo tiny blog --- .../TinyBlog-Components/TBAdminComponent.class.st | 24 ++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 pharo-mooc/tiny-blog/src/TinyBlog-Components/TBAdminComponent.class.st (limited to 'pharo-mooc/tiny-blog/src/TinyBlog-Components/TBAdminComponent.class.st') diff --git a/pharo-mooc/tiny-blog/src/TinyBlog-Components/TBAdminComponent.class.st b/pharo-mooc/tiny-blog/src/TinyBlog-Components/TBAdminComponent.class.st new file mode 100644 index 0000000..c35cc95 --- /dev/null +++ b/pharo-mooc/tiny-blog/src/TinyBlog-Components/TBAdminComponent.class.st @@ -0,0 +1,24 @@ +Class { + #name : 'TBAdminComponent', + #superclass : 'TBScreenComponent', + #category : 'TinyBlog-Components', + #package : 'TinyBlog-Components' +} + +{ #category : 'initialization' } +TBAdminComponent >> createHeaderComponent [ + ^ TBAdminHeaderComponent from: self +] + +{ #category : 'rendering' } +TBAdminComponent >> goToPostListView [ + self answer +] + +{ #category : 'acccessing' } +TBAdminComponent >> renderContentOn: html [ + super renderContentOn: html. + html container: [ + html heading: 'Blog Admin'. + html horizontalRule ] +] -- cgit v1.2.3