Come on... no one ever used the inheritsFrom* functions?

progray · Dec 31, 2015 · 7183a5c · 7183a5c
1 parent 3cefe8c
commit 7183a5c
Showing 1 changed file with 11 additions and 19 deletions.
diff --git a/Cheat Engine/LuaHandler.pas b/Cheat Engine/LuaHandler.pas
@@ -3312,9 +3312,9 @@ function inheritsFromObject(L: PLua_state): integer; cdecl;
 var x: TObject;
 begin
   result:=0;
-  if lua_gettop(L)>1 then
+  if lua_gettop(L)>=1 then
   begin
-    x:=lua_toceuserdata(L, -1);
+    x:=lua_toceuserdata(L, 1);
     lua_pop(L, lua_gettop(l));
 
     if x<>nil then
@@ -3330,9 +3330,9 @@ function inheritsFromComponent(L: PLua_state): integer; cdecl;
 var x: TObject;
 begin
   result:=0;
-  if lua_gettop(L)>1 then
+  if lua_gettop(L)>=1 then
   begin
-    x:=lua_toceuserdata(L, -1);
+    x:=lua_toceuserdata(L, 1);
     lua_pop(L, lua_gettop(l));
 
     if x<>nil then
@@ -3346,17 +3346,19 @@ function inheritsFromComponent(L: PLua_state): integer; cdecl;
 
 function inheritsFromControl(L: PLua_state): integer; cdecl;
 var x: TObject;
+  r: boolean;
 begin
   result:=0;
-  if lua_gettop(L)>1 then
+  if lua_gettop(L)>=1 then
   begin
-    x:=lua_toceuserdata(L, -1);
+    x:=lua_toceuserdata(L, 1);
     lua_pop(L, lua_gettop(l));
 
     if x<>nil then
     begin
       result:=1;
-      lua_pushboolean(l, (x is TControl));
+      r:=x is TControl;
+      lua_pushboolean(l, r);
     end;
 
   end;
@@ -3366,9 +3368,9 @@ function inheritsFromWinControl(L: PLua_state): integer; cdecl;
 var x: TObject;
 begin
   result:=0;
-  if lua_gettop(L)>1 then
+  if lua_gettop(L)>=1 then
   begin
-    x:=lua_toceuserdata(L, -1);
+    x:=lua_toceuserdata(L, 1);
     lua_pop(L, lua_gettop(l));
 
     if x<>nil then
@@ -3381,16 +3383,6 @@ function inheritsFromWinControl(L: PLua_state): integer; cdecl;
 end;
 
 
-
-
-
-
-
-
-
-
-
-
 function createToggleBox(L: Plua_State): integer; cdecl;
 var
   ToggleBox: TCEToggleBox;