Are structures private to procedures?

[Dude]

Consider this code:

Code: Select all

Procedure Mouse1()
  GetCursorPos_(mouse.POINT)
  ProcedureReturn mouse\x
EndProcedure

Procedure Mouse2()
  GetCursorPos_(mouse.POINT)
  ProcedureReturn mouse\x
EndProcedure

Are both "mouse\x" values considered different to each other? The manual says that "Protected" only works with variables, arrays, lists and maps (not structures); so I'm assuming both "mouse\x" values are private to their own procedures? I'm calling GetCursorPos_() in different procedures in different threads.

Reason for asking: A user keeps telling me that my app won't report the correct mouse position for him (it returns null, not even "0"). So I don't know what's going on.

[Bisonte]

Code: Select all

GetCursorPos_(mouse.POINT)

Code: Select all

Syntax : BOOL WINAPI GetCursorPos( _Out_ LPPOINT lpPoint );

Parameters : 

lpPoint [out]
    Type: LPPOINT
    A pointer to a POINT structure that receives the screen coordinates of the cursor.

Code: Select all

Procedure Mouse1()
  Protected mouse.POINT
  GetCursorPos_(@mouse)
  ProcedureReturn mouse\x
EndProcedure

Maybe this solves.

[Dude]

Code: Select all

Protected mouse.POINT

Yeah, I might have to add "Protected" and see what the user says. I didn't bother since the manual doesn't mention "Protected" for structures. Nothing to lose by trying.

[TI-994A]

...I'm assuming both "mouse\x" values are private to their own procedures?

Yes. Like all other variable types, structure variables are scope-sensitive as well.

Furthermore, the Protected directive is only meant to override variable names declared elsewhere with the Global directive.

Code: Select all

localInt = 1
Global globalInt = 2

localPoint.Point\x = 3
Global globalPoint.Point\x = 4

Procedure procValues()
  localInt = 10
  Protected globalInt = 20
  
  localPoint.Point\x = 30
  Protected globalPoint.Point\x = 40  
  
  Debug localInt
  Debug globalInt
  Debug localPoint\x
  Debug globalPoint\x
  
EndProcedure

procValues()
Debug localInt
Debug globalInt
Debug localPoint\x
Debug globalPoint\x

[ts-soft]

The structuredefinition is always global, a compilerdirective!
This have nothing to do with the variable you are using with this structure.

[TI-994A]

The structuredefinition is always global, a compilerdirective!

Yes; even if it's defined within procedures that are not called.