Merge f2cc567 into 69c8e19

hpi-swa-teaching · Jul 31, 2022 · 391e0bb · 391e0bb
2 parents 69c8e19 + f2cc567
commit 391e0bb
Show file tree

Hide file tree

Showing 99 changed files with 245 additions and 173 deletions.
diff --git a/packages/TelegramClient-Core.package/TCCAddMembersMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCAddMembersMessage.class/properties.json
@@ -10,5 +10,5 @@
 	"name" : "TCCAddMembersMessage",
 	"pools" : [
 		 ],
-	"super" : "TCCUserMessage",
+	"super" : "TCCMessage",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/chatHistoryReceived..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/chatHistoryReceived..st
@@ -2,7 +2,7 @@ loading
 chatHistoryReceived: anEvent
 
 	(anEvent at: 'messages') do:
-		[:message | self addOldestMessage: (TCCUserMessage newFromMessageEvent: message in: self with: self core).
+		[:message | self addOldestMessage: (TCCMessage newFromMessageEvent: message in: self with: self core).
 			self fulfillMessageRequest: (message at: 'id').
 			].
 

diff --git a/packages/TelegramClient-Core.package/TCCChat.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCChat.class/methodProperties.json
@@ -14,7 +14,7 @@
 		"addOldestMessage:" : "aka 7/14/2022 14:26",
 		"canSendMessages" : "5/11/2021 10:09:15",
 		"canSendMessages:" : "JB 8/4/2021 00:08",
-		"chatHistoryReceived:" : "aka 7/14/2022 16:38",
+		"chatHistoryReceived:" : "js 7/31/2022 09:28",
 		"core" : "per 6/4/2021 16:00",
 		"core:" : "per 6/4/2021 15:58",
 		"fulfillMessageRequest:" : "LR 6/15/2022 10:11",

diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/addNewMessage..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/addNewMessage..st
@@ -3,7 +3,7 @@ addNewMessage: aJsonObject
 
 	| chat message |
 	chat := self chats getChat: (aJsonObject at: 'chat_id').
-	message := TCCUserMessage newFromMessageEvent: aJsonObject in: chat with: self core.
+	message := TCCMessage newFromMessageEvent: aJsonObject in: chat with: self core.
 
 	chat addNewestMessage: message.
 	self core triggerEvent: #newMessageReceived with: message.
diff --git a/...es/TelegramClient-Core.package/TCCChatsHandler.class/instance/answeredMessageReceived..st b/...es/TelegramClient-Core.package/TCCChatsHandler.class/instance/answeredMessageReceived..st
@@ -3,6 +3,6 @@ answeredMessageReceived: aJsonObject
 
 	| chat message |
 	chat := self chats getChat: (aJsonObject at: 'chat_id').
-	message := TCCUserMessage newFromMessageEvent: aJsonObject in: chat with: self core.
+	message := TCCMessage newFromMessageEvent: aJsonObject in: chat with: self core.
 
 	chat addAnsweredMessage: message.
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/updateLastMessage..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/updateLastMessage..st
@@ -13,7 +13,7 @@ updateLastMessage: anEvent
 					detect: [:e | ((e at: 'list') at: '@type') = 'chatListMain'])
 				at: 'order')].
 
-		lastMessage := (TCCUserMessage newFromMessageEvent: messageJson in: chat with: self core).
+		lastMessage := (TCCMessage newFromMessageEvent: messageJson in: chat with: self core).
 		chat lastMessageText: lastMessage asSnippet.
 		chat lastMessageSenderName: lastMessage senderName.
 		chat lastMessageSenderId: lastMessage userId.

diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCChatsHandler.class/methodProperties.json
@@ -3,8 +3,8 @@
 		 },
 	"instance" : {
 		"addChat:" : "js 6/18/2022 09:27",
-		"addNewMessage:" : "aka 7/14/2022 16:38",
-		"answeredMessageReceived:" : "aka 7/14/2022 16:38",
+		"addNewMessage:" : "js 7/31/2022 09:28",
+		"answeredMessageReceived:" : "js 7/31/2022 09:28",
 		"chatHistoryReceived:" : "pk 8/5/2021 16:37",
 		"chats" : "RS 8/1/2021 12:50",
 		"chats:" : "RS 8/1/2021 12:51",
@@ -16,4 +16,4 @@
 		"openNewChat:" : "pk 8/5/2021 16:38",
 		"searchChat:" : "pk 8/5/2021 16:38",
 		"updateChatPosition:" : "js 6/18/2022 11:04",
-		"updateLastMessage:" : "aka 7/14/2022 16:38" } }
+		"updateLastMessage:" : "js 7/31/2022 09:28" } }
diff --git a/packages/TelegramClient-Core.package/TCCDeleteMemberMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCDeleteMemberMessage.class/properties.json
@@ -10,5 +10,5 @@
 	"name" : "TCCDeleteMemberMessage",
 	"pools" : [
 		 ],
