Index: basic/source/comp/dim.cxx
===================================================================
RCS file: /cvs/script/basic/source/comp/dim.cxx,v
retrieving revision 1.10.32.3
diff -u -p -u -r1.10.32.3 dim.cxx
--- basic/source/comp/dim.cxx	17 Feb 2004 12:59:22 -0000	1.10.32.3
+++ basic/source/comp/dim.cxx	29 Apr 2004 15:44:09 -0000
@@ -794,6 +794,24 @@ void SbiParser::Declare()
 	}
 }
 
+void SbiParser::Attribute()
+{
+	// TODO: Need to implement the method as an attributed object.
+	while( Next() != EQ )
+	{
+		String aSym( GetSym() );
+		if( Next() != DOT) 
+			break;
+	}
+	
+	if( eCurTok != EQ )
+		Error( SbERR_SYNTAX );
+	else
+		SbiExpression aValue( this );
+
+	// Don't generate any code - just discard it.
+}
+
 // Aufruf einer SUB oder FUNCTION
 
 void SbiParser::Call()
Index: basic/source/comp/parser.cxx
===================================================================
RCS file: /cvs/script/basic/source/comp/parser.cxx,v
retrieving revision 1.5.32.1
diff -u -p -u -r1.5.32.1 parser.cxx
--- basic/source/comp/parser.cxx	20 Jan 2004 09:59:25 -0000	1.5.32.1
+++ basic/source/comp/parser.cxx	29 Apr 2004 15:44:09 -0000
@@ -83,6 +83,7 @@ struct SbiStatement {
 #define	N	FALSE
 
 static SbiStatement StmntTable [] = {
+{ ATTRIBUTE, &SbiParser::Attribute, Y, Y, }, // ATTRIBUTE
 { CALL,		&SbiParser::Call,   	N, Y, }, // CALL
 { CLOSE,	&SbiParser::Close,		N, Y, }, // CLOSE
 { _CONST_,	&SbiParser::Dim, 		Y, Y, }, // CONST
Index: basic/source/comp/token.cxx
===================================================================
RCS file: /cvs/script/basic/source/comp/token.cxx,v
retrieving revision 1.4.44.1
diff -u -p -u -r1.4.44.1 token.cxx
--- basic/source/comp/token.cxx	20 Jan 2004 10:00:20 -0000	1.4.44.1
+++ basic/source/comp/token.cxx	29 Apr 2004 15:44:09 -0000
@@ -89,6 +89,7 @@ static TokenTable aTokTable_Basic [] = {
 	{ ANY,		"Any" },
 	{ APPEND,	"Append" },
 	{ AS,		"As" },
+	{ ATTRIBUTE,"Attribute" },
 	{ BASE,		"Base" },
 	{ BINARY,	"Binary" },
 	{ TBOOLEAN,	"Boolean" },

Index: basic/source/inc/parser.hxx
===================================================================
RCS file: /cvs/script/basic/source/inc/parser.hxx,v
retrieving revision 1.1.1.1.134.1
diff -u -p -u -r1.1.1.1.134.1 parser.hxx
--- basic/source/inc/parser.hxx	20 Jan 2004 10:00:40 -0000	1.1.1.1.134.1
+++ basic/source/inc/parser.hxx	4 May 2004 09:08:36 -0000
@@ -136,6 +136,7 @@ public:
 	void BadSyntax();				// Falsches SbiToken
 	void NoIf();					// ELSE/ELSE IF ohne IF
 	void Assign();					// LET
+	void Attribute();				// Attribute
 	void Call();					// CALL
 	void Close();					// CLOSE
 	void Declare();					// DECLARE

Index: basic/source/inc/token.hxx
===================================================================
RCS file: /cvs/script/basic/source/inc/token.hxx,v
retrieving revision 1.2.44.1
diff -u -p -u -r1.2.44.1 token.hxx
--- basic/source/inc/token.hxx	20 Jan 2004 10:02:31 -0000	1.2.44.1
+++ basic/source/inc/token.hxx	4 May 2004 09:08:36 -0000
@@ -108,7 +108,7 @@ enum SbiToken {
 	IF, _IN_, INPUT,
 	LET, LINE, LINEINPUT, LOCAL, LOOP, LPRINT, LSET,
 	NAME, NEW, NEXT,
-	ON, OPEN, OPTION, IMPLEMENTS,
+	ON, OPEN, OPTION, ATTRIBUTE, IMPLEMENTS,
 	PRINT, PRIVATE, PROPERTY, PUBLIC,
 	REDIM, REM, RESUME, RETURN, RSET,
 	SELECT, SET, SHARED, STATIC, STEP, STOP, SUB,
