Merge origin/develop into develop

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

@@ -0,0 +1,5 @@
+sending
+sendPollMessage: aPoll
+
+	self core send: (TCCRequest newSendPollMessage: aPoll to: self id).
+	self selectedReplyToMessageId: self class defaultSelectedReplyToMessageId.

packages/TelegramClient-Core.package/TCCChat.class/instance/sendPollMessage.asking.with.isAnonymous..st

@@ -0,0 +1,5 @@
+sending
+sendPollMessage: aPollType asking: aString with: anOrderedCollection isAnonymous: aBoolean
+
+	self core send: (TCCRequest newSendPollMessage: aPollType to: (self id) asking: aString with: anOrderedCollection isAnonymous: aBoolean).
+	self selectedReplyToMessageId: self class defaultSelectedReplyToMessageId.

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

@@ -76,6 +76,8 @@
 		"sendDocumentMessage:" : "ED 6/19/2024 13:53",
 		"sendMessage:" : "JK 5/28/2024 09:53",
 		"sendPhotoMessage:" : "ED 6/19/2024 12:11",
+		"sendPollMessage:" : "7/5/2024 09:48:19",
+		"sendPollMessage:asking:with:isAnonymous:" : "jkon 6/27/2024 20:35",
 		"sendStickerMessage:" : "JK 5/28/2024 10:26",
 		"sendVideoMessage:" : "ED 6/19/2024 12:23",
 		"stillRequestedMessages" : "ek 8/4/2022 11:38",

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

@@ -1,11 +1,5 @@
 {
 	"class" : {
-		"extractPathFrom:" : "6/23/2024 14:02:55",
-		"imageFormFrom:" : "6/23/2024 14:02:55",
-		"newWith:" : "6/23/2024 14:02:55" },
+		 },
 	"instance" : {
-		"core" : "6/23/2024 14:02:55",
-		"core:" : "6/23/2024 14:02:55",
-		"getFormFor:" : "6/23/2024 14:02:55",
-		"getFormPromiseFor:" : "6/23/2024 14:02:55",
-		"requestImageFor:with:" : "6/22/2024 13:42:57" } }
+		 } }

packages/TelegramClient-Core.package/TCCRequest.class/class/newSendDocumentMessage.to..st

@@ -1,7 +1,5 @@
 instance creation
 newSendDocumentMessage: aDocumentPath to: aChatId
-	Transcript show: aDocumentPath.
-	self halt.
 
 	^ TCCRequest
 		newWithType: 'sendMessage'

packages/TelegramClient-Core.package/TCCRequest.class/class/newSendPollMessage.to..st

@@ -0,0 +1,32 @@
+instance creation
+newSendPollMessage: aPoll to: aChatId
+
+	^ TCCRequest
+		newWithType: 'sendMessage'
+		from: {
+			'chat_id' -> aChatId.
+			'input_message_content' -> (Dictionary newFrom: {
+				'@type' -> 'inputMessagePoll'.
+				'question' -> (Dictionary newFrom: {
+					'@type' -> 'formattedText'.
+					'text' -> 'hallo'	
+				}).
+				'options' -> (OrderedCollection newFrom: {(Dictionary newFrom: {
+					'@type' -> 'formattedText'.
+					'text' -> 'Option 1'  
+				}).
+				(Dictionary newFrom: {
+					'@type' -> 'formattedText'.
+					'text' -> 'Option 2'
+				}).
+				(Dictionary newFrom: {
+					'@type' -> 'formattedText'.
+					'text' -> 'Option 3'
+				})}).
+				'is_anonymous' -> 'false'.
+				'type' -> (Dictionary newFrom: {
+					'@type' -> 'pollTypeRegular'.
+					'allow_multiple_answers' -> 'false'
+				})
+			})
+		}

packages/TelegramClient-Core.package/TCCRequest.class/class/newSendPollMessage.to.asking.with.isAnonymous..st

@@ -0,0 +1,15 @@
+instance creation
+newSendPollMessage: aPollType to: aChatId asking: aString with: anOptionOrderedCollection isAnonymous: aBoolean
+
+	^ (TCCRequest
+		newWithType: 'sendMessage'
+		from: {
+			'chat_id' -> aChatId.
+			'input_message_content' -> (Dictionary newFrom: {
+				'@type' -> 'inputMessagePoll'.
+				'question' -> aString.
+				'options' -> anOptionOrderedCollection.
+				'is_anonymous' -> aBoolean.
+				'type' ->(self selectJsonFor: aPollType).
+				}).
+			})

packages/TelegramClient-Core.package/TCCRequest.class/class/selectJsonFor..st

@@ -0,0 +1,10 @@
+as yet unclassified
+selectJsonFor: aPollType
+
+	^ aPollType caseOf: {
+		['regular'] -> [(Dictionary newFrom: {'@type' -> 'pollTypeRegular'. 
+		'allow_multiple_answers' -> false. })].
+		['multiple'] -> [(Dictionary newFrom: {'@type' -> 'pollTypeRegular'. 
+		'allow_multiple_answers' -> true. })].
+		['quiz'] -> [(Dictionary newFrom: {'@type' -> 'pollTypeQuiz'. 'correct_option_id' -> 0. })]
+	}

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

