initial

src/TinyBlog.package/.filetree

@@ -0,0 +1,4 @@
+{
+	"noMethodMetaData" : true,
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }

src/TinyBlog.package/TBPost.class/README.md

@@ -0,0 +1 @@
+I’m a blog post.

src/TinyBlog.package/TBPost.class/class/title.text..st

@@ -0,0 +1,6 @@
+action
+title: aTitle text: aText
+	^ self new
+		title: aTitle;
+		text: aText;
+		yourself

src/TinyBlog.package/TBPost.class/class/title.text.category..st

@@ -0,0 +1,5 @@
+action
+title: aTitle text: aText category: aCategory
+	^ (self title: aTitle text: aText)
+		category: aCategory;
+		yourself

src/TinyBlog.package/TBPost.class/class/unclassifiedTag.st

@@ -0,0 +1,3 @@
+initialization
+unclassifiedTag
+	^ 'Unclassified'

src/TinyBlog.package/TBPost.class/instance/beVisible.st

@@ -0,0 +1,3 @@
+action
+beVisible
+  self visible: true

src/TinyBlog.package/TBPost.class/instance/category..st

@@ -0,0 +1,3 @@
+accessing
+category: c
+	category := c

src/TinyBlog.package/TBPost.class/instance/category.st

@@ -0,0 +1,3 @@
+accessing
+category
+	^ category

src/TinyBlog.package/TBPost.class/instance/date..st

@@ -0,0 +1,3 @@
+accessing
+date: d
+	date := d

src/TinyBlog.package/TBPost.class/instance/date.st

@@ -0,0 +1,3 @@
+accessing
+date
+	^ date

src/TinyBlog.package/TBPost.class/instance/dontBeVisible.st

@@ -0,0 +1,3 @@
+action
+dontBeVisible
+  self visible: false

src/TinyBlog.package/TBPost.class/instance/initialize.st

@@ -0,0 +1,5 @@
+initialization
+initialize
+	self category: self class unclassifiedTag.
+   self date: Date today.
+   self dontBeVisible

src/TinyBlog.package/TBPost.class/instance/isUnclassified.st

@@ -0,0 +1,3 @@
+action
+isUnclassified
+  ^ self category = self class unclassifiedTag

src/TinyBlog.package/TBPost.class/instance/isVisible.st

@@ -0,0 +1,3 @@
+action
+isVisible
+  self visible

src/TinyBlog.package/TBPost.class/instance/text..st

@@ -0,0 +1,3 @@
+accessing
+text: t
+	text := t

src/TinyBlog.package/TBPost.class/instance/text.st

@@ -0,0 +1,3 @@
+accessing
+text
+	^ text

src/TinyBlog.package/TBPost.class/instance/title..st

@@ -0,0 +1,3 @@
+accessing
+title: t
+	title := t 

src/TinyBlog.package/TBPost.class/instance/title.st

@@ -0,0 +1,3 @@
+accessing
+title
+	^ title

src/TinyBlog.package/TBPost.class/instance/visible..st

@@ -0,0 +1,3 @@
+accessing
+visible: v
+	visible := v

src/TinyBlog.package/TBPost.class/instance/visible.st

@@ -0,0 +1,3 @@
+accessing
+visible
+	^ visible

src/TinyBlog.package/TBPost.class/properties.json

@@ -0,0 +1,18 @@
+{
+	"category" : "TinyBlog",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "VeitHeller 4/30/2018 15:16",
+	"instvars" : [
+		"title",
+		"text",
+		"date",
+		"category",
+		"visible" ],
+	"name" : "TBPost",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }

src/TinyBlog.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #TinyBlog!

src/TinyBlog.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'TinyBlog')

src/TinyBlog.package/properties.json

@@ -0,0 +1,2 @@
+{
+	 }