[Wxlua-commit] wxLua/modules/wxluadebug/src wxldebug.cpp, 1.35, 1.36

[John L. <jr...@us...>]

Update of /cvsroot/wxlua/wxLua/modules/wxluadebug/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9840/wxLua/modules/wxluadebug/src

Modified Files:
	wxldebug.cpp 
Log Message:
Allow the wxTaskBarIcon to be delete()ed since you have to in MSW for the program to exit
Change the keys in the lua registry table to be lightuserdata to avoid collisions
Display what the keys are in the registry table in the stack dialog


Index: wxldebug.cpp
===================================================================
RCS file: /cvsroot/wxlua/wxLua/modules/wxluadebug/src/wxldebug.cpp,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** wxldebug.cpp	16 Jun 2007 06:21:47 -0000	1.35
--- wxldebug.cpp	25 Jun 2007 16:07:58 -0000	1.36
***************
*** 428,432 ****
      const void *pItem  = lua_topointer(L, index);
  
!     wxString s = wxString::Format(wxT("%p"), pItem);
  
      if (nItems > 0)
--- 428,432 ----
      const void *pItem  = lua_topointer(L, index);
  
!     wxString s = wxString::Format(wxT("0x%p"), pItem);
  
      if (nItems > 0)
***************
*** 445,449 ****
      lua_State* L = wxlState.GetLuaState();
  
!     wxString s = wxString::Format(wxT("%p"), lua_touserdata(L, index));
  
      if (full)
--- 445,466 ----
      lua_State* L = wxlState.GetLuaState();
  
!     wxString s = wxString::Format(wxT("0x%p"), lua_touserdata(L, index));
! 
!     void* udata = lua_touserdata(L, index);
! 
!     // Convert our known keys to something more readable
!     if (udata == &wxlua_lreg_references_key)
!         s += wxT(" - wxLua References");
!     else if (udata == &wxlua_lreg_classes_key)
!         s += wxT(" - wxLuaBindClasses");   
!     else if (udata == &wxlua_lreg_derivedmethods_key)
!         s += wxT(" - wxLua Derived Class Methods");    
!     else if (udata == &wxlua_lreg_wxluastaterefdata_key)
!         s += wxT(" - wxLuaStateRefData");
! 
!     else if (udata == &wxlua_lreg_metatable_tag_key)
!         s += wxT(" - wxLua Metatable Class Tag");
!     else if (udata == &wxlua_lreg_metatable_class_key)
!         s += wxT(" - wxLua Metatable wxLuaBindClass");
  
      if (full)