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="IND" 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 30*b1cdbd2cSJim Jagielski If not IsHelpFile Then 31*b1cdbd2cSJim Jagielski msgbox(strErr_NoHelpFile) 32*b1cdbd2cSJim Jagielski Exit Sub 33*b1cdbd2cSJim Jagielski End If 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 38*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgIND") 39*b1cdbd2cSJim Jagielski ocbAddTag = oDialog.GetControl("cbAddTag") 40*b1cdbd2cSJim Jagielski 41*b1cdbd2cSJim Jagielski ' Check if bookmarks are allowed here 42*b1cdbd2cSJim Jagielski If IsInList Then 43*b1cdbd2cSJim Jagielski msgbox "No Bookmarks allowed inside a list.", 48, "D'oh!" 44*b1cdbd2cSJim Jagielski Exit Sub 45*b1cdbd2cSJim Jagielski End If 46*b1cdbd2cSJim Jagielski 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski nBookmarkType = IsInBookmark 49*b1cdbd2cSJim Jagielski If nBookmarkType = 1 Then ' inside INDEX bookmark 50*b1cdbd2cSJim Jagielski ocbAddTag.State = 0 51*b1cdbd2cSJim Jagielski End If 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 54*b1cdbd2cSJim Jagielski 55*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 56*b1cdbd2cSJim Jagielski ' Insert the bookmark construction 57*b1cdbd2cSJim Jagielski olbIND = oDialog.GetControl("lbIND") 58*b1cdbd2cSJim Jagielski 59*b1cdbd2cSJim Jagielski If nBookmarkType = 0 Then' not in a bookmark, always add parent tags 60*b1cdbd2cSJim Jagielski bmid = CreateID 61*b1cdbd2cSJim Jagielski ' now check if we are in a para with text (this wouldn't be valid) 62*b1cdbd2cSJim Jagielski If Not(ParaIsEmpty) Then 63*b1cdbd2cSJim Jagielski CR 64*b1cdbd2cSJim Jagielski End If 65*b1cdbd2cSJim Jagielski InsertTag("BOOKMARK_","<BOOKMARK branch=""index"" id=""bm_id" + bmid + """>","hlp_aux_bookmark") 66*b1cdbd2cSJim Jagielski 67*b1cdbd2cSJim Jagielski For i=0 to ubound(olbIND.Items) 68*b1cdbd2cSJim Jagielski LF 69*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 70*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbIND.Items(i)) 71*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 72*b1cdbd2cSJim Jagielski Next i 73*b1cdbd2cSJim Jagielski LF 74*b1cdbd2cSJim Jagielski InsertTagCR("_BOOKMARK","</BOOKMARK>","hlp_aux_bookmark") 75*b1cdbd2cSJim Jagielski 76*b1cdbd2cSJim Jagielski ElseIf nBookmarkType = 1 Then ' in a correct bookmark type 77*b1cdbd2cSJim Jagielski If ocbAddTag.State = 1 Then 78*b1cdbd2cSJim Jagielski If Not(ParaIsEmpty) Then 79*b1cdbd2cSJim Jagielski CR 80*b1cdbd2cSJim Jagielski End If 81*b1cdbd2cSJim Jagielski InsertTag("BOOKMARK_","<BOOKMARK branch=""index"" id=""bm_id" + bmid + """>","hlp_aux_bookmark") 82*b1cdbd2cSJim Jagielski For i=0 to ubound(olbIND.Items) 83*b1cdbd2cSJim Jagielski LF 84*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 85*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbIND.Items(i)) 86*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 87*b1cdbd2cSJim Jagielski Next i 88*b1cdbd2cSJim Jagielski If ocbAddTag.State = 1 Then 89*b1cdbd2cSJim Jagielski LF 90*b1cdbd2cSJim Jagielski InsertTagCR("_BOOKMARK","</BOOKMARK>","hlp_aux_bookmark") 91*b1cdbd2cSJim Jagielski End If 92*b1cdbd2cSJim Jagielski Else 93*b1cdbd2cSJim Jagielski For i=0 to ubound(olbIND.Items) 94*b1cdbd2cSJim Jagielski LF 95*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 96*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbIND.Items(i)) 97*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 98*b1cdbd2cSJim Jagielski Next i 99*b1cdbd2cSJim Jagielski End If 100*b1cdbd2cSJim Jagielski Else ' in a wrong bookmark type 101*b1cdbd2cSJim Jagielski If Not(ParaIsEmpty) Then 102*b1cdbd2cSJim Jagielski CR 103*b1cdbd2cSJim Jagielski End If 104*b1cdbd2cSJim Jagielski InsertTag("BOOKMARK_","<BOOKMARK branch=""index"" id=""bm_id" + bmid + """>","hlp_aux_bookmark") 105*b1cdbd2cSJim Jagielski For i=0 to ubound(olbIND.Items) 106*b1cdbd2cSJim Jagielski LF 107*b1cdbd2cSJim Jagielski InsertTag("BOOKMARKVALUE_","<BOOKMARKVALUE>") 108*b1cdbd2cSJim Jagielski InsertField("BOOKMARKVALUE",olbIND.Items(i)) 109*b1cdbd2cSJim Jagielski InsertTag("_BOOKMARKVALUE","</BOOKMARKVALUE>") 110*b1cdbd2cSJim Jagielski Next i 111*b1cdbd2cSJim Jagielski LF 112*b1cdbd2cSJim Jagielski InsertTagCR("_BOOKMARK","</BOOKMARK>","hlp_aux_bookmark") 113*b1cdbd2cSJim Jagielski End If 114*b1cdbd2cSJim Jagielski End If 115*b1cdbd2cSJim Jagielski 116*b1cdbd2cSJim Jagielski oDialog.dispose 117*b1cdbd2cSJim Jagielski 118*b1cdbd2cSJim JagielskiEnd Sub 119*b1cdbd2cSJim Jagielski 120*b1cdbd2cSJim JagielskiSub AddKeyStroke(Event As Object) 121*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 122*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.RETURN 123*b1cdbd2cSJim Jagielski AddIndexEntry 124*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.SPACE 125*b1cdbd2cSJim Jagielski AddIndexEntry 126*b1cdbd2cSJim Jagielski End Select 127*b1cdbd2cSJim JagielskiEnd Sub 128*b1cdbd2cSJim Jagielski 129*b1cdbd2cSJim JagielskiSub AddIndexEntry 130*b1cdbd2cSJim Jagielski 131*b1cdbd2cSJim Jagielski oTxtLevel1 = oDialog.GetControl("txtLevel1") 132*b1cdbd2cSJim Jagielski oTxtLevel2 = oDialog.GetControl("txtLevel2") 133*b1cdbd2cSJim Jagielski 134*b1cdbd2cSJim Jagielski If oTxtLevel2.Text <> "" Then 135*b1cdbd2cSJim Jagielski IndexEntry = oTxtLevel1.Text + ";" + oTxtLevel2.Text 136*b1cdbd2cSJim Jagielski Else 137*b1cdbd2cSJim Jagielski IndexEntry = oTxtLevel1.Text 138*b1cdbd2cSJim Jagielski End If 139*b1cdbd2cSJim Jagielski 140*b1cdbd2cSJim Jagielski If ((oTxtLevel1.Text = "") OR (IndexEntry = "<Level 1>;<Level 2>")) Then 141*b1cdbd2cSJim Jagielski msgbox "Enter an index entry first." 142*b1cdbd2cSJim Jagielski Else 143*b1cdbd2cSJim Jagielski ' Insert the index entry into the list 144*b1cdbd2cSJim Jagielski olbIND = oDialog.GetControl("lbIND") 145*b1cdbd2cSJim Jagielski olbIND.addItem(IndexEntry,0) 146*b1cdbd2cSJim Jagielski End If 147*b1cdbd2cSJim Jagielski 148*b1cdbd2cSJim JagielskiEnd Sub 149*b1cdbd2cSJim Jagielski 150*b1cdbd2cSJim JagielskiSub RemoveKeyStroke(Event As Object) 151*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 152*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.RETURN 153*b1cdbd2cSJim Jagielski RemoveIndexEntry 154*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.SPACE 155*b1cdbd2cSJim Jagielski RemoveIndexEntry 156*b1cdbd2cSJim Jagielski End Select 157*b1cdbd2cSJim JagielskiEnd Sub 158*b1cdbd2cSJim Jagielski 159*b1cdbd2cSJim Jagielski 160*b1cdbd2cSJim JagielskiSub RemoveIndexEntry 161*b1cdbd2cSJim Jagielski olbIND = oDialog.GetControl("lbIND") 162*b1cdbd2cSJim Jagielski ItemsPos = olbIND.getSelectedItemsPos 163*b1cdbd2cSJim Jagielski For i=0 to ubound(ItemsPos) 164*b1cdbd2cSJim Jagielski olbIND.removeItems(ItemsPos(i)-i,1) 165*b1cdbd2cSJim Jagielski Next i 166*b1cdbd2cSJim JagielskiEnd Sub 167*b1cdbd2cSJim Jagielski 168*b1cdbd2cSJim JagielskiSub KeyPressedAdd(Event As Object) 169*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 170*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.INSERT 171*b1cdbd2cSJim Jagielski AddIndexEntry 172*b1cdbd2cSJim Jagielski End Select 173*b1cdbd2cSJim JagielskiEnd Sub 174*b1cdbd2cSJim Jagielski 175*b1cdbd2cSJim JagielskiSub KeyPressedRemove(Event As Object) 176*b1cdbd2cSJim Jagielski Select Case Event.KeyCode 177*b1cdbd2cSJim Jagielski Case com.sun.star.awt.Key.DELETE 178*b1cdbd2cSJim Jagielski RemoveIndexEntry 179*b1cdbd2cSJim Jagielski End Select 180*b1cdbd2cSJim JagielskiEnd Sub 181*b1cdbd2cSJim Jagielski</script:module> 182