--
-- An extension to type() to identify project object types by reading the
-- "__type" field from the metatable.
--
	local builtin_type = type	
	function type(t)
		local mt = getmetatable(t)
		if (mt) then
			if (mt.__type) then
				return mt.__type
			end
		end
		return builtin_type(t)
	end

local obj = {}
obj.x = 2
setmetatable( obj, { __type="blah" })
-- Set a breakpoint here, obj is table : 0xsomething in watch window
local typeofObj = type(obj)  
-- But typeofObj is correctly "blah" in watch window

local function main()
  local t = {1,2,3}
  local m = { __type = "window" }
  setmetatable(t, m );
  
  print("ok")
end

main()

* t                     sequence[4]	
   * metatable	        table: 007C62F8
      * ["__type"]	"window"	
   * [1]	        1	
   * [2]	        2	
   * [3]	        3