From f3b3d4b1a26eba872c32ad95fc112650011b625c Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sun, 23 Nov 2025 17:05:53 +0100
Subject: Add the tiny-chat project from the Pharo MOOC

---
 .../tiny-chat/src/TinyChat/TCMessage.class.st      | 73 ++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 pharo-mooc/tiny-chat/src/TinyChat/TCMessage.class.st

(limited to 'pharo-mooc/tiny-chat/src/TinyChat/TCMessage.class.st')

diff --git a/pharo-mooc/tiny-chat/src/TinyChat/TCMessage.class.st b/pharo-mooc/tiny-chat/src/TinyChat/TCMessage.class.st
new file mode 100644
index 0000000..64962a9
--- /dev/null
+++ b/pharo-mooc/tiny-chat/src/TinyChat/TCMessage.class.st
@@ -0,0 +1,73 @@
+Class {
+	#name : 'TCMessage',
+	#superclass : 'Object',
+	#instVars : [
+		'sender',
+		'text',
+		'separator'
+	],
+	#category : 'TinyChat',
+	#package : 'TinyChat'
+}
+
+{ #category : 'instance creation' }
+TCMessage class >> from: aSender text: aText [
+
+	^ self new sender: aSender; text: aText; yourself
+]
+
+{ #category : 'instance creation' }
+TCMessage class >> fromString: aString [
+	^ self new
+		fromString: aString;
+		yourself
+]
+
+{ #category : 'initialization' }
+TCMessage >> fromString: aString [
+	"Compose a message from a string of this form 'sender>message'."
+
+	| items |
+	items := aString substrings: separator.
+	self sender: items first.
+	self text: items second.
+]
+
+{ #category : 'initialization' }
+TCMessage >> initialize [
+	super initialize.
+	separator := '>'
+]
+
+{ #category : 'printing' }
+TCMessage >> printOn: aStream [
+	"Generate a string representation of the receiver based on its instance variables."
+
+	aStream
+		<< self sender; << separator;
+		<< self text; << String crlf
+]
+
+{ #category : 'accessing' }
+TCMessage >> sender [
+
+	^ sender
+]
+
+{ #category : 'accessing' }
+TCMessage >> sender: anObject [
+
+	sender := anObject
+]
+
+{ #category : 'accessing' }
+TCMessage >> text [
+
+	^ text
+]
+
+{ #category : 'accessing' }
+TCMessage >> text: anObject [
+
+	text := anObject
+]
-- 
cgit v1.2.3