From e7b15f395b9cf9d966d9f023eb7f7eef0bf498b2 Mon Sep 17 00:00:00 2001
From: Jonas Kubeler <jan.kubeler@student.hpi.uni-potsdam.de>
Date: Wed, 12 Jun 2024 11:24:09 +0200
Subject: [PATCH 1/5] TEST added TCUVideoMessage cclass as compy from Photo

---
 .../TCUChatInfoPage.class/methodProperties.json    |  4 ++++
 .../TCUChatPhotoPage.class/methodProperties.json   |  3 +++
 .../TCUVideoMessage.class/README.md                |  1 +
 .../TCUVideoMessage.class/class/maxHeight.st       |  4 ++++
 .../TCUVideoMessage.class/instance/addContent.st   |  5 +++++
 .../TCUVideoMessage.class/instance/addPhoto.st     | 11 +++++++++++
 .../TCUVideoMessage.class/methodProperties.json    |  6 ++++++
 .../TCUVideoMessage.class/properties.json          | 14 ++++++++++++++
 8 files changed, 48 insertions(+)
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/README.md
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/class/maxHeight.st
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPhoto.st
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/properties.json

diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json
index 41c55ec18..cc0b60781 100644
--- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json
@@ -17,6 +17,7 @@
 		"addInfoBar" : "RS 5/20/2021 21:28",
 		"addInfoText" : "jkon 5/15/2024 11:04",
 		"addPhoto" : "jkon 5/22/2024 10:26",
+		"addTestmorph" : " 6/12/2024 11:22:13",
 		"addTitle" : "jkon 5/22/2024 10:55",
 		"addTitleText" : "jkon 5/22/2024 11:04",
 		"addUserList" : "jkon 5/15/2024 11:55",
@@ -30,6 +31,7 @@
 		"createContentWrapper" : "jkon 5/15/2024 11:53",
 		"createDescription" : "RS 5/29/2021 18:32",
 		"createInfoBar" : "RS 5/20/2021 21:31",
+		"createTestMorph" : " 6/12/2024 11:22:13",
 		"createTitle" : "jkon 5/22/2024 10:54",
 		"description" : "RS 5/29/2021 18:46",
 		"description:" : "RK 8/4/2021 10:26",
@@ -41,6 +43,8 @@
 		"photoPage" : "jkon 5/15/2024 15:05",
 		"photoPage:" : "jkon 5/15/2024 15:05",
 		"showPhotoPage" : "jkon 5/15/2024 15:07",
+		"testmorph" : " 6/12/2024 11:22:13",
+		"testmorph:" : " 6/12/2024 11:22:13",
 		"title" : "jkon 5/22/2024 10:50",
 		"title:" : "jkon 5/22/2024 10:50",
 		"userList" : "per 6/3/2021 17:27",
diff --git a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json
index 8baa92cb9..c788fcea5 100644
--- a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json
@@ -1,8 +1,11 @@
 {
 	"class" : {
+		"newFor:withBounds:andSize:" : " 6/12/2024 11:22:13",
 		"newWithBounds:andPhoto:andSize:" : "jkon 5/22/2024 10:27" },
 	"instance" : {
 		"addPhoto" : "jkon 5/22/2024 10:21",
+		"chat" : " 6/12/2024 11:22:13",
+		"chat:" : " 6/12/2024 11:22:13",
 		"initialize" : "jkon 5/15/2024 15:11",
 		"photo" : "jkon 5/22/2024 10:30",
 		"photo:" : "jkon 5/22/2024 10:31",
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/README.md b/packages/TelegramClient-UI.package/TCUVideoMessage.class/README.md
new file mode 100644
index 000000000..fd235147a
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/README.md
@@ -0,0 +1 @@
+a single message with photo displayed in a TCUMessageList
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/class/maxHeight.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/class/maxHeight.st
new file mode 100644
index 000000000..c80102041
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/class/maxHeight.st
@@ -0,0 +1,4 @@
+default values
+maxHeight
+
+	^ 500
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st
new file mode 100644
index 000000000..2e62c15b9
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st
@@ -0,0 +1,5 @@
+constructing
+addContent
+
+	self addPhoto.
+	self messageModel hasCaption ifTrue: [self addText].
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPhoto.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPhoto.st
new file mode 100644
index 000000000..a3d125332
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPhoto.st
@@ -0,0 +1,11 @@
+constructing
+addPhoto
+
+	| photoForm |
+	photoForm := self messageModel core imageStore getFormFor: self messageModel fileId.
+	photoForm := photoForm scaledToWidth: self class defaultWidth.
+
+	(photoForm height > self class maxHeight) ifTrue: [
+		photoForm := photoForm scaledToHeight: self class maxHeight.
+	].
+	self addMorphBack: photoForm asMorph.
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
new file mode 100644
index 000000000..441dae8aa
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		"maxHeight" : "TR 6/22/2021 10:07" },
+	"instance" : {
+		"addContent" : "TR 6/22/2021 10:46",
+		"addPhoto" : "tr 8/4/2021 13:35" } }
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/properties.json b/packages/TelegramClient-UI.package/TCUVideoMessage.class/properties.json
new file mode 100644
index 000000000..6bb206081
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "TelegramClient-UI",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		 ],
+	"name" : "TCUVideoMessage",
+	"pools" : [
+		 ],
+	"super" : "TCUUserMessage",
+	"type" : "normal" }

From 5c9db9e71c603c811706011610546a26df56a2e4 Mon Sep 17 00:00:00 2001
From: Jonas Kubeler <jan.kubeler@student.hpi.uni-potsdam.de>
Date: Wed, 12 Jun 2024 11:32:21 +0200
Subject: [PATCH 2/5] added videoMessages and the ability to open videos on
 click (on windows)

---
 .../TCCMessage.class/class/newMessageWith..st  |  1 +
 .../TCCMessage.class/methodProperties.json     |  2 +-
 .../TCCVideoMessage.class/README.md            |  1 +
 .../TCCVideoMessage.class/class/newFrom..st    | 13 +++++++++++++
 .../instance/asSnippet.st                      |  8 ++++++++
 .../TCCVideoMessage.class/instance/asText.st   |  4 ++++
 .../TCCVideoMessage.class/instance/caption..st |  4 ++++
 .../TCCVideoMessage.class/instance/caption.st  |  4 ++++
 .../instance/hasCaption.st                     |  4 ++++
 .../TCCVideoMessage.class/instance/height..st  |  4 ++++
 .../TCCVideoMessage.class/instance/height.st   |  4 ++++
 .../instance/thumbnailId..st                   |  4 ++++
 .../instance/thumbnailId.st                    |  4 ++++
 .../TCCVideoMessage.class/instance/videoId..st |  4 ++++
 .../TCCVideoMessage.class/instance/videoId.st  |  4 ++++
 .../TCCVideoMessage.class/instance/width..st   |  4 ++++
 .../TCCVideoMessage.class/instance/width.st    |  4 ++++
 .../methodProperties.json                      | 17 +++++++++++++++++
 .../TCCVideoMessage.class/properties.json      | 18 ++++++++++++++++++
 .../TCUMessage.class/class/newFrom..st         |  1 +
 .../TCUMessage.class/methodProperties.json     |  2 +-
 .../instance/addContent.st                     |  2 +-
 .../instance/addThumbnail.st                   | 11 +++++++++++
 .../instance/openVideo.st                      |  6 ++++++
 .../methodProperties.json                      |  5 +++--
 25 files changed, 130 insertions(+), 5 deletions(-)
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/README.md
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/class/newFrom..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asSnippet.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asText.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/hasCaption.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width.st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/methodProperties.json
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoMessage.class/properties.json
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st

diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/class/newMessageWith..st b/packages/TelegramClient-Core.package/TCCMessage.class/class/newMessageWith..st
index a03d3b669..850bffcdf 100644
--- a/packages/TelegramClient-Core.package/TCCMessage.class/class/newMessageWith..st
+++ b/packages/TelegramClient-Core.package/TCCMessage.class/class/newMessageWith..st
@@ -4,6 +4,7 @@ newMessageWith: aJsonObject
 	^ (aJsonObject at: '@type') caseOf: {
 		['messageText'] -> [TCCTextMessage newFrom: aJsonObject].
 		['messagePhoto'] -> [TCCPhotoMessage newFrom: aJsonObject].
+		['messageVideo'] -> [TCCVideoMessage newFrom: aJsonObject].
 		['messageChatAddMembers'] -> [TCCAddMembersMessage newFrom: aJsonObject].
 		['messageChatDeleteMember'] -> [TCCDeleteMemberMessage newFrom: aJsonObject].
 	} otherwise: [TCCNotSupportedMessage new]
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json
index d89b42bcc..0bfdeec32 100644
--- a/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json
+++ b/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json
@@ -2,7 +2,7 @@
 	"class" : {
 		"maxReplySnippetSize" : "rgw 5/12/2022 16:05",
 		"newFromMessageEvent:in:with:" : "rgw 6/2/2022 09:01",
-		"newMessageWith:" : "js 7/31/2022 09:28",
+		"newMessageWith:" : "JK 6/12/2024 11:30",
 		"timeStampToDateAndTime:" : "JB 5/16/2021 09:42" },
 	"instance" : {
 		"asReplySnippet" : "rgw 5/12/2022 16:05",
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/README.md b/packages/TelegramClient-Core.package/TCCVideoMessage.class/README.md
new file mode 100644
index 000000000..4315e3265
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/README.md
@@ -0,0 +1 @@
+data-represantation of a single message with a photo in a chat
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/class/newFrom..st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/class/newFrom..st
new file mode 100644
index 000000000..6738d4a09
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/class/newFrom..st
@@ -0,0 +1,13 @@
+instance creation
+newFrom: aJsonObject
+
+	| thumbnailData |
+	thumbnailData := ((aJsonObject at: 'video') at: 'thumbnail').
+
+	^ self new
+		caption: ((aJsonObject at: 'caption') at: 'text');
+		thumbnailId: ((thumbnailData at: 'file') at: 'id');
+		videoId: (((aJsonObject at: 'video') at: 'video') at: 'id');
+		width: (thumbnailData at: 'width');
+		height: (thumbnailData at: 'height');
+		yourself
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asSnippet.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asSnippet.st
new file mode 100644
index 000000000..0397ce76c
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asSnippet.st
@@ -0,0 +1,8 @@
+accessing
+asSnippet
+
+	self hasCaption ifTrue: [
+		^ 'Video: ', self caption
+	] ifFalse: [
+		^ 'Video'
+	]
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asText.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asText.st
new file mode 100644
index 000000000..8a4f9bd9d
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/asText.st
@@ -0,0 +1,4 @@
+accessing
+asText
+	
+	^ self caption
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption..st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption..st
new file mode 100644
index 000000000..f715fe8d2
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption..st
@@ -0,0 +1,4 @@
+accessing
+caption: aString
+
+	caption := aString
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption.st
new file mode 100644
index 000000000..ddad829af
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/caption.st
@@ -0,0 +1,4 @@
+accessing
+caption
+
+	^ caption
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/hasCaption.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/hasCaption.st
new file mode 100644
index 000000000..c851a3e7d
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/hasCaption.st
@@ -0,0 +1,4 @@
+accessing
+hasCaption
+
+	^ self caption notEmpty
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height..st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height..st
new file mode 100644
index 000000000..e51d4ef62
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height..st
@@ -0,0 +1,4 @@
+accessing
+height: aNumber
+
+	height := aNumber
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height.st
new file mode 100644
index 000000000..226430745
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/height.st
@@ -0,0 +1,4 @@
+accessing
+height
+
+	^ height
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId..st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId..st
new file mode 100644
index 000000000..f8b76a233
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId..st
@@ -0,0 +1,4 @@
+accessing
+thumbnailId: aNumber
+
+	thumbnailId := aNumber
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId.st
new file mode 100644
index 000000000..e8be9409e
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/thumbnailId.st
@@ -0,0 +1,4 @@
+accessing
+thumbnailId
+
+	^ thumbnailId
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId..st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId..st
new file mode 100644
index 000000000..2ca07ada5
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId..st
@@ -0,0 +1,4 @@
+accessing
+videoId: aNumber
+
+	videoId := aNumber
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId.st
new file mode 100644
index 000000000..f0174ce55
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/videoId.st
@@ -0,0 +1,4 @@
+accessing
+videoId
+
+	^ videoId
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width..st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width..st
new file mode 100644
index 000000000..6d10e3990
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width..st
@@ -0,0 +1,4 @@
+accessing
+width: aNumber
+	
+	width := aNumber
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width.st b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width.st
new file mode 100644
index 000000000..584b7f517
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/instance/width.st
@@ -0,0 +1,4 @@
+accessing
+width
+
+	^ width
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCVideoMessage.class/methodProperties.json
new file mode 100644
index 000000000..97f215865
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/methodProperties.json
@@ -0,0 +1,17 @@
+{
+	"class" : {
+		"newFrom:" : "JK 6/12/2024 11:28" },
+	"instance" : {
+		"asSnippet" : "JK 6/12/2024 11:31",
+		"asText" : "TR 6/20/2021 10:41",
+		"caption" : "TR 6/20/2021 10:19",
+		"caption:" : "pk 8/4/2021 11:44",
+		"hasCaption" : "TR 6/22/2021 10:40",
+		"height" : "TR 6/20/2021 10:21",
+		"height:" : "pk 8/4/2021 11:47",
+		"thumbnailId" : "JK 6/12/2024 11:29",
+		"thumbnailId:" : "JK 6/12/2024 11:29",
+		"videoId" : "JK 6/12/2024 11:29",
+		"videoId:" : "JK 6/12/2024 11:30",
+		"width" : "TR 6/20/2021 10:21",
+		"width:" : "pk 8/4/2021 11:47" } }
diff --git a/packages/TelegramClient-Core.package/TCCVideoMessage.class/properties.json b/packages/TelegramClient-Core.package/TCCVideoMessage.class/properties.json
new file mode 100644
index 000000000..9fe961cc7
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoMessage.class/properties.json
@@ -0,0 +1,18 @@
+{
+	"category" : "TelegramClient-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		"caption",
+		"width",
+		"height",
+		"thumbnailId",
+		"videoId" ],
+	"name" : "TCCVideoMessage",
+	"pools" : [
+		 ],
+	"super" : "TCCMessage",
+	"type" : "normal" }
diff --git a/packages/TelegramClient-UI.package/TCUMessage.class/class/newFrom..st b/packages/TelegramClient-UI.package/TCUMessage.class/class/newFrom..st
index 2189082d3..12a18001a 100644
--- a/packages/TelegramClient-UI.package/TCUMessage.class/class/newFrom..st
+++ b/packages/TelegramClient-UI.package/TCUMessage.class/class/newFrom..st
@@ -4,6 +4,7 @@ newFrom: aCoreMessage
 	^ (aCoreMessage class caseOf: {
 			[TCCTextMessage] -> [TCUTextMessage].
 			[TCCPhotoMessage] -> [TCUPhotoMessage].
+			[TCCVideoMessage] -> [TCUVideoMessage].
 			[TCCAddMembersMessage] -> [TCUInfoMessage].
 			[TCCDeleteMemberMessage] -> [TCUInfoMessage].
 		} otherwise: [TCUTextMessage])
diff --git a/packages/TelegramClient-UI.package/TCUMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUMessage.class/methodProperties.json
index c66446a7b..d25d5d325 100644
--- a/packages/TelegramClient-UI.package/TCUMessage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUMessage.class/methodProperties.json
@@ -2,7 +2,7 @@
 	"class" : {
 		"defaultBottomMargin" : "aka 7/14/2022 16:20",
 		"defaultMargins" : "aka 7/14/2022 16:20",
-		"newFrom:" : "LR 7/23/2022 10:44" },
+		"newFrom:" : "JK 6/12/2024 11:26" },
 	"instance" : {
 		"handlesMouseDown:" : "js 7/31/2022 11:13",
 		"isUserMessage" : "rgw 7/21/2022 14:07",
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st
index 2e62c15b9..a7cceeb4b 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addContent.st
@@ -1,5 +1,5 @@
 constructing
 addContent
 
-	self addPhoto.
+	self addThumbnail.
 	self messageModel hasCaption ifTrue: [self addText].
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
new file mode 100644
index 000000000..ecb52b170
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
@@ -0,0 +1,11 @@
+constructing
+addThumbnail
+
+	| thumbnailForm |
+	thumbnailForm := self messageModel core imageStore getFormFor: self messageModel thumbnailId.
+	thumbnailForm := thumbnailForm scaledToWidth: self class defaultWidth.
+
+	(thumbnailForm height > self class maxHeight) ifTrue: [
+		thumbnailForm := thumbnailForm scaledToHeight: self class maxHeight.
+	].
+	self addMorphBack: ((thumbnailForm asMorph) on: #mouseDown send: #openVideo to: self).
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
new file mode 100644
index 000000000..a966a8a4e
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
@@ -0,0 +1,6 @@
+constructing
+openVideo
+
+	self messageModel core
+		send: (TCCRequest newRequestFile: self messageModel videoId)
+		thenDo: [:videoEvent | OSProcess command: 'cmd.exe /c ""', ((videoEvent at: 'local') at: 'path'), '""'].
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
index 441dae8aa..aa7832586 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
@@ -2,5 +2,6 @@
 	"class" : {
 		"maxHeight" : "TR 6/22/2021 10:07" },
 	"instance" : {
-		"addContent" : "TR 6/22/2021 10:46",
-		"addPhoto" : "tr 8/4/2021 13:35" } }
+		"addContent" : "JK 6/12/2024 11:27",
+		"addThumbnail" : "JK 6/12/2024 11:27",
+		"openVideo" : "JK 6/12/2024 11:27" } }

From 797cd891c6f201efa0eb3337c81cec1311724dd1 Mon Sep 17 00:00:00 2001
From: Jonas Kubeler <jan.kubeler@student.hpi.uni-potsdam.de>
Date: Wed, 12 Jun 2024 12:15:33 +0200
Subject: [PATCH 3/5] added temporary playbutton asset and display playbutton
 on video thumbnails

---
 .squot-materialize                            | 115 ++++++++++--------
 assets/playbutton.jpg                         | Bin 0 -> 7172 bytes
 .../instance/addPlaybuttonTo..st              |  10 ++
 .../instance/addThumbnail.st                  |   6 +-
 .../instance/openVideo.st                     |   6 +-
 .../methodProperties.json                     |   5 +-
 6 files changed, 83 insertions(+), 59 deletions(-)
 create mode 100644 assets/playbutton.jpg
 create mode 100644 packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st

diff --git a/.squot-materialize b/.squot-materialize
index 3253a744e..09462332b 100644
--- a/.squot-materialize
+++ b/.squot-materialize
@@ -2,21 +2,27 @@
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
-			'pull_request_template.md'
+			'discord_actions.yml'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'workflows',
-			'ci-linter.yml'
+			'.smalltalk.release.ston'
 		],
 		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClient-Core'
+			#name : 'TelegramClientTests-Core'
+		},
+		#path : FSAbsolutePath [
+			'packages'
+		]
+	},
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'TelegramClientTests-Misc'
 		},
 		#path : FSAbsolutePath [
 			'packages'
@@ -24,19 +30,21 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.release.ston'
+			'.smalltalk.lint.ston'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.squot'
+			'.github',
+			'ISSUE_TEMPLATE',
+			'bug_report.md'
 		],
 		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'BaselineOfTelegramClient'
+			#name : 'TelegramClient-UI'
 		},
 		#path : FSAbsolutePath [
 			'packages'
@@ -44,28 +52,49 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.ston'
+			'.github',
+			'ISSUE_TEMPLATE',
+			'feature_request.md'
 		],
 		#encoding : 'TXT'
 	},
+	SquotImageMapper {
+		#path : FSAbsolutePath [
+			'assets',
+			'logo.png'
+		],
+		#encoding : Class [ #PNGReadWriter ]
+	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'ISSUE_TEMPLATE',
-			'feature_request.md'
+			'.gitignore'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'discord_actions.yml'
+			'LICENSE'
+		],
+		#encoding : 'TXT'
+	},
+	SquotImageMapper {
+		#path : FSAbsolutePath [
+			'assets',
+			'playbutton.jpg'
+		],
+		#encoding : Class [ #JPEGReadWriter2 ]
+	},
+	SquotPlaintextMapper {
+		#path : FSAbsolutePath [
+			'CONTRIBUTING.md'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.gitignore'
+			'.github',
+			'workflows',
+			'ci-linter.yml'
 		],
 		#encoding : 'TXT'
 	},
@@ -79,42 +108,35 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'LICENSE'
+			'README.md'
 		],
 		#encoding : 'TXT'
 	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'TelegramClientTests-UI'
-		},
+	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'packages'
-		]
+			'.github',
+			'stale.yml'
+		],
+		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClient-UI'
+			#name : 'TelegramClientTests-UI'
 		},
 		#path : FSAbsolutePath [
 			'packages'
 		]
 	},