-	"super" : "TCCUserMessage",
+	"super" : "TCCMessage",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/README.md b/packages/TelegramClient-Core.package/TCCMessage.class/README.md
@@ -1 +1 @@
-super-dataclass for messages of all types
+super-dataclass for messages that can be created by users
diff --git a/...essage.class/class/maxReplySnippetSize.st → ...essage.class/class/maxReplySnippetSize.st b/...essage.class/class/maxReplySnippetSize.st → ...essage.class/class/maxReplySnippetSize.st
diff --git a/...ass/class/newFromMessageEvent.in.with..st → ...ass/class/newFromMessageEvent.in.with..st b/...ass/class/newFromMessageEvent.in.with..st → ...ass/class/newFromMessageEvent.in.with..st
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/class/newMessageWith..st b/packages/TelegramClient-Core.package/TCCMessage.class/class/newMessageWith..st
@@ -1,4 +1,4 @@
-instance creation
+json conversion
 newMessageWith: aJsonObject
 
 	^ (aJsonObject at: '@type') caseOf: {

diff --git a/...ge.class/class/timeStampToDateAndTime..st → ...ge.class/class/timeStampToDateAndTime..st b/...ge.class/class/timeStampToDateAndTime..st → ...ge.class/class/timeStampToDateAndTime..st
diff --git a/...rMessage.class/instance/asReplySnippet.st → ...CMessage.class/instance/asReplySnippet.st b/...rMessage.class/instance/asReplySnippet.st → ...CMessage.class/instance/asReplySnippet.st
diff --git a/...CCUserMessage.class/instance/asSnippet.st → ...ge/TCCMessage.class/instance/asSnippet.st b/...CCUserMessage.class/instance/asSnippet.st → ...ge/TCCMessage.class/instance/asSnippet.st
diff --git a/...e/TCCUserMessage.class/instance/asText.st → ...ckage/TCCMessage.class/instance/asText.st b/...e/TCCUserMessage.class/instance/asText.st → ...ckage/TCCMessage.class/instance/asText.st
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/instance/chat..st b/packages/TelegramClient-Core.package/TCCMessage.class/instance/chat..st
@@ -1,4 +1,4 @@
 accessing
 chat: aChat
 
-	chat := aChat.
+	chat := aChat
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/instance/id..st b/packages/TelegramClient-Core.package/TCCMessage.class/instance/id..st
@@ -1,4 +1,4 @@
 accessing
 id: aNumber
 
-	id := aNumber.
+	id := aNumber
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/instance/isFirstMessageOfDay..st b/packages/TelegramClient-Core.package/TCCMessage.class/instance/isFirstMessageOfDay..st
@@ -1,4 +1,4 @@
 accessing
-isFirstMessageOfDay: aBool
+isFirstMessageOfDay: aBoolean
 
-	isFirstMessageOfDay := aBool
+	isFirstMessageOfDay := aBoolean
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/instance/isLastMessageOfDay..st b/packages/TelegramClient-Core.package/TCCMessage.class/instance/isLastMessageOfDay..st
@@ -1,4 +1,4 @@
 accessing
-isLastMessageOfDay: aBool
+isLastMessageOfDay: aBoolean
 
-	isLastMessageOfDay := aBool
+	isLastMessageOfDay := aBoolean
diff --git a/...UserMessage.class/instance/isOutgoing..st → .../TCCMessage.class/instance/isOutgoing..st b/...UserMessage.class/instance/isOutgoing..st → .../TCCMessage.class/instance/isOutgoing..st
diff --git a/...CUserMessage.class/instance/isOutgoing.st → ...e/TCCMessage.class/instance/isOutgoing.st b/...CUserMessage.class/instance/isOutgoing.st → ...e/TCCMessage.class/instance/isOutgoing.st
diff --git a/.../TCCUserMessage.class/instance/isReply.st → ...kage/TCCMessage.class/instance/isReply.st b/.../TCCUserMessage.class/instance/isReply.st → ...kage/TCCMessage.class/instance/isReply.st
diff --git a/...CCUserMessage.class/instance/replyText.st → ...ge/TCCMessage.class/instance/replyText.st b/...CCUserMessage.class/instance/replyText.st → ...ge/TCCMessage.class/instance/replyText.st
diff --git a/...ssage.class/instance/replyToMessageId..st → ...ssage.class/instance/replyToMessageId..st b/...ssage.class/instance/replyToMessageId..st → ...ssage.class/instance/replyToMessageId..st
diff --git a/...essage.class/instance/replyToMessageId.st → ...essage.class/instance/replyToMessageId.st b/...essage.class/instance/replyToMessageId.st → ...essage.class/instance/replyToMessageId.st
diff --git a/...CUserMessage.class/instance/senderName.st → ...e/TCCMessage.class/instance/senderName.st b/...CUserMessage.class/instance/senderName.st → ...e/TCCMessage.class/instance/senderName.st
diff --git a/...UserMessage.class/instance/senderType..st → .../TCCMessage.class/instance/senderType..st b/...UserMessage.class/instance/senderType..st → .../TCCMessage.class/instance/senderType..st
diff --git a/...CUserMessage.class/instance/senderType.st → ...e/TCCMessage.class/instance/senderType.st b/...CUserMessage.class/instance/senderType.st → ...e/TCCMessage.class/instance/senderType.st
diff --git a/...CUserMessage.class/instance/senderUser.st → ...e/TCCMessage.class/instance/senderUser.st b/...CUserMessage.class/instance/senderUser.st → ...e/TCCMessage.class/instance/senderUser.st
diff --git a/...serMessage.class/instance/shouldNotify.st → ...TCCMessage.class/instance/shouldNotify.st b/...serMessage.class/instance/shouldNotify.st → ...TCCMessage.class/instance/shouldNotify.st
diff --git a/.../TCCUserMessage.class/instance/userId..st → ...kage/TCCMessage.class/instance/userId..st b/.../TCCUserMessage.class/instance/userId..st → ...kage/TCCMessage.class/instance/userId..st
diff --git a/...e/TCCUserMessage.class/instance/userId.st → ...ckage/TCCMessage.class/instance/userId.st b/...e/TCCUserMessage.class/instance/userId.st → ...ckage/TCCMessage.class/instance/userId.st
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json
@@ -1,18 +1,37 @@
 {
 	"class" : {
-		"newMessageWith:" : "LR 7/23/2022 10:44" },
+		"maxReplySnippetSize" : "rgw 5/12/2022 16:05",
+		"newFromMessageEvent:in:with:" : "rgw 6/2/2022 09:01",
+		"newMessageWith:" : "js 7/31/2022 09:28",
+		"timeStampToDateAndTime:" : "JB 5/16/2021 09:42" },
 	"instance" : {
-		"chat" : "aka 7/14/2022 16:41",
-		"chat:" : "aka 7/14/2022 16:41",
-		"chatId" : "aka 7/14/2022 16:41",
-		"core" : "aka 7/14/2022 16:41",
-		"core:" : "aka 7/14/2022 16:41",
-		"date" : "aka 7/14/2022 16:40",
-		"date:" : "aka 7/14/2022 16:40",
-		"id" : "aka 7/14/2022 16:40",
-		"id:" : "aka 7/14/2022 16:40",
-		"initialize" : "7/22/2022 10:40:18",
-		"isFirstMessageOfDay" : "7/22/2022 10:40:18",
-		"isFirstMessageOfDay:" : "7/22/2022 10:40:18",
-		"isLastMessageOfDay" : "7/22/2022 10:40:18",
-		"isLastMessageOfDay:" : "7/22/2022 10:40:18" } }
+		"asReplySnippet" : "rgw 5/12/2022 16:05",
+		"asSnippet" : "rgw 7/21/2022 15:11",
+		"asText" : "rgw 7/21/2022 15:11",
+		"chat" : "js 7/31/2022 09:23",
+		"chat:" : "js 7/31/2022 09:23",
+		"chatId" : "js 7/31/2022 09:27",
+		"core" : "js 7/31/2022 09:25",
+		"core:" : "js 7/31/2022 09:25",
+		"date" : "js 7/31/2022 09:24",
+		"date:" : "js 7/31/2022 09:25",
+		"id" : "js 7/31/2022 09:24",
+		"id:" : "js 7/31/2022 09:24",
+		"initialize" : "js 7/31/2022 09:27",
+		"isFirstMessageOfDay" : "js 7/31/2022 09:26",
+		"isFirstMessageOfDay:" : "js 7/31/2022 09:26",
+		"isLastMessageOfDay" : "js 7/31/2022 09:26",
+		"isLastMessageOfDay:" : "js 7/31/2022 09:26",
+		"isOutgoing" : "js 8/2/2020 22:00",
+		"isOutgoing:" : "pk 8/4/2021 11:42",
+		"isReply" : "rgw 5/12/2022 15:40",
+		"replyText" : "LR 6/5/2022 11:12",
+		"replyToMessageId" : "rgw 5/12/2022 13:43",
+		"replyToMessageId:" : "rgw 5/12/2022 13:43",
+		"senderName" : "JS 6/11/2022 09:50",
+		"senderType" : "tom.richter 7/25/2021 10:42",
+		"senderType:" : "pk 8/4/2021 11:42",
+		"senderUser" : "JS 6/11/2022 09:49",
+		"shouldNotify" : "per 6/16/2021 17:35",
+		"userId" : "tom.richter 7/25/2021 11:17",
+		"userId:" : "pk 8/4/2021 11:42" } }
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCMessage.class/properties.json
@@ -11,7 +11,11 @@
 		"date",
 		"core",
 		"isFirstMessageOfDay",
