[Gambas-user] Cloning instances of a class to make an exact copy
tobiasboe1 at ...20...
Sat Jul 23 16:02:10 CEST 2011
On 23.07.2011 15:28, Benoît Minisini wrote:
>> Assume I have an instance of class myclass dimed as 'myclass1'
>> and I want to clone all the data to NEW myclass2
>> The syntax may be something like:
>> myclass2 = NEW myclass 'create instance
>> myclass2.clone(myclass1) 'clone/copy
>> I do realize that:
>> myclass2 = myclass2 only assigns a second pointer to the same single
>> I am assuming that there is no copy/clone of an instance to another
>> to make an exact replica copy, not just pointers to objects
>> In the mean time, I'll start writing a copy/clone sub
> Doing a deep copy in a standard way is impossible, so you have to implement
> your Clone() or Copy() method yourself.
i wrote this one some time ago, but don't know if it is well designed, i
discarded the idea for some reason:
(on a form with TextBox1 and Button1 existing, copies the textbox and
moves it just below the original one)
Public Sub Button1_Click()
Dim hT As New TextBox(Me)
hT.Y += hT.Height
Public Sub Clone(hBuf As Object, hSource As Object)
Dim sSym As String
For Each sSym In Object.Class(hSource).Symbols 'get all symbols of a
If Object.Class(hSource)[sSym].Kind = Class.Property Then 'copy
Try Object.SetProperty(hBuf, sSym, Object.GetProperty(hSource,
sSym)) 'try is for read-only properties in destintion object
is that an acceptable solution?
More information about the User