File tree 18 files changed +57
-138
lines changed
18 files changed +57
-138
lines changed Original file line number Diff line number Diff line change @@ -56,14 +56,12 @@ SPOCApiAlbum >> getAlbumWithID: aString [
56
56
57
57
{
58
58
#category : #response ,
59
- #' squeak_changestamp' : ' TL 7/8 /2024 20:07 '
59
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:35 '
60
60
}
61
61
SPOCApiAlbum >> tinkerReponseContent: aContentStream [
62
62
63
- | content tracks |
63
+ | content |
64
64
content := Json readFrom: aContentStream readStream.
65
- tracks := OrderedCollection new .
66
- (content at: #items )
67
- do: [:anItem | tracks add: (self tinkerTrack: anItem)].
68
- ^ tracks
65
+ ^ (content at: #items )
66
+ collect: [:anItem | self tinkerTrack: anItem]
69
67
]
Original file line number Diff line number Diff line change @@ -57,14 +57,12 @@ SPOCApiDevices >> getCurrentDevices [
57
57
58
58
{
59
59
#category : #response ,
60
- #' squeak_changestamp' : ' TL 7/7 /2024 03:06 '
60
+ #' squeak_changestamp' : ' TL 7/11 /2024 15:11 '
61
61
}
62
- SPOCApiDevices >> tinkerReponseContent: aContentStream [
63
-
64
- | content devices |
62
+ SPOCApiDevices >> tinkerReponseContent: aContentStream [
63
+
64
+ | content |
65
65
content := Json readFrom: aContentStream readStream.
66
- devices := OrderedCollection new .
67
- (content at: #devices )
68
- do: [:aDevice | devices add: (self tinkerDevice: aDevice)].
69
- ^ devices
66
+ ^ (content at: #devices )
67
+ collect: [:aDevice | self tinkerDevice: aDevice]
70
68
]
Original file line number Diff line number Diff line change @@ -203,14 +203,13 @@ SPOCApiEndpoint >> returnsTestContent: aBoolean [
203
203
204
204
{
205
205
#category : #response ,
206
- #' squeak_changestamp' : ' RK 7/7 /2024 13:10 '
206
+ #' squeak_changestamp' : ' TL 7/11 /2024 15:11 '
207
207
}
208
208
SPOCApiEndpoint >> tinkerAlbum: aJson [
209
209
210
210
| artists |
211
- artists := OrderedCollection new .
212
- (aJson at: #artists )
213
- do: [:anArtist | artists add: (self tinkerArtist: anArtist)].
211
+ artists := (aJson at: #artists )
212
+ collect: [:anArtist | self tinkerArtist: anArtist].
214
213
^ SPOCAlbum new id: (aJson at: #id );
215
214
name: (aJson at: #name );
216
215
image: (SPOCImage newWithUrl: (((aJson at: #images ) first) at: #url ));
@@ -301,14 +300,13 @@ SPOCApiEndpoint >> tinkerRequest [
301
300
302
301
{
303
302
#category : #response ,
304
- #' squeak_changestamp' : ' RK 7/7 /2024 13:11 '
303
+ #' squeak_changestamp' : ' TL 7/11 /2024 15:12 '
305
304
}
306
305
SPOCApiEndpoint >> tinkerTrack: aJson [
307
306
308
307
| album artists track |
309
- artists := OrderedCollection new .
310
- (aJson at: #artists )
311
- do: [:anArtist | artists add: (self tinkerArtist: anArtist)].
308
+ artists := (aJson at: #artists )
309
+ collect: [:anArtist | self tinkerArtist: anArtist].
312
310
track := SPOCTrack new id: (aJson at: #id );
313
311
name: (aJson at: #name );
314
312
artists: artists;
Original file line number Diff line number Diff line change @@ -73,7 +73,7 @@ SPOCApiPlay >> endpointMethod [
73
73
74
74
{
75
75
#category : #' api-call' ,
76
- #' squeak_changestamp' : ' TL 7/8 /2024 20:18 '
76
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:51 '
77
77
}
78
78
SPOCApiPlay >> executeRequest: request withParams: aParamDictionary [
79
79
@@ -85,7 +85,7 @@ SPOCApiPlay >> executeRequest: request withParams: aParamDictionary [
85
85
ifFalse: [(aParamDictionary includesKey: #context_uri )
86
86
ifTrue: [data := self buildDataWithContext: (aParamDictionary at: #context_uri ) andTrack: (aParamDictionary at: #uris )]].
87
87
request headerAt: ' Content-Length' put: data size.
88
- (data size = 0 )
88
+ (data isEmpty )
89
89
ifTrue: [^ self client sendRequest: request]
90
90
ifFalse: [^ self client sendRequest: request content: data readStream size: data size]
91
91
Original file line number Diff line number Diff line change @@ -56,14 +56,12 @@ SPOCApiPlaylist >> getPlaylistWithID: aString [
56
56
57
57
{
58
58
#category : #response ,
59
- #' squeak_changestamp' : ' VE 7/8 /2024 18:39 '
59
+ #' squeak_changestamp' : ' TL 7/11 /2024 15:13 '
60
60
}
61
61
SPOCApiPlaylist >> tinkerReponseContent: aContentStream [
62
62
63
- | content tracks |
63
+ | content |
64
64
content := Json readFrom: aContentStream readStream.
65
- tracks := OrderedCollection new .
66
- (content at: #items )
67
- do: [:anItem | tracks add: (self tinkerTrack: (anItem at: #track ))].
68
- ^ tracks
65
+ ^ (content at: #items )
66
+ collect: [:anItem | self tinkerTrack: (anItem at: #track )]
69
67
]
Original file line number Diff line number Diff line change @@ -58,14 +58,12 @@ SPOCApiRecentlyPlayed >> getRecentlyPlayed [
58
58
59
59
{
60
60
#category : #response ,
61
- #' squeak_changestamp' : ' TL 7/7 /2024 03:19 '
61
+ #' squeak_changestamp' : ' TL 7/11 /2024 15:13 '
62
62
}
63
63
SPOCApiRecentlyPlayed >> tinkerReponseContent: aContentStream [
64
64
65
- | content tracks |
65
+ | content |
66
66
content := Json readFrom: aContentStream readStream.
67
- tracks := OrderedCollection new .
68
- (content at: #items )
69
- do: [:anItem | tracks add: (self tinkerTrack: (anItem at: #track ))].
70
- ^ tracks
67
+ ^ (content at: #items )
68
+ collect: [:anItem | self tinkerTrack: (anItem at: #track )]
71
69
]
Original file line number Diff line number Diff line change @@ -66,15 +66,6 @@ SPOCCurrentlyPlaying >> needsActiveDevice [
66
66
^ true
67
67
]
68
68
69
- {
70
- #category : #updating ,
71
- #' squeak_changestamp' : ' VE 7/2/2024 18:40'
72
- }
73
- SPOCCurrentlyPlaying >> needsLogin [
74
-
75
- ^ true
76
- ]
77
-
78
69
{
79
70
#category : #accessing ,
80
71
#' squeak_changestamp' : ' RK 6/9/2024 11:47'
Original file line number Diff line number Diff line change @@ -30,12 +30,12 @@ SPOCDataPiece >> artistsAsString [
30
30
31
31
{
32
32
#category : #testing ,
33
- #' squeak_changestamp' : ' TL 7/7 /2024 02:27 '
33
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:49 '
34
34
}
35
35
SPOCDataPiece >> artistsEqual: anArtistCollection [
36
36
37
37
self artists
38
- collect : [:anArtist | ((anArtistCollection at: (self artists indexOf: anArtist)) equals: anArtist)
38
+ do : [:anArtist | ((anArtistCollection at: (self artists indexOf: anArtist)) equals: anArtist)
39
39
ifFalse: [^ false ]].
40
40
^ true
41
41
]
Original file line number Diff line number Diff line change @@ -200,15 +200,6 @@ SPOCPlayer >> needsActiveDevice [
200
200
^ true
201
201
]
202
202
203
- {
204
- #category : #accessing ,
205
- #' squeak_changestamp' : ' VE 7/2/2024 18:41'
206
- }
207
- SPOCPlayer >> needsLogin [
208
-
209
- ^ true
210
- ]
211
-
212
203
{
213
204
#category : #accessing ,
214
205
#' squeak_changestamp' : ' TL 6/3/2024 23:37'
Original file line number Diff line number Diff line change @@ -81,24 +81,6 @@ SPOCRefresh >> initialize [
81
81
extendFully
82
82
]
83
83
84
- {
85
- #category : #initialization ,
86
- #' squeak_changestamp' : ' VE 7/2/2024 18:44'
87
- }
88
- SPOCRefresh >> needsActiveDevice [
89
-
90
- ^ false
91
- ]
92
-
93
- {
94
- #category : #initialization ,
95
- #' squeak_changestamp' : ' VE 7/2/2024 18:44'
96
- }
97
- SPOCRefresh >> needsLogin [
98
-
99
- ^ true
100
- ]
101
-
102
84
{
103
85
#category : #initialization ,
104
86
#' squeak_changestamp' : ' VE 7/9/2024 11:02'
Original file line number Diff line number Diff line change @@ -218,19 +218,21 @@ SPOCResultList >> titleMorph: aSPOCBoldText [
218
218
219
219
{
220
220
#category : #updating ,
221
- #' squeak_changestamp' : ' TL 7/8 /2024 19:24 '
221
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:46 '
222
222
}
223
223
SPOCResultList >> updateItems [
224
224
225
- self items isEmpty ifFalse: [self items removeAll].
226
- self results do: [:aResult |
227
- | item clickable |
228
- item := SPOCResultListItem newWith: aResult.
229
- clickable := SPOCClickable newUsing: item onClick: [:anEvent | self onItemClicked: item].
230
- clickable layoutPolicy: TableLayout new ;
231
- hResizing: #spaceFill ;
232
- vResizing: #shrinkWrap .
233
- self items add: clickable].
225
+ self items isEmpty
226
+ ifFalse: [self items removeAll].
227
+ self results
228
+ do: [:aResult |
229
+ | item clickable |
230
+ item := SPOCResultListItem newWith: aResult.
231
+ clickable := (SPOCClickable newUsing: item onClick: [:anEvent | self onItemClicked: item])
232
+ layoutPolicy: TableLayout new ;
233
+ hResizing: #spaceFill ;
234
+ vResizing: #shrinkWrap .
235
+ self items add: clickable].
234
236
self app updatePlaybackState
235
237
]
236
238
Original file line number Diff line number Diff line change @@ -134,11 +134,11 @@ SPOCScrollablePanel >> spec: anObject [
134
134
135
135
{
136
136
#category : #' as yet unclassified' ,
137
- #' squeak_changestamp' : ' RK 6/9 /2024 18:05 '
137
+ #' squeak_changestamp' : ' TL 7/11 /2024 14:28 '
138
138
}
139
139
SPOCScrollablePanel >> updatePanel: anOrderedCollection [
140
140
141
141
self items: anOrderedCollection.
142
- panel scroller removeAllMorphs.
143
- panel scroller addAllMorphs: items
142
+ self panel scroller removeAllMorphs;
143
+ addAllMorphs: self items
144
144
]
Original file line number Diff line number Diff line change @@ -240,16 +240,6 @@ SPOCSearchbar >> items: anOrderedCollection [
240
240
items := anOrderedCollection
241
241
]
242
242
243
- {
244
- #category : #building ,
245
- #' squeak_changestamp' : ' VE 7/2/2024 18:46'
246
- }
247
- SPOCSearchbar >> needsLogin [
248
-
249
- ^ true
250
-
251
- ]
252
-
253
243
{
254
244
#category : #actions ,
255
245
#' squeak_changestamp' : ' VE 7/8/2024 17:41'
Original file line number Diff line number Diff line change @@ -304,13 +304,12 @@ SPOCSwitchDevice >> switchDeviceClicked: aDevice [
304
304
305
305
{
306
306
#category : #updating ,
307
- #' squeak_changestamp' : ' VK 6/10 /2024 19:50 '
307
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:47 '
308
308
}
309
309
SPOCSwitchDevice >> updateResultDisplay: anOrderedCollection [
310
310
311
- self deviceItems removeAll.
312
- anOrderedCollection do: [:device |
313
- self deviceItems add: (self buildResultMorphFrom: device)].
314
- self resultDisplay updatePanel: self deviceItems.
315
- self resultDisplay show
311
+ self deviceItems: (anOrderedCollection
312
+ collect: [:aDevice | self buildResultMorphFrom: aDevice]).
313
+ self resultDisplay updatePanel: self deviceItems;
314
+ show
316
315
]
Original file line number Diff line number Diff line change 8
8
#' squeak_changestamp' : ' OW 7/9/2024 10:44'
9
9
}
10
10
11
- {
12
- #category : #testing ,
13
- #' squeak_changestamp' : ' VE 7/9/2024 11:34'
14
- }
15
- SPOCTestAuthorizerProcess >> setUp [
16
-
17
- ]
18
-
19
11
{
20
12
#category : #testing ,
21
13
#' squeak_changestamp' : ' VE 6/20/2024 19:56'
@@ -61,11 +53,11 @@ SPOCTestAuthorizerProcess >> testCallbackErrors [
61
53
62
54
{
63
55
#category : #testing ,
64
- #' squeak_changestamp' : ' VE 7/9 /2024 11:35 '
56
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:52 '
65
57
}
66
58
SPOCTestAuthorizerProcess >> testStartAuthorization [
67
59
68
60
| entryPoints |
69
61
entryPoints := WebServer default entryPoints.
70
- self assert: ((entryPoints at: (SPOCAuthorizer redirectRoute)) ~= nil )
62
+ self assert: ((entryPoints at: (SPOCAuthorizer redirectRoute)) isNil not )
71
63
]
Original file line number Diff line number Diff line change @@ -35,18 +35,18 @@ SPOCTestText >> testConstructor [
35
35
36
36
{
37
37
#category : #testing ,
38
- #' squeak_changestamp' : ' TL 7/11/2024 12:20 '
38
+ #' squeak_changestamp' : ' TL 7/11/2024 16:52 '
39
39
}
40
40
SPOCTestText >> testMouseEventHandling [
41
41
42
42
self assert: (self text handlesMouseOver: nil ) not .
43
43
self assert: (self text handlesMouseMove: nil ) not .
44
44
self assert: (self text handlesMouseDown: nil ) not .
45
- self assert: (self text mouseDown: nil ) = nil .
46
- self assert: (self text mouseEnter: nil ) = nil .
47
- self assert: (self text mouseLeave: nil ) = nil .
48
- self assert: (self text mouseMove: nil ) = nil .
49
- self assert: (self text mouseUp: nil ) = nil
45
+ self assert: (self text mouseDown: nil ) isNil .
46
+ self assert: (self text mouseEnter: nil ) isNil .
47
+ self assert: (self text mouseLeave: nil ) isNil .
48
+ self assert: (self text mouseMove: nil ) isNil .
49
+ self assert: (self text mouseUp: nil ) isNil
50
50
]
51
51
52
52
{
Original file line number Diff line number Diff line change @@ -76,15 +76,6 @@ SPOCUserLogin >> initialize [
76
76
77
77
]
78
78
79
- {
80
- #category : #accessing ,
81
- #' squeak_changestamp' : ' VE 7/2/2024 19:12'
82
- }
83
- SPOCUserLogin >> needsActiveDevice [
84
-
85
- ^ false
86
- ]
87
-
88
79
{
89
80
#category : #accessing ,
90
81
#' squeak_changestamp' : ' VE 7/2/2024 19:12'
Original file line number Diff line number Diff line change @@ -187,15 +187,6 @@ SPOCVolumeSlider >> needsActiveDevice [
187
187
^ true
188
188
]
189
189
190
- {
191
- #category : #updating ,
192
- #' squeak_changestamp' : ' VE 7/2/2024 19:12'
193
- }
194
- SPOCVolumeSlider >> needsLogin [
195
-
196
- ^ true
197
- ]
198
-
199
190
{
200
191
#category : #accessing ,
201
192
#' squeak_changestamp' : ' TL 6/10/2024 03:19'
@@ -304,7 +295,7 @@ SPOCVolumeSlider >> volume: anObject [
304
295
305
296
{
306
297
#category : #actions ,
307
- #' squeak_changestamp' : ' TL 7/8 /2024 18:30 '
298
+ #' squeak_changestamp' : ' TL 7/11 /2024 16:57 '
308
299
}
309
300
SPOCVolumeSlider >> volumeClicked: aBlock [
310
301
You can’t perform that action at this time.
0 commit comments