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="Comment" script:language="StarBasic">' *** MODULE COMMENT *** 24*b1cdbd2cSJim Jagielski 25*b1cdbd2cSJim JagielskiDim oDialog AS Object 26*b1cdbd2cSJim JagielskiDim document AS Object 27*b1cdbd2cSJim Jagielski 28*b1cdbd2cSJim Jagielski'======================================================= 29*b1cdbd2cSJim Jagielski' Main 30*b1cdbd2cSJim Jagielski'------------------------------------------------------- 31*b1cdbd2cSJim Jagielski' Inserts a comment 32*b1cdbd2cSJim Jagielski'======================================================= 33*b1cdbd2cSJim JagielskiSub Main 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim Jagielski If not IsHelpFile Then 36*b1cdbd2cSJim Jagielski msgbox(strErr_NoHelpFile) 37*b1cdbd2cSJim Jagielski Exit Sub 38*b1cdbd2cSJim Jagielski End If 39*b1cdbd2cSJim Jagielski 40*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 41*b1cdbd2cSJim Jagielski 42*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 43*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgComment") 44*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 45*b1cdbd2cSJim Jagielski 46*b1cdbd2cSJim Jagielski if not IsHelpFile Then 47*b1cdbd2cSJim Jagielski msgbox(strErr_NoHelpFile) 48*b1cdbd2cSJim Jagielski Exit Sub 49*b1cdbd2cSJim Jagielski End If 50*b1cdbd2cSJim Jagielski 51*b1cdbd2cSJim Jagielski oTxtComment = oDialog.GetControl("txtComment") 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 54*b1cdbd2cSJim Jagielski oSel = thiscomponent.getcurrentcontroller.getselection 55*b1cdbd2cSJim Jagielski oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 56*b1cdbd2cSJim Jagielski oCur.gotoStartOfParagraph(0) 57*b1cdbd2cSJim Jagielski oCur.gotoEndOfParagraph(1) 58*b1cdbd2cSJim Jagielski 59*b1cdbd2cSJim Jagielski If oCur.GetString = "" Then 60*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_comment") 61*b1cdbd2cSJim Jagielski End If 62*b1cdbd2cSJim Jagielski 63*b1cdbd2cSJim Jagielski If oTxtComment.Text <> "" Then 64*b1cdbd2cSJim Jagielski InsertTag("COMMENT_","<COMMENT>") 65*b1cdbd2cSJim Jagielski SetCharStyle("hlp_aux_comment") 66*b1cdbd2cSJim Jagielski InsertTag("COMMENT",oTxtComment.Text) 67*b1cdbd2cSJim Jagielski InsertTag("_COMMENT","</COMMENT>") 68*b1cdbd2cSJim Jagielski End If 69*b1cdbd2cSJim Jagielski End If 70*b1cdbd2cSJim Jagielski 71*b1cdbd2cSJim Jagielski oDialog.dispose 72*b1cdbd2cSJim Jagielski 73*b1cdbd2cSJim JagielskiEnd Sub 74*b1cdbd2cSJim Jagielski 75*b1cdbd2cSJim Jagielski</script:module> 76