1 files changed, 220 insertions, 0 deletions
diff --git a/freebsdtvision/lib/TChDirDialog.cc b/freebsdtvision/lib/TChDirDialog.cc
new file mode 100644
index 0000000..0ea3609
--- /dev/null
+++ b/freebsdtvision/lib/TChDirDialog.cc
@@ -0,0 +1,220 @@
+/*
+ * TChDirDialog.cc
+ *
+ * Turbo Vision - Version 2.0
+ *
+ * Copyright (c) 1994 by Borland International
+ * All Rights Reserved.
+ *
+ * Modified by Sergio Sigala <sergio@sigala.it>
+ */
+
+#define Uses_MsgBox
+#define Uses_TChDirDialog
+#define Uses_TRect
+#define Uses_TInputLine
+#define Uses_TLabel
+#define Uses_THistory
+#define Uses_TScrollBar
+#define Uses_TDirListBox
+#define Uses_TButton
+#define Uses_TEvent
+#define Uses_TDirEntry
+#define Uses_TDirCollection
+#define Uses_TChDirDialog
+#define Uses_opstream
+#define Uses_ipstream
+#include <tvision/tv.h>
+
+#include <ctype.h>
+#include <limits.h>
+#include <string.h>
+#include <unistd.h>
+
+TChDirDialog::TChDirDialog( ushort opts, ushort histId ) :
+    TDialog( TRect( 16, 2, 64, 20 ), changeDirTitle ),
+    TWindowInit( &TChDirDialog::initFrame )
+{
+    options |= ofCentered;
+
+    dirInput = new TInputLine( TRect( 3, 3, 30, 4 ), 68 );
+    insert( dirInput );
+    insert( new TLabel( TRect( 2, 2, 17, 3 ), dirNameText, dirInput ));
+    insert( new THistory( TRect( 30, 3, 33, 4 ), dirInput, histId ) );
+
+    TScrollBar *sb = new TScrollBar( TRect( 32, 6, 33, 16 ) );
+    insert( sb );
+    dirList = new TDirListBox( TRect( 3, 6, 32, 16 ), sb );
+    insert( dirList );
+    insert( new TLabel( TRect( 2, 5, 17, 6 ), dirTreeText, dirList ) );
+
+    okButton = new TButton( TRect( 35, 6, 45, 8 ), okText, cmOK, bfDefault );
+    insert( okButton );
+    chDirButton = new TButton( TRect( 35, 9, 45, 11 ), chdirText, cmChangeDir, bfNormal );
+    insert( chDirButton );
+    insert( new TButton( TRect( 35, 12, 45, 14 ), revertText, cmRevert, bfNormal ) );
+    if( (opts & cdHelpButton) != 0 )
+        insert( new TButton( TRect( 35, 15, 45, 17 ), helpText, cmHelp, bfNormal ) );
+    if( (opts & cdNoLoadDir) == 0 )
+        setUpDialog();
+    selectNext( False );
+}
+
+ushort TChDirDialog::dataSize()
+{
+    return 0;
+}
+
+void TChDirDialog::shutDown()
+{
+    dirList = 0;
+    dirInput = 0;
+    okButton = 0;
+    chDirButton = 0;
+    TDialog::shutDown();
+}
+
+void TChDirDialog::getData( void * )
+{
+}
+
+void TChDirDialog::handleEvent( TEvent& event )
+{
+    TDialog::handleEvent( event );
+    switch( event.what )
+        {
+        case evCommand:
+            {
+            char curDir[PATH_MAX];
+            switch( event.message.command )
+                {
+                case cmRevert:
+                    getCurDir( curDir );
+                    break;
+                case cmChangeDir:
+                    {
+                    TDirEntry *p = dirList->list()->at( dirList->focused );
+                    strcpy( curDir, p->dir() );
+			/* SS: changed */
+                        if( curDir[strlen(curDir)-1] != '/' )
+                            strcat( curDir, "/" );
+                    break;
+                    }
+#ifndef __UNPATCHED
+		//!! Handle directory selection.
+                case cmDirSelection:
+                    chDirButton->makeDefault( Boolean( int(
+			event.message.infoPtr ) ) );
+                    return;     // NOTE: THIS IS RETURN NOT BREAK!!
+#endif
+                default:
+                    return;
+                }
+            dirList->newDirectory( curDir );
+            int len = strlen( curDir );
+	    /* SS: changed */
+            if( len > 0 && curDir[len-1] == '/' )
+                curDir[len-1] = EOS;
+            strcpy( dirInput->data, curDir );
+            dirInput->drawView();
+            dirList->select();
+            clearEvent( event );
+            }
+        default:
+            break;
+        }
+}
+
+void TChDirDialog::setData( void * )
+{
+}
+
+void TChDirDialog::setUpDialog()
+{
+    if( dirList != 0 )
+        {
+        char curDir[PATH_MAX];
+        getCurDir( curDir );
+        dirList->newDirectory( curDir );
+        if( dirInput != 0 )
+            {
+            int len = strlen( curDir );
+	    /* SS: changed */
+            if( len > 0 && curDir[len-1] == '/' )
+                curDir[len-1] = EOS;
+            strcpy( dirInput->data, curDir );
+            dirInput->drawView();
+            }
+        }
+}
+
+static int changeDir( const char *path )
+{
+    /* SS: changed */
+    return chdir( path );
+}
+
+Boolean TChDirDialog::valid( ushort command )
+{
+    if( command != cmOK )
+        return True;
+
+    char path[PATH_MAX];
+    strcpy( path, dirInput->data );
+
+#ifndef __UNPATCHED
+    // BUG FIX - EFW - Tue 05/16/95
+    // Ignore "Drives" line if switching drives.
+    if(!strcmp(path, drivesText))
+        path[0] = EOS;
+
+    // If it was "Drives" or the input line was blank, issue a
+    // cmChangeDir event to select the current drive/directory.
+    if(!path[0])
+    {
+        TEvent event;
+        event.what = evCommand;
+        event.message.command = cmChangeDir;
+        putEvent(event);
+        return False;
+    }
+
+    // Otherwise, expand and check the path.
+#endif
+    fexpand( path );
+
+    int len = strlen( path );
+    /* SS: changed */
+    if( len > 0 && path[len-1] == '/' )
+        path[len-1] = EOS;
+
+    if( changeDir( path ) != 0 )
+        {
+        messageBox( invalidText, mfError | mfOKButton );
+        return False;
+        }
+    return True;
+}
+
+#if !defined(NO_STREAMABLE)
+
+void TChDirDialog::write( opstream& os )
+{
+    TDialog::write( os );
+    os << dirList << dirInput << okButton << chDirButton;
+}
+
+void *TChDirDialog::read( ipstream& is )
+{
+    TDialog::read( is );
+    is >> dirList >> dirInput >> okButton >> chDirButton;
+    setUpDialog();
+    return this;
+}
+
+TStreamable *TChDirDialog::build()
+{
+    return new TChDirDialog( streamableInit );
+}
+
+#endif