-		"isLastMessageOfDay" ],
+		"isLastMessageOfDay",
+		"isOutgoing",
+		"senderType",
+		"userId",
+		"replyToMessageId" ],
 	"name" : "TCCMessage",
 	"pools" : [
 		 ],

diff --git a/packages/TelegramClient-Core.package/TCCNotLoadedMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCNotLoadedMessage.class/properties.json
@@ -10,5 +10,5 @@
 	"name" : "TCCNotLoadedMessage",
 	"pools" : [
 		 ],
-	"super" : "TCCUserMessage",
+	"super" : "TCCMessage",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCNotSupportedMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCNotSupportedMessage.class/properties.json
@@ -10,5 +10,5 @@
 	"name" : "TCCNotSupportedMessage",
 	"pools" : [
 		 ],
-	"super" : "TCCUserMessage",
+	"super" : "TCCMessage",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCPhotoMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCPhotoMessage.class/properties.json
@@ -13,5 +13,5 @@
 	"name" : "TCCPhotoMessage",
 	"pools" : [
 		 ],
-	"super" : "TCCUserMessage",
+	"super" : "TCCMessage",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCTextMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCTextMessage.class/properties.json
@@ -10,5 +10,5 @@
 	"name" : "TCCTextMessage",
 	"pools" : [
 		 ],
