going from one error to the next

Author: Elia Doumerc

.squot-materialize

@@ -20,13 +20,6 @@
 		],
 		#encoding : 'TXT'
 	},
-	SquotImageMapper {
-		#path : FSAbsolutePath [
-			'assets',
-			'default-video-thumbnail.png'
-		],
-		#encoding : Class [ #PNGReadWriter ]
-	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'.gitignore'
@@ -124,7 +117,7 @@
 			'assets',
 			'logo.png'
 		],
-		#encoding : @10
+		#encoding : Class [ #PNGReadWriter ]
 	},
 	SquotCypressMapper {
 		#package : MCPackage {
@@ -140,6 +133,13 @@
 		],
 		#encoding : 'TXT'
 	},
+	SquotImageMapper {
+		#path : FSAbsolutePath [
+			'assets',
+			'default_video_thumbnail.png'
+		],
+		#encoding : @40
+	},
 	SquotPlaintextMapper {
 		#path : FSAbsolutePath [
 			'scripts',
@@ -189,6 +189,6 @@
 			'assets',
 			'play_circle_outline_icon.png'
 		],
-		#encoding : @10
+		#encoding : @40
 	}
 ]

assets/default-video-thumbnail.png renamed to assets/default_video_thumbnail.png

@@ -3,13 +3,13 @@ newFrom: aJsonObject
 
 	| thumbnailData |
 	thumbnailData := ((aJsonObject at: 'video') at: 'thumbnail').
-	"thumbnailData = nil ifTrue: [
-		thumbnailData := Dictionary new
-									add: 'width' -> 810;
-									add: 'height' -> 452;
-									yourself.
-		thumbnailData add: ('file' -> (Dictionary new add: 'id' -> -1))
-	]."
+	thumbnailData = nil ifTrue: [
+		thumbnailData := JsonObject newFrom: {
+			'width' -> 810.
+			'height' -> 452.
+			'file' -> (JsonObject newFrom: {'id' -> -1}).
+		}.
+	].
 
 	^ self new
 		caption: ((aJsonObject at: 'caption') at: 'text');

packages/TelegramClient-Core.package/TCCVideoMessage.class/class/newFrom..st

@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"newFrom:" : "ED 6/21/2024 10:49" },
+		"newFrom:" : "ED 6/26/2024 11:56" },
 	"instance" : {
 		"asSnippet" : "JK 6/12/2024 11:31",
 		"asText" : "TR 6/20/2021 10:41",

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

@@ -2,6 +2,8 @@ utility
 newWith: aCore
 
 	|obj|
+	"self halt."
 	obj := super newWith: aCore.
-	obj add: (Association key: -1 value: '/assets/default_video_thumbnail.png').
-	^ obj
+"	obj add: (Association key: -1 value: (Promise new initializeWithResolvedValue: ((GitAssetLoader for: 'TelegramClient')
+'/assets/default_video_thumbnail.png')).
+"	^ obj

packages/TelegramClient-Core.package/TCCVideoStore.class/class/newWith..st

@@ -2,7 +2,7 @@
 	"class" : {
 		"extractPathFrom:" : "pk 6/19/2021 16:23",
 		"imageFormFrom:" : "pk 8/5/2021 16:52",
-		"newWith:" : "ED 6/21/2024 09:15" },
+		"newWith:" : "ED 6/26/2024 12:24" },
 	"instance" : {
 		"getFormFor:" : "JK 6/12/2024 19:28",
 		"getFormPromiseFor:" : "JK 6/12/2024 19:30",