Re: A call to new no longer takes the super objects parameters

[Brian G <brian@xxxxxxxxxxxxxxxx>]

It is all me, Wrong usage of call, should have been an array of 
parameters...

updated example works correctly.

On 6/5/24 09:10, Brian G wrote:
> In the past if _new(p1 as integer, p2 as integer) was defined for a 
> class 1
>
> and and class 2 inherits class I  and defines _new() then I can do
>
> xx = new class2(1,3) no problem it respects the inherited class 
> parameters.
>
> I could also do the following ..  where me is a class 2 object
>
> xx = object.class(me).new(1,2)
>
> But recently this fails with a too many parameters error, I seems to 
> no longer call the super._new or respect the parameters.
>
> There seems to no longer be any way to dynamically create an instance 
> of an inherited class.
>
> If I try to define class 2 with the parameters, then it just tacks 
> them to the end of the class one parameters as it should
>
> something seems to have broken.
>
> Here is a sample script
>
> ---------------------------------------------------------------------------------------------------- 
>
>
> #!/usr/bin/env gbs3
> ' Gambas Script File Created 06/05/2024 08:54:06
>
> Class Adds
>    Property Read sum As Integer
>    iA As Integer
>    iB As Integer
>
>    Public Sub _new(a As Integer, b As Integer)
>      iA = a
>      iB = b
>    End
>
>    Private Function sum_read() As Integer
>     Return iA + iB
>    End
> End Class
>
> Class Mults
>    Inherits Adds
>    Property Read Mult As Integer
>    iC As Integer
>
>    Public Sub _new(c As Integer)
>      iC = c
>    End
>
>    Private Function mult_read() As Integer
>      Return Super.sum * ic
>    End
> End Class
>
> Dim s1 As New Adds(1, 2)
> Dim m1 As New Mults(1, 2, 3)
> Print s1.sum, m1.mult
> Print object.class(m1).name
> Dim m2 As Variant = object.class(m1).new([1, 3, 4])
> Print m2.mult
>
> Quit 0
> Catch
> Error "Script Error >";; error.text & "\n" & error.where
>
> ------------------------------------------------------------------------------------------------------------------------ 
--
~~~~ Brian

Attachment: OpenPGP_0x78BFB26402F48419.asc
Description: OpenPGP public key

Attachment: OpenPGP_signature.asc
Description: OpenPGP digital signature