-	SquotImageMapper {
-		#path : FSAbsolutePath [
-			'assets',
-			'logo.png'
-		],
-		#encoding : Class [ #PNGReadWriter ]
-	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'CONTRIBUTING.md'
+			'scripts',
+			'preLoading.st'
 		],
 		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClientTests-Misc'
+			#name : 'BaselineOfTelegramClient'
 		},
 		#path : FSAbsolutePath [
 			'packages'
@@ -122,22 +144,13 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'workflows',
-			'release.yml'
-		],
-		#encoding : 'TXT'
-	},
-	SquotPlaintextMapper {
-		#path : FSAbsolutePath [
-			'.github',
-			'stale.yml'
+			'.smalltalk.ston'
 		],
 		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClientTests-Core'
+			#name : 'TelegramClient-Core'
 		},
 		#path : FSAbsolutePath [
 			'packages'
@@ -145,28 +158,22 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'README.md'
-		],
-		#encoding : 'TXT'
-	},
-	SquotPlaintextMapper {
-		#path : FSAbsolutePath [
-			'.smalltalk.lint.ston'
+			'.squot'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
-			'ISSUE_TEMPLATE',
-			'bug_report.md'
+			'workflows',
+			'release.yml'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'scripts',
-			'preLoading.st'
+			'.github',
+			'pull_request_template.md'
 		],
 		#encoding : 'TXT'
 	}
