Type TDocumentObject
	Field Name:String
	Field Parent:TDocumentObject
	Field Stage:Int
	
	Function Create:TDocumentObject(Name:String, Stage:Int)
		Local ReturnMe:TDocumentObject = New TDocumentObject
		ReturnMe.Name = Name
		ReturnMe.Stage = Stage
		Return ReturnMe
	End Function
End Type

Function GetStringBetween:String(str:String, StartChar:String, EndChar:String, StartPos:Int = 0)
	Local startcharpos:Int = Instr(str, StartChar, StartPos)
	If(startcharpos = 0)	' Nicht gefunden
		Return ""
	EndIf
	
	Local endcharpos:Int = Instr(str, EndChar, StartPos)
	If(startcharpos > 0 And endcharpos > 0)
		Local length:Int = endcharpos - startcharpos
		
		Return Mid(str, startcharpos, (length + 1))
	Else
		Return ""
	EndIf
End Function


Function HTMLEdit_UpdateStructwatch(File:String)
		If(FileType(File) = 1)
			ClearTreeView(htmledit_panel_structwatch)
			
			Local BaseNode:TGadget = AddTreeViewNode(StripDir(File), TreeViewRoot(htmledit_panel_structwatch))
			Local ReadMe:TStream = ReadFile(File)
			Local Line:String
			
			Local ObjectList:TList = CreateList()
			Local ThisObj:TDocumentObject = Null
			Local MomStage:Int = 0
			
			' Zunächst ALLE Tags in die Liste:
			Repeat
				Line = Trim(ReadLine(ReadMe))
				If(Line <> "")
					Local NewPos:Int
					For Local MomPos:Int = 1 To (Len(Line) - 2)
						NewPos = Instr(Line, "<", MomPos)
						If(NewPos >= 1)
							Local Name:String = Trim(GetStringBetween(Line, "<", ">", NewPos))
														
							If(Name <> "" And Left(Name, 3) <> "<br" And Left(Name, 2) <> "<!" And Left(Name, 2) <> "<?")
								ThisObj = TDocumentObject.Create(Name, MomStage)
								
								If(Left(Name, 2) = "</")
									MomStage = MomStage - 1
								Else
									MomStage = MomStage + 1
								EndIf
								
								If(Left(Name, 2) <> "</")
									ThisObj.Name = ThisObj.Name + " (" + MomStage + ")"
									DebugLog ThisObj.Name
									ListAddLast(ObjectList, ThisObj)
								EndIf
							EndIf
							
							MomPos = Instr(Line, ">", NewPos)
						EndIf
					Next
				EndIf
			Until Eof(ReadMe)
			CloseFile(ReadMe)
			
			Local TempObject:TDocumentObject
			Local PrevObj:TDocumentObject = Null
			MomStage = 0
				
			For TempObject = EachIn ObjectList
				AddTreeViewNode(TempObject.Name, BaseNode)
			Next
		EndIf
	End Function