Offray/VideoWeb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Implementing WebVideo duration and printing.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-07 13:38:37 -05:00
parent 10717232c2
commit 74af2f9fc6
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
app/VideoWeb/WebVideo.class.st
View File

@ -34,6 +34,12 @@ WebVideo >> authorId: anObject [
authorId := anObject authorId := anObject
] ]
{ #category : #accessing }
WebVideo >> defaultThumbnailLink [
^ (self videoThumbnails
detect: [ :thumbnail | (thumbnail at: 'quality') = 'high' ]) at: 'url'
]
{ #category : #accessing } { #category : #accessing }
WebVideo >> description [ WebVideo >> description [
^ description ^ description
@ -44,6 +50,12 @@ WebVideo >> description: anObject [
description := anObject description := anObject
] ]
{ #category : #accessing }
WebVideo >> duration [
^ self lengthSeconds asInteger asDuration asString
"This is a new method"
]
{ #category : #accessing } { #category : #accessing }
WebVideo >> fromDictionary: aDictionary [ WebVideo >> fromDictionary: aDictionary [
^ self author: (aDictionary at: 'author'); ^ self author: (aDictionary at: 'author');
@ -80,7 +92,15 @@ WebVideo >> likeCount: anObject [
WebVideo >> printOn: aStream [ WebVideo >> printOn: aStream [
super printOn: aStream. super printOn: aStream.
aStream aStream
nextPutAll: '( ', self videoId, ' | ', self title, ' | ', self author, ' )' nextPutAll: '( ', self videoId, ' | ', self title, ' | ', self duration,' | ', self author, ' )'
]
{ #category : #accessing }
WebVideo >> thumbnail [
^ SkiaImage
fromForm: (Form
fromBase64String: self defaultThumbnailLink asUrl retrieveContents base64Encoded)
] ]
{ #category : #accessing } { #category : #accessing }