diff --git a/assets/playbutton.jpg b/assets/playbutton.jpg
new file mode 100644
index 0000000000000000000000000000000000000000..ba3c745e98f13e2b858d6e0c7e21d1ed119d464f
GIT binary patch
literal 7172
zcmdT|2{@Gd+y0GV1`UG{5?M|rQ;uxOF2@=%m2HYd_99DJ$}Y;GAxkwa#=dj1M97jX
zEy83eWeJ5*AxpNI`QCAsI-Sn)Ki~IV-}Sw&-&~h>-g)2mxu55`pZosNpVNl{myw>K
z9)Q6BfI)wN{u1Z_Rs;fxU|~ffk!)<N>?mFi)P@ZxL7t6h-Yr6+B3p!ng||w|NNpA0
zAt5Y`*}Z*->@Ecb1yQLz>dJCzGV%&?jGMsN*w|1TPy!qr0&-%)VsiiSL2m%utS}dt
z3mhg6n7CnZZW#Rm5QW~81-5>GUk(@(oS6lIWMyOD09{bQ1(;xPI1@9Rg@u_Jx;hB@
z9x!vW@QCfwMr_0#LyCLx%7rDQu}bW{-N<*KYerJu-aDL)oqv;npwM^Qq%hm16%>_r
zEALU!`9W7t-@wr5;30DhODk)<!*NF^XBSsDAK%kw{QLs~BO=d7MPIlWb2%|7IpxaL
zYsB=7%&hF3+`RnKvhs>Ml~s4E?>9YYZfR|M_=x<hyQjDB`HTM7Bco$)-i}X9Qf5ES
z%`Yr|T3TLV#03NJpTmMae-7-cxVWLXn3$R2%t%IDFeX1}!MT}P#C9Qgv~kE|UK_>b
z!dQ9tCZyeNWRs9TFvDl>-Nnu?sqp%{Sw?8<k^Qs4!v9rdzXkR=u6}@m!=U8Bxq&8F
zq+rrR;pB36<@q8ZfJu)5Pq$!5zW;aU*rE495%6;A?s_qxUD9q2f5^fG4vzuk^s=AS
zx3dbUnE}>@w^t;3%Uwt)vL0G7OV=q>R++>hja7w{<HI7F0f^;v_5S~IgLecx77CRC
zJyzMbNT{9J&PQv5_N1PEk(dOM2*n+P0fn!j6e)0rwS%3=EJ2a-$XF2<xKRv-#8eh-
z)K%E2hg1ONB1y*s$vm<F5EPi)?5e02yE_!TzAudB4K9c6bmmM(4N7;~DF@-ZQx_%C
zYh~6PqoQb1>&t8P17UP<KXkW?IyRLKB428CterDmSXDjP*J3N`MW|GvgL`l~I1f&D
zTc~MZJ3Tlzn%_avh#DQ#4SYE)J@?2TDsOGK?A?vhGy*Aq@<QpM>`%8~^~$sbggco!
z191sc1_q69LltuWGHxh#IF!{`v=N5Hywz?NZ+;`tA`bB4bO9sjSq<}yTIGV0?rPyR
ziB|wPU0xUwG>lw<lf%eKOs#;&1(t~t!5ZD&>CjAcx{T*)p-h~zkDSS&X1`w{j+{Qq
zM_H*murI<BMh7XfTS!#XgIXfV`TjZj<bB^YkCZpjteWTQN06qid=H1t8CH4g-OR~!
zrvr7F!&0>6qqD`r7+fgJPE}TN^(=qc*#xBwxjY)HX^Q6TD+`CMXLc+*X+CI`BzGAz
z1J3XiD3wr1Fji!4CTo6U(#d0;c`e(!%@A?L^@T6&v~!;x@-;+X)tr6TXXr31{y|M9
z?U?Xm>XJa-+NF@I#nLfaXF0Ep3~V-+jvpxW5lJxpxcl`j^svdvzA(8cW-ivEIP8O!
zIzolrU3o3dH<9Dsqn&=DH~9rAb|}v6r_`}<gW2HgdC4&c7gZD2cv6!It2=4Rik*DY
zr?e6A9RD%CF+f(GQMYpHE^P}%LKwJ0LPWbO&YFbc#6Z>gv|&CIx~CS9fD?}p@LlPl
z@`eIxy~%ux1VNcEe1|q_?W@&xB{fwfnfQ<HYCuy4!$ZFxr0^3RbNW4<tkNgctyVA}
z+&e1jHw{v*lPU(BodWYyZ<&4~c#;Z(bZ|92#qI6yS`1Y%G+vPyRdcs9T%kY~Fr~z7
z4~0sBQ4Zf+kq8D_)Q!!R{aRLz1Ab1LZ?0E9iJ&G@v4|M3$f0?#tfxrhnWJn15|tCB
zGjYEXd;gtharxtl>e6fJS5FyCG<8LL*(SWE10MX;?PcQvmXERJlGIsBg@no@tg6f3
zN4^(<<^@c$d$N9pPF12e211BIe}B^`Z)$Z)T1n5N%t``eAM8q{vaYg&A0O0xN6`7P
zE#d?*G6EBw>9E>PWeK=Z`p`?hLm^I*EL>B0z$L|6>e^eP-ev2}J~gK$pSfOua%abA
zrN3Rd)53W>_II^KdspA!Q%EvHW-d8Dm?|Wd*Yp#^(WI-KqeI=6KMZjA=c~4gKi*hs
zuzsQVJ=LaQF&pnEtxDbXk--bdS;91W$}o1yB|S!q?}my+oKv{$9uf;_K0~569x5H+
z`b)lGH^V0NkXgKDOkA@5Mbb~zv3l#s$ZH7*9~cfaQ#p|P>XZr*<mC<>p2VN4td!zz
z(U_pT3&gAtKL+WTRrPqjsjK!JZ1cBmyO(s9y?6FZCABDzdJEBhGf(;|)aitQdQu^~
zi?%NBK}JXZ<CRx9Eu%2?ykzIm<Fmp9uZf@wBWdZO>Sv9*ix%RPu+IT($yeRMtH;Eq
zVZKCWrtXff%|V{q{C)z4(Vv1uXK3b>AM8fAu3lP@5YlQKDKGeK?6w0tuYF;YT9dj!
zKqLuD3dHiq1AF5jI)iw!Jh!kDf#ii{={nm59)Lh00caT5E!9}k9(To_s*@?66Fwfo
zP6r!<t5%5bur0Nw`E+o?KYZl$iAL^^$L6I~X;KQE0>gGdg&mK{-uhL{a1yyzrvH45
zO^2_YbwHf?ZXR_LXSYDbw@ELq=``NhG5N`~k6dGers+~OX;p+N%QjS&6~aQmQDQ3@
z{#d2U=1kse<*_II$GGbc!bOwlp!%%kc7+2kpLBL?)|Z~awXkNx8BFnKi?ywB!o6!v
zuyBixfl{K9$BCJ{Qq%ftQZtjbUU)nr-`B=_aL$Ws{Bi04r~E=IawfB3A)GP$4OoxG
zdt;ShVa;O1Ll$R{Sz>Tx41fs;lgHM<yO}Vh>(Zsg!i&>lfkt44H7S-8lCSERwuMYc
zTxjvB+2q~CHu=eA*t>@KY+7w^34tXpSrYQ!n`MwjYD_Qm4SM9b+T~zTPL^~KP$fz#
zmLqaOW!ms{DDx(t(V;{|(}6e*nx;qe7YgP>r7IRw-Sc$b*gOywJ>7~*)v<6PK|^%r
z%^(qV+v#n$&prJosnhJO5GieqS<o`N5fNd9&xtze`PjtGqJM0zVOf--YKG+2H4Sj|
z$>|syxZhPjlh{=keNWq%iJ=0%Ug2`GfkGG(+ImJW`?M&>{Zb{TI~qE)E$A^_SI*>y
zHMM%Bm3NEA!TWM6VKg!wEL<#}=f0GlY5&z^W&{b*cm|xzm|6mA7Rk;c$r%uw=4V$4
zw<r5{YtFT7OZ>>(iHvi<65`P}U9A1+T1*-pI0oZZ*wai1;))L+swGbC&u3uvH5J1q
zh@xvhu7ps%M0-nmI6mVy`RkRiEzPx?;ss>vt?fNuAA2@=<Wj+F>-P~RIVn|<-u9Y7
zA+5`Oj#^U*S|ZlB&W0;DzSj*z<dI%bNHyqf<K+{Oa;a7A+mz>ONj!Aj!{LeZ`Q!i#
zI$*au_*MNg`k(3Pb-zUp{L^VQUAfzI;Fm^aEAc6TogUbX#>IT%;GcS5y(RA99=V2C
z(>g>5-grYdPFL(2H0z+rih)EkoB<LEF3}tN$5~f^Zjl!_Cz1OT4Rb$a$avFAPc7PL
zyw+o{zXguEoFQ5qk_7^amD6LSBfmw)f!n^Urv)7yI!FjHrGsLLm7W!?-~HlJf#gZy
z3niOTe8=Klp(;CkXeM4YoBR}g&|{nqv=tv45O|AtbGzDV<&+!wDCP%o<aY~JcLwyY
z*z%aa?wci{cc)h<+Az)SdlDJ2I5gLT9H0aLGc@xQPA&1P>wU!NCB_Qu2y>h}C*h=;
z=BpV&{OC4+6n1lPbAsuNjq=)kqA};-uL{7x?z3Y5w%k23bZL$bSlj5J1Y+kzOT&bz
zBh#0F=LUn28a3yI)&&w;>3;y6^;w5I@~Y7hc8lT|vun*bkgD#&bnM2k&vOEPu03$G
zzv9c>_j?QN!p#G*TymN!_4!NrBNGZru%cl#LG(&1R6OGit#gu{urDV^$=(^{T4-_o
z)H^zu*kF6s_TsQuWz*%`G;EIM5`}E%JO8UT&y-(R?NFhhAoatLPhYB63uK(V+>(wN
zJU_pFtbq=UhVqG7l`nm-KQ@zd3L6!TfeKw%1!ofbR#7UCmy-6obo`PQk&96Kwbkd)
zK_55OjcV3O2V+N{(ZSROT19aD?|y+{z5z4;egSJDBlg{^8pAgZ!evzCGGB{Zop^0`
zliuCR3bg>20MAc^WnNgPTOH<3=}r#P;p<_ITh}fweJa+Ve0WO>(V#e`?0+#)uic*p
zhXXtIKMF6)f+bE-?0u!8LHz_enEj}k6`;B$*YKUZZ6E1y5TU6*=&rzakLz_+52>!Q
z3`3yv+nmQ~As`t5ed-qpid1Aks{gWVK#??70U~@zEm%JnNs2`I^1{Z1igKQxzCL9e
zzUS)qt2qfP+~(NgrHc+@?(w#mWsmfJ(^W{b_ln;Y`q!AjtoySooipP~Z>NmrhM_eH
zS-^#ddtaG!er$?ED3;ixhEMnqZ47&vR^<hy&eyMy!_>02=jf*o{9N8YNezgO9&&+^
zA4`5Le`Y{7dUeI;vTHf+o9xY2_&#odT0s(&H_BV$kzcW_4hst-*OoQ#Z<~4$HAc8h
z7JoqpuB93C1GbT%RogK3H*b6ZK<;s0!W3S?3~@%khz~-H!4BUPTh9JNCMwZU*~bM_
zx-UMPSshxMR2*v<JMODEeH<Ymv30S8x6ijM!`)9wSzPwz>kj`8(_)oi-p<$+O#1JM
z07}qbRUHW?3FKTs(!=qnUby;$0$!bhyM;F`AEXeyT<n_L+lKQ~lQjnwTZWF>xXCZ~
zd0!I<>X|5*=Y>_~`<GgO(#ejB(ug`Esv4w@z45{7vf<d}z%E_cb*0Qu%U>_~FrxHe
za&}!w!C@;IFKqB^^l{<aYxQ_APXLqk_A``MDkFzm=1fcHamzkSy$zF=qjBPK4sm<a
zL-R9!;=2WL)jywuI4wbF0${Jr-ii10&8k1|qkd~2tS3V~M5f}|rKF51iLEo*(^?|i
zIQ4Y-N=8h0Cx`_<L{NE7JcI{wPAysJnuUKgx;b<7W)-uFuWu<DF)Cs0j}!WU+Cz1V
zDi}Fjq@^J1)c<@oG}v#2*bMOoAOYF!F5f`l3q(+}Hgpi?n_6aNm~UK_GWF(1%_h;3
z5%<JS1;0MULwClsQq?}FO67FVmsqjq=3hv|0dq5DGu7ZjS6P1(s5%Uc|FfPH!F;Yn
zq<WF7nR}qai$^byoSQYIwu+7;YSZ8LpH<B}>EZBk{NkNzI=GclUsd8?{C%^AFzxxB
zO=t2ohS=w!(~mTxrzTBcZ|8BH@!HJ7T>3h?yM9MvztG;Fo>ReO-tr$lk4iLX<kt5w
zmV&QvE=<&IoOwYWUJatyub3}$(ZORr&DC8b4ilvQk9*0z&-q-3#&2n_nb6>*A~nV|
z&vbHy_F|wmgA9lnBAE~JCk7Bap#a)=xw}qG&c_40pss_)f*H)ZDa)nT1#-Ork2aE1
zcV!b$>qI0oUex(}@Qdr=Jlt%{N9!8Mb)8@t7EBSNgPr$USC2leU6qpL(uU$RS|kOu
zDL!3Fyx&P#t|{BjnbuRYW9Vo|pdY+_BBz77w-W8?v$0u4SmA`M{t{K6_mTY{TH%XA
z`0cyBr}nHk^ri}Xo66~+Ja-hIx=nhx?H;lzc;k=8FV5zkNLkI-?>R;X{GUjyYS`C0
zZVufG%B}qx^IWoYU`cy+w$HY8>t%0~&86P^O&B{=3B*HxMlt``&*8K_SKGQt7*`D9
zY&}xR=6l@<cVXPLE_Fn`;AsT`Jv8BYJ#ubm*~eFU8V48V6)B@x%uHE==E+g)KeZ{q
zMy|E<O$b$nos{u2$u`)zZF-~6#*kUXW;Yd!v`oWNTGwmAhQ$2cUD2Y^czbD_UJxdG
zJ!6cl{ca(OTvtvm7VW-r%w2Lk%}%yp!J&b~eh;f}&{?u@cbBVxmG<%nNdaBRaoIQ}
z4)60<YA-O7IsTs6nVXPDaWB$61ThMq1n&F~0vqOeixEz7B&!Lt1dlq$CX{*;;ac6T
z@M=86*T&yxXaR<~s}f1#O!`yD`;R8!mtBYWyNYFu(t?lr!d>Ow>D9807J`V>pLcFH
zADBTT`0wkVz6}|<4jD7*Av!R&+#WQ%)1x!dL#%fH;9+LZhgDRQKpDty2_I*dLB_s%
z`O13N;TqSXm*gL?I0Q<LRdG5tt-AndQ#c%tEII4czC9_^ojNVfta-ID$4f+BH}J*~
zx?FI-!=(}Q%J?qL6@K?!b)u7Tk8B4^y3=S$N6?z-HA735caF~U)X+g4|BZU|e9xPb
zlEV{bAx1Jtn1L1SA=AD6qS4hTeVHrrA$^7y=%CXJe`at~=X*|j^7}H%WG(F^Q3iSG
zWs~CQyNYn@=ZhCNgh)@EILB6OYxg9<x|Oi(_QG@Zjn7(hV5xNad0qAl5<I2@E|IlK
z@M89w2KglG**lk4w4vQT4G4oe{e^ASxoI)1DHsQXQClYQVRVDJFxrT*lN0*ca{jqr
zm(eeRyr^Jitcbf&48!ni3H=+-D)iU=W^rl~uSkTZSSWu48S)}~_0S5?#=&3n(l@N}
zzkUq#C<Nrh8QU0NxAhmh91NpQE*vG7yD-cboT2ETa)M{^f=I@GZ5hF+Yu(rWqu%(6
iJ^p)-frU-}!UX`@Z2p-U5T_XD{<r^Ua1fII;=cg7ZTryx

literal 0
HcmV?d00001

diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st
new file mode 100644
index 000000000..802cd009b
--- /dev/null
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st
@@ -0,0 +1,10 @@
+constructing
+addPlaybuttonTo: aForm
+
+	| thumbnailMorph playbutton |
+	
+	thumbnailMorph := aForm asMorph.
+	playbutton := (ImageMorph new 
+		image: (((GitAssetLoader for: 'TelegramClient') loadForm: ('/assets/playbutton.jpg')) scaledToWidth: 80)).
+	playbutton center: thumbnailMorph center.
+	^ thumbnailMorph addMorph: playbutton.
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
index ecb52b170..b7a6e5509 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
@@ -1,11 +1,13 @@
 constructing
 addThumbnail
 
-	| thumbnailForm |
+	| thumbnailForm thumbnailMorph |
 	thumbnailForm := self messageModel core imageStore getFormFor: self messageModel thumbnailId.
 	thumbnailForm := thumbnailForm scaledToWidth: self class defaultWidth.
 
 	(thumbnailForm height > self class maxHeight) ifTrue: [
 		thumbnailForm := thumbnailForm scaledToHeight: self class maxHeight.
 	].
-	self addMorphBack: ((thumbnailForm asMorph) on: #mouseDown send: #openVideo to: self).
+	thumbnailMorph := self addPlaybuttonTo: thumbnailForm.
+	thumbnailMorph on: #mouseDown send: #openVideo to: self.
+	self addMorphBack: thumbnailMorph.
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
index a966a8a4e..e6b4da27f 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
@@ -3,4 +3,8 @@ openVideo
 
 	self messageModel core
 		send: (TCCRequest newRequestFile: self messageModel videoId)
-		thenDo: [:videoEvent | OSProcess command: 'cmd.exe /c ""', ((videoEvent at: 'local') at: 'path'), '""'].
+		thenDo: [:videoEvent | Smalltalk platformName caseOf: {
+			['Win32'] -> [OSProcess command: 'cmd.exe /c ""', ((videoEvent at: 'local') at: 'path'), '""'].
+			['MacOS'] -> [UIManager inform: 'Go buy something else.'].
+			['unix'] -> [OSProcess command: 'open "', ((videoEvent at: 'local') at: 'path'), '"']}
+			].
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
index aa7832586..70a8a9d8e 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
@@ -3,5 +3,6 @@
 		"maxHeight" : "TR 6/22/2021 10:07" },
 	"instance" : {
 		"addContent" : "JK 6/12/2024 11:27",
-		"addThumbnail" : "JK 6/12/2024 11:27",
-		"openVideo" : "JK 6/12/2024 11:27" } }
+		"addPlaybuttonTo:" : "JK 6/12/2024 12:14",
+		"addThumbnail" : "JK 6/12/2024 12:14",
+		"openVideo" : "JK 6/12/2024 11:39" } }

From 208faf5a69db9adbd5e3d36ccdc08fe76c1533a8 Mon Sep 17 00:00:00 2001
From: Elia Doumerc <elia.doumerc@student.hpi.uni-potsdam.de>
Date: Wed, 12 Jun 2024 19:15:51 +0200
Subject: [PATCH 4/5] Prettier playbutton

---
 .squot-materialize                            | 135 +++++++++---------
 assets/play_circle_outline_icon.png           | Bin 0 -> 5520 bytes
 .../methodProperties.json                     |   8 +-
 .../methodProperties.json                     |   6 +-
 .../instance/addPlaybuttonTo..st              |   2 +-
 .../methodProperties.json                     |   3 +-
 6 files changed, 81 insertions(+), 73 deletions(-)
 create mode 100644 assets/play_circle_outline_icon.png

diff --git a/.squot-materialize b/.squot-materialize
index 09462332b..1ba7c640b 100644
--- a/.squot-materialize
+++ b/.squot-materialize
@@ -1,50 +1,40 @@
 [
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'discord_actions.yml'
+			'.squot'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.release.ston'
+			'.github',
+			'discord_actions.yml'
 		],
 		#encoding : 'TXT'
 	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'TelegramClientTests-Core'
-		},
-		#path : FSAbsolutePath [
-			'packages'
-		]
-	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'TelegramClientTests-Misc'
-		},
+	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'packages'
-		]
+			'.github',
+			'ISSUE_TEMPLATE',
+			'feature_request.md'
+		],
+		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.lint.ston'
+			'.gitignore'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'ISSUE_TEMPLATE',
-			'bug_report.md'
+			'CONTRIBUTING.md'
 		],
 		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClient-UI'
+			#name : 'TelegramClientTests-UI'
 		},
 		#path : FSAbsolutePath [
 			'packages'
@@ -52,51 +42,45 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'ISSUE_TEMPLATE',
-			'feature_request.md'
+			'.smalltalk.ston'
 		],
 		#encoding : 'TXT'
 	},
