Hi Mars-
I'm using REALbasic 2006 r2 on Mac OS X 10.4.6, MacBook Pro (Intel).
The enumeration definition is:
Enumeration AccessType
ePublic,
EProtected,
eDataPrivate,
eMethodPrivate = 33
End Enumeration
while the code that reads the access modifier for an enumeration from
a REALbasic project file as an integer, then typecasts it as an
AccessType enumeration is as follows:
Sub getEnumerations( node as XMLNode )
dim theNode as XMLNode
dim nodeList, childNodeList as XMLNodeList
dim access as AccessType
nodeList = node.Xql( "Enumeration" )
dim elementCount as integer = nodeList.Length
for j as integer = 0 to elementCount - 1
...
theNode = nodeList.Item( j )
childNodeList = nodeList.Item( 0 ).Xql( "ItemFlags" )
access = AccessType( Val( childNodeList.Item
( 0 ).FirstChild.Value ) )
...
next
...
End Sub
Thanks!
-Scott
Dr. Scott Steinman
Brought to you by a grant from the Steinman Foundation (Thanks, Mom
and Dad!)
Recommended by Major University Studies Over the Leading Brand
steinman at midsouth dot rr dot com
I hope I die peacefully in my sleep like my grandfather. . .not
screaming in terror like his passengers. -- "Deep Thoughts", Jack Handy
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
