Merge feature/sendpoll into develop

.squot-materialize

@@ -1,16 +1,4 @@
 [
-	SquotPlaintextMapper {
-		#path : FSAbsolutePath [
-			'.squot'
-		],
-		#encoding : 'TXT'
-	},
-	SquotImageMapper {
-		#path : FSAbsolutePath [
-			'file-icon.png'
-		],
-		#encoding : Class [ #PNGReadWriter ]
-	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
@@ -20,124 +8,145 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'ISSUE_TEMPLATE',
-			'feature_request.md'
+			'.smalltalk.release.ston'
 		],
 		#encoding : 'TXT'
 	},
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'TelegramClientTests-Core'
+		},
+		#path : FSAbsolutePath [
+			'packages'
+		]
+	},
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'TelegramClientTests-Misc'
+		},
+		#path : FSAbsolutePath [
+			'packages'
+		]
+	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.gitignore'
+			'.smalltalk.lint.ston'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'CONTRIBUTING.md'
+			'.github',
+			'ISSUE_TEMPLATE',
+			'bug_report.md'
 		],
 		#encoding : 'TXT'
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClientTests-UI'
+			#name : 'TelegramClient-UI'
 		},
 		#path : FSAbsolutePath [
 			'packages'
 		]
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.ston'
+			'.github',
+			'ISSUE_TEMPLATE',
+			'feature_request.md'
 		],
 		#encoding : 'TXT'
 	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'BaselineOfTelegramClient'
-		},
+	SquotImageMapper {
 		#path : FSAbsolutePath [
-			'packages'
-		]
+			'assets',
+			'logo.png'
+		],
+		#encoding : Class [ #PNGReadWriter ]
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'README.md'
+			'.gitignore'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.smalltalk.release.ston'
+			'LICENSE'
 		],
 		#encoding : 'TXT'
 	},
-	SquotPlaintextMapper {
+	SquotImageMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'ISSUE_TEMPLATE',
-			'bug_report.md'
+			'assets',
+			'playbutton.jpg'
 		],
-		#encoding : 'TXT'
+		#encoding : Class [ #JPEGReadWriter2 ]
 	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'TelegramClient-UI'
-		},
+	SquotImageMapper {
 		#path : FSAbsolutePath [
-			'packages'
-		]
+			'assets',
+			'play_circle_outline_icon.png'
+		],
+		#encoding : @23
+	},
+	SquotPlaintextMapper {
+		#path : FSAbsolutePath [
+			'CONTRIBUTING.md'
+		],
+		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
 			'workflows',
-			'main.yml'
+			'ci-linter.yml'
 		],
 		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'.github',
-			'stale.yml'
+			'README.md'
 		],
 		#encoding : 'TXT'
 	},
-	SquotCypressMapper {
-		#package : MCPackage {
-			#name : 'TelegramClientTests-Misc'
-		},
+	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'packages'
-		]
+			'.github',
+			'workflows',
+			'main.yml'
+		],
+		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
-			'pull_request_template.md'
+			'stale.yml'
 		],
 		#encoding : 'TXT'
 	},
 	SquotImageMapper {
 		#path : FSAbsolutePath [
-			'assets',
-			'logo.png'
+			'file-icon.png'
 		],
-		#encoding : @6
+		#encoding : @23
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
-			#name : 'TelegramClientTests-Core'
+			#name : 'TelegramClientTests-UI'
 		},
 		#path : FSAbsolutePath [
 			'packages'
 		]
 	},
-	SquotPlaintextMapper {
+	SquotCypressMapper {
+		#package : MCPackage {
+			#name : 'BaselineOfTelegramClient'
+		},
 		#path : FSAbsolutePath [
-			'.smalltalk.lint.ston'
-		],
-		#encoding : 'TXT'
+			'packages'
+		]
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
@@ -148,15 +157,7 @@
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'LICENSE'
-		],
-		#encoding : 'TXT'
-	},
-	SquotPlaintextMapper {
-		#path : FSAbsolutePath [
-			'.github',
-			'workflows',
-			'release.yml'
+			'.smalltalk.ston'
 		],
 		#encoding : 'TXT'
 	},
@@ -168,25 +169,24 @@
 			'packages'
 		]
 	},
-	SquotImageMapper {
+	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'assets',
-			'playbutton.jpg'
+			'.squot'
 		],
-		#encoding : Class [ #JPEGReadWriter2 ]
+		#encoding : 'TXT'
 	},
-	SquotImageMapper {
+	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
-			'assets',
-			'play_circle_outline_icon.png'
+			'.github',
+			'workflows',
+			'release.yml'
 		],
