panel state

also top row visible is beeing saved for readability reasons

Author: Matthias Kastner

procedures/CodeBrowser_gui.ipf

@@ -75,7 +75,7 @@ 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, win=$panel, selRow=prefs.panelElement, row=prefs.panelTopElement
 
 	ListBox $listCtrl, userdata(ResizeControlsInfo)= A"!!,?X!!#@\"!!#BNJ,hopz!!#](Aon\"Qzzzzzzzzzzzzzz!!#o2B4uAezz"
 	ListBox $listCtrl, userdata(ResizeControlsInfo) += A"zzzzzzzzzzzz!!#N3Bk1ct<C]S6zzzzzzzzzz"
@@ -270,29 +270,33 @@ End
 // module:              return selected NameSpace
 // procedure:           return selected procedure
 // index:               return selected index in listbox
-Function getCurrentItemAsNumeric([module, procedure, index])
-	variable module, procedure, index
+Function getCurrentItemAsNumeric([module, procedure, index, indexTop])
+	variable module, procedure, index, indexTop
 
 	string procName
 
 	module                 =  ParamIsDefault(module)                 ? 0 : 1
 	procedure              =  ParamIsDefault(procedure)              ? 0 : 1
 	index                  =  ParamIsDefault(index)                  ? 0 : 1
+	indexTop               =  ParamIsDefault(indexTop)               ? 0 : 1
 
 	// only one optional argument allowed
-	if(module + procedure + index != 1)
+	if(module + procedure + index + indexTop != 1)
 		return -1 // error
 	endif
 
 	if(module)
 		ControlInfo/W=$panel $moduleCtrl
 	elseif(procedure)
 		ControlInfo/W=$panel $procCtrl
-	elseif(index)
+	elseif(index || indexTop)
 		ControlInfo/W=$panel $listCtrl
 	endif
 
 	if(V_Value >= 0)
+		if (indexTop)
+			return V_startRow
+		endif
 		return V_Value
 	endif
 

procedures/CodeBrowser_preferences.ipf

@@ -6,7 +6,7 @@
 // This file was created by () byte physics Thomas Braun, [email protected]
 // (c) 2013
 
-static Constant kPrefsVersion = 104
+static Constant kPrefsVersion = 105
 static StrConstant kPackageName = "CodeBrowser"
 static StrConstant kPrefsFileName = "CodeBrowser.bin"
 static Constant kPrefsRecordID = 0
@@ -18,7 +18,8 @@ Structure CodeBrowserPrefs
 	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
+	uint32 panelTopElement // top element in listbox (scrolling)
+	uint32 reserved[95]	// Reserved for future use
 EndStructure
 
 //	DefaultPackagePrefsStruct(prefs)
@@ -44,9 +45,10 @@ static Function DefaultPackagePrefsStruct(prefs)
 	prefs.panelNameSpace = 1
 	prefs.panelProcedure = 1
 	prefs.panelElement   = 0
+	prefs.panelTopElement= 0
 
 	Variable i
-	for(i=0; i<96; i+=1)
+	for(i=0; i<95; i+=1)
 		prefs.reserved[i] = 0
 	endfor
 End
@@ -80,6 +82,9 @@ static Function SyncPackagePrefsStruct(prefs)
 
 	selectedItem = getCurrentItemAsNumeric(index = 1)
 	prefs.panelElement   = selectedItem < 0 ? 0 : selectedItem
+	
+	selectedItem = getCurrentItemAsNumeric(indexTop = 1)
+	prefs.panelTopElement   = selectedItem < 0 ? 0 : selectedItem
 End
 
 // InitPackagePrefsStruct(prefs)