Class { #name : 'TBScreenComponent', #superclass : 'SBSRootComponent', #instVars : [ 'header' ], #category : 'TinyBlog-Components', #package : 'TinyBlog-Components' } { #category : 'acccessing' } TBScreenComponent >> blog [ "Return the current blog. In the future we will ask the session to return the blog of the currently logged in user." ^ TBBlog current ] { #category : 'acccessing' } TBScreenComponent >> children [ ^ { header } ] { #category : 'initialization' } TBScreenComponent >> createHeaderComponent [ ^ TBHeaderComponent from: self ] { #category : 'initialization' } TBScreenComponent >> initialize [ super initialize. header := self createHeaderComponent ] { #category : 'acccessing' } TBScreenComponent >> renderContentOn: html [ html render: header ]