1 files changed, 53 insertions, 0 deletions
diff --git a/sigalatvision/lib/TRadioButtons.cc b/sigalatvision/lib/TRadioButtons.cc
new file mode 100644
index 0000000..0ee5e72
--- /dev/null
+++ b/sigalatvision/lib/TRadioButtons.cc
@@ -0,0 +1,53 @@
+/*
+ * TRadioButtons.cc
+ *
+ * Turbo Vision - Version 2.0
+ *
+ * Copyright (c) 1994 by Borland International
+ * All Rights Reserved.
+ *
+ * Modified by Sergio Sigala <sergio@sigala.it>
+ */
+
+#define Uses_TRadioButtons
+#include <tvision/tv.h>
+
+void TRadioButtons::draw()
+{
+    drawMultiBox( button, " \x7" );
+}
+
+Boolean TRadioButtons::mark( int item )
+{
+    return Boolean( item == (int)value );
+}
+
+void TRadioButtons::press( int item )
+{
+    value = item;
+}
+
+void TRadioButtons::movedTo( int item )
+{
+    value = item;
+}
+
+void TRadioButtons::setData( void * rec )
+{
+    TCluster::setData(rec);
+    sel = (int)value;
+}
+
+#if !defined(NO_STREAMABLE)
+
+TStreamable *TRadioButtons::build()
+{
+    return new TRadioButtons( streamableInit );
+}
+
+TRadioButtons::TRadioButtons( StreamableInit ) : TCluster( streamableInit )
+{
+}
+
+
+#endif