-	"super" : "TCCUserMessage",
+	"super" : "TCCMessage",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCUserMessage.class/README.md b/packages/TelegramClient-Core.package/TCCUserMessage.class/README.md
diff --git a/packages/TelegramClient-Core.package/TCCUserMessage.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCUserMessage.class/methodProperties.json
diff --git a/packages/TelegramClient-Core.package/TCCUserMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCUserMessage.class/properties.json
diff --git a/...s/TelegramClient-UI.package/TCUChatMessageList.class/instance/createDayDividerForDate..st b/...s/TelegramClient-UI.package/TCUChatMessageList.class/instance/createDayDividerForDate..st
@@ -3,10 +3,5 @@ createDayDividerForDate: aDate
 
 	| messageItem |
 	messageItem := TCUDayDividerMessage newFromDate: aDate.
-	^ RectangleMorph new
-		color: Color transparent;
-		width: self scroller width;
-		height: messageItem height;
-		borderWidth: 0;
-		addMorphCentered: messageItem;
-		yourself
+
+	^ TCUDayDividerMessageWrapper newFromMessage: messageItem withWidth: self scroller width
diff --git a/...ges/TelegramClient-UI.package/TCUChatMessageList.class/instance/createMessageItemFrom..st b/...ges/TelegramClient-UI.package/TCUChatMessageList.class/instance/createMessageItemFrom..st
@@ -6,12 +6,5 @@ createMessageItemFrom: aCoreMessage
 	messageItem := TCUMessage newFrom: aCoreMessage.
 	messageItem when: #requestScroll send: #requestScrollToMessage: to: self with: aCoreMessage replyToMessageId.
 	messageItem isUserMessage
-		ifTrue: [^ TCUMessageWrapper newFromMessage: messageItem withWidth: self scroller width].
-
-	^ RectangleMorph new
-			color: Color transparent;
-			borderWidth: 0;
-			width: self scroller width;
-			height: messageItem height;
-			addMorphCentered: messageItem;
-			yourself
+		ifTrue: [^ TCUUserMessageWrapper newFromMessage: messageItem withWidth: self scroller width]
+		ifFalse: [^ TCUInfoMessageWrapper newFromMessage: messageItem withWidth: self scroller width].
diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/scrollToMessage..st b/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/scrollToMessage..st
@@ -2,5 +2,5 @@ drawing
 scrollToMessage: aMessageId
 
 	| messageItem |
-	messageItem := self items detect: [:item | ((item isKindOf: TCUMessageWrapper)) and: [item messageId = aMessageId]].
+	messageItem := self items detect: [:item | item messageId = aMessageId].
 	self scrollToShow: messageItem
diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatMessageList.class/methodProperties.json
@@ -11,14 +11,14 @@
 		"chat" : "js 7/31/2020 16:39",
 		"chat:" : "js 7/31/2020 16:39",
 		"core" : "JB 6/26/2021 10:22",
-		"createDayDividerForDate:" : "7/22/2022 15:41:43",
-		"createMessageItemFrom:" : "rgw 7/21/2022 15:09",
+		"createDayDividerForDate:" : "js 7/31/2022 10:20",
+		"createMessageItemFrom:" : "js 7/31/2022 10:02",
 		"displayChat:" : "RS 7/17/2021 11:54",
 		"initialize" : "RS 7/17/2021 17:40",
 		"isFromCurrentChat:" : "pk 8/5/2021 17:07",
 		"isFullyScrolledDown" : "JB 8/4/2021 11:15",
 		"requestScrollToMessage:" : "aka 6/15/2022 11:56",
-		"scrollToMessage:" : "aka 7/22/2022 09:34",
+		"scrollToMessage:" : "js 7/31/2022 10:21",
 		"scrollToNewestMessage" : "per 6/24/2021 23:14",
 		"showMessages" : "RS 7/17/2021 17:34",
 		"step" : "JB 7/19/2021 12:12" } }
