add compiling of selected modules in the project window for hierarchical modules

Ide/projwin.icl

@@ -835,9 +835,9 @@ getActiveModules ps
 		# (lbId,ps)			= getPWI ps
 		# ((hassel,sel),ps)	= getExtListBoxSelection lbId ps
 		| hassel && notEmpty sel
-			# sel			= map (MakeImpPathname o fst) sel
-			# (sel,ps)		= seqList (map findModule sel) ps
-			# sel			= [fromJust m \\ m <- sel | isJust m]
+			# sel			= [findIclModule s \\ (s,_) <- sel]
+			# (sel,ps)		= seqList sel ps
+			# sel			= [m \\ Just m <- sel]
 			= (sel,ps)
 		= ([],ps)
 	#	winpath 			= fromJust winpath
@@ -847,13 +847,10 @@ getActiveModules ps
 		= ([MakeImpPathname winpath],ps)
 	= ([],ps)
 
-findModule :: !.Modulename !*(PSt General) -> (!Maybe Pathname,!*PSt General)
-findModule pathname ps
+findIclModule :: !Modulename !*(PSt General) -> (!Maybe Pathname,!*PSt General)
+findIclModule module_name ps
 	# (srcpaths,ps) = get_project_and_environment_paths ps
-	# srcpaths = if (IsABCPathname pathname)
-					(Map MakeSystemPathname srcpaths)
-					srcpaths
-	# ((ok,fullpath),ps) = accFiles (SearchDisk pathname srcpaths) ps
+	# ((ok,fullpath),ps) = accFiles (FindHModule module_name ".icl" srcpaths) ps
 	| not ok
 		= (Nothing, ps)
 		= (Just (GetLongPathName fullpath), ps)