1*b1cdbd2cSJim Jagielski<?xml version="1.0" encoding="UTF-8"?> 2*b1cdbd2cSJim Jagielski<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*b1cdbd2cSJim Jagielski<!--*********************************************************** 4*b1cdbd2cSJim Jagielski * 5*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one 6*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file 7*b1cdbd2cSJim Jagielski * distributed with this work for additional information 8*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file 9*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the 10*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance 11*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at 12*b1cdbd2cSJim Jagielski * 13*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0 14*b1cdbd2cSJim Jagielski * 15*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing, 16*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an 17*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the 19*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations 20*b1cdbd2cSJim Jagielski * under the License. 21*b1cdbd2cSJim Jagielski * 22*b1cdbd2cSJim Jagielski ***********************************************************--> 23*b1cdbd2cSJim Jagielski<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TOC" script:language="StarBasic">REM ***** BASIC ***** 24*b1cdbd2cSJim Jagielski 25*b1cdbd2cSJim JagielskiDim oDialog AS Object 26*b1cdbd2cSJim JagielskiDim document AS Object 27*b1cdbd2cSJim Jagielski 28*b1cdbd2cSJim JagielskiSub Main 29*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 30*b1cdbd2cSJim Jagielski 31*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 32*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgTOC") 33*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim Jagielski ocbAddTag = oDialog.GetControl("cbAddTag") 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim Jagielski ' Check if bookmarks are allowed here 38*b1cdbd2cSJim Jagielski If IsInList Then 39*b1cdbd2cSJim Jagielski msgbox "No Bookmarks allowed inside a list.", 48, "D'oh!" 40*b1cdbd2cSJim Jagielski Exit Sub 41*b1cdbd2cSJim Jagielski End If 42*b1cdbd2cSJim Jagielski 43*b1cdbd2cSJim Jagielski nBookmarkType = IsInBookmark 44*b1cdbd2cSJim Jagielski If nBookmarkType = 3 Then ' inside TOC bookmark 45*b1cdbd2cSJim Jagielski ocbAddTag.State = 0 46*b1cdbd2cSJim Jagielski End If 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 49*b1cdbd2cSJim Jagielski ' Insert the bookmark construction 50*b1cdbd2cSJim Jagielski olbTOC = oDialog.GetControl("lbTOC") 51*b1cdbd2cSJim Jagielski 52*b1cdbd2cSJim Jagielski If nBookmarkType = 0 Then' not in a bookmark, always add parent tags 53*b1cdbd2cSJim Jagielski bmid = CreateID 54*b1cdbd2cSJim Jagielski ' now check if we are in a para with text (this wouldn't be valid) 55*b1cdbd2cSJim Jagielski If Not(ParaIsEmpty) Then 56*b1cdbd2cSJim Jagielski CR 57*b1cdbd2cSJim Jagielski End If 58*b1cdbd2cSJim Jagielski InsertTag("BOOKMARK_","<BOOKMARK branch=""contents"" id=""bm_id" + bmid + """>","hlp_aux_bookmark") 59*b1cdbd2cSJim Jagielski For i=0 to ubound(olbTOC.Items) 60*b1cdbd2cSJim Jagielski LF 61*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 62*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbTOC.Items(i)) 63*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 64*b1cdbd2cSJim Jagielski Next i 65*b1cdbd2cSJim Jagielski LF 66*b1cdbd2cSJim Jagielski InsertTagCR("_BOOKMARK","</BOOKMARK>","hlp_aux_bookmark") 67*b1cdbd2cSJim Jagielski 68*b1cdbd2cSJim Jagielski ElseIf nBookmarkType = 3 Then ' correct bookmark type 69*b1cdbd2cSJim Jagielski If ocbAddTag.State = 1 Then 70*b1cdbd2cSJim Jagielski bmid = CreateID 71*b1cdbd2cSJim Jagielski ' now check if we are in a para with text (this wouldn't be valid) 72*b1cdbd2cSJim Jagielski If Not(ParaIsEmpty) Then 73*b1cdbd2cSJim Jagielski CR 74*b1cdbd2cSJim Jagielski End If 75*b1cdbd2cSJim Jagielski InsertTag("BOOKMARK_","<BOOKMARK branch=""contents"" id=""bm_id" + bmid + """>","hlp_aux_bookmark") 76*b1cdbd2cSJim Jagielski End If 77*b1cdbd2cSJim Jagielski For i=0 to ubound(olbTOC.Items) 78*b1cdbd2cSJim Jagielski LF 79*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 80*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbTOC.Items(i)) 81*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 82*b1cdbd2cSJim Jagielski Next i 83*b1cdbd2cSJim Jagielski If ocbAddTag.State = 1 Then 84*b1cdbd2cSJim Jagielski LF 85*b1cdbd2cSJim Jagielski InsertTagCR("_BOOKMARK","</BOOKMARK>","hlp_aux_bookmark") 86*b1cdbd2cSJim Jagielski End If 87*b1cdbd2cSJim Jagielski Else ' wrong bookmark type 88*b1cdbd2cSJim Jagielski bmid = CreateID 89*b1cdbd2cSJim Jagielski ' now check if we are in a para with text (this wouldn't be valid) 90*b1cdbd2cSJim Jagielski If Not(ParaIsEmpty) Then 91*b1cdbd2cSJim Jagielski CR 92*b1cdbd2cSJim Jagielski End If 93*b1cdbd2cSJim Jagielski InsertTag("BOOKMARK_","<BOOKMARK branch=""contents"" id=""bm_id" + bmid + """>","hlp_aux_bookmark") 94*b1cdbd2cSJim Jagielski For i=0 to ubound(olbTOC.Items) 95*b1cdbd2cSJim Jagielski LF 96*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 97*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbTOC.Items(i)) 98*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 99*b1cdbd2cSJim Jagielski Next i 100*b1cdbd2cSJim Jagielski LF 101*b1cdbd2cSJim Jagielski InsertTagCR("_BOOKMARK","</BOOKMARK>","hlp_aux_bookmark") 102*b1cdbd2cSJim Jagielski End If 103*b1cdbd2cSJim Jagielski 104*b1cdbd2cSJim Jagielski End If 105*b1cdbd2cSJim Jagielski oDialog.dispose 106*b1cdbd2cSJim Jagielski 107*b1cdbd2cSJim JagielskiEnd Sub 108*b1cdbd2cSJim Jagielski 109*b1cdbd2cSJim JagielskiSub RemoveKeyStroke(Event As Object) 110*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 111*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.RETURN 112*b1cdbd2cSJim Jagielski RemoveIndexEntry 113*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.SPACE 114*b1cdbd2cSJim Jagielski RemoveIndexEntry 115*b1cdbd2cSJim Jagielski End Select 116*b1cdbd2cSJim JagielskiEnd Sub 117*b1cdbd2cSJim Jagielski 118*b1cdbd2cSJim Jagielski 119*b1cdbd2cSJim JagielskiSub RemoveTOCEntry 120*b1cdbd2cSJim Jagielski olbTOC = oDialog.GetControl("lbTOC") 121*b1cdbd2cSJim Jagielski ItemsPos = olbTOC.getSelectedItemsPos 122*b1cdbd2cSJim Jagielski For i=0 to ubound(ItemsPos) 123*b1cdbd2cSJim Jagielski olbTOC.removeItems(ItemsPos(i)-i,1) 124*b1cdbd2cSJim Jagielski Next i 125*b1cdbd2cSJim JagielskiEnd Sub 126*b1cdbd2cSJim Jagielski 127*b1cdbd2cSJim JagielskiSub KeyPressedRemove(Event As Object) 128*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 129*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.DELETE 130*b1cdbd2cSJim Jagielski RemoveTOCEntry 131*b1cdbd2cSJim Jagielski End Select 132*b1cdbd2cSJim JagielskiEnd Sub 133*b1cdbd2cSJim Jagielski 134*b1cdbd2cSJim JagielskiSub AddKeyStroke(Event As Object) 135*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 136*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.RETURN 137*b1cdbd2cSJim Jagielski AddTOCEntry 138*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.SPACE 139*b1cdbd2cSJim Jagielski AddTOCEntry 140*b1cdbd2cSJim Jagielski End Select 141*b1cdbd2cSJim JagielskiEnd Sub 142*b1cdbd2cSJim Jagielski 143*b1cdbd2cSJim JagielskiSub AddTOCEntry 144*b1cdbd2cSJim Jagielski oTxtTOC = oDialog.GetControl("txtTOC") 145*b1cdbd2cSJim Jagielski If (oTxtTOC.Text = "") Then 146*b1cdbd2cSJim Jagielski msgbox "Enter a TOC entry first." 147*b1cdbd2cSJim Jagielski Else 148*b1cdbd2cSJim Jagielski ' Insert the index entry into the list 149*b1cdbd2cSJim Jagielski olbTOC = oDialog.GetControl("lbTOC") 150*b1cdbd2cSJim Jagielski olbTOC.addItem(oTxtTOC.Text,0) 151*b1cdbd2cSJim Jagielski End If 152*b1cdbd2cSJim Jagielski 153*b1cdbd2cSJim JagielskiEnd Sub 154*b1cdbd2cSJim Jagielski 155*b1cdbd2cSJim Jagielski 156*b1cdbd2cSJim Jagielski</script:module> 157