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?
#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