From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,769e61538eb61436,start
X-Google-Attributes: gid103376,public
From: David Morton <dmorton@jinx.sckans.edu>
Subject: Variant record assignment Q:
Date: 1996/07/09
Message-ID: <31E32A82.3984D09E@jinx.sckans.edu>#1/1
X-Deja-AN: 167521529
content-type: text/plain; charset=us-ascii
organization: student
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.01 (X11; I; Linux 2.0.0 i486)
Date: 1996-07-09T00:00:00+00:00
List-Id: <comp.lang.ada>


hello again...
given the specification:

   type String_Ptr is access all string;
   type Object_Type is (Field, Button);
   type Object;
   type Object_Ptr is access Object;
   type Object(Obj : Object_Type) is
      record
     Status : Object_Type;
	 Next, Prev : Object_Ptr;
	 case Obj is
	    when Field =>
	       Label_X, Label_Y, Field_X, Field_Y, Buffer_Size, Max_Buffer_Size : natural;
	       Buffer : String_Ptr;
	       Field_Name : String_Ptr;
	    when Button =>
	       X, Y : natural;
	       Name : String_Ptr;
	       Status_Code : Return_Code;
	 end case;
      end record;

What's the quickest way to instantiate this?
I would like to be able to say,

Tmp : String_Ptr;
Root : Object_Ptr; 

Tmp := new String("test");
Root := new Object(Button)'(Status => Button, X => 10, Y => 10, Name => Tmp, Status =>
Something);

but I get errors, both with the string and record instantiations.
I've tried several variations, but no better...

One particular error I tend to get (that is confusing me)is:


Tmp := new String'("test");

Root := new Object(Obj => Button); -- line 24 BTW
Root.all := (Status => Button, X => 10,Y => 10, Name => Tmp, Status_Code => This); 

user_info_management.adb:25:13: no value supplied for discriminant "Obj"

Thanks for any help!

(I'll figure this stuff out yet!)
-- 
David Morton
 mailto:dmorton@jinx.sckans.edu   http://www.sckans.edu/~dmorton/
 205 College, Winfield, KS 67156    
 This signature will self-destruct in 10 seconds...