Merge 0660e3b into a4f5415

hpi-swa-teaching · Aug 4, 2021 · 3c62b82 · 3c62b82
2 parents a4f5415 + 0660e3b
commit 3c62b82
Show file tree

Hide file tree

Showing 198 changed files with 316 additions and 353 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,2 +1,2 @@
 .DS_STORE
-/.idea
+/.idea
diff --git a/...re.package/TCCAuthHandler.class/README.md → .../TCCAuthenticationHandler.class/README.md b/...re.package/TCCAuthHandler.class/README.md → .../TCCAuthenticationHandler.class/README.md
diff --git a/...AuthHandler.class/class/defaultApiHash.st → ...tionHandler.class/class/defaultApiHash.st b/...AuthHandler.class/class/defaultApiHash.st → ...tionHandler.class/class/defaultApiHash.st
diff --git a/...CCAuthHandler.class/class/defaultApiID.st → ...cationHandler.class/class/defaultApiID.st b/...CCAuthHandler.class/class/defaultApiID.st → ...cationHandler.class/class/defaultApiID.st
diff --git a/...CAuthHandler.class/instance/authState..st → ...ationHandler.class/instance/authState..st b/...CAuthHandler.class/instance/authState..st → ...ationHandler.class/instance/authState..st
diff --git a/...CCAuthHandler.class/instance/authState.st → ...cationHandler.class/instance/authState.st b/...CCAuthHandler.class/instance/authState.st → ...cationHandler.class/instance/authState.st
diff --git a/...lass/instance/checkAuthenticationCode..st → ...lass/instance/checkAuthenticationCode..st b/...lass/instance/checkAuthenticationCode..st → ...lass/instance/checkAuthenticationCode..st
diff --git a/...ge/TCCAuthHandler.class/instance/core..st → ...enticationHandler.class/instance/core..st b/...ge/TCCAuthHandler.class/instance/core..st → ...enticationHandler.class/instance/core..st
diff --git a/...age/TCCAuthHandler.class/instance/core.st → ...henticationHandler.class/instance/core.st b/...age/TCCAuthHandler.class/instance/core.st → ...henticationHandler.class/instance/core.st
diff --git a/...uthHandler.class/instance/handleEvent..st → ...ionHandler.class/instance/handleEvent..st b/...uthHandler.class/instance/handleEvent..st → ...ionHandler.class/instance/handleEvent..st
diff --git a/...CAuthHandler.class/instance/initialize.st → ...ationHandler.class/instance/initialize.st b/...CAuthHandler.class/instance/initialize.st → ...ationHandler.class/instance/initialize.st
diff --git a/...ndler.class/instance/isAuthStateClosed.st → ...ndler.class/instance/isAuthStateClosed.st b/...ndler.class/instance/isAuthStateClosed.st → ...ndler.class/instance/isAuthStateClosed.st
diff --git a/...ass/instance/isAuthorizationStateReady.st → ...ass/instance/isAuthorizationStateReady.st b/...ass/instance/isAuthorizationStateReady.st → ...ass/instance/isAuthorizationStateReady.st
diff --git a/...dler.class/instance/isAwaitingAuthCode.st → ...dler.class/instance/isAwaitingAuthCode.st b/...dler.class/instance/isAwaitingAuthCode.st → ...dler.class/instance/isAwaitingAuthCode.st
diff --git a/...ass/instance/isAwaitingDBEncryptionKey.st → ...ass/instance/isAwaitingDBEncryptionKey.st b/...ass/instance/isAwaitingDBEncryptionKey.st → ...ass/instance/isAwaitingDBEncryptionKey.st
diff --git a/...r.class/instance/isAwaitingPhoneNumber.st → ...r.class/instance/isAwaitingPhoneNumber.st b/...r.class/instance/isAwaitingPhoneNumber.st → ...r.class/instance/isAwaitingPhoneNumber.st
diff --git a/...r.class/instance/isAwaitingTDLibParams.st → ...r.class/instance/isAwaitingTDLibParams.st b/...r.class/instance/isAwaitingTDLibParams.st → ...r.class/instance/isAwaitingTDLibParams.st
diff --git a/...e/TCCAuthHandler.class/instance/logout.st → ...nticationHandler.class/instance/logout.st b/...e/TCCAuthHandler.class/instance/logout.st → ...nticationHandler.class/instance/logout.st
diff --git a/...andler.class/instance/sendPhoneNumber..st → ...andler.class/instance/sendPhoneNumber..st b/...andler.class/instance/sendPhoneNumber..st → ...andler.class/instance/sendPhoneNumber..st
diff --git a/...ler.class/instance/setDBEncryptionKey..st → ...ler.class/instance/setDBEncryptionKey..st b/...ler.class/instance/setDBEncryptionKey..st → ...ler.class/instance/setDBEncryptionKey..st
diff --git a/...hHandler.class/instance/setTDLibParams.st → ...nHandler.class/instance/setTDLibParams.st b/...hHandler.class/instance/setTDLibParams.st → ...nHandler.class/instance/setTDLibParams.st
diff --git a/...CCAuthHandler.class/instance/useTestDC.st → ...cationHandler.class/instance/useTestDC.st b/...CCAuthHandler.class/instance/useTestDC.st → ...cationHandler.class/instance/useTestDC.st
diff --git a/...CCAuthHandler.class/methodProperties.json → ...cationHandler.class/methodProperties.json b/...CCAuthHandler.class/methodProperties.json → ...cationHandler.class/methodProperties.json
diff --git a/...kage/TCCAuthHandler.class/properties.json → ...thenticationHandler.class/properties.json b/...kage/TCCAuthHandler.class/properties.json → ...thenticationHandler.class/properties.json
@@ -8,7 +8,7 @@
 	"instvars" : [
 		"authState",
 		"core" ],