@@ -16,16 +16,19 @@
 		"newRequestFile:" : "JB 8/1/2021 11:35",
 		"newRequestSticker:" : "JK 5/16/2024 21:39",
 		"newSearchChatFrom:" : "RS 6/23/2021 16:38",
-		"newSendDocumentMessage:to:" : "ED 6/26/2024 14:59",
+		"newSendDocumentMessage:to:" : "JK 6/28/2024 10:15",
 		"newSendFileMessage:to:" : "ED 6/19/2024 13:51",
 		"newSendMessage:to:" : "6/7/2024 09:02:10",
 		"newSendMessage:to:asReplyTo:" : "JS 5/20/2022 10:02",
 		"newSendPhoneNumber:" : "RS 6/23/2021 16:34",
-		"newSendPhotoMessage:to:" : "ED 6/19/2024 12:10",
+		"newSendPhotoMessage:to:" : "jkon 6/27/2024 09:20",
+		"newSendPollMessage:to:" : "7/5/2024 09:48:19",
+		"newSendPollMessage:to:asking:with:isAnonymous:" : "jkon 6/28/2024 09:16",
 		"newSendStickerMessage:to:" : "JK 6/21/2024 14:08",
 		"newSendVideoMessage:to:" : "ED 6/19/2024 12:22",
 		"newSetPollAnswer:message:options:" : "TU 6/6/2024 01:15",
 		"newUser:" : "JB 8/1/2021 11:55",
-		"newWithType:from:" : "rs 6/6/2020 16:21" },
+		"newWithType:from:" : "rs 6/6/2020 16:21",
+		"selectJsonFor:" : "jkon 6/27/2024 14:35" },
 	"instance" : {
 		"asString" : "js 8/1/2020 12:16" } }

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

@@ -1,20 +1,9 @@
 {
 	"class" : {
-		"extractPathFrom:" : "6/23/2024 14:02:55",
 		"imageFormFrom:" : "JK 6/21/2024 13:46",
-		"newWith:" : "JK 6/20/2024 22:18",
-		"stickerFormFrom:" : "6/23/2024 14:02:55" },
+		"newWith:" : "JK 6/20/2024 22:18" },
 	"instance" : {
-		"core" : "6/23/2024 14:02:55",
-		"core:" : "6/23/2024 14:02:55",
-		"downloadStickerSet:" : "JK 6/19/2024 11:33",
-		"getFormFor:" : "6/23/2024 14:02:55",
-		"getFormPromiseFor:" : "6/23/2024 14:02:55",
-		"getInstalledStickers" : "6/23/2024 17:46:17",
 		"loadStickerIds" : "JK 6/20/2024 23:39",
-		"requestStickerFor:with:" : "JK 5/16/2024 21:40",
-		"stickerIds" : "6/23/2024 17:46:17",
-		"stickerIds:" : "6/23/2024 17:46:17",
 		"stickerSets" : "JK 6/19/2024 11:30",
 		"stickerSets:" : "JK 6/19/2024 11:30",
-		"storeStickerSet:" : "JK 6/23/2024 16:33" } }
+		"storeStickerSet:" : "JK 7/4/2024 10:50" } }

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

@@ -1,10 +1,6 @@
 {
 	"class" : {
-		"extractPathFrom:" : "6/23/2024 14:02:55",
-		"imageFormFrom:" : "6/23/2024 14:02:55",
 		"newWith:" : "ED 6/26/2024 14:50" },
 	"instance" : {
-		"getFormFor:" : "6/23/2024 14:02:55",
-		"getFormPromiseFor:" : "6/23/2024 14:02:55",
 		"getVideoFor:" : "JK 6/12/2024 19:48",
 		"getVideoPromiseFor:" : "JK 6/12/2024 19:56" } }

packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/newFor.withBounds..st

@@ -0,0 +1,7 @@
+as yet unclassified
+newFor: aChatWindow withBounds: aRectangle
+
+	^ (super newBounds: aRectangle)
+		chatWindow: aChatWindow;
+		addButtonMenu;
+		yourself

packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/newFor.withBounds.from..st

@@ -0,0 +1,8 @@
+as yet unclassified
+newFor: aChat withBounds: aRectangle from: aChatWindow
+
+	^ (super newBounds: aRectangle)
+		chat: aChat;
+		chatWindow: aChatWindow;
+		addButtonMenu;
+		yourself

packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addButtonMenu.st

@@ -0,0 +1,9 @@
+as yet unclassified
+addButtonMenu
+
+	self createButtonMenu;
+		addStickerButton;
+		addFileButton.
+	(self chat isGroup) ifTrue: [self addPollButton].
+	self addMorphFront: self buttonMenu.
+	self buttonMenu center: self center.

packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addFileButton.st

@@ -0,0 +1,10 @@
+as yet unclassified
+addFileButton
+
+	self fileButton: (TCUButton new
+		extent: 100 @ 30;
+		text: 'Select File';
+		on: #mouseUp send: #buttonFileSelectPressed to: self chatWindow;
+		name: 'selectFile';
+		yourself).
+	self buttonMenu addMorph: self fileButton.