xref: /trunk/main/helpauthoring/HelpAuthoring/TOC.xba (revision 66b843ff8f1eedd2e69941f1ea52fa080f01ec28)

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<!--***********************************************************
 *
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 *
 *   http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 *
 ***********************************************************-->
<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>