-	"name" : "TCCAuthHandler",
+	"name" : "TCCAuthenticationHandler",
 	"pools" : [
 		 ],
 	"super" : "Object",

diff --git a/packages/TelegramClient-Core.package/TCCBasicGroupChat.class/instance/loadInfo.st b/packages/TelegramClient-Core.package/TCCBasicGroupChat.class/instance/loadInfo.st
@@ -1,11 +1,11 @@
 loading
 loadInfo
 
-	| callbackId |
-	callbackId := self core registerCallback: [:aBasicGroupFullInfoEvent |
-		self
-			memberCount: (aBasicGroupFullInfoEvent at: 'members') size;
-			description: (aBasicGroupFullInfoEvent at: 'description');
-			addMembersFrom: (aBasicGroupFullInfoEvent at: 'members').
-		].
-	self core send: (TCCRequest newGetBasicGroupFullInfoOf: self groupId with: callbackId).
+	self core
+		send: (TCCRequest newGetBasicGroupFullInfoOf: self groupId)
+		thenDo: [:aBasicGroupFullInfoEvent |
+			self
+				memberCount: (aBasicGroupFullInfoEvent at: 'members') size;
+				description: (aBasicGroupFullInfoEvent at: 'description');
+				addMembersFrom: (aBasicGroupFullInfoEvent at: 'members').
+			].
diff --git a/packages/TelegramClient-Core.package/TCCBasicGroupChat.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCBasicGroupChat.class/methodProperties.json
@@ -4,4 +4,4 @@
 	"instance" : {
 		"groupKey" : "7/25/2021 12:12:21",
 		"isBasicGroup" : "per 6/15/2021 08:41",
-		"loadInfo" : "RS 6/24/2021 09:22" } }
+		"loadInfo" : "JB 8/1/2021 18:17" } }
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/class/defaultLastMessageId.st b/packages/TelegramClient-Core.package/TCCChat.class/class/defaultLastMessageId.st
@@ -0,0 +1,4 @@
+default values
+defaultLastMessageId
+
+	^ 0
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/addNewestMessage..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/addNewestMessage..st
@@ -1,5 +1,5 @@
 adding
 addNewestMessage: aMessage
 
-	self messages add: aMessage afterIndex: 1.
+	self messages addFirst: aMessage.
 	self triggerEvent: #newMessage with: aMessage.
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/canSendMessages..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/canSendMessages..st
@@ -1,4 +1,4 @@
 accessing
 canSendMessages: aBoolean
 
-	canSendMessages := aBoolean
+	canSendMessages := aBoolean.
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/initialize.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/initialize.st
@@ -3,9 +3,8 @@ initialize
 
 	self
 		title: '';
-		messages: (OrderedCollection newFrom: {TCCNullMessage new});
+		messages: (OrderedCollection new);
 		waitingForUpdate: false;
-		positionKnown: false;
 		infoLoaded: false;
 		isChannel: false;
 		numberOfRequestedMessages: self class defaultNumberOfRequestedMessages.
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/initializeFromChatEvent..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/initializeFromChatEvent..st
@@ -5,6 +5,5 @@ initializeFromChatEvent: anEvent
 		title: (anEvent at: 'title');
 		id: (anEvent at: 'id');
 		canSendMessages: ((anEvent at: 'permissions') at: 'can_send_messages');