-	SquotImageMapper {
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'BaselineOfTelegramClient'
+		},
 		#path : FSAbsolutePath [
-			'assets',
-			'logo.png'
-		],
-		#encoding : Class [ #PNGReadWriter ]
+			'packages'
+		]
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.gitignore'
+			'README.md'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'LICENSE'
+			'.smalltalk.release.ston'
 		],
 		#encoding : 'TXT'
 	},
-	SquotImageMapper {
-		#path : FSAbsolutePath [
-			'assets',
-			'playbutton.jpg'
-		],
-		#encoding : Class [ #JPEGReadWriter2 ]
-	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'CONTRIBUTING.md'
+			'.github',
+			'ISSUE_TEMPLATE',
+			'bug_report.md'
 		],
 		#encoding : 'TXT'
 	},
-	SquotPlaintextMapper {
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'TelegramClient-UI'
+		},
 		#path : FSAbsolutePath [
-			'.github',
-			'workflows',
-			'ci-linter.yml'
-		],
-		#encoding : 'TXT'
+			'packages'
+		]
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
@@ -108,25 +92,47 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'README.md'
+			'.github',
+			'stale.yml'
 		],
 		#encoding : 'TXT'
 	},
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'TelegramClientTests-Misc'
+		},
+		#path : FSAbsolutePath [
+			'packages'
+		]
+	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
-			'stale.yml'
+			'pull_request_template.md'
 		],
 		#encoding : 'TXT'
 	},
+	SquotImageMapper {
+		#path : FSAbsolutePath [
+			'assets',
+			'logo.png'
+		],
+		#encoding : Class [ #PNGReadWriter ]
+	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClientTests-UI'
+			#name : 'TelegramClientTests-Core'
 		},
 		#path : FSAbsolutePath [
 			'packages'
 		]
 	},
+	SquotPlaintextMapper {
+		#path : FSAbsolutePath [
+			'.smalltalk.lint.ston'
+		],
+		#encoding : 'TXT'
+	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'scripts',
@@ -134,17 +140,17 @@
 		],
 		#encoding : 'TXT'
 	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'BaselineOfTelegramClient'
-		},
+	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'packages'
-		]
+			'LICENSE'
+		],
+		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.ston'
+			'.github',
+			'workflows',
+			'release.yml'
 		],
 		#encoding : 'TXT'
 	},
@@ -156,25 +162,26 @@
 			'packages'
 		]
 	},
-	SquotPlaintextMapper {
+	SquotImageMapper {
 		#path : FSAbsolutePath [
-			'.squot'
+			'assets',
+			'playbutton.jpg'
 		],
-		#encoding : 'TXT'
+		#encoding : Class [ #JPEGReadWriter2 ]
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
 			'workflows',
-			'release.yml'
+			'ci-linter.yml'
 		],
 		#encoding : 'TXT'
 	},
-	SquotPlaintextMapper {
+	SquotImageMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'pull_request_template.md'
+			'assets',
+			'play_circle_outline_icon.png'
 		],
-		#encoding : 'TXT'
+		#encoding : @40
 	}
 ]
