Fix ask for save:Yes being ignored bug

Ide/projmen.icl

@@ -377,7 +377,7 @@ where
 						]	// not this one but continue with rest
 					:+: ButtonControl "Yes"
 						[ ControlId okId
-						, ControlFunction (\(ls,ps)->(Cancel,closeWindow sId ps))
+						, ControlFunction (\(ls,ps)->(Yes,closeWindow sId ps))
 						, ControlWidth buttonWidth
 						]	// do this one and continue
 					)