Test if data table is locked

[#1]

I know that I can lock and unlock a data table through the Lock Data Table() command, but how do I test if a data table is locked? A table locked through Lock Data Table() returns Empty() when using the Get Edit Lock() function. 

//:*/

dt<<Lock Data Table(1);
/*:

Scriptable[]
//:*/
dt << Get Edit Lock();
/*:

Empty()

[#2]

From the Scripting Index Example

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Set Edit Lock( "Add Rows", "Delete Columns" );
Wait( 2 );
dt << Get Edit Lock();

     Help==>Scripting Index

search on "Lock"

[#3]

Thanks, but I've gotten into the habit of using the red triangle drop down to lock the data table, and Get Edit Lock() returns empty, which doesn't make sense. My expectation is that it should return a list: {"Modify Cells", "Add Rows", "Delete Rows", "Add Columns", "Delete Columns"}, when the table is locked either through the drop down or Lock Data Table(1).

[#4]

I would add that request to the JMP Wish List