\ No newline at end of file
diff --git a/assets/play_circle_outline_icon.png b/assets/play_circle_outline_icon.png
new file mode 100644
index 0000000000000000000000000000000000000000..53719b0afc5f59498909544e91a24ccb952575d4
GIT binary patch
literal 5520
zcmcgw_dgq4)Q>7Uj6S7GYqi#6&r&nAYF0wE_HK<>v1f>?Rw-JvHlappua+)}QG10L
zMG0coikXB+-aPO7KfFKP`#JY}@45GT&OP_slV}DqV7qkV5&!^TGcweB1OPD5y9|H}
z%=E@S@RK_LaLvj{Pxo=S<4Qr)=gB8IJ%VOR|2)#+eHx*QO>R8@09!qAuZiil?R<xj
z)ooQaCVSCOrsrH-V+~W)n#B}`()E4x?M#%eUX%Awd#@y!^g1d0*U!Zjq0Gsgv%^^r
z%{H}sVl=S{o^?j9J~~TaN+6!?c<eUSjR?a?gvHJT4nghzk5046btDSZb2lY8cU5_0
zLm#P8AP{W3{dsaDq|P15UAL+NM@`b^SkBO`qqOP@kW<)6J`Mey;Jel-?(|)qe>pf8
z%ZhZ;(Aqfk%Nx$mnm?iu>&`sXhTzS$6!)dho>%iAadn5q!!}Fwmw`%mnhksb7$p~@
zw7+O^a}I_iUq?Ox!RvGqb|0Sb3lMRTY+5S)+<RNQ!NpiDP#)(xp}+`@hZdBRc83!<
zQls<5)MUWREwI<Yq4IMZPbu{a8H!r@-Rd<9VJGZam;Mg%Aa^MKiy4;^G#qvhxzQO@
z)nWNDD~F;nBtpe)4Wm#2bUH5QMVUbAej$AiClFNa_SBw6?Kc%tYg{2k9&e#?_%lWY
zo{M-h|9&f#ffmDnctq)*l4`t3=2r@9-Da7aBfIp9Lqh|;TQ~kVpbT4AJ7#QccP5Zs
z`ouY2X=rushL>R@kxlV5!$hzMd(d|TZq&FgAwP8~K}v8Sgn9=A$A{JS8_s$?C&+Q_
zU0gn2F`QO7U+SH{6}dMAQYsh@QSXG*V?FYZGq!k4CyvcQEh_N&5!zfk6<4@+7)?{k
zI;E9Js`4U&ZuE0J)jn!Wz{-fS`)K+7oZ9e02IVu8Q~G|cuhK?>C>~#}`lHXE1mVhI
zq~QLn0>}6J4soLlkdIgZlHYheFQ)uCRf*cMQI;O@$v09H_>&wQFCaW5*LQfV)tByN
zzoqfyT3GWBQVQ0D5*AS>G9Y3KZB_#QA%9-U0MRV`{ZYHfF+68M?aqdBJG_T@`S|1?
zB$ZOXR+29}UDNn6Zcm|ao@0w?-yXgBtS^v(>)YEvNg(Ch*19sXNP;GYyeTqJZ(^Wj
zy{;wUYUJ-`M0`xrd&U90CgZ9Ep87>eke>a>Q7L;QureoW5)U_yUBrXHYkbb&y9Gly
zSmnhd&(F^!dJcR_?xdI9S<8?&&}fw=JL>VSW!;4REvdpGB8>N=tq&idjv#^M%T_vg
zroO=0y{6ysB?4ZuU1EK5-g_5N+mK=_*MqMEwCjC4MZ^U=ztnl{d|4Y*o2Ckj_<;=g
z1w`#^l@!*uGjot=0^AJ|@Kyf+4f~QKNw!zedI=5LSw1rJR>A%CQUosn)mkSvgke>e
z@3+zd*av=mgH=^^NhiV!f$`8F2nIQ@DcnMSh#H!3HeS}TmYy!VroG~-+UIzy+vgMl
z%NrPCy4qqpG!1)WGQyJ>^+-Mq8lW~BM71WK+_|`}gX;RAi?{`p+DpAaCZ0F$UK5=c
z6^vHGBtQdJFhuS!lb@#oFUZ_kjIFaYuhLg2<3_0pSY;w=KTl9XMR}D3Wx1s9<X@9^
zw@;1a-5Pw?X-VXkjWES3{$(+TPmEx(d0qi%c{YzvoZOtU_dXi|E&{CTc@C<^BT9wc
zQr~TLAwtv+rQTF_fmftl(fGO$YATm@MTz+NI-Z`??j>HB_kk{Fxa}GNn-`rxsOj>5
z{o6xejPJ!6d9wRKQ<tXeAOAXn1~BwWy|z~5W73nP64&U`gYswB{7CY=LdT->WR8T}
zdv5p;^v;C?RSIccw9&Ntl!0<duY295%I%x17N@{)%ZImXA`PwL7!k@TL%H?!znTcB
z1fqrq%J)?DK<10fr-05uyj?$%v6`4oY8upueC<1f{1FdtL4bQaeXO;GB8Mw9aFgBN
zy1y!rHWjrCMzN3@mp?;mb~8MYPX{EY^2A>Aw6(kk^EY^Wc)T1Pvo-N{G85kB&$a47
z4;gZ6Jl(iQsDh)tJNFN+A8apUg<5WO-$HXmq-@;|-N^r}cOCd#9HBq$u%%Lbv=)rF
zn^C)dlehMih4R@Hc2CW6>-Zz-!z*=N3k|#0DO4s@Tu``HDXA|d#<CsB=$<t9<RNMl
zR*ku&XZg}V7C$?!{oN9d?Oo0whwdx5XPf(YO;$L<G+Nx6)7sHXc75Vk-=w%6vcRNT
z3S4a{$5R70&q$&BiNC0zye_dQj2}z`xNy59?SoTW8rVlxHE9BRP&4?uZzG~X?Ev=y
zDvsz~#}|r~gr8l(fzr(Nh5z!PKEMK9^UViSm+T}O$J%<4XAk2z5I@~(xaF9w#!@sp
zJVnm*<K{i*zQI3i*?wM?gAGDn5fI8*FQGTOWYs0M!K|#Xdt*{Vr9>X}%IG2+AMp#o
z2BT5W!5Wp<xXr#i3Ft*y#qK1Z^p}bHsNW++B(8+63>W_Os4GJ^y`ASx(j9NTf@hpO
zGQ%x@7Dvl*$8lFS^jd1=dd^>B#LJpuvh-8+LTuy{(bE6M@80;er<e;lH4abXkXe1V
zWJh~PIfVP)=-tiuHfGmx`OSI|zSXEay2p9^=Ph%n^uEv^5sKcw5sjFlx$<|cQNP>j
zOUR6Ep=B@SjyjC5$Iz0871ARFJ|@hZwo3%Y#)D~AM&Cd4m}FGN*phy&HnfF~X^*~j
z9)HQKtCa%;jF%Dfxebs1ri1y)c|K!B;>^*Pm5rvpMw1zJ?vDvqHN~T)U$;A6b#y+g
z9XB1Diri(+Jv{xT<<+N4REti+c?{Xy_${03EwnM%-pLjh#s>$;k2;+-7O|jlxdFAh
zKUhtti@ez;8>9AF02X)1ZVU+j6CP<s?ouC2##K~_423}`X(#0G$ZltQ{Jej(@{^~B
zyx!}3I8pjQmKy`QGz3p+iWg)N%eg}mc>&<>6$Av1Mp7G#T$p)D@Ow$!gY3#~FXU6}
zY>i7r)3v~>78)l)n<LLrPK6&82F{t1nM7i3jm1pAXgiEWh4N=ScwUG@EPeXT=h?4E
z1(<y*1ci9rcz*d@t6%1?!cak<E3u3uMjeS@B;ie6aJLJywqSPpEhI~B@sk&!3mkwl
zJMOK)-OcTf4L5RkcHX~d&AGMcG2S5vFh(NtUlC5De#ARoE-XyvrTydC{e;3$bT|+f
zO^%Ma%zZxc`(06`dr&~?Dt(zLF`C^Qrya?s$%G(B3ZvE!j+#&EuYrKa`ngiH@EBT_
zFx#<B`d8wZRR@k1hUWl$u;<=l6961;M6FK{TOY~aR(6`XT;B#UGK?(Lnt&Lr3)SDk
zpi3UfyF4qpI6yzb%F%1u108(34sQ5idpzX1*q=c`K)RXtwG!>3=AWXNrV5E{c{xmc
z4xMNT-}lmF(M8v(YMr{(Qs<75bEesCbo98O=-do@P5$+D^Q&FZ7*5X)2pvs!)2)Qe
zqqx^c_$9IlW<?iY(4A#JQft($J>WU2+OR!-;<*@KzaT*V1d1FH8_#4scNTt|iL;PH
z*+q~Fh)s8&I4dp<2y;g3$W4}A!4z+#9WQeL3}uXqWN1bm*o7yBs^?69rvL%YcRnup
zPGg;+rTahW%4I1GfU2@<&;h@z)Q-mecuV8y=XB6f?&F&&bD7%}oDf`vCY^I_Tha-9
zk0ti}f*b>#iIU1l$-C66I;6Z<`e4AGDg$RMoR#iKH%4nNeio(in31kOr{m5x9jOnB
z9va!7Uvgri8|jPWm#Q{K#xuhuNrK=x)4Q2KfJohAK}LST^?`k^hhLR2@k;b*jmBqc
zgx5N7suB~YAFJ}BJr(e-^uk45)V1|du!X#fU(rR%duK=@;%as1nLHCG$w-&Z*X)Ki
zP{MQD__oBlAyxlE3}6At1bt{!%0#oL<2!^VuA$`(v*AWu%!^sfPuT&7W6pCgoo;Li
zT63{z#r@|fl%*nG1E!PghXH0Uodh(`7-F3SU?!xM_F4a^B3`Qlme?^ck+?!6%aF{A
zkS%4;x>;S&m%$-`@P5bzbY089m=09Vq%YZmaVXsGu14RJb<!?rgE~x!nU~c#$!6Ol
zRY~v$zSG69(T!7<vqQua_qG*#+t%KeJu|fG8;-xvnnNe?(gYSHPB;xUeW;kd7iv26
zo`rttMB#vcgTK>UV$iiY|J}H(j}lgf;gO|u3kq4u1gK}@5SxYDugcr=K73RV-zPFi
zDgmm))ZgH;ZY~)z(h|x&lidx^?1~h!2rRLmPO7ly`f3~YA<4T&qzR&9MQ)QMCZC1Q
z{Wu@xjC`h=jkz96%WG7dI-h$`Sc(wS+)c&(LhR%fL)z|3xyTq!)1w80Mj;T84I)Mn
zPHT8^ik?}eP|Lqf^FtkIZu>)kKLU#+olWFpN_K|Mg`dQ{Z5K0gq5?4Q91pQ)vJ{lp
zuz@Hn<5V`z+=BI7gd!a9DQZ^_c`CR_#CqC$Vn7)e^f#JDF%KoG=(}<d7e}lTN7glE
zb8vQ_*dd5@@hj9SP|%D;rP_*J@?j<R?jo3Yu)y=;IP%@I?5^MqX1c1{VE)RDmZ*bM
zH$Q1*&z3%s&f_$KTU)u_3(aLdn@xH4Wnz#0#>!KLU`)5DnS-Camt$^`+~y5J@t3de
zRx$9w0u#2SaNg0c3e4RbRaN7K71Yw<l#=&vyfgWSUVm;EN;Tjd!m@}%_lIU*y*2UO
zC>7wg{C=pYI4KnKrKX`pp-xra%pw(O=^020Wo9VY0WW}wmkkc6|M%*N3EWaKaFoz?
zAJt5nQmYAxG-<SQ#TFbd(4&!mv-y?)NHwtRdE$&w=u(deA|GQN)h*;_wO_-<>!zHZ
zx<Y^G#k+5IZ5g6IOnZJGZX3*shffuNVZog{4_<^jj3B<mw1p+>kK4ec$a?P0=GBh9
zE&Ggzs>GYj<$t68p3$?1#9s_o3rFsi_27Q&ZU0G^O4gs8C0WwN+xiNTYPf#i={ZPA
zTDv$sr+GRkU-ElA$4?Gbu&vbDyDSDQA}l`rqUQkR%EQrf5{2)wkwd-f-v8w!OX>{+
zqiw*7zwr=#_f5`$r*z@P<+~S0j;1Q#kU~RKQ9DtSy@c!W2%Z;Uyyu;&5dDU)mLw)i
z@73T2lavq*97vn3u~(iQ-QUury`!oOXQfL*6es1WJ1es`Kt{GHM_W8q9#sbO(sNq(
zRY}q^-3$E}H`Yx`Tl}}$Ta9XAt6fm+aX7-$J@*7=aub=bD3<)!Z&7?~0jrQ}y(-Wd
zjvd-^AUD5K7_ZkQ2`eJD8`|zpf|l*PI%T@qf*5d*wCxn8?{@nw*?A?@&gHS*G*ER1
zEzS1#99(Od_4jK{8b-ri2luWzK76*>al41$+jYQnQEsc@h;3YM&o`x06A#Hn4G8>d
zxi$dkYm~O@9_K^V>|yS)!WI4MQ?##;>hJ0`_NZkx9DX9yo$9Y~rkC|K`+Q~779#np
z)0pu*W7(S7P+#qQpPzylTYr2L%sXRE9%&`wec&7ckuDU21+Mg~usMs?bSu$ujW9=_
zK(Jqp6lrqx?fi`G)nbLbmvFu8+v?tbxNbRS8b+3FNWPfou;wf_KPqe^!=f@4&*91^
z1NPq&a9Lcbme}Y!_wbdg2L{Cck*js7TsObJ^}m8!+OOVLG4NV114Wa#t=L-=!@^3l
zG1hpe+fuy3zo^fOo{Si0B4WXJFht78gCwTbjWA~1QlO&3qmnA+ie9z<J}tjrH|b79
zz}^fDEx%5wvz4YK2)OBO>QEE|XTkVcdp4Ay+Lc4@X*1MNnJyNMzVdCzW8b%yJ4l!%
zen*vJO?oMiq<6W`{(8VJ@<|Zc(ki1Ojq!fjmnHCuU4cff?;4qJCQJqAMHMpJoClzl
zBVeEPh}&wPk;9Ut53s8)alhSR8;0;S={i2Rjq^w?2rIh74xb$cCPE`@lY1q?ZL^s0
z`Jqd*0?Cng=c95BW+BOh5i;k>zsRhhOCl3NF+#u7pwV-lC!sR`w21W_kM)l`E!ZJc
zSXTHRS5Blm+@8sS!jYd0p8oWRXin4KQhNslGDf$55m^Ixw*m<ci%ue5Z|CRpvMzaM
z;r3?Z6Hr_~9xWkmwTMS&q0C4e#=oNK&6a*n)VVc5n+Z;^kE2SImP;2<mRdW?T^l7r
zBc~_3l<?;$Z~b)((&C80#_plv^Y-5-{SOfW2q}m*a0ic`jZPm)+d3}IDI;IhB>Oax
zmFtQ`b)$F_Gf(d{Ov-$6)y39Qn>NF&Zv`msD=V%bgegPT+OxV+SMGcevY!1r0%|eN
zoH1^i$=tIx2VxhgO0wy&w|3rX%@Sx=4n!`-A}-H_yUor+ZgM4VUVU7+Nmvx8IR4{=
z7L-h5H97N;ta6&kq&UQAhbZYSxn(AXFq$K0fnm9#Hv5-a86xtZO}u3%@E0R3h$^_I
zAGD@<>MkpR<{nSuZK90W-y+ZTHuWzn#|w7D?qP-lLX0NsVH2nXMc|svKZswW8F4?z
z1yzS*E4{@O{}s+Riy&_@e@*b%AArYRX9ifnlgWBWiEsmrzb0FAF(8dlwZAXn3D;qX
zOQED%_Zq!+#LpE7zJeu{XJJ>;9pqNRhDlc8M~^>>1Gh-;Qv}l8(rtQnKbbo|0<DF?
zw4dlS{Z0<F?c4p@{)ofCconikSmaD{d^<54SZBhGfrZFM7er(b>UQ>xF3ib~SL>Yg
zuI*AlsFcH(3yR3m4s=_mc))R{PhBjK=b0Kqxk)Hf4u>G$DY;z-%8O!LC!Fx_rf*Fw
z#86h(I@cIO)2dgCc6c=<yTpg<b7wZgMu}YaDPhZ<31GH$(JYtrIfbvdif`xmQPXhC
zvqA9-w2$n9+U}m2{H6}kl}@U1p|+yrYnqU%Au0_uw4vCyzsdja#GvD^1n|me=|=;N
z0*UFl@EXq_m<{&6`8}Y-v~anVh(@|kUK`$*<{@{AJ}9NBhLI2oQ?x;)Gg`xSoZtUT
irSX5OnqUtM8K_HK=&wqWd`Yjg0*oGj^lI-p$Ndixm2mq2

literal 0
HcmV?d00001

diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json
index cc0b60781..3e802dfeb 100644
--- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json
@@ -17,7 +17,7 @@
 		"addInfoBar" : "RS 5/20/2021 21:28",
 		"addInfoText" : "jkon 5/15/2024 11:04",
 		"addPhoto" : "jkon 5/22/2024 10:26",
-		"addTestmorph" : " 6/12/2024 11:22:13",
+		"addTestmorph" : "6/12/2024 11:22:13",
 		"addTitle" : "jkon 5/22/2024 10:55",
 		"addTitleText" : "jkon 5/22/2024 11:04",
 		"addUserList" : "jkon 5/15/2024 11:55",
@@ -31,7 +31,7 @@
 		"createContentWrapper" : "jkon 5/15/2024 11:53",
 		"createDescription" : "RS 5/29/2021 18:32",
 		"createInfoBar" : "RS 5/20/2021 21:31",
-		"createTestMorph" : " 6/12/2024 11:22:13",
+		"createTestMorph" : "6/12/2024 11:22:13",
 		"createTitle" : "jkon 5/22/2024 10:54",
 		"description" : "RS 5/29/2021 18:46",
 		"description:" : "RK 8/4/2021 10:26",
@@ -43,8 +43,8 @@
 		"photoPage" : "jkon 5/15/2024 15:05",
 		"photoPage:" : "jkon 5/15/2024 15:05",
 		"showPhotoPage" : "jkon 5/15/2024 15:07",
-		"testmorph" : " 6/12/2024 11:22:13",
-		"testmorph:" : " 6/12/2024 11:22:13",
+		"testmorph" : "6/12/2024 11:22:13",
+		"testmorph:" : "6/12/2024 11:22:13",
 		"title" : "jkon 5/22/2024 10:50",
 		"title:" : "jkon 5/22/2024 10:50",
 		"userList" : "per 6/3/2021 17:27",
diff --git a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json
index c788fcea5..44da5eb4d 100644
--- a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json
@@ -1,11 +1,11 @@
 {
 	"class" : {
-		"newFor:withBounds:andSize:" : " 6/12/2024 11:22:13",
+		"newFor:withBounds:andSize:" : "6/12/2024 11:22:13",
 		"newWithBounds:andPhoto:andSize:" : "jkon 5/22/2024 10:27" },
 	"instance" : {
 		"addPhoto" : "jkon 5/22/2024 10:21",
-		"chat" : " 6/12/2024 11:22:13",
-		"chat:" : " 6/12/2024 11:22:13",
+		"chat" : "6/12/2024 11:22:13",
+		"chat:" : "6/12/2024 11:22:13",
 		"initialize" : "jkon 5/15/2024 15:11",
 		"photo" : "jkon 5/22/2024 10:30",
 		"photo:" : "jkon 5/22/2024 10:31",
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st
index 802cd009b..c2d3df9b4 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addPlaybuttonTo..st
@@ -5,6 +5,6 @@ addPlaybuttonTo: aForm
 	
 	thumbnailMorph := aForm asMorph.
 	playbutton := (ImageMorph new 
-		image: (((GitAssetLoader for: 'TelegramClient') loadForm: ('/assets/playbutton.jpg')) scaledToWidth: 80)).
+		image: (((GitAssetLoader for: 'TelegramClient') loadForm: ('/assets/play_circle_outline_icon.png')) scaledToWidth: 80)).
 	playbutton center: thumbnailMorph center.
 	^ thumbnailMorph addMorph: playbutton.
\ No newline at end of file
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
index 70a8a9d8e..c68b1670d 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
@@ -3,6 +3,7 @@
 		"maxHeight" : "TR 6/22/2021 10:07" },
 	"instance" : {
 		"addContent" : "JK 6/12/2024 11:27",
-		"addPlaybuttonTo:" : "JK 6/12/2024 12:14",
+		"addPhoto" : " 6/12/2024 19:03:15",
+		"addPlaybuttonTo:" : "ED 6/12/2024 19:14",
 		"addThumbnail" : "JK 6/12/2024 12:14",
 		"openVideo" : "JK 6/12/2024 11:39" } }

From 46ccfdf85a4034a5f76d7b4b25580ab759bc1375 Mon Sep 17 00:00:00 2001
From: Jonas Kubeler <jan.kubeler@student.hpi.uni-potsdam.de>
Date: Wed, 12 Jun 2024 20:05:37 +0200
Subject: [PATCH 5/5] added videoStore to handle videos and thumbnails

---
 .../TCCCore.class/instance/initialize.st           |  1 +
 .../TCCCore.class/instance/videoStore..st          |  4 ++++
 .../TCCCore.class/instance/videoStore.st           |  4 ++++
 .../TCCCore.class/methodProperties.json            |  6 ++++--
 .../TCCCore.class/properties.json                  |  3 ++-
 .../TCCFileStore.class/README.md                   |  1 +
 .../TCCFileStore.class/class/extractPathFrom..st   |  4 ++++
 .../TCCFileStore.class/class/newWith..st           |  6 ++++++
 .../TCCFileStore.class/instance/core..st           |  4 ++++
 .../TCCFileStore.class/instance/core.st            |  4 ++++
 .../instance/requestFileFor.with..st               |  9 +++++++++
 .../TCCFileStore.class/methodProperties.json       |  8 ++++++++
 .../TCCFileStore.class/properties.json             | 14 ++++++++++++++
 .../TCCImageStore.class/methodProperties.json      |  7 ++-----
 .../TCCImageStore.class/properties.json            |  4 ++--
 .../TCCVideoStore.class/README.md                  |  1 +
 .../TCCVideoStore.class/class/extractPathFrom..st  |  4 ++++
 .../TCCVideoStore.class/class/imageFormFrom..st    |  4 ++++
 .../TCCVideoStore.class/instance/getFormFor..st    |  7 +++++++
 .../instance/getFormPromiseFor..st                 | 10 ++++++++++
 .../TCCVideoStore.class/instance/getVideoFor..st   |  7 +++++++
 .../instance/getVideoPromiseFor..st                | 10 ++++++++++
 .../TCCVideoStore.class/methodProperties.json      |  9 +++++++++
 .../TCCVideoStore.class/properties.json            | 14 ++++++++++++++
 .../TCUVideoMessage.class/instance/addThumbnail.st |  2 +-
 .../TCUVideoMessage.class/instance/openVideo.st    | 13 ++++++-------
 .../TCUVideoMessage.class/methodProperties.json    |  4 ++--
 27 files changed, 144 insertions(+), 20 deletions(-)
 create mode 100644 packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore..st
 create mode 100644 packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore.st
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/README.md
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/class/extractPathFrom..st
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/class/newWith..st
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/instance/core..st
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/instance/core.st
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/instance/requestFileFor.with..st
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/methodProperties.json
 create mode 100644 packages/TelegramClient-Core.package/TCCFileStore.class/properties.json
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/README.md
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/class/extractPathFrom..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/class/imageFormFrom..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormFor..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormPromiseFor..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoFor..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoPromiseFor..st
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/methodProperties.json
 create mode 100644 packages/TelegramClient-Core.package/TCCVideoStore.class/properties.json

diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/initialize.st b/packages/TelegramClient-Core.package/TCCCore.class/instance/initialize.st
index ff1ef264b..f9ab2155a 100644
--- a/packages/TelegramClient-Core.package/TCCCore.class/instance/initialize.st
+++ b/packages/TelegramClient-Core.package/TCCCore.class/instance/initialize.st
@@ -8,6 +8,7 @@ initialize
 		pendingRequests: Dictionary new;
 		userStore: (TCCUserStore newWith: self);
 		imageStore: (TCCImageStore newWith: self);
+		videoStore: (TCCVideoStore newWith: self);
 		callbackCounter: 0.
 
 	"Mac users report serious slowdowns when receiveLoop is running at lower priority"
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore..st b/packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore..st
new file mode 100644
index 000000000..841387d93
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore..st
@@ -0,0 +1,4 @@
+accessing
+videoStore: aVideoStore
+
+	videoStore := aVideoStore.
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore.st b/packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore.st
new file mode 100644
index 000000000..555a16c79
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCCore.class/instance/videoStore.st
@@ -0,0 +1,4 @@
+accessing
+videoStore
+
+	^ videoStore
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCCore.class/methodProperties.json
index 639c06f96..235660172 100644
--- a/packages/TelegramClient-Core.package/TCCCore.class/methodProperties.json
+++ b/packages/TelegramClient-Core.package/TCCCore.class/methodProperties.json
@@ -22,7 +22,7 @@
 		"handlePendingEvent:" : "per 8/2/2021 15:05",
 		"imageStore" : "pk 6/19/2021 17:15",
 		"imageStore:" : "TR 6/22/2021 09:33",
-		"initialize" : "pk 8/5/2021 17:09",
+		"initialize" : "JK 6/12/2024 19:42",
 		"initializeHandlers" : "RS 8/1/2021 12:53",
 		"isClientAlive" : "js 5/28/2020 17:18",
 		"loggedInUserId" : "pk 8/5/2021 17:04",
@@ -39,4 +39,6 @@
 		"tryHandleError:" : "aka 5/21/2022 12:07",
 		"update" : "rgw 7/24/2022 15:08",
 		"userStore" : "per 7/15/2021 12:56",
-		"userStore:" : "tr 7/25/2021 17:57" } }
+		"userStore:" : "tr 7/25/2021 17:57",
+		"videoStore" : "JK 6/12/2024 19:42",
+		"videoStore:" : "JK 6/12/2024 19:43" } }
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/properties.json b/packages/TelegramClient-Core.package/TCCCore.class/properties.json
index 6b686e23a..55526af8d 100644
--- a/packages/TelegramClient-Core.package/TCCCore.class/properties.json
+++ b/packages/TelegramClient-Core.package/TCCCore.class/properties.json
@@ -13,7 +13,8 @@
 		"loggedInUserId",
 		"pendingRequests",
 		"callbackCounter",
-		"userStore" ],
+		"userStore",
+		"videoStore" ],
 	"name" : "TCCCore",
 	"pools" : [
 		 ],
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/README.md b/packages/TelegramClient-Core.package/TCCFileStore.class/README.md
new file mode 100644
index 000000000..163559385
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/README.md
@@ -0,0 +1 @@
+A TCCImageStore is a cache for local image files on disk with a synchronous interface.
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/class/extractPathFrom..st b/packages/TelegramClient-Core.package/TCCFileStore.class/class/extractPathFrom..st
new file mode 100644
index 000000000..276d1b715
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/class/extractPathFrom..st
@@ -0,0 +1,4 @@
+utility
+extractPathFrom: anEvent
+	
+	^ (anEvent at: 'local') at: 'path'
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/class/newWith..st b/packages/TelegramClient-Core.package/TCCFileStore.class/class/newWith..st
new file mode 100644
index 000000000..51356af7c
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/class/newWith..st
@@ -0,0 +1,6 @@
+instance creation
+newWith: aCore
+	
+	^ self new
+		core: aCore;
+		yourself
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/instance/core..st b/packages/TelegramClient-Core.package/TCCFileStore.class/instance/core..st
new file mode 100644
index 000000000..bd19251b0
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/instance/core..st
@@ -0,0 +1,4 @@
+accessing
+core: aCore
+
+	core := aCore
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/instance/core.st b/packages/TelegramClient-Core.package/TCCFileStore.class/instance/core.st
new file mode 100644
index 000000000..7652dd8d1
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/instance/core.st
@@ -0,0 +1,4 @@
+accessing
+core
+
+	^ core
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/instance/requestFileFor.with..st b/packages/TelegramClient-Core.package/TCCFileStore.class/instance/requestFileFor.with..st
new file mode 100644
index 000000000..735e29d67
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/instance/requestFileFor.with..st
@@ -0,0 +1,9 @@
+utility
+requestFileFor: aFileId with: aPromise
+
+	"documented here:"
+	"https://core.telegram.org/tdlib/docs/classtd_1_1td__api_1_1download_file.html"
+
+	self core
+		send: (TCCRequest newRequestFile: aFileId)
+		thenDo: [:fileEvent | aPromise resolveWith: (self class extractPathFrom: fileEvent)].
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCFileStore.class/methodProperties.json
new file mode 100644
index 000000000..325d5428f
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/methodProperties.json
@@ -0,0 +1,8 @@
+{
+	"class" : {
+		"extractPathFrom:" : "JK 6/12/2024 19:32",
+		"newWith:" : "pk 6/19/2021 18:09" },
+	"instance" : {
+		"core" : "pk 6/19/2021 16:13",
+		"core:" : "pk 6/19/2021 16:13",
+		"requestFileFor:with:" : "JK 6/12/2024 19:23" } }
diff --git a/packages/TelegramClient-Core.package/TCCFileStore.class/properties.json b/packages/TelegramClient-Core.package/TCCFileStore.class/properties.json
new file mode 100644
index 000000000..0a15dcf9d
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCFileStore.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "TelegramClient-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		"core" ],
+	"name" : "TCCFileStore",
+	"pools" : [
+		 ],
+	"super" : "Dictionary",
+	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCImageStore.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCImageStore.class/methodProperties.json
index ae00ea616..b2a59b017 100644
--- a/packages/TelegramClient-Core.package/TCCImageStore.class/methodProperties.json
+++ b/packages/TelegramClient-Core.package/TCCImageStore.class/methodProperties.json
@@ -1,11 +1,8 @@
 {
 	"class" : {
 		"extractPathFrom:" : "pk 6/19/2021 16:23",
-		"imageFormFrom:" : "pk 8/5/2021 16:52",
-		"newWith:" : "pk 6/19/2021 18:09" },
+		"imageFormFrom:" : "pk 8/5/2021 16:52" },
 	"instance" : {
-		"core" : "pk 6/19/2021 16:13",
-		"core:" : "pk 6/19/2021 16:13",
 		"getFormFor:" : "rgw 6/6/2022 18:51",
 		"getFormPromiseFor:" : "rgw 6/6/2022 18:43",
-		"requestImageFor:with:" : "rgw 6/2/2022 11:17" } }
+		"requestImageFor:with:" : "JK 6/12/2024 19:46" } }
diff --git a/packages/TelegramClient-Core.package/TCCImageStore.class/properties.json b/packages/TelegramClient-Core.package/TCCImageStore.class/properties.json
index 761a7ed98..d9d81a226 100644
--- a/packages/TelegramClient-Core.package/TCCImageStore.class/properties.json
+++ b/packages/TelegramClient-Core.package/TCCImageStore.class/properties.json
@@ -6,9 +6,9 @@
 		 ],
 	"commentStamp" : "pk 6/19/2021 16:13",
 	"instvars" : [
-		"core" ],
+		 ],
 	"name" : "TCCImageStore",
 	"pools" : [
 		 ],
