Apply gel hinge joint limits when appropriate.

2025-08-04 14:34:12 +10:00
parent 59d478511e
commit 61d6e359ae
7 changed files with 77 additions and 60 deletions
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -973,7 +973,6 @@ is
                        pivot_Anchor => pivot_Anchor);

      the_Joint.Limits_are (low_Limit, high_Limit);
-
      Self.attach (the_Child, the_Joint.all'Access);

      new_Joint := the_Joint.all'Access;