-		type: ((anEvent at: 'type') at: '@type');
 		muted: ((anEvent at: 'notification_settings') at: 'mute_for') > 0;
 		lastMessage: ''
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageId.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/lastMessageId.st
@@ -0,0 +1,6 @@
+accessing
+lastMessageId
+
+	^ self messages
+		ifEmpty: [ self class defaultLastMessageId ]
+		ifNotEmpty: [ self messages last id ]
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/muted..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/muted..st
@@ -1,4 +1,4 @@
 accessing
 muted: aBoolean
 
-	muted := aBoolean
+	muted := aBoolean.
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/numberOfMessages.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/numberOfMessages.st
@@ -1,4 +1,4 @@
 accessing
 numberOfMessages
 
-	^ self messages size - 1
+	^ self messages size
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/position..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/position..st
@@ -1,4 +1,4 @@
 accessing
 position: aNumber
 
-	position := aNumber
+	position := aNumber.
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/positionKnown..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/positionKnown..st
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/positionKnown.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/positionKnown.st
@@ -1,4 +1,4 @@
 accessing
 positionKnown
 
-	^ positionKnown
+	^ self position notNil
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/requestMessages..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/requestMessages..st
@@ -1,5 +1,5 @@
-accessing
+loading
 requestMessages: aLimit
 
-	self core send: (TCCRequest newGetChatHistoryOf: self id from: self messages last id until: aLimit).
+	self core send: (TCCRequest newGetChatHistoryOf: self id from: self lastMessageId until: aLimit).
 	self numberOfRequestedMessages: self numberOfMessages + aLimit.
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/type..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/type..st
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/type.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/type.st
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCChat.class/methodProperties.json
@@ -1,13 +1,14 @@
 {
 	"class" : {
+		"defaultLastMessageId" : "JB 8/4/2021 00:10",
 		"defaultMessageLimit" : "RS 7/17/2021 11:45",
 		"defaultNumberOfRequestedMessages" : "js 8/1/2020 18:52",
 		"newFromChatEvent:" : "RS 7/17/2021 17:07" },
 	"instance" : {
-		"addNewestMessage:" : "js 8/2/2020 12:58",
+		"addNewestMessage:" : "RS 7/31/2021 15:45",
 		"addOldestMessage:" : "JB 6/28/2021 09:31",
 		"canSendMessages" : "5/11/2021 10:09:15",
-		"canSendMessages:" : "TR 5/5/2021 16:31",
+		"canSendMessages:" : "JB 8/4/2021 00:08",
 		"chatHistoryReceived:" : "JB 7/19/2021 12:39",
 		"core" : "per 6/4/2021 16:00",
 		"core:" : "per 6/4/2021 15:58",
@@ -16,8 +17,8 @@
 		"ifNotWaitingForUpdate:" : "js 8/2/2020 13:17",
 		"infoLoaded" : "per 6/4/2021 15:59",
 		"infoLoaded:" : "per 6/4/2021 15:51",
-		"initialize" : "per 7/17/2021 15:51",
-		"initializeFromChatEvent:" : "per 6/16/2021 17:51",
+		"initialize" : "RS 7/31/2021 16:34",
+		"initializeFromChatEvent:" : "JB 8/4/2021 00:21",
 		"isBasicGroup" : "per 6/15/2021 08:08",
 		"isChannel" : "per 7/17/2021 15:51",
 		"isChannel:" : "per 7/17/2021 15:50",
@@ -26,26 +27,24 @@
 		"isSuperGroup" : "per 6/15/2021 08:09",
 		"lastMessage" : "rs 6/19/2020 17:33",
 		"lastMessage:" : "5/11/2021 10:09:15",
+		"lastMessageId" : "JB 8/4/2021 00:10",
 		"loadChatHistory" : "RS 7/17/2021 11:49",
 		"loadInfo" : "per 6/15/2021 09:49",
 		"loadInfoIfNotLoaded" : "TR 6/13/2021 15:54",
 		"messages" : "R.S 6/1/2020 15:37",
 		"messages:" : "5/11/2021 10:09:15",
 		"muted" : "per 6/16/2021 17:34",
-		"muted:" : "per 6/16/2021 17:35",
-		"numberOfMessages" : "js 8/1/2020 18:04",
+		"muted:" : "JB 8/4/2021 00:07",
+		"numberOfMessages" : "RS 7/31/2021 15:19",
 		"numberOfRequestedMessages" : "js 8/1/2020 17:43",
 		"numberOfRequestedMessages:" : "5/11/2021 10:09:15",
 		"position" : "RS 5/10/2021 21:11",
-		"position:" : "5/11/2021 10:09:15",
-		"positionKnown" : "RS 5/10/2021 21:11",
-		"positionKnown:" : "5/11/2021 10:09:15",
-		"requestMessages:" : "RS 7/17/2021 11:47",
+		"position:" : "JB 8/4/2021 00:08",
+		"positionKnown" : "RS 7/31/2021 16:36",
+		"requestMessages:" : "RS 7/31/2021 15:28",
 		"sendMessage:" : "RS 7/17/2021 11:58",
 		"stillRequestedMessages" : "js 8/1/2020 18:05",
 		"title" : "rs 6/7/2020 22:24",
 		"title:" : "5/11/2021 10:09:15",
-		"type" : "pk 5/9/2021 16:58",
-		"type:" : "5/11/2021 10:09:15",
 		"waitingForUpdate" : "5/11/2021 10:09:15",
 		"waitingForUpdate:" : "js 8/1/2020 17:00" } }
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/properties.json b/packages/TelegramClient-Core.package/TCCChat.class/properties.json
@@ -8,13 +8,11 @@
 	"instvars" : [
 		"messages",
 		"position",
-		"positionKnown",
 		"id",
 		"title",
 		"lastMessage",
 		"waitingForUpdate",
 		"numberOfRequestedMessages",
-		"type",
 		"canSendMessages",
 		"core",
 		"infoLoaded",

diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/addChat..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/addChat..st
@@ -5,4 +5,4 @@ addChat: aChatEvent
 	chat := TCCChat newFromChatEvent: (aChatEvent at: 'chat').
 	chat core: self core.
 
-	self core chats add: chat.
+	self chats add: chat.
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/addNewMessage..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/addNewMessage..st
@@ -2,7 +2,7 @@ events
 addNewMessage: aMessageJSONObject
 
 	| chat message |
-	chat := self core chats getChat: (aMessageJSONObject at: 'chat_id').
+	chat := self chats getChat: (aMessageJSONObject at: 'chat_id').
 	message := TCCMessage newFromMessageEvent: aMessageJSONObject in: chat with: self core.
 
 	chat addNewestMessage: message.

diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/chatHistoryReceived..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/chatHistoryReceived..st
@@ -5,4 +5,4 @@ chatHistoryReceived: aChatHistory
 
 	(aChatHistory at: 'messages') ifNotEmpty: [
 		chatID := (aChatHistory at: 'messages') first at: 'chat_id'.
-		(self core chats getChat: chatID) chatHistoryReceived: aChatHistory].
+		(self chats getChat: chatID) chatHistoryReceived: aChatHistory].
diff --git a/....package/TCCCore.class/instance/chats..st → .../TCCChatsHandler.class/instance/chats..st b/....package/TCCCore.class/instance/chats..st → .../TCCChatsHandler.class/instance/chats..st
@@ -1,4 +1,4 @@
 accessing
 chats: aCollection
 
