Merge pull request #534 from hpi-swa-teaching/develop

Merge the work from Group 11 of the 2022 SWT I module into main

README.md

@@ -71,6 +71,14 @@ TelegramClient is a **Squeak-Client** for the widely used Telegram-Messenger. It
       <td>ℹ</td>
       <td>Show group description and members</td>
     </tr>
+    <tr>
+      <td>↩</td>
+      <td>Reference an old message</td>
+    </tr>
+    <tr>
+      <td>🖼</td>
+      <td>Show profile pictures</td>
+    </tr>
   </tbody>
 </table>
 
@@ -115,6 +123,8 @@ Pre-Releases are created automatically whenever a commit is added to the develop
 
 ## Our Group
 
+Group 11 of the 2022 SWT I module included [Richard Wohlbold](https://github.com/rgwohlbold), [Til Bergmann](https://github.com/Till-B), [Antony Kamp](https://github.com/antonykamp), [Lucas Reisener](https://github.com/LucasDerReisende), [Erik Kohlros](https://github.com/kohlros), and [Jacob Schäfer](https://github.com/jacob271).
+
 Group 2 of the 2021 SWT I module included [Romeo Sommerfeld](https://github.com/rsommerfeld), [Raphael Kunert](https://github.com/Storyxx), [Jannis Berndt](https://github.com/jb3rndt), [Philipp Keese](https://github.com/phkeese), [Tom Richter](https://github.com/tom-richter), and [Paul Ermler](https://github.com/permler).
 
 Group 13 of the 2020 SWT I module included [Rohan Sawahn](https://github.com/rohansaw), [Jonas Schmidt](https://github.com/schmidtjonas), [Frederik Wollny](https://github.com/Freddy200), [Stefan Spangenberg](https://github.com/sspangenberg), [Lukas Laskowski](https://github.com/lasklu), and [Niklas Schilli](https://github.com/Mrnikbobjeff). Feel free to add your names to the list.

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/README.md

@@ -0,0 +1 @@
+Represents a message where members are added to a group.

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/class/newFrom..st

@@ -0,0 +1,6 @@
+instance creation
+newFrom: aJsonObject
+
+	^ self new
+		members: (aJsonObject at: 'member_user_ids');
+		yourself

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/instance/asSnippet.st

@@ -0,0 +1,4 @@
+accessing
+asSnippet
+
+	^ self asText

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/instance/asText.st

@@ -0,0 +1,6 @@
+accessing
+asText
+
+	| names |
+	names := self members collect: [:aUserId | (self core userStore getUserFor: aUserId) fullName].
+	^ 'Added: ' , (names joinSeparatedBy: ', ')

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/instance/members..st

@@ -0,0 +1,4 @@
+accessing
+members: aList
+
+	members := aList

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/instance/members.st

@@ -0,0 +1,4 @@
+accessing
+members
+
+	^ members

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/methodProperties.json

@@ -0,0 +1,8 @@
+{
+	"class" : {
+		"newFrom:" : "LR 7/23/2022 10:06" },
+	"instance" : {
+		"asSnippet" : "rgw 7/21/2022 14:15",
+		"asText" : "LR 7/23/2022 10:59",
+		"members" : "rgw 7/21/2022 13:33",
+		"members:" : "rgw 7/21/2022 13:33" } }

packages/TelegramClient-Core.package/TCCAddMembersMessage.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "TelegramClient-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "ek 8/4/2022 10:39",
+	"instvars" : [
+		"members" ],
+	"name" : "TCCAddMembersMessage",
+	"pools" : [
+		 ],
+	"super" : "TCCMessage",
+	"type" : "normal" }

packages/TelegramClient-Core.package/TCCAuthenticationHandler.class/instance/checkAuthenticationPassword..st

@@ -0,0 +1,4 @@
+library calls
+checkAuthenticationPassword: aString
+
+	self core send: (TCCRequest newCheckAuthenticationPassword: aString).

packages/TelegramClient-Core.package/TCCAuthenticationHandler.class/instance/handleEvent..st

@@ -8,4 +8,5 @@ handleEvent: anEvent
 	self isAwaitingDbEncryptionKey ifTrue: [self setDbEncryptionKey: ''].
 	self isAwaitingPhoneNumber ifTrue: [^ #awaitPhoneNumber].
 	self isAwaitingAuthCode ifTrue: [^ #awaitAuthCode].
+	self isAwaitingAuthPassword ifTrue: [^ #awaitAuthPassword].
 	self isAuthorizationStateReady ifTrue: [^ self core authSucceeded].

packages/TelegramClient-Core.package/TCCAuthenticationHandler.class/instance/isAwaitingAuthPassword.st

@@ -0,0 +1,4 @@
+accessing
+isAwaitingAuthPassword
+
+	^ self authState = 'authorizationStateWaitPassword'

packages/TelegramClient-Core.package/TCCAuthenticationHandler.class/methodProperties.json

@@ -6,13 +6,15 @@
 		"authState" : "R.S 5/18/2020 17:54",
 		"authState:" : "R.S 5/18/2020 17:54",
 		"checkAuthenticationCode:" : "RS 6/23/2021 16:35",
+		"checkAuthenticationPassword:" : "ek 8/4/2022 11:15",
 		"core" : "per 5/21/2021 16:57",
 		"core:" : "per 5/21/2021 16:57",
-		"handleEvent:" : "JB 6/7/2021 11:15",
+		"handleEvent:" : "ek 8/4/2022 11:15",
 		"initialize" : "RS 4/28/2021 18:04",
 		"isAuthStateClosed" : "r.s 7/15/2020 12:17",
 		"isAuthorizationStateReady" : "r.s 7/15/2020 12:17",
 		"isAwaitingAuthCode" : "r.s 7/15/2020 12:17",
+		"isAwaitingAuthPassword" : "aka 5/21/2022 10:10",
 		"isAwaitingDbEncryptionKey" : "8/5/2021 21:14:18",
 		"isAwaitingPhoneNumber" : "r.s 7/15/2020 12:17",
 		"isAwaitingTdlibParams" : "8/5/2021 21:14:18",

packages/TelegramClient-Core.package/TCCChat.class/class/defaultLastMessageDate.st

@@ -0,0 +1,4 @@
+default values
+defaultLastMessageDate
+
+	^ DateAndTime fromUnixTime: 0

packages/TelegramClient-Core.package/TCCChat.class/class/defaultLastMessageSenderId.st

@@ -0,0 +1,4 @@
+default values
+defaultLastMessageSenderId
+
+	^ 0

packages/TelegramClient-Core.package/TCCChat.class/class/defaultSelectedReplyToMessageId.st

@@ -0,0 +1,4 @@
+default values
+defaultSelectedReplyToMessageId
+
+	^ 0

packages/TelegramClient-Core.package/TCCChat.class/instance/addMessage..st

@@ -0,0 +1,7 @@
+adding
+addMessage: aMessage
+
+	self messageDictionary at: aMessage id ifAbsent: [
+		self messageDictionary at: aMessage id put: Promise new
+	].
+	(self messageDictionary at: aMessage id) resolveWith: aMessage.

packages/TelegramClient-Core.package/TCCChat.class/instance/addNewestMessage..st

@@ -1,5 +1,14 @@
 adding
 addNewestMessage: aMessage
 
-	self messages addFirst: aMessage.
+	| newDate oldDate |
+	newDate := aMessage date asDate.
+	oldDate := self lastMessageDate asDate.
+	(newDate > oldDate) ifTrue: [
+		aMessage isFirstMessageOfDay: true.
+		self lastMessage isLastMessageOfDay: true.
+	].
+	self messageIds ifEmpty: [aMessage isFirstMessageOfDay: false].
+	self messageIds addFirst: aMessage id.
+	self addMessage: aMessage.
 	self triggerEvent: #newMessage with: aMessage.

packages/TelegramClient-Core.package/TCCChat.class/instance/addOldestMessage..st

@@ -1,5 +1,12 @@
 adding
 addOldestMessage: aMessage
 
-	self messages add: aMessage.
+	| newDate oldDate |
+	newDate := aMessage date asDate.
+	oldDate := self oldestLoadedMessageDate asDate.
+	(newDate < oldDate) ifTrue: [
+		self oldestLoadedMessage isFirstMessageOfDay: true.
+		aMessage isLastMessageOfDay: true].
+	self messageIds add: aMessage id.
+	self addMessage: aMessage.
 	self triggerEvent: #loadedMessage with: aMessage.

packages/TelegramClient-Core.package/TCCChat.class/instance/chatHistoryReceived..st

@@ -2,9 +2,12 @@ loading
 chatHistoryReceived: anEvent
 
 	(anEvent at: 'messages') do:
-		[:message | self addOldestMessage: (TCCMessage newFromMessageEvent: message in: self with: self core)].
+		[:message | self addOldestMessage: (TCCMessage newFromMessageEvent: message in: self with: self core).
+			self fulfillMessageRequest: (message at: 'id').
+			].
+
+	(self requestedMessages isEmpty) ifFalse: [self increaseNumberOfRequestedMessages.].
 
 	self waitingForUpdate: false.
 
-	self stillRequestedMessages > 0
-		ifTrue: [self loadChatHistory.].
+	self stillRequestedMessages > 0 ifTrue: [self loadChatHistory.].

packages/TelegramClient-Core.package/TCCChat.class/instance/fulfillMessageRequest..st

@@ -0,0 +1,9 @@
+loading
+fulfillMessageRequest: aMessageId
+
+	| fulfilledMessageRequests |
+
+	fulfilledMessageRequests := self requestedMessages select: [:req | req messageId = aMessageId].
+	fulfilledMessageRequests do: [:messageRequest | messageRequest completeRequest.].
+
+	self requestedMessages removeAll: fulfilledMessageRequests.

packages/TelegramClient-Core.package/TCCChat.class/instance/getMessageById..st

@@ -0,0 +1,10 @@
+accessing
+getMessageById: aNumber
+
+	^ (self messageDictionary at: aNumber ifAbsent: [
+			self messageDictionary at: aNumber put: Promise new.
+			self requestMessage: aNumber.
+			self messageDictionary at: aNumber.
+		])
+		wait;
+		value

packages/TelegramClient-Core.package/TCCChat.class/instance/handleMessageRequest..st

@@ -0,0 +1,8 @@
+controlling
+handleMessageRequest: aMessageRequest
+
+	(self hasMessage: (aMessageRequest messageId)) ifTrue:
+			[aMessageRequest completeRequest.]
+		ifFalse:
+			[self requestedMessages add: aMessageRequest.
+			self loadChatHistory.].

packages/TelegramClient-Core.package/TCCChat.class/instance/hasMessage..st

@@ -0,0 +1,4 @@
+controlling
+hasMessage: aMessageId
+
+	^ (self messageIds occurrencesOf: aMessageId) ~= 0

packages/TelegramClient-Core.package/TCCChat.class/instance/hasPhoto.st

@@ -0,0 +1,4 @@
+accessing
+hasPhoto
+
+	^ self photoId isNil not

packages/TelegramClient-Core.package/TCCChat.class/instance/increaseNumberOfRequestedMessages.st

@@ -0,0 +1,4 @@
+loading
+increaseNumberOfRequestedMessages
+
+	self numberOfRequestedMessages: self numberOfRequestedMessages + self class defaultMessageLimit.

packages/TelegramClient-Core.package/TCCChat.class/instance/initialize.st

@@ -3,9 +3,13 @@ initialize
 
 	self
 		title: '';
-		messages: (OrderedCollection new);
+		messageIds: OrderedCollection new;
+		messageDictionary: Dictionary new;
 		waitingForUpdate: false;
 		infoLoaded: false;
 		isChannel: false;
 		position: self class defaultUnknownPosition;
-		numberOfRequestedMessages: self class defaultNumberOfRequestedMessages.
+		numberOfRequestedMessages: self class defaultNumberOfRequestedMessages;
+		selectedReplyToMessageId: self class defaultSelectedReplyToMessageId;
+		requestedMessages: OrderedCollection new;
+		isPinned: false.

packages/TelegramClient-Core.package/TCCChat.class/instance/initializeFromChatEvent..st

@@ -6,4 +6,11 @@ initializeFromChatEvent: anEvent
 		id: (anEvent at: 'id');
 		canSendMessages: ((anEvent at: 'permissions') at: 'can_send_messages');
 		muted: ((anEvent at: 'notification_settings') at: 'mute_for') > 0;
-		lastMessage: ''
+		lastMessageText: '';
+		lastMessageSenderName: '';
+		lastMessageSenderId: TCCChat defaultLastMessageSenderId;
+		isPinned: false.
+
+	(anEvent at: 'photo') ifNotNil: [
+		self photoId: (((anEvent at: 'photo') at: 'small') at: 'id').
+	].

packages/TelegramClient-Core.package/TCCChat.class/instance/isPinned..st

@@ -0,0 +1,4 @@
+accessing
+isPinned: aBoolean
+
+	isPinned := aBoolean

packages/TelegramClient-Core.package/TCCChat.class/instance/isPinned.st

@@ -0,0 +1,4 @@
+accessing
+isPinned
+
+	^ isPinned

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessage.st

@@ -1,4 +1,7 @@
 accessing
 lastMessage
 
-	^ lastMessage
+	^ self messages
+		ifEmpty: [ TCCNotLoadedMessage new
+			 date: self class defaultLastMessageDate]
+		ifNotEmpty: [ self messages first ]

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageDate.st

@@ -0,0 +1,6 @@
+accessing
+lastMessageDate
+
+	"Date of the latest received message."
+
+	^ self lastMessage date

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageSenderId..st

@@ -0,0 +1,4 @@
+accessing
+lastMessageSenderId: aNumber
+
+	lastMessageSenderId := aNumber

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageSenderId.st

@@ -0,0 +1,4 @@
+accessing
+lastMessageSenderId
+
+	^ lastMessageSenderId

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageSenderName..st

@@ -0,0 +1,4 @@
+accessing
+lastMessageSenderName: aString
+
+	lastMessageSenderName := aString.

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageSenderName.st

@@ -0,0 +1,4 @@
+accessing
+lastMessageSenderName
+
+	^ lastMessageSenderName

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageText..st

@@ -0,0 +1,4 @@
+accessing
+lastMessageText: aString
+
+	lastMessageText := aString.

packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageText.st

@@ -0,0 +1,4 @@
+accessing
+lastMessageText
+
+	^ lastMessageText

packages/TelegramClient-Core.package/TCCChat.class/instance/messageDictionary..st

@@ -0,0 +1,4 @@
+accessing
+messageDictionary: aDictionary
+
+	messageDictionary := aDictionary

packages/TelegramClient-Core.package/TCCChat.class/instance/messageDictionary.st

@@ -0,0 +1,4 @@
+accessing
+messageDictionary
+
+	^ messageDictionary

packages/TelegramClient-Core.package/TCCChat.class/instance/messageIds..st

@@ -0,0 +1,4 @@
+accessing
+messageIds: aCollection
+
+	messageIds := aCollection

packages/TelegramClient-Core.package/TCCChat.class/instance/messageIds.st

@@ -0,0 +1,4 @@
+accessing
+messageIds
+
+	^ messageIds

packages/TelegramClient-Core.package/TCCChat.class/instance/messages.st

@@ -1,4 +1,8 @@
 accessing
 messages
 
-	^ messages
+	^ self messageIds collect: [:aNumber |
+		(self messageDictionary at: aNumber)
+			wait;
+			value
+		]