hpi-swa-teaching · antonykamp · Jun 15, 2022 · Jun 2, 2022 · Jun 2, 2022 · Jun 2, 2022
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/hasPhoto.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/hasPhoto.st
@@ -0,0 +1,4 @@
+accessing
+hasPhoto
+
+	^ self photoId isNil not
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/initializeFromChatEvent..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/initializeFromChatEvent..st
@@ -6,4 +6,8 @@ initializeFromChatEvent: anEvent
 		id: (anEvent at: 'id');
 		canSendMessages: ((anEvent at: 'permissions') at: 'can_send_messages');
 		muted: ((anEvent at: 'notification_settings') at: 'mute_for') > 0;
-		lastMessage: ''
+		lastMessage: ''.
+
+	(anEvent at: 'photo') ifNotNil: [
+		self photoId: (((anEvent at: 'photo') at: 'small') at: 'id').
+	]
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/photoId..st b/packages/TelegramClient-Core.package/TCCChat.class/instance/photoId..st
@@ -0,0 +1,4 @@
+accessing
+photoId: aNumber
+
+	photoId := aNumber
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/instance/photoId.st b/packages/TelegramClient-Core.package/TCCChat.class/instance/photoId.st
@@ -0,0 +1,4 @@
+accessing
+photoId
+
+	^ photoId
diff --git a/packages/TelegramClient-Core.package/TCCChat.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCChat.class/methodProperties.json
@@ -16,13 +16,14 @@
 		"core" : "per 6/4/2021 16:00",
 		"core:" : "per 6/4/2021 15:58",
 		"getMessageById:" : "JS 5/26/2022 14:49",
+		"hasPhoto" : "rgw 6/2/2022 15:20",
 		"id" : "rs 6/7/2020 22:20",
 		"id:" : "pk 8/4/2021 11:25",
 		"ifNotWaitingForUpdate:" : "js 8/2/2020 13:17",
 		"infoLoaded" : "per 6/4/2021 15:59",
 		"infoLoaded:" : "per 6/4/2021 15:51",
 		"initialize" : "JS 5/26/2022 14:31",
-		"initializeFromChatEvent:" : "pk 8/5/2021 15:48",
+		"initializeFromChatEvent:" : "rgw 6/2/2022 15:24",
 		"isBasicGroup" : "per 6/15/2021 08:08",
 		"isChannel" : "per 7/17/2021 15:51",
 		"isChannel:" : "per 7/17/2021 15:50",
@@ -45,6 +46,8 @@
 		"numberOfMessages" : "RS 7/31/2021 15:19",
 		"numberOfRequestedMessages" : "js 8/1/2020 17:43",
 		"numberOfRequestedMessages:" : "JS 5/20/2022 11:34",
+		"photoId" : "rgw 6/2/2022 11:51",
+		"photoId:" : "rgw 6/2/2022 11:51",
 		"position" : "RS 5/10/2021 21:11",
 		"position:" : "pk 8/6/2021 18:59",
 		"positionKnown" : "pk 8/6/2021 18:25",

diff --git a/packages/TelegramClient-Core.package/TCCChat.class/properties.json b/packages/TelegramClient-Core.package/TCCChat.class/properties.json
@@ -19,7 +19,8 @@
 		"isChannel",
 		"messageIds",
 		"messageDictionary",
-		"selectedReplyToMessageId" ],
+		"selectedReplyToMessageId",
+		"photoId" ],
 	"name" : "TCCChat",
 	"pools" : [
 		 ],

diff --git a/packages/TelegramClient-Core.package/TCCImageStore.class/instance/getFormFor..st b/packages/TelegramClient-Core.package/TCCImageStore.class/instance/getFormFor..st
@@ -2,9 +2,6 @@ accessing
 getFormFor: anImageId
 
 	| promise |
-	promise := self at: anImageId ifAbsent:
-		[self at: anImageId put: Promise new.
-		self requestImageFor: anImageId with: (self at: anImageId).
- 		self at: anImageId].
+	promise := self getFormPromiseFor: anImageId.
 	promise wait.
