save panel state

CodeBrowser Panel:
selected item from listbox and dropdown menu are saved in preferences
and are restored if panel is rebuild

Author: Matthias Kastner

procedures/CodeBrowser_gui.ipf

@@ -51,6 +51,7 @@ Function createPanel()
 	PopupMenu $moduleCtrl, win=$panel,pos={0,moduleCtrlTop}, size={panelWidth-2*panelBorder,20}, bodywidth=200
 	PopupMenu $moduleCtrl, win=$panel,title="Namespace"
 	PopupMenu $moduleCtrl, win=$panel,proc=$(module + "#popupModules"),value=#module + "#generateModuleList()"
+	PopupMenu $moduleCtrl, win=$panel, mode=prefs.panelNameSpace
 
 	PopupMenu $moduleCtrl, userdata(ResizeControlsInfo)= A"!!,Cd!!#;-!!#B>J,hm&z!!#`-A7TLfzzzzzzzzzzzzzz!!#`-A7TLfzz"
 	PopupMenu $moduleCtrl, userdata(ResizeControlsInfo) += A"zzzzzzzzzzzz!!#u:Du]k<zzzzzzzzzzz"
@@ -59,6 +60,7 @@ Function createPanel()
 	PopupMenu $procCtrl, win=$panel,pos={0,procCtrlTop}, size={panelWidth-2*panelBorder,20}, bodywidth=200
 	PopupMenu $procCtrl, win=$panel,title="Procedure"
 	PopupMenu $procCtrl, win=$panel,proc=$(module + "#popupProcedures"),value=#module + "#generateProcedureList()"
+	PopupMenu $procCtrl, win=$panel, mode=prefs.panelProcedure
 
 	PopupMenu $procCtrl, userdata(ResizeControlsInfo)= A"!!,D/!!#>.!!#B:J,hm&z!!#`-A7TLfzzzzzzzzzzzzzz!!#`-A7TLfzz"
 	PopupMenu $procCtrl, userdata(ResizeControlsInfo) += A"zzzzzzzzzzzz!!#u:Du]k<zzzzzzzzzzz"
@@ -73,12 +75,13 @@ Function createPanel()
 	ListBox $listCtrl, win=$panel,proc=$(module + "#ListBoxProc")
 	ListBox $listCtrl, win=$panel,mode=5,selCol=1, widths={4,40}, keySelectCol=1
 	ListBox $listCtrl, win=$panel,listWave=getDeclWave()
+	ListBox $listCtrl, win=$panel, selRow=prefs.panelElement, row=prefs.panelElement
 
 	ListBox $listCtrl, userdata(ResizeControlsInfo)= A"!!,?X!!#@\"!!#BNJ,hopz!!#](Aon\"Qzzzzzzzzzzzzzz!!#o2B4uAezz"
 	ListBox $listCtrl, userdata(ResizeControlsInfo) += A"zzzzzzzzzzzz!!#N3Bk1ct<C]S6zzzzzzzzzz"
 	ListBox $listCtrl, userdata(ResizeControlsInfo) += A"zzz!!#N3Bk1ct<C]S7zzzzzzzzzzzzz!!!"
 
-	CheckBox $sortCtrl, win=$panel, pos={panelBorder+70,SortCtrlTop},size={40,20},value=prefs.panelCheckboxSort
+	CheckBox $sortCtrl, win=$panel, pos={panelBorder+70,SortCtrlTop},size={40,20},value=(prefs.panelCheckboxSort)
 	CheckBox $sortCtrl, win=$panel, title="sort"
 	CheckBox $sortCtrl, win=$panel, proc=$(module + "#checkboxSort")
 
@@ -260,6 +263,42 @@ Function/S getCurrentItem([module, procedure,procedureWithoutModule, index])
 	return "_error_"
 End
 
+// Returns the currently selected item from the panel defined by the optional arguments.
+// Argument is returned as number in current list
+// Exactly one optional argument must be given.
+//
+// module:              return selected NameSpace
+// procedure:           return selected procedure
+// index:               return selected index in listbox
+Function getCurrentItemAsNumeric([module, procedure, index])
+	variable module, procedure, index
+
+	string procName
+
+	module                 =  ParamIsDefault(module)                 ? 0 : 1
+	procedure              =  ParamIsDefault(procedure)              ? 0 : 1
+	index                  =  ParamIsDefault(index)                  ? 0 : 1
+
+	// only one optional argument allowed
+	if(module + procedure + index != 1)
+		return -1 // error
+	endif
+
+	if(module)
+		ControlInfo/W=$panel $moduleCtrl
+	elseif(procedure)
+		ControlInfo/W=$panel $procCtrl
+	elseif(index)
+		ControlInfo/W=$panel $listCtrl
+	endif
+
+	if(V_Value >= 0)
+		return V_Value
+	endif
+
+	return -1 // error
+End
+
 // Updates the the given popup menu
 // Tries to preserve the currently selected item
 Function updatePopup(ctrlName)

procedures/CodeBrowser_preferences.ipf

@@ -6,7 +6,7 @@
 // This file was created by () byte physics Thomas Braun, support@byte-physics.de
 // (c) 2013
 
-static Constant kPrefsVersion = 103
+static Constant kPrefsVersion = 104
 static StrConstant kPackageName = "CodeBrowser"
 static StrConstant kPrefsFileName = "CodeBrowser.bin"
 static Constant kPrefsRecordID = 0
@@ -15,7 +15,10 @@ Structure CodeBrowserPrefs
 	uint32	version		// Preferences structure version number. 100 means 1.00.
 	double panelCoords[4]	// left, top, right, bottom
 	uint32 panelCheckboxSort 	// status of checkbox in createPanel()
-	uint32 reserved[99]	// Reserved for future use
+	uint32 panelNameSpace	// last marked namespace in panel
+	uint32 panelProcedure	// last marked procedure in panel
+	uint32 panelElement	// last marked element in panel
+	uint32 reserved[96]	// Reserved for future use
 EndStructure
 
 //	DefaultPackagePrefsStruct(prefs)
@@ -38,16 +41,20 @@ static Function DefaultPackagePrefsStruct(prefs)
 
 	prefs.panelCheckboxSort = 1
 
+	prefs.panelNameSpace = 1
+	prefs.panelProcedure = 1
+	prefs.panelElement   = 0
+
 	Variable i
-	for(i=0; i<99; i+=1)
+	for(i=0; i<96; i+=1)
 		prefs.reserved[i] = 0
 	endfor
 End
 
 // Fill package prefs structures to match state of panel.
 static Function SyncPackagePrefsStruct(prefs)
 	STRUCT CodeBrowserPrefs &prefs
-	Variable scale
+	Variable scale, selectedItem
 	// Panel does exists. Set prefs to match panel settings.
 	prefs.version = kPrefsVersion
 
@@ -64,6 +71,15 @@ static Function SyncPackagePrefsStruct(prefs)
 	prefs.panelCoords[3] = V_bottom * scale
 
 	prefs.panelCheckboxSort = returnCheckBoxSort()
+
+	selectedItem = getCurrentItemAsNumeric(module = 1)
+	prefs.panelNameSpace = selectedItem < 0 ? 1 : selectedItem
+
+	selectedItem = getCurrentItemAsNumeric(procedure = 1)
+	prefs.panelProcedure = selectedItem < 0 ? 1 : selectedItem
+	
+	selectedItem = getCurrentItemAsNumeric(index = 1)
+	prefs.panelElement   = selectedItem < 0 ? 0 : selectedItem
 End
 
 // InitPackagePrefsStruct(prefs)