24
24
select ContentSelect
25
25
input TitleInput
26
26
input LabelInput
27
+ input DurationInput
28
+ input TargetInput
29
+ input URLInput
27
30
img PlusIcon
28
31
img DeleteIcon
29
32
variable Steps
@@ -256,7 +259,7 @@ EditStep:
256
259
set the style of LabelInput to `width:100%`
257
260
set the content of LabelInput to property `label` of Item
258
261
259
- ! Add the buttons belo the table
262
+ ! Add the buttons below the table
260
263
create TR in Table
261
264
create TD in TR
262
265
create TD in TR
@@ -295,22 +298,22 @@ EditSetContent:
295
298
create TD in TR
296
299
set the content of TD to `Blocks:`
297
300
create TD in TR
298
- put property `blocks` of Item into Blocks
299
301
create BlockTable in TD
300
302
set the style of BlockTable to `width:100%;border:1px solid gray`
301
303
create BlockRow in BlockTable
302
304
set the style of BlockRow to `display:flex`
303
305
create Header in BlockRow
304
306
set the style of Header to `flex:1`
305
- set the content of Header to `Block names `
307
+ set the content of Header to `Blocks `
306
308
create Header in BlockRow
307
309
set the style of Header to `flex:1`
308
- set the content of Header to `Content names `
310
+ set the content of Header to `Content`
309
311
create BlockData in BlockRow
310
312
set the style of BlockData to `width:2em;text-align:center`
311
313
create PlusIcon in BlockData
312
314
set the style of PlusIcon to `width:1em;margin-top:0.1em`
313
315
set attribute `src` of PlusIcon to `resources/icon/plus.png`
316
+ put property `blocks` of Item into Blocks
314
317
put the json count of Blocks into N
315
318
set the elements of BlockSelect to N
316
319
set the elements of ContentSelect to N
@@ -341,14 +344,18 @@ EditSetContent:
341
344
342
345
EditShow:
343
346
EditHide:
347
+ gosub to EditBlockList
344
348
return
345
349
346
350
EditPause:
347
351
EditHold:
352
+ gosub to EditDuration
348
353
return
349
354
350
355
EditFadeUp:
351
356
EditFadeDown:
357
+ gosub to EditBlockList
358
+ gosub to EditDuration
352
359
return
353
360
354
361
EditCrossfade:
@@ -358,10 +365,75 @@ EditTransition:
358
365
return
359
366
360
367
EditGoto:
368
+ create TR in Table
369
+ create TD in TR
370
+ set the style of TD to `width:6em`
371
+ set the content of TD to `Target:`
372
+ create TD in TR
373
+ create TargetInput in TD
374
+ set the style of TargetInput to `width:100%`
375
+ set the content of TargetInput to property `target` of Item
361
376
return
362
377
363
378
EditLoad:
379
+ create TR in Table
380
+ create TD in TR
381
+ set the style of TD to `width:6em`
382
+ set the content of TD to `URL:`
383
+ create TD in TR
384
+ create URLInput in TD
385
+ set the style of URLInput to `width:100%`
386
+ set the content of URLInput to property `url` of Item
364
387
return
365
388
366
389
EditBlockList:
367
- return
390
+ create TR in Table
391
+ create TD in TR
392
+ set the content of TD to `Blocks:`
393
+ create TD in TR
394
+ create BlockTable in TD
395
+ set the style of BlockTable to `width:100%;border:1px solid gray`
396
+ create BlockRow in BlockTable
397
+ set the style of BlockRow to `display:flex`
398
+ create Header in BlockRow
399
+ set the style of Header to `flex:1`
400
+ set the content of Header to `Blocks`
401
+ create BlockData in BlockRow
402
+ set the style of BlockData to `width:2em;text-align:center`
403
+ create PlusIcon in BlockData
404
+ set the style of PlusIcon to `width:1em;margin-top:0.1em`
405
+ set attribute `src` of PlusIcon to `resources/icon/plus.png`
406
+ put property `blocks` of Item into Blocks
407
+ put the json count of Blocks into N
408
+ set the elements of BlockSelect to N
409
+ set the elements of DeleteIcon to N
410
+ put 0 into B
411
+ while B is less than N
412
+ begin
413
+ put element B of Blocks into Block
414
+ create BlockRow in BlockTable
415
+ set the style of BlockRow to `display:flex`
416
+ index BlockSelect to B
417
+ create BlockSelect in BlockRow
418
+ set the style of BlockSelect to `flex:1`
419
+ set BlockSelect from BlockNames as Block
420
+ create BlockData in BlockRow
421
+ set the style of BlockData to `width:2em;text-align:center`
422
+ index DeleteIcon to B
423
+ create DeleteIcon in BlockData
424
+ set the style of DeleteIcon to `width:1em;margin-top:0.1em`
425
+ set attribute `src` of DeleteIcon to `resources/icon/stop.png`
426
+ add 1 to B
427
+ end
428
+ return
429
+
430
+ EditDuration:
431
+ create TR in Table
432
+ create TD in TR
433
+ set the style of TD to `width:6em`
434
+ set the content of TD to `Duration:`
435
+ create TD in TR
436
+ create DurationInput in TD
437
+ set the style of DurationInput to `width:100%`
438
+ set the content of DurationInput to property `duration` of Item
439
+ return
0 commit comments