-	chats := aCollection.
+	chats := aCollection
diff --git a/...e.package/TCCCore.class/instance/chats.st → ...e/TCCChatsHandler.class/instance/chats.st b/...e.package/TCCCore.class/instance/chats.st → ...e/TCCChatsHandler.class/instance/chats.st
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/initialize.st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/initialize.st
@@ -0,0 +1,4 @@
+initialization
+initialize
+
+	self chats: TCCChats newWithDefaultSorting.
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/openNewChat..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/openNewChat..st
@@ -3,7 +3,7 @@ openNewChat: aChatEvent
 
 	| newChat |
 	newChat := TCCChat newFromChatEvent: aChatEvent.
-	(self core chats hasChat: newChat id)
-		ifFalse: [self core chats add: newChat.]
+	(self chats hasChat: newChat id)
+		ifFalse: [self chats add: newChat.]
 		ifTrue: [newChat := self core chats getChat: newChat id.].
-	self core chats triggerEvent: #openNewChat with: newChat.
+	self chats triggerEvent: #openNewChat with: newChat.
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/updateChatPosition..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/updateChatPosition..st
@@ -1,8 +1,7 @@
 event handling
 updateChatPosition: anEvent
 
-	(self core chats getChat: (anEvent at: 'chat_id'))
-		position: ((anEvent at: 'position') at: 'order');
-		positionKnown: true.
+	(self chats getChat: (anEvent at: 'chat_id'))
+		position: ((anEvent at: 'position') at: 'order').
 
