@@ -54,60 +54,48 @@ SPOCPlayer class >> previousIconPath [
54
54
55
55
{
56
56
#category : #initialization ,
57
- #' squeak_changestamp' : ' VE 6/10 /2024 22:27 '
57
+ #' squeak_changestamp' : ' VE 7/8 /2024 18:51 '
58
58
}
59
59
SPOCPlayer >> attachButton: anIcon [
60
60
61
- self button: (SPOCClickable
62
- newUsing: anIcon
63
- onClick: [:anEvent | self executeButtonFunction: anIcon]);
61
+ self button: (SPOCClickable newUsing: anIcon onClick: [:anEvent | self executeButtonFunction: anIcon]);
64
62
addMorph: self button
65
63
]
66
64
67
65
{
68
66
#category : #initialization ,
69
- #' squeak_changestamp' : ' TL 6/18 /2024 23:35 '
67
+ #' squeak_changestamp' : ' VE 7/8 /2024 18:51 '
70
68
}
71
69
SPOCPlayer >> attachNextButton [
72
70
73
- self nextIcon: (SPOCIcon new
74
- iconAsset: self class nextIconPath;
75
- color: Color transparent;
76
- yourself );
77
- attachButton: self nextIcon;
78
- addMorph: (Morph new
71
+ self nextIcon: (SPOCIcon new iconAsset: self class nextIconPath;
79
72
color: Color transparent;
80
- extent: 15 @ self button height;
81
- yourself )
73
+ yourself );
74
+ attachButton: self nextIcon;
75
+ addMorph: self spacerMorph.
82
76
]
83
77
84
78
{
85
79
#category : #initialization ,
86
- #' squeak_changestamp' : ' TL 6/18 /2024 23:35 '
80
+ #' squeak_changestamp' : ' VE 7/8 /2024 18:51 '
87
81
}
88
82
SPOCPlayer >> attachPlayPauseButton [
89
83
90
- self playPauseIcon: (SPOCIcon new
91
- iconAsset: self class playIconPath;
92
- yourself );
84
+ self playPauseIcon: (SPOCIcon new iconAsset: self class playIconPath);
93
85
attachButton: self playPauseIcon;
94
- addMorph: (Morph new
95
- color: Color transparent;
96
- extent: 15 @ self button height;
97
- yourself );
86
+ addMorph: self spacerMorph;
98
87
updatePlayPauseIcon
99
88
]
100
89
101
90
{
102
91
#category : #initialization ,
103
- #' squeak_changestamp' : ' TL 6/18 /2024 23:36 '
92
+ #' squeak_changestamp' : ' VE 7/8 /2024 18:51 '
104
93
}
105
94
SPOCPlayer >> attachPreviousButton [
106
95
107
- self previousIcon: (SPOCIcon new
108
- iconAsset: self class previousIconPath;
109
- color: Color transparent;
110
- yourself );
96
+ self previousIcon: (SPOCIcon new iconAsset: self class previousIconPath;
97
+ color: Color transparent;
98
+ yourself );
111
99
attachButton: self previousIcon
112
100
]
113
101
@@ -239,23 +227,21 @@ SPOCPlayer >> nextIcon: anObject [
239
227
240
228
{
241
229
#category : #' api-call' ,
242
- #' squeak_changestamp' : ' VE 6/26 /2024 14:41 '
230
+ #' squeak_changestamp' : ' VE 7/8 /2024 18:48 '
243
231
}
244
232
SPOCPlayer >> pause [
245
233
246
- SPOCApiPause new
247
- authorizer: self app auth;
234
+ SPOCApiPause new authorizer: self app auth;
248
235
pauseOn: self deviceID
249
236
]
250
237
251
238
{
252
239
#category : #' api-call' ,
253
- #' squeak_changestamp' : ' VE 6/26 /2024 14:41 '
240
+ #' squeak_changestamp' : ' VE 7/8 /2024 18:48 '
254
241
}
255
242
SPOCPlayer >> play [
256
243
257
- SPOCApiPlay new
258
- authorizer: self app auth;
244
+ SPOCApiPlay new authorizer: self app auth;
259
245
playOn: self deviceID
260
246
]
261
247
@@ -297,30 +283,37 @@ SPOCPlayer >> previousIcon: anObject [
297
283
298
284
{
299
285
#category : #' api-call' ,
300
- #' squeak_changestamp' : ' VE 7/8/2024 18:26 '
286
+ #' squeak_changestamp' : ' VE 7/8/2024 18:48 '
301
287
}
302
288
SPOCPlayer >> skipToNext [
303
289
304
- SPOCApiNext new
305
- authorizer: self app auth;
306
- skipToNextOn: self deviceID;
307
- yourself .
290
+ SPOCApiNext new authorizer: self app auth;
291
+ skipToNextOn: self deviceID.
308
292
self app updatePlaybackState
309
293
]
310
294
311
295
{
312
296
#category : #' api-call' ,
313
- #' squeak_changestamp' : ' VE 7/8/2024 18:27 '
297
+ #' squeak_changestamp' : ' VE 7/8/2024 18:48 '
314
298
}
315
299
SPOCPlayer >> skipToPrevious [
316
300
317
- SPOCApiPrevious new
318
- authorizer: self app auth;
319
- skipToPreviousOn: self deviceID;
320
- yourself .
301
+ SPOCApiPrevious new authorizer: self app auth;
302
+ skipToPreviousOn: self deviceID.
321
303
self app updatePlaybackState
322
304
]
323
305
306
+ {
307
+ #category : #initialization ,
308
+ #' squeak_changestamp' : ' VE 7/8/2024 18:52'
309
+ }
310
+ SPOCPlayer >> spacerMorph [
311
+
312
+ ^ Morph new color: Color transparent;
313
+ extent: SPOCStyle defaultMargin @ self button height;
314
+ yourself
315
+ ]
316
+
324
317
{
325
318
#category : #actions ,
326
319
#' squeak_changestamp' : ' VE 6/26/2024 14:41'
0 commit comments