diff --git a/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st b/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st index 615a2dd..d6766bc 100644 --- a/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st +++ b/app/BaselineOfVideoWeb/BaselineOfVideoWeb.class.st @@ -16,5 +16,5 @@ BaselineOfVideoWeb >> baseline: spec [ { #category : #accessing } BaselineOfVideoWeb >> semanticVersion [ - ^ '0.3.0' + ^ '0.4.0' ] diff --git a/app/VideoWeb/BrAsyncFileWidget.extension.st b/app/VideoWeb/BrAsyncFileWidget.extension.st new file mode 100644 index 0000000..554b1bd --- /dev/null +++ b/app/VideoWeb/BrAsyncFileWidget.extension.st @@ -0,0 +1,23 @@ +Extension { #name : #BrAsyncFileWidget } + +{ #category : #'*VideoWeb' } +BrAsyncFileWidget >> url: aUrl [ + + | realUrl imageUrl | + realUrl := aUrl asZnUrl. + + realUrl scheme = #file ifTrue: [ + ^ self file: realUrl asFileReference ]. + imageUrl := realUrl. + realUrl host = 'www.youtube.com' ifTrue: [ | video | + video := Invidious defaultInstance video: (realUrl queryAt: 'v'). + imageUrl := video defaultThumbnailLink asUrl. + ]. + + self stencil: [ + (SkiaImage fromForm: + (Form fromBase64String: imageUrl retrieveContents base64Encoded)) + asElement constraintsDo: [ :c | + c horizontal matchParent. + c vertical matchParent ] ] +] diff --git a/app/VideoWeb/VideoChannel.class.st b/app/VideoWeb/VideoChannel.class.st index cbc16d4..4d09611 100644 --- a/app/VideoWeb/VideoChannel.class.st +++ b/app/VideoWeb/VideoChannel.class.st @@ -10,7 +10,8 @@ Class { 'description', 'subscribersCount', 'totalViews', - 'isFamilyFriendly' + 'isFamilyFriendly', + 'latestVideos' ], #category : #VideoWeb }