diff --git a/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/README.md b/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/README.md
@@ -0,0 +1 @@
+wraps TCUDayDividerMessage to align it in the center of chatMessageList
diff --git a/...egramClient-UI.package/TCUDayDividerMessageWrapper.class/class/defaultInvalidMessageId.st b/...egramClient-UI.package/TCUDayDividerMessageWrapper.class/class/defaultInvalidMessageId.st
@@ -0,0 +1,4 @@
+default values
+defaultInvalidMessageId
+
+	^ -1
diff --git a/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/instance/messageId.st b/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/instance/messageId.st
@@ -0,0 +1,4 @@
+accessing
+messageId
+
+	^ self class defaultInvalidMessageId
diff --git a/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		"defaultInvalidMessageId" : "js 7/31/2022 10:42" },
+	"instance" : {
+		"messageId" : "js 7/31/2022 10:41" } }
diff --git a/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/properties.json b/packages/TelegramClient-UI.package/TCUDayDividerMessageWrapper.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "TelegramClient-UI",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "js 7/31/2022 10:37",
+	"instvars" : [
+		 ],
+	"name" : "TCUDayDividerMessageWrapper",
+	"pools" : [
+		 ],
+	"super" : "TCUMessageWrapper",
+	"type" : "normal" }
diff --git a/packages/TelegramClient-UI.package/TCUInfoMessageWrapper.class/README.md b/packages/TelegramClient-UI.package/TCUInfoMessageWrapper.class/README.md
@@ -0,0 +1 @@
+wraps TCUInfoMessage to align it in the center of chatMessageList
diff --git a/packages/TelegramClient-UI.package/TCUInfoMessageWrapper.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUInfoMessageWrapper.class/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		 } }
diff --git a/packages/TelegramClient-UI.package/TCUInfoMessageWrapper.class/properties.json b/packages/TelegramClient-UI.package/TCUInfoMessageWrapper.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "TelegramClient-UI",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "js 7/31/2022 10:36",
+	"instvars" : [
+		 ],
+	"name" : "TCUInfoMessageWrapper",
+	"pools" : [
+		 ],
+	"super" : "TCUMessageWrapper",
+	"type" : "normal" }
diff --git a/...ssage.class/instance/handlesMouseDown..st → ...ssage.class/instance/handlesMouseDown..st b/...ssage.class/instance/handlesMouseDown..st → ...ssage.class/instance/handlesMouseDown..st
diff --git a/...UUserMessage.class/instance/mouseDown..st → ...e/TCUMessage.class/instance/mouseDown..st b/...UUserMessage.class/instance/mouseDown..st → ...e/TCUMessage.class/instance/mouseDown..st
@@ -1,4 +1,4 @@
-initialization
+event handling
 mouseDown: anEvent
 
 	^ self messageModel chat selectedReplyToMessageId: self messageModel id
diff --git a/packages/TelegramClient-UI.package/TCUMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUMessage.class/methodProperties.json
@@ -4,6 +4,8 @@
 		"defaultMargins" : "aka 7/14/2022 16:20",
 		"newFrom:" : "LR 7/23/2022 10:44" },
 	"instance" : {
+		"handlesMouseDown:" : "js 7/31/2022 11:13",
 		"isUserMessage" : "rgw 7/21/2022 14:07",
 		"messageModel" : "aka 7/14/2022 17:22",
-		"messageModel:" : "aka 7/14/2022 16:18" } }
+		"messageModel:" : "aka 7/14/2022 16:18",
+		"mouseDown:" : "js 7/31/2022 11:13" } }
diff --git a/packages/TelegramClient-UI.package/TCUMessageWrapper.class/README.md b/packages/TelegramClient-UI.package/TCUMessageWrapper.class/README.md
@@ -1 +1 @@
-wraps TCUMessage to add profile photo in group chats and align the message depending on senderType
+abstract class to wrap a message to use it in chatMessageList