1 files changed, 62 insertions, 0 deletions
diff --git a/src/flowparts/sub.cpp b/src/flowparts/sub.cpp
new file mode 100644
index 0000000..222b167
--- /dev/null
+++ b/src/flowparts/sub.cpp
@@ -0,0 +1,62 @@
+/***************************************************************************
+ *   Copyright (C) 2003 by David Saxton                                    *
+ *   [email protected]                                                    *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ ***************************************************************************/
+
+#include "sub.h"
+
+#include "libraryitem.h"
+#include "flowcode.h"
+
+#include <klocale.h>
+
+Item* Sub::construct( ItemDocument *itemDocument, bool newItem, const char *id )
+{
+	return new Sub( (ICNDocument*)itemDocument, newItem, id );
+}
+
+LibraryItem* Sub::libraryItem()
+{
+	return new LibraryItem(
+		QString("flow/sub"),
+		i18n("Subroutine"),
+		i18n("Common"),
+		"sub.png",
+		LibraryItem::lit_flowpart,
+		Sub::construct );
+}
+
+Sub::Sub( ICNDocument *icnDocument, bool newItem, const char *id )
+	: FlowContainer( icnDocument, newItem, (id) ? id : "sub" )
+{
+	m_name = i18n("Sub");
+	m_desc = i18n("Defines the starting point of a subroutine. Call this subroutine using \"Call Sub\"");
+	
+	createProperty( "sub", Variant::Type::Combo );
+	property("sub")->setCaption( i18n("Subroutine") );
+	property("sub")->setValue("MySub");
+}
+
+Sub::~Sub()
+{
+}
+
+void Sub::dataChanged()
+{
+	setCaption( "Sub " + dataString("sub") );
+}
+
+void Sub::generateMicrobe( FlowCode *code )
+{
+	code->addCode( "\nsub "+dataString("sub")+"\n{" );
+	code->addCodeBranch( outputPart("int_in") );
+	code->addCode("}");
+}
+
+
+// #include "sub.moc"