-	^ self class imageFormFrom: promise value
+	^ promise value
diff --git a/packages/TelegramClient-Core.package/TCCImageStore.class/instance/getFormPromiseFor..st b/packages/TelegramClient-Core.package/TCCImageStore.class/instance/getFormPromiseFor..st
@@ -0,0 +1,10 @@
+accessing
+getFormPromiseFor: anImageId
+
+	| promise |
+	promise := self at: anImageId ifAbsent: [
+		self at: anImageId put: Promise new.
+		self requestImageFor: anImageId with: (self at: anImageId).
+ 		self at: anImageId
+	].
+	^ promise >>= [:aPath | self class imageFormFrom: aPath]
diff --git a/packages/TelegramClient-Core.package/TCCImageStore.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCImageStore.class/methodProperties.json
@@ -6,5 +6,6 @@
 	"instance" : {
 		"core" : "pk 6/19/2021 16:13",
 		"core:" : "pk 6/19/2021 16:13",
-		"getFormFor:" : "pk 6/19/2021 17:25",
-		"requestImageFor:with:" : "JB 8/1/2021 11:35" } }
+		"getFormFor:" : "rgw 6/6/2022 18:51",
+		"getFormPromiseFor:" : "rgw 6/6/2022 18:43",
+		"requestImageFor:with:" : "rgw 6/2/2022 11:17" } }
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/instance/senderName.st b/packages/TelegramClient-Core.package/TCCMessage.class/instance/senderName.st
@@ -3,5 +3,5 @@ senderName
 
 	^ (self senderType) caseOf: {
 		[#messageSenderChat] -> [self chat title].
-		[#messageSenderUser] -> [(self core userStore getUserFor: self userId) fullName].
+		[#messageSenderUser] -> [self senderUser fullName].
 	} otherwise: ['Unsupported sender type']
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/instance/senderUser.st b/packages/TelegramClient-Core.package/TCCMessage.class/instance/senderUser.st
@@ -0,0 +1,4 @@
+accessing
+senderUser
+
+	^ self core userStore getUserFor: self userId
diff --git a/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCMessage.class/methodProperties.json
@@ -23,9 +23,10 @@
 		"replyText" : "rgw 5/12/2022 15:35",
 		"replyToMessageId" : "rgw 5/12/2022 13:43",
 		"replyToMessageId:" : "rgw 5/12/2022 13:43",
-		"senderName" : "tr 7/25/2021 18:00",
+		"senderName" : "JS 6/11/2022 09:50",
 		"senderType" : "tom.richter 7/25/2021 10:42",
 		"senderType:" : "pk 8/4/2021 11:42",
+		"senderUser" : "JS 6/11/2022 09:49",
 		"shouldNotify" : "per 6/16/2021 17:35",
 		"userId" : "tom.richter 7/25/2021 11:17",
 		"userId:" : "pk 8/4/2021 11:42" } }
diff --git a/packages/TelegramClient-Core.package/TCCUser.class/class/newFrom..st b/packages/TelegramClient-Core.package/TCCUser.class/class/newFrom..st
@@ -1,8 +1,13 @@
 instance creation
 newFrom: anEvent
 
-	^ self new
+	| user |
+	user := self new
 		id: (anEvent at: 'id');
 		firstName: (anEvent at: 'first_name');
 		lastName: (anEvent at: 'last_name');
-		username: (anEvent at: 'username')
+		username: (anEvent at: 'username').
+
+	anEvent at: 'profile_photo' ifPresent: [:profilePhoto | user photoId: ((profilePhoto at: 'small') at: 'id')] ifAbsent: [].
+
+	^ user
diff --git a/packages/TelegramClient-Core.package/TCCUser.class/instance/hasPhoto.st b/packages/TelegramClient-Core.package/TCCUser.class/instance/hasPhoto.st
@@ -0,0 +1,4 @@
+accessing
+hasPhoto
+
+	^ self photoId isNil not
diff --git a/packages/TelegramClient-Core.package/TCCUser.class/instance/photoId..st b/packages/TelegramClient-Core.package/TCCUser.class/instance/photoId..st
@@ -0,0 +1,4 @@
+accessing
+photoId: aNumber
+
+	photoId := aNumber
diff --git a/packages/TelegramClient-Core.package/TCCUser.class/instance/photoId.st b/packages/TelegramClient-Core.package/TCCUser.class/instance/photoId.st
@@ -0,0 +1,4 @@
+accessing
+photoId
+
+	^ photoId
diff --git a/packages/TelegramClient-Core.package/TCCUser.class/methodProperties.json b/packages/TelegramClient-Core.package/TCCUser.class/methodProperties.json
@@ -1,16 +1,19 @@
 {
 	"class" : {
-		"newFrom:" : "pk 8/5/2021 16:59" },
+		"newFrom:" : "JS 6/11/2022 10:19" },
 	"instance" : {
 		"=" : "pk 6/13/2021 12:52",
 		"firstName" : "per 5/15/2021 12:03",
 		"firstName:" : "pk 8/4/2021 11:57",
 		"fullName" : "JB 6/13/2021 10:28",
+		"hasPhoto" : "JS 6/11/2022 09:32",
 		"hash" : "JB 6/13/2021 14:01",
 		"id" : "pk 5/9/2021 16:33",
 		"id:" : "pk 8/4/2021 11:56",
 		"initialize" : "JB 6/13/2021 10:52",
 		"lastName" : "per 5/15/2021 12:03",
 		"lastName:" : "pk 8/4/2021 11:58",
+		"photoId" : "JS 6/11/2022 09:26",
+		"photoId:" : "JS 6/11/2022 09:26",
 		"username" : "pk 5/9/2021 16:33",
 		"username:" : "pk 8/4/2021 12:04" } }
