1 files changed, 53 insertions, 0 deletions
diff --git a/freebsdtvision/lib/THistoryWindow.cc b/freebsdtvision/lib/THistoryWindow.cc
new file mode 100644
index 0000000..e1da1df
--- /dev/null
+++ b/freebsdtvision/lib/THistoryWindow.cc
@@ -0,0 +1,53 @@
+/*
+ * THistoryWindow.cc
+ *
+ * Turbo Vision - Version 2.0
+ *
+ * Copyright (c) 1994 by Borland International
+ * All Rights Reserved.
+ *
+ * Modified by Sergio Sigala <sergio@sigala.it>
+ */
+
+#define Uses_THistoryWindow
+#define Uses_THistoryViewer
+#include <tvision/tv.h>
+
+THistInit::THistInit( TListViewer *(*cListViewer)( TRect, TWindow *, ushort ) ) :
+    createListViewer( cListViewer )
+{
+}
+
+#define cpHistoryWindow "\x13\x13\x15\x18\x17\x13\x14"
+
+THistoryWindow::THistoryWindow( const TRect& bounds,
+                                ushort historyId ) :
+    THistInit( &THistoryWindow::initViewer ),
+    TWindow( bounds, 0, wnNoNumber),
+    TWindowInit( &THistoryWindow::initFrame )
+{
+    flags = wfClose;
+    if( createListViewer != 0 &&
+        (viewer = createListViewer( getExtent(), this, historyId )) != 0 )
+        insert( viewer );
+}
+
+TPalette& THistoryWindow::getPalette() const
+{
+    static TPalette palette( cpHistoryWindow, sizeof( cpHistoryWindow )-1 );
+    return palette;
+}
+
+void THistoryWindow::getSelection( char *dest )
+{
+    viewer->getText( dest, viewer->focused, 255 );
+}
+
+TListViewer *THistoryWindow::initViewer( TRect r, TWindow * win, ushort historyId )
+{
+    r.grow( -1, -1 );
+    return new THistoryViewer( r,
+        win->standardScrollBar( sbHorizontal | sbHandleKeyboard ),
+        win->standardScrollBar( sbVertical | sbHandleKeyboard ),
+        historyId);
+}