1 files changed, 7 insertions, 7 deletions
diff --git a/body/c_fl_input.cpp b/body/c_fl_input.cpp
index 6fa6b2d..73517a7 100644
--- a/body/c_fl_input.cpp
+++ b/body/c_fl_input.cpp
@@ -6,22 +6,18 @@
 
 #include <FL/Fl_Input.H>
 #include "c_fl_input.h"
+#include "c_fl.h"
 
 
 
 
-//  Telprot stopovers
+//  Telprot stopover
 
 extern "C" void text_input_extra_init_hook(void * aobj, int x, int y, int w, int h, const char * l);
 void fl_text_input_extra_init(void * adaobj, int x, int y, int w, int h, const char * label) {
     text_input_extra_init_hook(adaobj, x, y, w, h, label);
 }
 
-extern "C" void text_input_extra_final_hook(void * aobj);
-void fl_text_input_extra_final(void * adaobj) {
-    text_input_extra_final_hook(adaobj);
-}
-
 
 
 
@@ -65,7 +61,11 @@ TEXTINPUT new_fl_text_input(int x, int y, int w, int h, char * label) {
 }
 
 void free_fl_text_input(TEXTINPUT t) {
-    delete static_cast<My_Text_Input*>(t);
+    if (fl_inside_callback) {
+        fl_delete_widget(t);
+    } else {
+        delete static_cast<My_Text_Input*>(t);
+    }
 }