From b737f061a40c2546e1addadee1611d2281a4a1f7 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 4 Mar 2018 01:22:46 +1100
Subject: Fixed minor Finalize bug in Slider derivative widgets

---
 src/fltk-widgets-valuators-sliders-horizontal.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fltk-widgets-valuators-sliders-horizontal.adb')

diff --git a/src/fltk-widgets-valuators-sliders-horizontal.adb b/src/fltk-widgets-valuators-sliders-horizontal.adb
index 6091fda..b7bf946 100644
--- a/src/fltk-widgets-valuators-sliders-horizontal.adb
+++ b/src/fltk-widgets-valuators-sliders-horizontal.adb
@@ -59,7 +59,7 @@ package body FLTK.Widgets.Valuators.Sliders.Horizontal is
             free_fl_horizontal_slider (This.Void_Ptr);
             This.Void_Ptr := System.Null_Address;
         end if;
-        Finalize (Valuator (This));
+        Finalize (Slider (This));
     end Finalize;
 
 
-- 
cgit