|
@@ -696,7 +696,7 @@ TYPE
|
|
|
|
|
|
|
|
(* Set position *)
|
|
(* Set position *)
|
|
|
PROCEDURE SetPos*(pos: LONGINT);
|
|
PROCEDURE SetPos*(pos: LONGINT);
|
|
|
- VAR current : Context; audioPos : LONGINT; res : WORD; img : WMGraphics.Image;
|
|
|
|
|
|
|
+ VAR current : Context; audioPos, res : LONGINT; img : WMGraphics.Image;
|
|
|
BEGIN {EXCLUSIVE}
|
|
BEGIN {EXCLUSIVE}
|
|
|
IF pos < 0 THEN
|
|
IF pos < 0 THEN
|
|
|
IF Debug THEN KernelLog.String("MediaPlayer: Warning: Setpos to "); KernelLog.Int(pos, 0); KernelLog.String("!?!"); KernelLog.Ln; END;
|
|
IF Debug THEN KernelLog.String("MediaPlayer: Warning: Setpos to "); KernelLog.Int(pos, 0); KernelLog.String("!?!"); KernelLog.Ln; END;
|
|
@@ -1205,7 +1205,7 @@ TYPE
|
|
|
|
|
|
|
|
(* Resume playing the curent and next context that are paused *)
|
|
(* Resume playing the curent and next context that are paused *)
|
|
|
PROCEDURE ResumeIntern;
|
|
PROCEDURE ResumeIntern;
|
|
|
- VAR audioPos : LONGINT; res: WORD;
|
|
|
|
|
|
|
+ VAR audioPos, res : LONGINT;
|
|
|
BEGIN
|
|
BEGIN
|
|
|
IF (current # NIL) THEN
|
|
IF (current # NIL) THEN
|
|
|
IF current.hasVideo THEN
|
|
IF current.hasVideo THEN
|
eth.metacore