-	"super" : "Dictionary",
+	"super" : "TCCFileStore",
 	"type" : "normal" }
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/README.md b/packages/TelegramClient-Core.package/TCCVideoStore.class/README.md
new file mode 100644
index 000000000..163559385
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/README.md
@@ -0,0 +1 @@
+A TCCImageStore is a cache for local image files on disk with a synchronous interface.
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/class/extractPathFrom..st b/packages/TelegramClient-Core.package/TCCVideoStore.class/class/extractPathFrom..st
new file mode 100644
index 000000000..276d1b715
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/class/extractPathFrom..st
@@ -0,0 +1,4 @@
+utility
+extractPathFrom: anEvent
+	
+	^ (anEvent at: 'local') at: 'path'
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/class/imageFormFrom..st b/packages/TelegramClient-Core.package/TCCVideoStore.class/class/imageFormFrom..st
new file mode 100644
index 000000000..01f1dc7a4
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/class/imageFormFrom..st
@@ -0,0 +1,4 @@
+utility
+imageFormFrom: aString
+
+	^ Form fromFileNamed: aString
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormFor..st b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormFor..st
new file mode 100644
index 000000000..4619676d9
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormFor..st
@@ -0,0 +1,7 @@
+accessing
+getFormFor: aThumbnailId
+
+	| promise |
+	promise := self getFormPromiseFor: aThumbnailId.
+	promise wait.
+	^ promise value
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormPromiseFor..st b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormPromiseFor..st
new file mode 100644
index 000000000..3e615c584
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getFormPromiseFor..st
@@ -0,0 +1,10 @@
+accessing
+getFormPromiseFor: aThumbnailId
+
+	| promise |
+	promise := self at: aThumbnailId ifAbsent: [
+		self at: aThumbnailId put: Promise new.
+		self requestFileFor: aThumbnailId with: (self at: aThumbnailId).
+ 		self at: aThumbnailId
+	].
+	^ promise >>= [:aPath | self class imageFormFrom: aPath]
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoFor..st b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoFor..st
new file mode 100644
index 000000000..c8da72e61
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoFor..st
@@ -0,0 +1,7 @@
+accessing
+getVideoFor: aVideoId
+
+	| promise |
+	promise := self getVideoPromiseFor: aVideoId.
+	promise wait.
+	^ promise value
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoPromiseFor..st b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoPromiseFor..st
new file mode 100644
index 000000000..78b7c96dc
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/instance/getVideoPromiseFor..st
@@ -0,0 +1,10 @@
+accessing
+getVideoPromiseFor: aVideoId
+
+	| promise |
+	promise := self at: aVideoId ifAbsent: [
+		self at: aVideoId put: Promise new.
+		self requestFileFor: aVideoId with: (self at: aVideoId).
+ 		self at: aVideoId
+	].
+	^ promise
\ No newline at end of file
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCVideoStore.class/methodProperties.json
new file mode 100644
index 000000000..18a5f48f4
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/methodProperties.json
@@ -0,0 +1,9 @@
+{
+	"class" : {
+		"extractPathFrom:" : "pk 6/19/2021 16:23",
+		"imageFormFrom:" : "pk 8/5/2021 16:52" },
+	"instance" : {
+		"getFormFor:" : "JK 6/12/2024 19:28",
+		"getFormPromiseFor:" : "JK 6/12/2024 19:30",
+		"getVideoFor:" : "JK 6/12/2024 19:48",
+		"getVideoPromiseFor:" : "JK 6/12/2024 19:56" } }
diff --git a/packages/TelegramClient-Core.package/TCCVideoStore.class/properties.json b/packages/TelegramClient-Core.package/TCCVideoStore.class/properties.json
new file mode 100644
index 000000000..b46843a59
--- /dev/null
+++ b/packages/TelegramClient-Core.package/TCCVideoStore.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "TelegramClient-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "<historical>",
+	"instvars" : [
+		 ],
+	"name" : "TCCVideoStore",
+	"pools" : [
+		 ],
+	"super" : "TCCFileStore",
+	"type" : "normal" }
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
index b7a6e5509..6d2d59eb9 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/addThumbnail.st
@@ -2,7 +2,7 @@ constructing
 addThumbnail
 
 	| thumbnailForm thumbnailMorph |
