simplification: existsPanel()

DoWindow with followed V_Value checking was substituted by a more
readable simplification.

Author: Matthias Kastner

procedures/CodeBrowser_gui.ipf

@@ -37,9 +37,7 @@ Function createPanel()
 	STRUCT CodeBrowserPrefs prefs
 	LoadPackagePrefsFromDisk(prefs)
 
-	DoWindow $panel
-	if(V_flag != 0)
-		DebugPrint("Panel Exists")
+	if(existsPanel())
 		DoWindow/F $panel
 		return NaN
 	endif
@@ -125,8 +123,7 @@ Function resizeToPackagePrefs()
 	Variable prefsRight  = prefs.panelCoords[2]
 	Variable prefsBottom = prefs.panelCoords[3]
 
-	DoWindow $panel
-	if(V_flag == 0)
+	if(!existsPanel())
 		createPanel()
 	endif
 	MoveWindow/W=$panel prefsLeft, prefsTop, prefsRight, prefsBottom
@@ -165,32 +162,36 @@ Function updatePanel()
 	saveReParse()
 	debugPrint("All Procedures were marked for parsing")
 
-	DoWindow $panel
-	if(V_flag == 0)
+	if(!existsPanel())
 		return 0
 	endif
-	debugPrint("panel exists")
 
 	ControlUpdate/A/W=$panel
 	updateListBoxHook()
 
 	return 0
 End
 
-Function markAsUnInitialized()
-
+Function existsPanel()
 	DoWindow $panel
 	if(V_flag == 0)
 		return 0
 	endif
+	debugPrint("panel exists")
+	return 1
+End
+
+Function markAsUnInitialized()
+	if(!existsPanel())
+		return 0
+	endif
 
 	SetWindow $panel, userdata($oneTimeInitUserData)=""
 End
 
 Function markAsInitialized()
 
-	DoWindow $panel
-	if(V_flag == 0)
+	if(!existsPanel())
 		return 0
 	endif
 
@@ -199,8 +200,7 @@ End
 
 Function isInitialized()
 
-	DoWindow $panel
-	if(V_flag == 0)
+	if(!existsPanel())
 		return 0
 	endif
 

procedures/CodeBrowser_hooks.ipf

@@ -70,8 +70,7 @@ Function preparePanelClose()
 	SetIgorHook/K AfterCompiledHook=updatePanel
 	debugPrint("AfterCompiledHook: " + S_info)
 
-	DoWindow $GetPanel()
-	if(V_flag == 0)
+	if(!existsPanel())
 		return 0
 	endif
 

procedures/CodeBrowser_preferences.ipf

@@ -103,8 +103,7 @@ End
 Function FillPackagePrefsStruct(prefs)
 	STRUCT CodeBrowserPrefs &prefs
 
-	DoWindow $GetPanel()
-	if(V_flag == 0)
+	if(!existsPanel())
 		// Panel does not exist. Set prefs struct to default.
 		DefaultPackagePrefsStruct(prefs)
 	else