-		#encoding : @6
+		#encoding : 'TXT'
 	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.github',
-			'workflows',
-			'ci-linter.yml'
+			'pull_request_template.md'
 		],
 		#encoding : 'TXT'
 	}

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addChoices..st

@@ -0,0 +1,7 @@
+drawing
+addChoices: aRectangle
+
+	aRectangle addMorph: (TCUChoice newFor: 'Anonymous Poll?');
+		addMorph: (TCUChoiceExclusive newFor: 'Standard Poll' inPoll: self);
+		addMorph: (TCUChoiceExclusive newFor: 'Multiple Options' inPoll: self);
+		addMorph: (TCUChoiceExclusive newFor: 'Quiz' inPoll: self).

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addConfirmButton..st

@@ -0,0 +1,10 @@
+drawing
+addConfirmButton: aRectangle 
+
+	|confirmButton|
+
+	confirmButton := TCUButton new.
+	confirmButton text: 'Confirm';
+		on: #mouseUp send: #confirmPressed to: self.
+
+	aRectangle addMorph: confirmButton.

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addInputFieldFor..st

@@ -0,0 +1,14 @@
+drawing
+addInputFieldFor: aRectangle
+
+	|inputField|
+	inputField :=  (TextMorph new
+		borderWidth: 2;
+		borderColor: TCUDefaultValues colorLightBlue;
+		color: Color white;
+		contentsWrapped: '' asText;
+		extent: 200 @ 20;
+		"crAction: [self buttonSendPressed];
+	"	yourself).
+	aRectangle addMorph: inputField.
+

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addNextButton..st

@@ -0,0 +1,10 @@
+drawing
+addNextButton: aRectangle 
+
+	|nextButton|
+
+	nextButton := TCUButton new.
+	nextButton text: 'Next';
+		on: #mouseUp send: #nextPressed to: self.
+
+	aRectangle addMorph: nextButton.

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextFieldFor.with..st

@@ -0,0 +1,12 @@
+drawing
+addTextFieldFor: aRectangle with: aString
+
+	|text|
+	text := (TextMorph new
+		contents: aString;
+		extent: 20 @ 20;
+		readOnly: true;
+		color: Color white;
+		lock;
+		yourself).
+	aRectangle addMorph: text.

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextInputFor..st

@@ -0,0 +1,19 @@
+drawing
+addTextInputFor: aString
+
+	| morph|
+	morph := (RectangleMorph new
+		borderWidth: 0;
+		color: TCUDefaultValues colorNileBlue;
+		layoutPolicy: TableLayout new;
+		listDirection: #leftToRight;
+		wrapDirection: #leftToRight;
+		wrapCentering: #topLeft;
+		layoutInset: 2;
+		hResizing: #shrinkWrap;
+		vResizing: #shrinkWrap;
+		yourself).
+
+	self addInputFieldFor: morph.
+	self addTextFieldFor: morph with: aString.
+	^ morph.

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTypeOption.st

@@ -1,23 +1,10 @@
-as yet unclassified
+drawing
 addTypeOption
 
-	self typeOption: (RectangleMorph new
-		color: TCUDefaultValues colorLightBlue;
-		useRoundedCorners;
-		layoutPolicy: TableLayout new;
-		listDirection: #leftToRight;
-		wrapDirection: #topToBottom;
-		wrapCentering: #topLeft;
-		layoutInset: 2;
-		hResizing: #shrinkWrap;
-		vResizing: #shrinkWrap;
-		cellInset: 8;
-		addMorph: (TCUChoice newFor: 'Anonymous Poll?' isExclusive: false);
-		addMorph: (TCUChoice newFor: 'Standard Poll' isExclusive: true);
-		addMorph: (TCUChoice newFor: 'Multiple Options' isExclusive: true);
-		addMorph: (TCUChoice newFor: 'Quiz' isExclusive: true);
-		yourself).
-
-	self addMorphFront: self typeOption.
+	self createTypeOption;
+		addTextFieldFor: self typeOption with: 'Customize your poll!';
+		addChoices: self typeOption;
+		addNextButton: self typeOption;
+		addMorphFront: self typeOption.
 	self typeOption center: self center.
 

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/chat..st

@@ -1,4 +1,4 @@
-as yet unclassified
+accessing
 chat: aChat
 
 	chat := aChat

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/chat.st

@@ -1,4 +1,4 @@
-as yet unclassified
+accessing
 chat
 
 	^ chat

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/clear.st

@@ -0,0 +1,4 @@
+drawing
+clear
+
+	self abandon.

packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/confirmPressed.st

@@ -0,0 +1,4 @@
+event handling
+confirmPressed
+
+	self abandon.