xref: /aoo42x/main/helpauthoring/HelpAuthoring/TOC.xba (revision 1ecadb57)

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TOC" script:language="StarBasic">REM  *****  BASIC  *****

Dim oDialog AS Object
Dim document AS Object

Sub Main
	document = StarDesktop.CurrentComponent

	BasicLibraries.LoadLibrary(&quot;HelpAuthoring&quot;)
	oDialog = LoadDialog(&quot;HelpAuthoring&quot;, &quot;dlgTOC&quot;)
	oDialogModel = oDialog.Model

	ocbAddTag = oDialog.GetControl(&quot;cbAddTag&quot;)

	&apos; Check if bookmarks are allowed here
	If IsInList Then
		msgbox &quot;No Bookmarks allowed inside a list.&quot;, 48, &quot;D&apos;oh!&quot;
		Exit Sub
	End If

	nBookmarkType = IsInBookmark
	If nBookmarkType = 3 Then &apos; inside TOC bookmark
		ocbAddTag.State = 0
	End If

	If oDialog.Execute() = 1 Then
		&apos; Insert the bookmark construction
		olbTOC = oDialog.GetControl(&quot;lbTOC&quot;)

		If nBookmarkType = 0 Then&apos; not in a bookmark, always add parent tags
			bmid = CreateID
			&apos; now check if we are in a para with text (this wouldn&apos;t be valid)
			If Not(ParaIsEmpty) Then
				CR
			End If
			InsertTag(&quot;BOOKMARK_&quot;,&quot;&lt;BOOKMARK branch=&quot;&quot;contents&quot;&quot; id=&quot;&quot;bm_id&quot; + bmid + &quot;&quot;&quot;&gt;&quot;,&quot;hlp_aux_bookmark&quot;)
			For i=0 to ubound(olbTOC.Items)
				LF
				InsertTag(&quot;BOOKMARKVALUE_&quot;,&quot;&lt;BOOKMARKVALUE&gt;&quot;)
				InsertField(&quot;BOOKMARKVALUE&quot;,olbTOC.Items(i))
				InsertTag(&quot;_BOOKMARKVALUE&quot;,&quot;&lt;/BOOKMARKVALUE&gt;&quot;)
			Next i
			LF
			InsertTagCR(&quot;_BOOKMARK&quot;,&quot;&lt;/BOOKMARK&gt;&quot;,&quot;hlp_aux_bookmark&quot;)

		ElseIf nBookmarkType = 3 Then &apos; correct bookmark type
			If ocbAddTag.State = 1 Then
				bmid = CreateID
				&apos; now check if we are in a para with text (this wouldn&apos;t be valid)
				If Not(ParaIsEmpty) Then
					CR
				End If
				InsertTag(&quot;BOOKMARK_&quot;,&quot;&lt;BOOKMARK branch=&quot;&quot;contents&quot;&quot; id=&quot;&quot;bm_id&quot; + bmid + &quot;&quot;&quot;&gt;&quot;,&quot;hlp_aux_bookmark&quot;)
			End If
			For i=0 to ubound(olbTOC.Items)
				LF
				InsertTag(&quot;BOOKMARKVALUE_&quot;,&quot;&lt;BOOKMARKVALUE&gt;&quot;)
				InsertField(&quot;BOOKMARKVALUE&quot;,olbTOC.Items(i))
				InsertTag(&quot;_BOOKMARKVALUE&quot;,&quot;&lt;/BOOKMARKVALUE&gt;&quot;)
			Next i
			If ocbAddTag.State = 1 Then
				LF
				InsertTagCR(&quot;_BOOKMARK&quot;,&quot;&lt;/BOOKMARK&gt;&quot;,&quot;hlp_aux_bookmark&quot;)
			End If
		Else	&apos; wrong bookmark type
			bmid = CreateID
			&apos; now check if we are in a para with text (this wouldn&apos;t be valid)
			If Not(ParaIsEmpty) Then
				CR
			End If
			InsertTag(&quot;BOOKMARK_&quot;,&quot;&lt;BOOKMARK branch=&quot;&quot;contents&quot;&quot; id=&quot;&quot;bm_id&quot; + bmid + &quot;&quot;&quot;&gt;&quot;,&quot;hlp_aux_bookmark&quot;)
			For i=0 to ubound(olbTOC.Items)
				LF
				InsertTag(&quot;BOOKMARKVALUE_&quot;,&quot;&lt;BOOKMARKVALUE&gt;&quot;)
				InsertField(&quot;BOOKMARKVALUE&quot;,olbTOC.Items(i))
				InsertTag(&quot;_BOOKMARKVALUE&quot;,&quot;&lt;/BOOKMARKVALUE&gt;&quot;)
			Next i
			LF
			InsertTagCR(&quot;_BOOKMARK&quot;,&quot;&lt;/BOOKMARK&gt;&quot;,&quot;hlp_aux_bookmark&quot;)
		End If

	End If
	oDialog.dispose

End Sub

Sub RemoveKeyStroke(Event As Object)
	Select Case Event.KeyCode
		Case com.sun.star.awt.Key.RETURN
			RemoveIndexEntry
		Case com.sun.star.awt.Key.SPACE
			RemoveIndexEntry
	End Select
End Sub


Sub RemoveTOCEntry
	olbTOC = oDialog.GetControl(&quot;lbTOC&quot;)
	ItemsPos = olbTOC.getSelectedItemsPos
	For i=0 to ubound(ItemsPos)
		olbTOC.removeItems(ItemsPos(i)-i,1)
	Next i
End Sub

Sub KeyPressedRemove(Event As Object)
	Select Case Event.KeyCode
		Case com.sun.star.awt.Key.DELETE
		RemoveTOCEntry
	End Select
End Sub

Sub AddKeyStroke(Event As Object)
	Select Case Event.KeyCode
		Case com.sun.star.awt.Key.RETURN
			AddTOCEntry
		Case com.sun.star.awt.Key.SPACE
			AddTOCEntry
	End Select
End Sub

Sub AddTOCEntry
		oTxtTOC = oDialog.GetControl(&quot;txtTOC&quot;)
		If (oTxtTOC.Text = &quot;&quot;) Then
			msgbox &quot;Enter a TOC entry first.&quot;
		Else
			&apos; Insert the index entry into the list
			olbTOC = oDialog.GetControl(&quot;lbTOC&quot;)
			olbTOC.addItem(oTxtTOC.Text,0)
		End If

End Sub


</script:module>