-	self core chats notify.
+	self chats notify.
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/updateLastMessage..st b/packages/TelegramClient-Core.package/TCCChatsHandler.class/instance/updateLastMessage..st
@@ -5,7 +5,7 @@ updateLastMessage: anEvent
 
 	(anEvent includesKey: 'last_message') ifTrue: [
 		messageJson := anEvent at: 'last_message'.
-		chat := self core chats getChat: (anEvent at: 'chat_id').
+		chat := self chats getChat: (anEvent at: 'chat_id').
 
 		(anEvent at: 'positions') notEmpty
 			ifTrue: [chat position:
@@ -15,4 +15,4 @@ updateLastMessage: anEvent
 
 		chat lastMessage: (TCCMessage newFromMessageEvent: messageJson in: chat with: self core) asSnippet.
 
-		self core chats notify].
+		self chats notify].
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCChatsHandler.class/methodProperties.json
@@ -2,16 +2,19 @@
 	"class" : {
 		 },
 	"instance" : {
-		"addChat:" : "RS 7/17/2021 11:04",
-		"addNewMessage:" : "6/13/2021 15:37:32",
-		"chatHistoryReceived:" : "JB 7/19/2021 12:38",
+		"addChat:" : "RS 8/1/2021 12:54",
+		"addNewMessage:" : "RS 8/1/2021 12:54",
+		"chatHistoryReceived:" : "RS 8/1/2021 12:54",
+		"chats" : "RS 8/1/2021 12:50",
+		"chats:" : "RS 8/1/2021 12:51",
 		"core" : "6/4/2021 16:24:10",
 		"core:" : "6/4/2021 16:24:10",
 		"getChats" : "RS 6/23/2021 16:38",
 		"handleNewMessage:" : "pk 6/8/2021 09:32",
-		"openNewChat:" : "RS 7/17/2021 11:12",
+		"initialize" : "RS 8/1/2021 12:51",
+		"openNewChat:" : "RS 8/1/2021 12:55",
 		"remainingMessages" : "5/11/2021 10:09:15",
 		"remainingMessages:" : "js 8/1/2020 16:50",
 		"searchChat:" : "RS 6/23/2021 16:39",
-		"updateChatPosition:" : "per 5/21/2021 16:55",
-		"updateLastMessage:" : "RK 6/26/2021 11:37" } }
+		"updateChatPosition:" : "RS 8/1/2021 12:55",
+		"updateLastMessage:" : "RS 8/1/2021 12:55" } }
diff --git a/packages/TelegramClient-Core.package/TCCChatsHandler.class/properties.json b/packages/TelegramClient-Core.package/TCCChatsHandler.class/properties.json
@@ -7,6 +7,7 @@
 	"commentStamp" : "js 6/13/2020 16:26",
 	"instvars" : [
 		"remainingMessages",
+		"chats",
 		"core" ],
 	"name" : "TCCChatsHandler",
 	"pools" : [

diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/authHandler..st b/packages/TelegramClient-Core.package/TCCCore.class/instance/authHandler..st
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/authHandler.st b/packages/TelegramClient-Core.package/TCCCore.class/instance/authHandler.st
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/authenticationHandler..st b/packages/TelegramClient-Core.package/TCCCore.class/instance/authenticationHandler..st
@@ -0,0 +1,4 @@
+accessing
+authenticationHandler: anAuthenticationHandler
+
+	authenticationHandler := anAuthenticationHandler
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/authenticationHandler.st b/packages/TelegramClient-Core.package/TCCCore.class/instance/authenticationHandler.st
@@ -0,0 +1,4 @@
+accessing
+authenticationHandler
+
+	^ authenticationHandler
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/checkAuthenticationCode..st b/packages/TelegramClient-Core.package/TCCCore.class/instance/checkAuthenticationCode..st
@@ -1,4 +1,4 @@
 handlers
 checkAuthenticationCode: aString
 
-	self authHandler checkAuthenticationCode: aString.
+	self authenticationHandler checkAuthenticationCode: aString.
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/freeClient.st b/packages/TelegramClient-Core.package/TCCCore.class/instance/freeClient.st
@@ -1,4 +1,4 @@
-accessing
+handlers
 freeClient
 
 	self client ifNotNil: [self client free].
diff --git a/packages/TelegramClient-Core.package/TCCCore.class/instance/getOwnProfile.st b/packages/TelegramClient-Core.package/TCCCore.class/instance/getOwnProfile.st
@@ -1,7 +1,6 @@
 events
 getOwnProfile
 
-	| callbackId |
-
-	callbackId := self registerCallback: [:aUserEvent | self setUserID: aUserEvent].
-	self send: (TCCRequest newGetMeWith: callbackId).
+	self
+		send: TCCRequest newGetMe
+		thenDo: [:aUserEvent | self setUserID: aUserEvent].