diff --git a/src/TinyBlog/TBPost.class.st b/src/TinyBlog/TBPost.class.st new file mode 100644 index 0000000..4ca8281 --- /dev/null +++ b/src/TinyBlog/TBPost.class.st @@ -0,0 +1,74 @@ +Class { + #name : #TBPost, + #superclass : #Object, + #instVars : [ + 'title', + 'text', + 'date', + 'category', + 'visible' + ], + #category : #TinyBlog +} + +{ #category : #action } +TBPost >> beVisible [ + "Makes the post visible" + self visible: true +] + +{ #category : #accessing } +TBPost >> category [ + ^ category +] + +{ #category : #accessing } +TBPost >> category: anObject [ + category := anObject +] + +{ #category : #accessing } +TBPost >> date [ + ^ date +] + +{ #category : #accessing } +TBPost >> date: anObject [ + date := anObject +] + +{ #category : #action } +TBPost >> notVisible [ + "Makes the instance no longer visisble" + self visible: false +] + +{ #category : #accessing } +TBPost >> text [ + ^ text +] + +{ #category : #accessing } +TBPost >> text: anObject [ + text := anObject +] + +{ #category : #accessing } +TBPost >> title [ + ^ title +] + +{ #category : #accessing } +TBPost >> title: anObject [ + title := anObject +] + +{ #category : #accessing } +TBPost >> visible [ + ^ visible +] + +{ #category : #accessing } +TBPost >> visible: anObject [ + visible := anObject +] diff --git a/src/TinyBlog/package.st b/src/TinyBlog/package.st new file mode 100644 index 0000000..79182b2 --- /dev/null +++ b/src/TinyBlog/package.st @@ -0,0 +1 @@ +Package { #name : #TinyBlog }