-	thumbnailForm := self messageModel core imageStore getFormFor: self messageModel thumbnailId.
+	thumbnailForm := self messageModel core videoStore getFormFor: self messageModel thumbnailId.
 	thumbnailForm := thumbnailForm scaledToWidth: self class defaultWidth.
 
 	(thumbnailForm height > self class maxHeight) ifTrue: [
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
index e6b4da27f..e70a37ace 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/instance/openVideo.st
@@ -1,10 +1,9 @@
 constructing
 openVideo
 
-	self messageModel core
-		send: (TCCRequest newRequestFile: self messageModel videoId)
-		thenDo: [:videoEvent | Smalltalk platformName caseOf: {
-			['Win32'] -> [OSProcess command: 'cmd.exe /c ""', ((videoEvent at: 'local') at: 'path'), '""'].
-			['MacOS'] -> [UIManager inform: 'Go buy something else.'].
-			['unix'] -> [OSProcess command: 'open "', ((videoEvent at: 'local') at: 'path'), '"']}
-			].
+	| path |
+	path := self messageModel core videoStore getVideoFor: self messageModel videoId.
+	Smalltalk platformName caseOf: {
+		['Win32'] -> [OSProcess command: 'cmd.exe /c ""', path, '""'].
+		['MacOS'] -> [UIManager inform: 'Mac is not supported for videoplaying yet.'].
+		['unix'] -> [OSProcess command: 'open "', path, '"']}.
diff --git a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
index 70a8a9d8e..834427ba3 100644
--- a/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
+++ b/packages/TelegramClient-UI.package/TCUVideoMessage.class/methodProperties.json
@@ -4,5 +4,5 @@
 	"instance" : {
 		"addContent" : "JK 6/12/2024 11:27",
 		"addPlaybuttonTo:" : "JK 6/12/2024 12:14",
-		"addThumbnail" : "JK 6/12/2024 12:14",
-		"openVideo" : "JK 6/12/2024 11:39" } }
+		"addThumbnail" : "JK 6/12/2024 19:53",
+		"openVideo" : "JK 6/12/2024 19:41" } }