|
@@ -8,7 +8,7 @@ PROCEDURE Open*(context : Commands.Context); (** filename ~ *)
|
|
|
VAR
|
|
VAR
|
|
|
fn, name : Files.FileName;
|
|
fn, name : Files.FileName;
|
|
|
pw : WM.BufferWindow;
|
|
pw : WM.BufferWindow;
|
|
|
- res: WOTD; w, h, x : LONGINT;
|
|
|
|
|
|
|
+ res: WORD; w, h, x : LONGINT;
|
|
|
dec : Codecs.ImageDecoder;
|
|
dec : Codecs.ImageDecoder;
|
|
|
rdr : Streams.Reader;
|
|
rdr : Streams.Reader;
|
|
|
ext : ARRAY 16 OF CHAR;
|
|
ext : ARRAY 16 OF CHAR;
|
eth.metacore