add NoReturnType for console app without result from Start rule

Ide/PmDialogues.icl

@@ -243,13 +243,15 @@ where
 		:+: RadioControl
 			[ ("Basic Values Only"	,Nothing,noPS (\l->{l & ao = {l.ao & o = BasicValuesOnly}}))
 			, ("Show Constructors"	,Nothing,noPS (\l->{l & ao = {l.ao & o = ShowConstructors}}))
+			, ("No Return Type"		,Nothing,noPS (\l->{l & ao = {l.ao & o = NoReturnType}}))
 			, ("No Console"			,Nothing,noPS (\l->{l & ao = {l.ao & o = NoConsole}}))
 			]
 			(Columns 1)
 			(case ao.o of
 				BasicValuesOnly			-> 1
 				ShowConstructors		-> 2
-				NoConsole				-> 3
+				NoReturnType			-> 3
+				NoConsole				-> 4
 			)
 			[ ControlPos (Left,zero)
 			]

Interfaces/LinkerInterface/WriteOptionsFile.icl

@@ -28,9 +28,11 @@ where
 		| memoryProfiling	= 32  
 							= 0
 	cons
-		| o == BasicValuesOnly	= 1
-		| o == ShowConstructors = 0
-						    	= 16
+		= case o of
+			BasicValuesOnly		-> 1
+			ShowConstructors	-> 0
+			NoReturnType		-> 16
+			NoConsole			-> 16
 
 FlagsToApplicationOptions :: !Int !ApplicationOptions -> ApplicationOptions;
 FlagsToApplicationOptions flags applicationOptions

Pm/PmTypes.dcl

@@ -127,6 +127,7 @@ DefApplicationOptions	:: ApplicationOptions
 ::	Output
 	= BasicValuesOnly
 	| ShowConstructors
+	| NoReturnType
 	| NoConsole
 
 instance == Output

Pm/PmTypes.icl

@@ -325,7 +325,7 @@ DefApplicationOptions =
 	,	standard_rte = True
 	}
 	
-::	Output = BasicValuesOnly | ShowConstructors | NoConsole
+::	Output = BasicValuesOnly | ShowConstructors | NoReturnType | NoConsole
 
 instance == Output
 where
@@ -334,6 +334,8 @@ where
 		=	True
 	(==) ShowConstructors ShowConstructors
 		=	True
+	(==) NoReturnType NoReturnType
+		=	True
 	(==) NoConsole NoConsole
 		=	True
 	(==) _ _
@@ -346,6 +348,8 @@ where
 		=	BasicValuesOnly
 	fromString "ShowConstructors"
 		=	ShowConstructors
+	fromString "NoReturnType"
+		=	NoReturnType
 	fromString "NoConsole"
 		=	NoConsole
 	fromString string
@@ -358,6 +362,8 @@ where
 		=	"BasicValuesOnly"
 	toString ShowConstructors
 		=	"ShowConstructors"
+	toString NoReturnType
+		=	"NoReturnType"
 	toString NoConsole
 		=	"NoConsole"