B4J Question [Solved] How "MainForm.RootPane.GetAllViewsRecursive" when view is SwiftButton?

[Dadaista]

Hi

I changed buttons in app for SwiftButton and now the line below does not work

For Each swb As node In MainForm.RootPane.GetAllViewsRecursive

I try with

For Each swb As B4XView In MainForm.RootPane.GetAllViewsRecursive
If swb Is SwiftButton Then Log("SwiftButton")

That doesn't work either

How can I solved?

 

[Cableguy]

If I understand correctly, the swift button is a custom view.
The ide does not know what a custom view "is", nor what view it mimics... to the idea, the custom view is just a panel.
I would use the tag property of the base panel and use it as a means of getting that type of info.

 

[Dadaista]

The tag property of the SwiftButton contains a code "00000..."
Doesn't it matter if the tag is pre-filled with a code?
I am going to try...

Thx @Cableguy

 

[Cableguy]

The tag property of the SwiftButton contains a code "00000..."
Doesn't it matter if the tag is pre-filled with a code?
I am going to try...

Thx @Cableguy

the tag can hold an object, it can even hold an array or even a type

 

[Dadaista]

I pre-filled the tag property of all SwiftButtons with a code. I hope that does not matter... but I'm afraid I'm not going to know how to solve it

 

[Cableguy]

If you define a type and set it to the tag property, you can add as many fields as you want even with different primitives

 

[Cableguy]

Like
Dim swiftbuttontag( code as int, Viewtype as string)
Dim siftbuttontag1 as swiftbuttontag
Swifbuttontag1.initialize(0,"swftbtn1")
Switftbutton1.tag = swiftbutyontag1

This is pseudoscience, not sure of correct syntax

 

[Dadaista]

But for what doing that?... must I do that to GetAllViewsRecursive?

 

[Erel]

Never use 'Node', only B4XView.

Carefully read: [B4X] How to get <custom view here> from <CLV or any other container>

 

[Dadaista]

Carefully read: [B4X] How to get <custom view here> from <CLV or any other container>

I read it last month.. I was reread right now!! bookmarked in my firefox

The solution is

For Each swb As B4XView In MainForm.RootPane.GetAllViewsRecursive
    If swb.Tag Is SwiftButton Then
        Dim kk As SwiftButton = swb.Tag
        Log(kk.Tag)
        '.........Rest of code
    End If
Next

Thx!!

 

[Cableguy]

But for what doing that?... must I do that to GetAllViewsRecursive?

The same principle applies...
But "we" tend to use that tag property in a simplistic way, setting a single value to it... but since it can hold an object, it can do much more, even hold a reference to another view.