[Gambas-user] File opening dialog and one more question

[Emil Lenngren]

No, private is really private.
You call a public sub which changed the private data ;)
I suggest you read the documentation at
http://gambasdoc.org/help/cat/objectmodel?v3

2012/1/7 Dmitrij Malkov <dima.malkov.russia at ...626...>

>
> I add a new class, child to CUnit. I named It "CUnitChild". It's code:
> ------------------------------------------
> ' Gambas class file
>
> Inherits CUnit
> ------------------------------------------
>
>
>
> And I add creation on object of this class in the middle of MMain:
> ------------------------------------------
> ' Gambas module file
>
> Public Sub Main()
>  Dim Unit1, Unit2, Unit3, Unit4 As CUnit
>  Dim i As Integer 'counter
>  Dim aUnit As New CUnit[5] 'Array
>   Dim Child1 As CUnitChild 'Inherited of CUnit
>
>  CUnit.HowManyUnits()
>  Unit1 = New CUnit
>  Unit2 = New CUnit
>  CUnit.HowManyUnits()
>  Unit3 = New CUnit
>  Unit4 = New CUnit
>  CUnit.HowManyUnits()
>
>   'trying to create and work with
>  'child class of CUnit
>  Child1 = New CUnitChild
>  CUnitChild.HowManyUnits()
>  Child1.PrintIdentification()
>
>  'creation in a cycle
>  For i = 1 To 100
>    SubForCycleCreation()
>  Next
>  CUnit.HowManyUnits()
>
>  'creation to an array
>  For i = 0 To 4
>    aUnit[i] = New CUnit
>  Next
>  CUnit.HowManyUnits()
>
>  aUnit[0].PrintIdentification()
> End
>
> Public Sub SubForCycleCreation()
>  Dim Unit5 As CUnit
>  Unit5 = New CUnit
> End
> ------------------------------------------
>
>
> The output is
> ------------------------------------------
> There are 0 objects of class 'CUnit'
> There are 2 objects of class 'CUnit'
> There are 4 objects of class 'CUnit'
> There are 5 objects of class 'CUnit'
> Identity number of the object is 5
> There are 105 objects of class 'CUnit'
> There are 110 objects of class 'CUnit'
> Identity number of the object is 106
> ------------------------------------------
>
>
> Oh my God! "PRIVATE" in Gambas3 is the same, as "Protected" in C++, because
> the existion of the object "Child1" changed the private data "Static
> Private
> NumberOfUnits" of the class "CUnit". Maybe I am wrong.
>
> How to rewrite constructor for a child class?
> How to write and test destructors?
>
> http://old.nabble.com/file/p33097604/OOP_3_STATIC-0.0.1.tar.gz
> OOP_3_STATIC-0.0.1.tar.gz
> --
> View this message in context:
> http://old.nabble.com/File-opening-dialog-and-one-more-question-tp33085420p33097604.html
> Sent from the gambas-user mailing list archive at Nabble.com.
>
>
>
> ------------------------------------------------------------------------------
> Ridiculously easy VDI. With Citrix VDI-in-a-Box, you don't need a complex
> infrastructure or vast IT resources to deliver seamless, secure access to
> virtual desktops. With this all-in-one solution, easily deploy virtual
> desktops for less than the cost of PCs and save 60% on VDI infrastructure
> costs. Try it free! http://p.sf.net/sfu/Citrix-VDIinabox
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>