Erro na compilação -w3 -es2

[Softwhouse]

Já fritei os neurônios, compilando com -w3 -es2 essa rotina apresenta erro o parâmetro x do codeblock, sem -w3 -es2 compila normal, alguma idéia do que está errado?

Código: Selecionar todos

#include "minigui.ch"

Memvar aHeaders
Memvar aItems


Function Main()
Local aHeadClick [2]

aHeaders := {'Nome','Sobrenome'}
aItems   := LoadItems()

	AEVAL(aHeadClick, {| x, i | aHeadClick[ i ] := { |n| SortColumn( n ) }})



	DEFINE WINDOW Form_Clientes;
		AT 0,0 ;
		WIDTH 550 ;
		HEIGHT 450 ;
		TITLE 'Grid' ;
		MAIN ;
		ON INIT SortColumn( 1 )

		DEFINE GRID Grid_Clientes
			ROW		10
			COL		10
			WIDTH		500
			HEIGHT		330
			HEADERS		aHeaders
			WIDTHS		{140,140}
			ITEMS		aItems
			VALUE		1
			ONHEADCLICK	aHeadClick
		END GRID 
      
      
	END WINDOW

	Form_Clientes.Center

	Form_Clientes.Activate

Return Nil


Function LoadItems()
Local aRows [20] [2]

	aRows [1]	 := { 'Simpson','Homer'}
	aRows [2]	 := { 'Mulder','Fox'}
	aRows [3]	 := { 'Smart','Max'}
	aRows [4]	 := { 'Grillo','Pepe'}
	aRows [5]	 := { 'Kirk','James'}
	aRows [6]	 := { 'Barriga','Carlos'}
	aRows [7]	 := { 'Flanders','Ned'}
	aRows [8]	 := { 'Smith','John'}
	aRows [9]	 := { 'Pedemonti','Flavio'}
	aRows [10] := { 'Gomez','Juan'}
	aRows [11] := { 'Fernandez','Raul'}
	aRows [12] := { 'Borges','Javier'}
	aRows [13] := { 'Alvarez','Alberto'}
	aRows [14] := { 'Gonzalez','Ambo'}
	aRows [15] := { 'Batistuta','Gol'}
	aRows [16] := { 'Vinazzi','Amigo'}
	aRows [17] := { 'Pedemonti','Flavio'}
	aRows [18] := { 'Samarbide','Armando'}
	aRows [19] := { 'Pradon','Alejandra'}
	aRows [20] := { 'Reyes','Monica'}

Return aRows

PROCEDURE SortColumn( nColumnNo )
ASORT( aItems, , , { | x, y | x[ nColumnNo ] < y[ nColumnNo ] })
Form_Clientes.Grid_Clientes.DeleteAllItems
AEVAL( aItems, { | x | Form_Clientes.Grid_Clientes.AddItem( x ) } )
RETURN

[MSDN]

Parece tudo ok, mas tente com essas mudanças :

onde está :

Memvar aHeaders
Memvar aItems

mude para :

public aHeaders
public aItems

e onde está :

PROCEDURE SortColumn( nColumnNo )

mude para :

Function SortColumn( nColumnNo )

[Daniel]

E só tirar o primeiro 'x,'
Eles estao sem uso

[Softwhouse]

Marcelo,

Se declarar variáveis públicas, não compila com -w3 -es2, tem que declarar como Memvar.

Daniel,

Retirando o X compila mas dá erro no array na hora da execução. Não conseguí entender isso.

[MSDN]

Procure aqui no Fórum postagens contendo -w3 -es2 em que o Quintas tenha postado, ele só compila com esses parâmetros, com certeza vc vai entender e resolver seu problema.