Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!nuchat!sugar!schaub
From: schaub@sugar.UUCP (Markus Schaub)
Newsgroups: comp.sys.amiga,comp.lang.modula2
Subject: Re: M2Amiga, a new Modula-2 compiler
Message-ID: <1072@sugar.UUCP>
Date: Mon, 16-Nov-87 12:37:24 EST
Article-I.D.: sugar.1072
Posted: Mon Nov 16 12:37:24 1987
Date-Received: Wed, 18-Nov-87 04:34:45 EST
References: <1982@crash.CTS.COM> <2730@cbmvax.UUCP> <1067@sugar.UUCP> <1069@sugar.UUCP>
Organization: Sugar Land UNIX - Houston, TX
Lines: 28
Xref: mnetor comp.sys.amiga:11078 comp.lang.modula2:527

In article <1069@sugar.UUCP>, peter@sugar.UUCP (Peter da Silva) writes:
> How about statically initialised structures? How do you do the equivalent in
> Modula of the 'C':
> 
> struct Gadget STD_Gadget[GADGETS] = {
> /*NEXT, LFT, TP,WDTH, H, FLAG,  ACT, TYP, REND, Z, TXT, Z, SPEC, ID, Z */
> { G(1), IN1,TP1, WD1,HT, SF,     SA,  SG,    Z, Z,   Z, Z, SI(0), 0, 0 },

We know about this problem, a guy in Switzerland is working on some kind of
language extension. Release date unknown. This moment just one possibility:

PROCEDURE MyWindow; (* $E- no entry/exit code for this procedure please *)
BEGIN
 INLINE(
  0, 5, 0, 4, 0FFE0H, ... your data ...
 )
END MyWindow;
...
 wp:=OpenWindow(ADR(MyWindow));
...

Not very nice, but it works!

-- 
     //	Markus Schaub		uunet!nuchat!sugar!schaub      (713) 523 8422
    //	M2Amiga Developer	trying to get back the money I  paid  for  my
\\ //				Amiga by selling a few M2Amiga.
 \X/	c/o Interface Technologies Corp, 3336 Richmond #323, Houston Tx 77098