diff --git a/packages/TelegramClient-Core.package/TCCUser.class/properties.json b/packages/TelegramClient-Core.package/TCCUser.class/properties.json
@@ -9,7 +9,8 @@
 		"id",
 		"username",
 		"firstName",
-		"lastName" ],
+		"lastName",
+		"photoId" ],
 	"name" : "TCCUser",
 	"pools" : [
 		 ],

diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultImageWidth.st b/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultImageWidth.st
@@ -0,0 +1,4 @@
+default values
+defaultImageWidth
+
+	^ self defaultHeight
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultLastMessageOffset.st b/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultLastMessageOffset.st
@@ -1,4 +1,4 @@
 default values
 defaultLastMessageOffset
 
-	^ 20 @ -12
+	^ (15 @ -17) + (self defaultPhotoSize @ 0)
diff --git a/...ages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultMessagePreviewLength.st b/...ages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultMessagePreviewLength.st
@@ -1,4 +1,4 @@
 default values
 defaultMessagePreviewLength
 
-	^ 37
+	^ 30
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultPhoto.st b/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultPhoto.st
@@ -0,0 +1,40 @@
+as yet unclassified
+defaultPhoto
+	"@linter-ignore"
+	"This is an auto-generated method"
+	^ (Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: 'iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAABhGlDQ1BJQ0MgcHJvZmlsZQAA
+KJF9kT1Iw0AcxV/TakWqDlYQcchQnSyIijhqFYpQIdQKrTqYXPoFTRqSFBdHwbXg4Mdi1cHF
+WVcHV0EQ/ABxdHJSdJES/5cWWsR4cNyPd/ced+8AoVZimhUYBzTdNpPxmJjOrIrBV3RCQC8G
+EJCZZcxJUgKe4+sePr7eRXmW97k/R4+atRjgE4lnmWHaxBvE05u2wXmfOMwKskp8Tjxm0gWJ
+H7muNPiNc95lgWeGzVRynjhMLObbWGljVjA14iniiKrplC+kG6xy3uKslSqseU/+wlBWX1nm
+Os1hxLGIJUgQoaCCIkqwEaVVJ8VCkvZjHv4h1y+RSyFXEYwcCyhDg+z6wf/gd7dWbnKikRSK
+AR0vjvMxAgR3gXrVcb6PHad+AvifgSu95S/XgJlP0qstLXIE9G0DF9ctTdkDLneAwSdDNmVX
+8tMUcjng/Yy+KQP03wLda43emvs4fQBS1FXiBjg4BEbzlL3u8e6u9t7+PdPs7wfkr3JuGFSY
+bAAAAAZiS0dEADMA/wAAoVpNxAAAAAlwSFlzAAAN1wAADdcBQiibeAAAAAd0SU1FB+YGAg4V
+IsHL5e4AAAVwSURBVHja7ZxXVxtJEIVvT1CYUY5gQGCMOcf7/3/LrtcWIJAsZIWRNEETpJ7e
+BxuHJViBngBzX3hBoPlU3bequlqk179lSLS1hARBAjABmABMACZKACYAE4AJwESbS4rqG/N9
+H9T3wXwGURQgimIC8CnZto2ZrkM3TNi2A2+5/H2pCAKy6TQUVUGpUECxkIcghL+ASJi1MGMM
+2nSGwWgEy1ps9FpRFFGrVLDfbCCVkl8fQMM00en2YNvObps4IWg2GjjYb4YSkYEDZIyh+6WP
+wXD0rH83k07j7PQESjb7cl2YUoqP7YtnhwcAjuvi738/Yzqbv0yAlFJ8/HwBwzC5Onf7qoPJ
+dPqyADLG8PmyA2uxCOR/XXZuMDeMlwPwutuDHtAD3UFsX3bgul78Ac7mcwzHk8DdkVKKy841
+GGPxBej7Pq67vdByNMOyMNa0+AIcDEdwvWWolUKvPwClfvwA+r7PJV3ZVMvlEmNtEj+Ak+kU
+q9UqEnX2YDiOIUBtFpmOieu6G9faoQJcUQrDNBElaZwqFC4ATdPknj5s07yID0BrgajJWiy4
+fKhcADquGzmAjDF4nhcPgK7nIYpy4gKQrmgkAfocEmqB13KJJEA/JgAJIZEEyKPlzwVgVI8g
+BTEmAMM8JXtK6VQqHgAzmUzk4BFC4gMwpyiRA6goCpe9mQvAfE6NnJEUcmp8SjlJkpDj9Ia3
+VblUjA9AAKiVy5Eyj5yqxgtgtVKGJEUjnWk26vxSI55Ja7NeDx2eJEmoVyvxAwgAe40GZDnc
+nPBgf49rYs8VoCgKOD48CA1eTlXRqFX5Vje8H6JSLqHGcQk9VU6enrS4p1OBjHactI64ueBj
+VcfpSQuZdJp/fR1IEU8I3r97i2wAs3uEEJy0DlEuFgP5sAIbb5MlCR/ev+MaiYQQnB63UK9W
+A4v2QAcsJUnCh/Mz1Dls7OlUCn+dn6FaCTaBD21Geq4b6HR7cHc8gCKEoFGr4vDNfih9yNCn
+9McTDYPhCLaz2bC5IAiolkvY32sGYhaRBPirLMvCdK7DMEwsHAeU0nuRlkqlkFMVFAsFlIuF
+SHS+I3PRRlVVqL8YzGpFQekKPmMQRRGyJEXyrCVUgIwxuJ4H1/WwXC7hekusVkv4jMGnPhgY
+GGMghEAURBACyLKMlCx/+5mSkc1kQgUbKEDHdaEbJizLwsK2YdsO/B2PQAkhyKTTULJZqIqC
+fD4HJRscVK57IGMMc93AdDbHXNfv3X/jFhWiiHw+h0qphBLnvZILQMuyMBxr0Gaze2YQtARC
+UCwWUK9WUSzknz0ynw0gYwyT6Qxft7g4GJTS6TQatRoatcqzReXOABljmM7m6PVvIzmV9dgS
+399roFmv7zytsBNAw7TQ6XZ3vnEZlmRZRuvgzU7l31YAKaXo9QcYjseRHSTaRPl8Dm9bR1tV
+NBsDtKwF2ledyM4Abm02goDjo4ONOzkb5YG3X4fo9W9fRNT9X77v4+q6C9Na4PjoEMKabr0W
+QMYYOt0eRiHceQtao/EEjuPi/N3btZxaWAde+6rzKuD9NEcT/3xqY7lG4i+sAy/oW+BR0MK2
+8bF98cdC4EmAN73+q4R3J9t28Oni6sl6/VGAw9EYX0cjvHYZponrm95mAG3Hwc2XPhJ9N5bJ
+5NHvYRAe2vcurq65TLTHWZ2b3oOmIjxk4wvbTog9VH3dDp4GSCnFlwd+KdE3jSfavbpf+H2t
+a1hG5JJ0FMUYw+1w+DjA4WicUPqDJtr0tyATftq1FZt+XthRqGnT+wBnup7QWVO/svoBUNeN
+hMzaybX1oyMl3IVlkrqsL9/3sfjuxgIAeJ73Int8PHU3FCUBwIr6UJVsQmWTKPwecP8B+Yeq
+UNZlH5EAAAAASUVORK5CYII=' readStream))
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultPhotoSize.st b/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultPhotoSize.st
@@ -0,0 +1,4 @@
+default values
+defaultPhotoSize
+
+	^ self defaultHeight
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultTitleOffset.st b/packages/TelegramClient-UI.package/TCUChatListItem.class/class/defaultTitleOffset.st
@@ -1,4 +1,4 @@
 default values
 defaultTitleOffset
 
-	^ 20 @ 20
+	^ (15 @ 15) + (self defaultPhotoSize @ 0)
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/class/newWithChat.width..st b/packages/TelegramClient-UI.package/TCUChatListItem.class/class/newWithChat.width..st
@@ -7,4 +7,5 @@ newWithChat: aChat width: aNumber
 		addTitle;
 		addLastMessage;
 		addBorder;
+		addPhoto;
 		yourself
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/instance/addPhoto.st b/packages/TelegramClient-UI.package/TCUChatListItem.class/instance/addPhoto.st
@@ -0,0 +1,15 @@
+drawing
+addPhoto
+
+	| promise morph |
+	TCUTelegram devMode ifTrue: [^ self].
+	self chat hasPhoto ifTrue: [
+		promise := self chat core imageStore getFormPromiseFor: self chat photoId.
+		promise >>= [:aForm |
+			morph := (aForm scaledToSize: self class defaultPhotoSize) asMorph.
+			morph position: self position.
+			self addMorphBack: morph.
+		]
+	] ifFalse: [
+		self addMorphBack: TCUDefaultValues defaultProfilePhoto asMorph.
+	]
diff --git a/packages/TelegramClient-UI.package/TCUChatListItem.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatListItem.class/methodProperties.json
@@ -1,15 +1,19 @@
 {
 	"class" : {
 		"defaultHeight" : "rs 7/4/2020 18:54",
-		"defaultLastMessageOffset" : "JB 6/11/2021 15:17",
-		"defaultMessagePreviewLength" : "JB 6/11/2021 15:17",
+		"defaultImageWidth" : "rgw 6/2/2022 15:26",
+		"defaultLastMessageOffset" : "rgw 6/2/2022 15:28",
+		"defaultMessagePreviewLength" : "rgw 6/2/2022 15:32",
+		"defaultPhoto" : "rgw 6/2/2022 16:26",
+		"defaultPhotoSize" : "rgw 6/2/2022 15:27",
 		"defaultSelectColor" : "JB 7/19/2021 12:11",
 		"defaultTitleLength" : "RK 7/4/2021 13:30",
-		"defaultTitleOffset" : "JB 6/11/2021 15:18",
-		"newWithChat:width:" : "RK 8/4/2021 10:45" },
+		"defaultTitleOffset" : "rgw 6/2/2022 15:28",
+		"newWithChat:width:" : "rgw 6/2/2022 15:18" },
 	"instance" : {
 		"addBorder" : "RK 8/4/2021 12:05",
 		"addLastMessage" : "RK 8/4/2021 12:06",
+		"addPhoto" : "js 6/13/2022 18:09",
 		"addTitle" : "RK 8/4/2021 12:06",
 		"chat" : "rs 6/17/2020 21:45",
 		"chat:" : "rs 6/17/2020 21:45",

diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/class/defaultMessageWrapper.st b/packages/TelegramClient-UI.package/TCUChatMessageList.class/class/defaultMessageWrapper.st
diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/class/defaultWidth.st b/packages/TelegramClient-UI.package/TCUChatMessageList.class/class/defaultWidth.st
@@ -1,4 +1,4 @@
 default values
 defaultWidth
 
-	^ 890
+	^ 810
diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/addAtBottom..st b/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/addAtBottom..st
@@ -6,7 +6,7 @@ addAtBottom: aCoreMessage
 	(self isFromCurrentChat: aCoreMessage)
 		ifFalse: [ ^ self ].
 	wasFullyScrolledDown := self isFullyScrolledDown.
-	wrapper := self wrapperFor: (TCUMessage newFrom: aCoreMessage).
+	wrapper := TCUMessageWrapper newFromMessage: (TCUMessage newFrom: aCoreMessage) withWidth: self scroller width.
 	self scroller addMorphBack: wrapper.
 	self items addLast: wrapper.
 	wasFullyScrolledDown

diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/addAtTop..st b/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/addAtTop..st
@@ -4,7 +4,7 @@ addAtTop: aCoreMessage
 	| wrapper |
 	(self isFromCurrentChat: aCoreMessage) ifFalse: [^ self].
 
-	wrapper := self wrapperFor: (TCUMessage newFrom: aCoreMessage).
+	wrapper := TCUMessageWrapper newFromMessage: (TCUMessage newFrom: aCoreMessage) withWidth: self scroller width.
 	self scroller addMorphFront: wrapper.
 	self items addFirst: wrapper.
 

diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/wrapperFor..st b/packages/TelegramClient-UI.package/TCUChatMessageList.class/instance/wrapperFor..st
diff --git a/packages/TelegramClient-UI.package/TCUChatMessageList.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatMessageList.class/methodProperties.json
@@ -1,12 +1,10 @@
 {
 	"class" : {
-		"defaultMessageMargin" : "per 6/20/2021 11:51",
-		"defaultMessageWrapper" : "JB 6/28/2021 09:58",
 		"defaultScrollOffsetBeforeLoading" : "JB 6/26/2021 10:15",
-		"defaultWidth" : "RS 7/17/2021 17:39" },
+		"defaultWidth" : "rgw 6/2/2022 15:39" },
 	"instance" : {
-		"addAtBottom:" : "JB 8/4/2021 11:15",
-		"addAtTop:" : "JB 8/4/2021 11:15",
+		"addAtBottom:" : "JS 6/11/2022 11:14",
+		"addAtTop:" : "JS 6/11/2022 11:15",
 		"addMessages" : "RS 7/17/2021 17:40",
 		"chat" : "js 7/31/2020 16:39",
 		"chat:" : "js 7/31/2020 16:39",
@@ -17,5 +15,4 @@
 		"isFullyScrolledDown" : "JB 8/4/2021 11:15",
 		"scrollToNewestMessage" : "per 6/24/2021 23:14",
 		"showMessages" : "RS 7/17/2021 17:34",
-		"step" : "JB 7/19/2021 12:12",
-		"wrapperFor:" : "RK 8/4/2021 10:57" } }
+		"step" : "JB 7/19/2021 12:12" } }
diff --git a/packages/TelegramClient-UI.package/TCUChatsList.class/class/defaultWidth.st b/packages/TelegramClient-UI.package/TCUChatsList.class/class/defaultWidth.st
@@ -1,4 +1,4 @@
 default values
 defaultWidth
 
-	^ 300
+	^ 375