don't show the CodeBrowserModule IM in release mode

Add IsProcGlobal(...) convenience function

Author: t-b

procedures/CodeBrowser.ipf

@@ -108,11 +108,11 @@ Function/S interpretParamType(ptype, paramOrReturn)
 			typeStr += "/U"
 		endif
 
-		if(debuggingEnabled)
-			string msg
-			sprintf msg, "type:%d, str:%s", ptype, typeStr
-			debugPrint(msg)
-		endif
+//		if(debuggingEnabled)
+//			string msg
+//			sprintf msg, "type:%d, str:%s", ptype, typeStr
+//			debugPrint(msg)
+//		endif
 
 		return typeStr
 	endif
@@ -447,13 +447,19 @@ Function/S getProcWindows(regexp,options)
 	return SortList(procListClean,";",4)
 End
 
-// Returns a list of independent modules including ProcGlobal but skipping WM modules
+// Returns a list of independent modules
+// Includes ProcGlobal but skips all WM modules and the current module in release mode
 Function/S getModuleList()
 
 	string moduleList
 
 	moduleList = IndependentModuleList(";")
 	moduleList = ListMatch(moduleList,"!WM*",";") // skip WM modules
+	string module = GetIndependentModuleName()
+	
+	if(!debuggingEnabled && !isProcGlobal(module))
+		moduleList = ListMatch(moduleList,"!" + module,";") // skip current module
+	endif
 	moduleList = "ProcGlobal;" + SortList(moduleList)
 
 	return moduleList
@@ -525,7 +531,7 @@ End
 Function/S getProcList(module)
 	string module
 
-	if( cmpstr(module,"ProcGlobal") == 0 )
+	if( isProcGlobal(module) )
 		return getGlobalProcWindows()
 	else
   		return getIMProcWindows(module)

procedures/CodeBrowser_gui.ipf

@@ -163,7 +163,7 @@ Function/S getCurrentItem([module, procedure, procedureWithSuffix, procedureWith
 		if(procedureWithModule)
 			string moduleName = getCurrentItem(module=1)
 			// work around FunctionList not accepting Procedure.ipf [ProcGlobal]
-			if(cmpstr(moduleName,"ProcGlobal") == 0 && cmpstr(windowName,"Procedure") == 0)
+			if(isProcGlobal("ProcGlobal") && cmpstr(windowName,"Procedure") == 0)
 				return windowName + " [" + moduleName + "]"
 			else
 				return windowName + ".ipf [" + moduleName + "]"

procedures/CodeBrowser_utils.ipf

@@ -13,6 +13,12 @@ Function isEmpty(str)
 	return !(strlen(str) > 0)
 End
 
+Function isProcGlobal(module)
+	string module
+	
+	return cmpstr(module,"ProcGlobal") == 0
+End
+
 // Returns the dimension of the first screen
 Function GetScreenDimensions(rect)
 	STRUCT RECT &rect
@@ -48,7 +54,7 @@ Function debugPrint(msg)
 	string msg
 
 	if(debuggingEnabled)
-		printf "%s(...): %s\r", GetRTStackInfo(2), msg
+		printf "%s(...): %s\r", GetRTStackInfo(2), RemoveEnding(msg,"\r")
 	endif
 End