Initial TBPost

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
+]

src/TinyBlog/package.st

@@ -0,0 +1 @@
+Package { #name : #TinyBlog }