Error when assigning a List to a Class

[NFOBoy]

The list is a list of each instantiated class.

I want each class member to see every other class member that is created.

I can pass a List to the initialize method, and it fills fine with a pointer to each instantiation.

However, if I try to assign that same list to an internal List variable, I get a stack overflow. I'm guessing this is because some kind of loop occurs (but I'm not sure why it would, the List is a pointer to the Instantiation, not to the List itself... unless it recursively calls on itself when this is done)

Heres the class code

'Class module
Sub Class_Globals
   Public asView As Button
   Private myClearWindow As Label
   Private originalX, originalY As Int

   Private holdingView As Panel
   Private Gesture As Gestures
   Private listAllTrickButtons As List
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(ViewHoldingButton As Panel, listButtons As List)
   
   asView.Initialize("myButton")
   myClearWindow.Initialize("myClearWindow")
   holdingView = ViewHoldingButton
   listButtons.Add(Me)
   '------------- I first got the error here, so thought I would wait til all buttons instantiated
   'listAllTrickButtons = listButtons
   Gesture.SetOnTouchListener(myClearWindow, "Gestures_Touch")
End Sub

Public Sub StartMe
    holdingView.AddView(myClearWindow, asView.Left, asView.Top, asView.Width, asView.Height)
    holdingView.Color = Colors.Transparent
End Sub


'---------------- this is the error code
Public Sub setTrackerList(listButtons As List)
   listAllTrickButtons = listButtons
End Sub


Sub Gestures_Touch(View As Object, PointerID As Int, Action As Int, X As Float, Y As Float) As Boolean



If Action = Gesture.ACTION_DOWN Then
   originalX = asView.Left
   originalY = asView.Top

   Return True
End If

If Action = Gesture.ACTION_MOVE Then
   Log(PointerID)
   asView.Left = X + originalX - asView.Width/2
   asView.Top = Y + originalY - asView.Height - 20dip
   Return True
End If

If Action = Gesture.ACTION_UP Then

   asView.Left = originalX
   asView.Top = originalY
End If
   
End Sub

And here's the activity code:

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   'Activity.LoadLayout("Layout1")
   
   
   Dim aPanel As Panel
   aPanel.Initialize("apanel")
   Activity.AddView(aPanel, 0, 0, 100%x, 100%y)
   
   Dim listButtons As List
   listButtons.Initialize
   
   For i = 0 To 4
      Dim btn As trickButton2
      btn.Initialize(aPanel, listButtons)
      aPanel.AddView(btn.asView, i * 50dip + 50dip, 100dip, 40dip, 40dip)
      btn.asView.Text = i
      btn.StartMe
   Next
   
   For Each btn As trickButton2 In listButtons
      btn.TrackerList = listButtons
   Next


End Sub

If what I'm doing is horribly misguided, is there another way to do it such that each class member can "see" every other member internally? (I could just pass the list in every time I need it, but that doesn't seem elegant)

Ross

 

[agraham]

I just cut and pasted your code, uncommented your line and added a log to see it happen and it works fine for me. I can even drag the buttons!

Public Sub Initialize(ViewHoldingButton As Panel, listButtons As List)
    
    asView.Initialize("myButton")
    myClearWindow.Initialize("myClearWindow")
    holdingView = ViewHoldingButton
    listButtons.Add(Me)
    '------------- I first got the error here, so thought I would wait til all buttons instantiated
    listAllTrickButtons = listButtons
    Gesture.SetOnTouchListener(myClearWindow, "Gestures_Touch")
    Log(listAllTrickButtons.Size)
End Sub

 

[NFOBoy]

How about the way as posted? Still works good? If so, then it's an installation issue. (although the first way didn't work, so that would be an installation issue also)

Ross

 

[agraham]

I don't understand your question As I stated above I cut and pasted your code above, uncommented one line and added another to log the size of the List and it worked.

 

[NFOBoy]

In other words.. the commented line is where I was getting the error, did it work great with the way I was testing the second time?.... anyway... after a fresh bath, and restart... it is working now, exactly as I envisioned at the start. I get headaches sometimes with crazy things like this...

Thanks much for making me think my code was good in the first place (at least from a technical standpoint)

Ross