OOP ideas

[ReneMiner]

I rewrote it a little bit using two different "classes" with two functions that have the "same name" (___.abc) at user-side.

' This script actually runs.
Uses "console"

' -------------------------------------------
'Begin Class 1       
 
  Type pseudoclass1   
    someVar    As Long
    Static abc As DWord '= Function_GetPtr(abc1)
  End Type             
  Function abc1(ByVal pData As DWord, ByVal xxx As Long ) As Long
   ' this one awaits pointer
  
    Local ME As pseudoclass1 At pData
  
    Return xxx * 2 + ME.someVar - 1000     
  
  End Function   

'End Class 1
' -------------------------------------------

Dim myObject1 As pseudoclass1

' have to set this manually here:
myObject1.abc = Function_GetPtr(abc1)

' -------------------------------------------
'Begin Class 2

  Type pseudoclass2   
     otherVar   As Long
     Static abc As DWord ' = Function_GetPtr(abc2)
  End Type             
  Function abc2( ByRef ME As pseudoclass2, ByVal xxx As Long ) As Long
  ' different approach to determine ME here...probably no good for nested types...  
  
    Return xxx * 2 + ME.otherVar - 2000
  
  End Function   

'End Class 2 
' -------------------------------------------

Dim myObject2(3) As pseudoclass2     
myObject2(1).abc = Function_GetPtr(abc2)
 
' Test 
Long lResult
myObject1.someVar = 1000
myObject2(2).otherVar = 2000

Call myObject1.abc (VarPtr myObject1, 21) To lResult
PrintL lResult

Call_IfExists myObject2(2).abc ( myObject2(2), 21) To lResult
PrintL lResult
 
WaitKey

Now only needs some Begin-End-Closure around - so the Functions get embedded into the "Type" and the pointer gets set immediately (static the same to all objects of this "class" )
- and of course something that informs the "embedded" function which element of the Type currently to work with ("ME/THIS") would be better than to have pass always the var byref or its pointer.

Perhaps can be achieved through a different behavior of Call when passed function-ptr is part of "class"-structure - so identified as "method" -or even proceeding such without keyword "call"

[ReneMiner]

Getting fresh:

' This script does not run - yet...but equals the above

Uses "console"

' -------------------------------------------
CLASS Class1       
  
  someVar    As Long
  METHOD abc( ByVal xxx As Long ) As Long
   
    Return xxx * 2 + THIS.someVar - 1000     
   
  End METHOD  
 
End CLASS
' -------------------------------------------
New myObject1 As Class1 
 
' -------------------------------------------
CLASS Class2
 
  otherVar   As Long
  METHOD abc( ByVal xxx As Long ) As Long
   
    METHOD = xxx * 2 + THIS.otherVar - 2000
   
  End METHOD  
 
End CLASS   
' -------------------------------------------
Dim myObject2(3) As New Class2  ' maybe DIM also would serve?     

' -------------------------------------------
' Test 
Long lResult
myObject1.someVar = 1000
myObject2(2).otherVar = 2000
 
lResult =  myObject1.abc(21) 
PrintL lResult
 
lResult = myObject2(2).abc(21)
PrintL lResult
  
WaitKey

...awaiting comments

[Petr Schreiber]

Hi Rene,

I like the approach in second post more - intuitive, no pointer struggle


Petr

[ErosOlmi]

Wow: you guys are great!
Great ideas, great suggestions, great thoughts ... BUT ...

sorry, I was not talking about OOP here but just about another optional ways to handle DIALOGs CALLBACKs events and, if working fine, possibly extend to CONTROLs events.
Just that.

I'm really fascinated by all your ideas on OOP but this is not the post, sorry

OOP is something I would really love to have in thinBasic but something not just around the corner, something for the next months maybe.

So, do not worry and keep going on on this brain-storming, all ideas will be useful at the right time.

Ciao
Eros

PS: maybe I will split first post from the others changing subject.