Merge develop into develop2

Author: gitjannes

.squot-materialize

@@ -182,19 +182,19 @@
 		],
 		#encoding : Class [ #JPEGReadWriter2 ]
 	},
+	SquotImageMapper {
+		#path : FSAbsolutePath [
+			'assets',
+			'play_circle_outline_icon.png'
+		],
+		#encoding : @6
+	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
 			'workflows',
 			'ci-linter.yml'
 		],
 		#encoding : 'TXT'
-	},
-	SquotImageMapper {
-		#path : FSAbsolutePath [
-			'assets',
-			'play_circle_outline_icon.png'
-		],
-		#encoding : @6
 	}
 ]

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/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

@@ -21,11 +21,14 @@
 		"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-UI.package/TCUChatButtonPage.class/README.md

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