1 files changed, 83 insertions, 0 deletions
diff --git a/tvision/classes/tfileinp.cc b/tvision/classes/tfileinp.cc
new file mode 100644
index 0000000..14f5420
--- /dev/null
+++ b/tvision/classes/tfileinp.cc
@@ -0,0 +1,83 @@
+/*
+ *      Turbo Vision - Version 2.0
+ *
+ *      Copyright (c) 1994 by Borland International
+ *      All Rights Reserved.
+ *
+
+Modified by Robert H”hne to be used for RHIDE.
+
+ *
+ *
+ */
+#define Uses_string
+#define Uses_dir
+#define Uses_TFileInputLine
+#define Uses_TEvent
+#define Uses_TSearchRec
+#define Uses_TFileDialog
+#include <tv.h>
+
+#if defined(TVComp_BCPP)
+ #include <dos.h>
+#endif
+
+TFileInputLine::TFileInputLine( const TRect& bounds, short aMaxLen ) :
+    TInputLine( bounds, aMaxLen )
+{
+    eventMask = eventMask | evBroadcast;
+}
+
+/**[txh]********************************************************************
+
+  Description:
+  Simple routine to join three strings without coping more than max+1 bytes.
+The data buffer must support max+1 bytes. The s2 and s3 parameters can be
+NULL.@p
+  It could be implemented with var_args, any interest?
+
+***************************************************************************/
+
+static
+void strCat(char *dest, const char *s1, const char *s2, const char *s3, int max)
+{
+ char *end=dest+max;
+
+ for (;*s1 && dest<end; s1++) *(dest++)=*s1;
+ if (s2)
+    for (;*s2 && dest<end; s2++) *(dest++)=*s2;
+ if (s3)
+    for (;*s3 && dest<end; s3++) *(dest++)=*s3;
+ *dest=0;
+}
+
+void TFileInputLine::handleEvent( TEvent& event )
+{
+    TInputLine::handleEvent(event);
+    if( event.what == evBroadcast &&
+        event.message.command == cmFileFocused &&
+        !(state & sfSelected)
+      )
+        {
+        if( (((TSearchRec *)event.message.infoPtr)->attr & FA_DIREC) != 0 )
+           strCat(data,((TSearchRec *)event.message.infoPtr)->name,
+                  DIRSEPARATOR_,((TFileDialog *)owner)->wildCard,
+                  maxLen);
+        else
+           strCat(data,((TSearchRec *)event.message.infoPtr)->name,0,0,maxLen);
+        drawView();
+        }
+}
+
+#if !defined( NO_STREAM )
+TFileInputLine::TFileInputLine( StreamableInit ) :
+		TInputLine( streamableInit)
+{
+}
+
+TStreamable *TFileInputLine::build()
+{
+    return new TFileInputLine( streamableInit );
+}
+#endif // NO_STREAM
+