From b737f061a40c2546e1addadee1611d2281a4a1f7 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 4 Mar 2018 01:22:46 +1100 Subject: Fixed minor Finalize bug in Slider derivative widgets --- src/fltk-widgets-valuators-sliders-fill.adb | 2 +- src/fltk-widgets-valuators-sliders-hor_fill.adb | 2 +- src/fltk-widgets-valuators-sliders-hor_nice.adb | 2 +- src/fltk-widgets-valuators-sliders-horizontal.adb | 2 +- src/fltk-widgets-valuators-sliders-nice.adb | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/fltk-widgets-valuators-sliders-fill.adb b/src/fltk-widgets-valuators-sliders-fill.adb index d2416e0..94158fd 100644 --- a/src/fltk-widgets-valuators-sliders-fill.adb +++ b/src/fltk-widgets-valuators-sliders-fill.adb @@ -59,7 +59,7 @@ package body FLTK.Widgets.Valuators.Sliders.Fill is free_fl_fill_slider (This.Void_Ptr); This.Void_Ptr := System.Null_Address; end if; - Finalize (Valuator (This)); + Finalize (Slider (This)); end Finalize; diff --git a/src/fltk-widgets-valuators-sliders-hor_fill.adb b/src/fltk-widgets-valuators-sliders-hor_fill.adb index fab2a1c..7f520e8 100644 --- a/src/fltk-widgets-valuators-sliders-hor_fill.adb +++ b/src/fltk-widgets-valuators-sliders-hor_fill.adb @@ -59,7 +59,7 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is free_fl_hor_fill_slider (This.Void_Ptr); This.Void_Ptr := System.Null_Address; end if; - Finalize (Valuator (This)); + Finalize (Slider (This)); end Finalize; diff --git a/src/fltk-widgets-valuators-sliders-hor_nice.adb b/src/fltk-widgets-valuators-sliders-hor_nice.adb index 1ec8254..77b83bf 100644 --- a/src/fltk-widgets-valuators-sliders-hor_nice.adb +++ b/src/fltk-widgets-valuators-sliders-hor_nice.adb @@ -59,7 +59,7 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is free_fl_hor_nice_slider (This.Void_Ptr); This.Void_Ptr := System.Null_Address; end if; - Finalize (Valuator (This)); + Finalize (Slider (This)); end Finalize; 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; diff --git a/src/fltk-widgets-valuators-sliders-nice.adb b/src/fltk-widgets-valuators-sliders-nice.adb index fc529d4..08efc8f 100644 --- a/src/fltk-widgets-valuators-sliders-nice.adb +++ b/src/fltk-widgets-valuators-sliders-nice.adb @@ -59,7 +59,7 @@ package body FLTK.Widgets.Valuators.Sliders.Nice is free_fl_nice_slider (This.Void_Ptr); This.Void_Ptr := System.Null_Address; end if; - Finalize (Valuator (This)); + Finalize (Slider (This)); end Finalize; -- cgit