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="Switch" 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 JagielskiEnd Sub 30*b1cdbd2cSJim Jagielski 31*b1cdbd2cSJim JagielskiSub InsertSwitch 32*b1cdbd2cSJim Jagielski InsertSwitchTag(FALSE) 33*b1cdbd2cSJim JagielskiEnd Sub 34*b1cdbd2cSJim Jagielski 35*b1cdbd2cSJim JagielskiSub InsertSwitchInline 36*b1cdbd2cSJim Jagielski InsertSwitchTag(TRUE) 37*b1cdbd2cSJim JagielskiEnd Sub 38*b1cdbd2cSJim Jagielski 39*b1cdbd2cSJim JagielskiSub InsertSwitchTag(bInline As Boolean) 40*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 41*b1cdbd2cSJim Jagielski Dim oCur as Object 42*b1cdbd2cSJim Jagielski 43*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 44*b1cdbd2cSJim Jagielski 45*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgSwitch") 46*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski oOptSys = oDialog.GetControl("opSwitchSystem") 49*b1cdbd2cSJim Jagielski oOptAppl = oDialog.GetControl("opSwitchAppl") 50*b1cdbd2cSJim Jagielski oOptDistrib = oDialog.GetControl("opSwitchDistrib") 51*b1cdbd2cSJim Jagielski 52*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 53*b1cdbd2cSJim Jagielski If oOptSys.State Then 54*b1cdbd2cSJim Jagielski sType = "sys" 55*b1cdbd2cSJim Jagielski ElseIf oOptAppl.State Then 56*b1cdbd2cSJim Jagielski sType = "appl" 57*b1cdbd2cSJim Jagielski ElseIf oOptDistrib.State Then 58*b1cdbd2cSJim Jagielski sType = "distrib" 59*b1cdbd2cSJim Jagielski End If 60*b1cdbd2cSJim Jagielski Else 61*b1cdbd2cSJim Jagielski End If 62*b1cdbd2cSJim Jagielski oDialog.Dispose 63*b1cdbd2cSJim Jagielski 64*b1cdbd2cSJim Jagielski If bInline Then 65*b1cdbd2cSJim Jagielski oSel = thiscomponent.getcurrentcontroller.getselection 66*b1cdbd2cSJim Jagielski oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 67*b1cdbd2cSJim Jagielski 68*b1cdbd2cSJim Jagielski oStart = oCur.getStart 69*b1cdbd2cSJim Jagielski oCurStart = oStart.getText.createTextCursorByRange(oStart) 70*b1cdbd2cSJim Jagielski 71*b1cdbd2cSJim Jagielski oEnd = oCur.getEnd 72*b1cdbd2cSJim Jagielski oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 73*b1cdbd2cSJim Jagielski 74*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(oCurStart) 75*b1cdbd2cSJim Jagielski InsertTag("SWITCHINLINE_","<SWITCHINLINE select=""" + sType + """>","hlp_aux_switch") 76*b1cdbd2cSJim Jagielski InsertCase(sType,TRUE,oCur) 77*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(oCurEnd) 78*b1cdbd2cSJim Jagielski CloseSwitchInline 79*b1cdbd2cSJim Jagielski GoLeft(1) 80*b1cdbd2cSJim Jagielski Else 81*b1cdbd2cSJim Jagielski CR_before 82*b1cdbd2cSJim Jagielski GoUp(1) 83*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_switch") 84*b1cdbd2cSJim Jagielski InsertTag("SWITCH_","<SWITCH select=""" + sType + """>","hlp_aux_switch") 85*b1cdbd2cSJim Jagielski GoLeft(1) 86*b1cdbd2cSJim Jagielski GoDown(1) 87*b1cdbd2cSJim Jagielski SetCharStyle("Default") 88*b1cdbd2cSJim Jagielski CloseSwitch 89*b1cdbd2cSJim Jagielski GoUp(1) 90*b1cdbd2cSJim Jagielski InsertCase(sType,FALSE,oCur) 91*b1cdbd2cSJim Jagielski End If 92*b1cdbd2cSJim JagielskiEnd Sub 93*b1cdbd2cSJim Jagielski 94*b1cdbd2cSJim JagielskiSub InsertCaseElement 95*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 96*b1cdbd2cSJim Jagielski Dim oCur as Object 97*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 98*b1cdbd2cSJim Jagielski 99*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgSwitch") 100*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 101*b1cdbd2cSJim Jagielski 102*b1cdbd2cSJim Jagielski oOptSys = oDialog.GetControl("opSwitchSystem") 103*b1cdbd2cSJim Jagielski oOptAppl = oDialog.GetControl("opSwitchAppl") 104*b1cdbd2cSJim Jagielski oOptDistrib = oDialog.GetControl("opSwitchDistrib") 105*b1cdbd2cSJim Jagielski 106*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 107*b1cdbd2cSJim Jagielski If oOptSys.State Then 108*b1cdbd2cSJim Jagielski sType = "sys" 109*b1cdbd2cSJim Jagielski ElseIf oOptAppl.State Then 110*b1cdbd2cSJim Jagielski sType = "appl" 111*b1cdbd2cSJim Jagielski ElseIf oOptDistrib.State Then 112*b1cdbd2cSJim Jagielski sType = "distrib" 113*b1cdbd2cSJim Jagielski End If 114*b1cdbd2cSJim Jagielski Else 115*b1cdbd2cSJim Jagielski End If 116*b1cdbd2cSJim Jagielski oDialog.Dispose 117*b1cdbd2cSJim Jagielski 118*b1cdbd2cSJim Jagielski InsertCase(sType,FALSE,oCur) 119*b1cdbd2cSJim Jagielski 120*b1cdbd2cSJim JagielskiEnd Sub 121*b1cdbd2cSJim Jagielski 122*b1cdbd2cSJim JagielskiSub InsertDefaultElement 123*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 124*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 125*b1cdbd2cSJim Jagielski 126*b1cdbd2cSJim Jagielski InsertDefault 127*b1cdbd2cSJim JagielskiEnd Sub 128*b1cdbd2cSJim Jagielski 129*b1cdbd2cSJim JagielskiSub InsertCaseInlineElement 130*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 131*b1cdbd2cSJim Jagielski Dim oCur as Object 132*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 133*b1cdbd2cSJim Jagielski 134*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgSwitch") 135*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 136*b1cdbd2cSJim Jagielski 137*b1cdbd2cSJim Jagielski oOptSys = oDialog.GetControl("opSwitchSystem") 138*b1cdbd2cSJim Jagielski oOptAppl = oDialog.GetControl("opSwitchAppl") 139*b1cdbd2cSJim Jagielski oOptDistrib = oDialog.GetControl("opSwitchDistrib") 140*b1cdbd2cSJim Jagielski 141*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 142*b1cdbd2cSJim Jagielski If oOptSys.State Then 143*b1cdbd2cSJim Jagielski sType = "sys" 144*b1cdbd2cSJim Jagielski ElseIf oOptAppl.State Then 145*b1cdbd2cSJim Jagielski sType = "appl" 146*b1cdbd2cSJim Jagielski ElseIf oOptDistrib.State Then 147*b1cdbd2cSJim Jagielski sType = "distrib" 148*b1cdbd2cSJim Jagielski End If 149*b1cdbd2cSJim Jagielski Else 150*b1cdbd2cSJim Jagielski End If 151*b1cdbd2cSJim Jagielski oDialog.Dispose 152*b1cdbd2cSJim Jagielski 153*b1cdbd2cSJim Jagielski oSel = thiscomponent.getcurrentcontroller.getselection 154*b1cdbd2cSJim Jagielski oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 155*b1cdbd2cSJim Jagielski 156*b1cdbd2cSJim Jagielski oStart = oCur.getStart 157*b1cdbd2cSJim Jagielski oCurStart = oStart.getText.createTextCursorByRange(oStart) 158*b1cdbd2cSJim Jagielski 159*b1cdbd2cSJim Jagielski oEnd = oCur.getEnd 160*b1cdbd2cSJim Jagielski oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 161*b1cdbd2cSJim Jagielski 162*b1cdbd2cSJim Jagielski InsertCase(sType,TRUE,oCur) 163*b1cdbd2cSJim Jagielski GoLeft(1) 164*b1cdbd2cSJim JagielskiEnd Sub 165*b1cdbd2cSJim Jagielski 166*b1cdbd2cSJim JagielskiSub InsertDefaultInlineElement 167*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 168*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 169*b1cdbd2cSJim Jagielski 170*b1cdbd2cSJim Jagielski oSel = thiscomponent.getcurrentcontroller.getselection 171*b1cdbd2cSJim Jagielski oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 172*b1cdbd2cSJim Jagielski 173*b1cdbd2cSJim Jagielski oStart = oCur.getStart 174*b1cdbd2cSJim Jagielski oCurStart = oStart.getText.createTextCursorByRange(oStart) 175*b1cdbd2cSJim Jagielski 176*b1cdbd2cSJim Jagielski oEnd = oCur.getEnd 177*b1cdbd2cSJim Jagielski oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 178*b1cdbd2cSJim Jagielski 179*b1cdbd2cSJim Jagielski InsertDefaultInline(oCur) 180*b1cdbd2cSJim Jagielski GoLeft(1) 181*b1cdbd2cSJim JagielskiEnd Sub 182*b1cdbd2cSJim Jagielski 183*b1cdbd2cSJim Jagielski 184*b1cdbd2cSJim JagielskiSub InsertCaseSys 185*b1cdbd2cSJim Jagielski InsertCase("sys",FALSE) 186*b1cdbd2cSJim JagielskiEnd Sub 187*b1cdbd2cSJim Jagielski 188*b1cdbd2cSJim JagielskiSub InsertCaseAppl 189*b1cdbd2cSJim Jagielski InsertCase("appl",FALSE) 190*b1cdbd2cSJim JagielskiEnd Sub 191*b1cdbd2cSJim Jagielski 192*b1cdbd2cSJim JagielskiSub InsertCaseDistrib 193*b1cdbd2cSJim Jagielski InsertCase("distrib",FALSE) 194*b1cdbd2cSJim JagielskiEnd Sub 195*b1cdbd2cSJim Jagielski 196*b1cdbd2cSJim JagielskiSub InsertCaseInlineSys 197*b1cdbd2cSJim Jagielski InsertCase("sys",TRUE) 198*b1cdbd2cSJim JagielskiEnd Sub 199*b1cdbd2cSJim Jagielski 200*b1cdbd2cSJim JagielskiSub InsertCaseInlineAppl 201*b1cdbd2cSJim Jagielski InsertCase("appl",TRUE) 202*b1cdbd2cSJim JagielskiEnd Sub 203*b1cdbd2cSJim Jagielski 204*b1cdbd2cSJim JagielskiSub InsertCaseInlineDistrib 205*b1cdbd2cSJim Jagielski InsertCase("distrib",TRUE) 206*b1cdbd2cSJim JagielskiEnd Sub 207*b1cdbd2cSJim Jagielski 208*b1cdbd2cSJim JagielskiSub InsertDefaultInline(oCur as Object) 209*b1cdbd2cSJim Jagielski oSel = thiscomponent.getcurrentcontroller.getselection 210*b1cdbd2cSJim Jagielski 'oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 211*b1cdbd2cSJim Jagielski 212*b1cdbd2cSJim Jagielski oStart = oCur.getStart 213*b1cdbd2cSJim Jagielski oCurStart = oStart.getText.createTextCursorByRange(oStart) 214*b1cdbd2cSJim Jagielski 215*b1cdbd2cSJim Jagielski oEnd = oCur.getEnd 216*b1cdbd2cSJim Jagielski oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 217*b1cdbd2cSJim Jagielski 218*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(oCurStart) 219*b1cdbd2cSJim Jagielski InsertTag("DEFAULTINLINE_","<DEFAULTINLINE>") 220*b1cdbd2cSJim Jagielski 221*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(oCurEnd) 222*b1cdbd2cSJim Jagielski InsertTag("_DEFAULTINLINE","</DEFAULTINLINE>") 223*b1cdbd2cSJim JagielskiEnd Sub 224*b1cdbd2cSJim Jagielski 225*b1cdbd2cSJim JagielskiSub InsertCase(sType As String, bInline As Boolean,oCur As Object) 226*b1cdbd2cSJim Jagielski document = StarDesktop.CurrentComponent 227*b1cdbd2cSJim Jagielski 228*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 229*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgCase") 230*b1cdbd2cSJim Jagielski oDialogModel = oDialog.Model 231*b1cdbd2cSJim Jagielski 232*b1cdbd2cSJim Jagielski oOptPredefined = oDialog.GetControl("opPredefined") 233*b1cdbd2cSJim Jagielski oCbPredefined = oDialog.GetControl("cbPredefined") 234*b1cdbd2cSJim Jagielski oOptSpecify = oDialog.GetControl("opSpecify") 235*b1cdbd2cSJim Jagielski oTxtSpecify = oDialog.GetControl("txtSpecify") 236*b1cdbd2cSJim Jagielski oTxtSpecify.setVisible(FALSE) 237*b1cdbd2cSJim Jagielski 238*b1cdbd2cSJim Jagielski If sType = "sys" Then 239*b1cdbd2cSJim Jagielski arItems = Array("WIN","UNIX","MAC") 240*b1cdbd2cSJim Jagielski ElseIf sType = "appl" Then 241*b1cdbd2cSJim Jagielski arItems = Array("CALC","CHART","DRAW","IMPRESS","MATH","WRITER","BASIC") 242*b1cdbd2cSJim Jagielski ElseIf sType = "distrib" Then 243*b1cdbd2cSJim Jagielski arItems = Array("OPENSOURCE","COMMERCIAL") 244*b1cdbd2cSJim Jagielski Else 245*b1cdbd2cSJim Jagielski msgbox "Unknown Case. Go tell Frank about this",0,"D'oh!" 246*b1cdbd2cSJim Jagielski Exit Sub 247*b1cdbd2cSJim Jagielski End If 248*b1cdbd2cSJim Jagielski 249*b1cdbd2cSJim Jagielski oCbPredefined.AddItems(arItems,ubound(arItems)) 250*b1cdbd2cSJim Jagielski oCbPredefined.SetText(arItems(0)) 251*b1cdbd2cSJim Jagielski 252*b1cdbd2cSJim Jagielski If oDialog.Execute() = 1 Then 253*b1cdbd2cSJim Jagielski 254*b1cdbd2cSJim Jagielski If oOptPredefined.State Then 255*b1cdbd2cSJim Jagielski sSelect = oCbPredefined.GetText 256*b1cdbd2cSJim Jagielski Else 257*b1cdbd2cSJim Jagielski sSelect = oTxtSpecify.Text 258*b1cdbd2cSJim Jagielski End If 259*b1cdbd2cSJim Jagielski 260*b1cdbd2cSJim Jagielski If bInline Then 261*b1cdbd2cSJim Jagielski oSel = thiscomponent.getcurrentcontroller.getselection 262*b1cdbd2cSJim Jagielski 'oCur = oSel(0).getText.createTextCursorByRange(oSel(0)) 263*b1cdbd2cSJim Jagielski 264*b1cdbd2cSJim Jagielski oStart = oCur.getStart 265*b1cdbd2cSJim Jagielski oCurStart = oStart.getText.createTextCursorByRange(oStart) 266*b1cdbd2cSJim Jagielski 267*b1cdbd2cSJim Jagielski oEnd = oCur.getEnd 268*b1cdbd2cSJim Jagielski oCurEnd = oEnd.getText.createTextCursorByRange(oEnd) 269*b1cdbd2cSJim Jagielski 270*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(oCurStart) 271*b1cdbd2cSJim Jagielski InsertTag("CASEINLINE_","<CASEINLINE select="""+sSelect+""">") 272*b1cdbd2cSJim Jagielski 273*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(oCurEnd) 274*b1cdbd2cSJim Jagielski InsertTag("_CASEINLINE","</CASEINLINE>") 275*b1cdbd2cSJim Jagielski Else 276*b1cdbd2cSJim Jagielski CR_before 277*b1cdbd2cSJim Jagielski GoUp(1) 278*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_switch") 279*b1cdbd2cSJim Jagielski InsertTag("CASE_","<CASE select=""" + sSelect+""">","hlp_aux_switch") 280*b1cdbd2cSJim Jagielski GoLeft(1) 281*b1cdbd2cSJim Jagielski GoDown(1) 282*b1cdbd2cSJim Jagielski SetCharStyle("Default") 283*b1cdbd2cSJim Jagielski CloseCase 284*b1cdbd2cSJim Jagielski GoUp(1) 285*b1cdbd2cSJim Jagielski End If 286*b1cdbd2cSJim Jagielski End If 287*b1cdbd2cSJim Jagielski oDialog.dispose 288*b1cdbd2cSJim JagielskiEnd Sub 289*b1cdbd2cSJim Jagielski 290*b1cdbd2cSJim JagielskiSub StatusChange 291*b1cdbd2cSJim Jagielski oOptPredefined = oDialog.GetControl("opPredefined") 292*b1cdbd2cSJim Jagielski oCbPredefined = oDialog.GetControl("cbPredefined") 293*b1cdbd2cSJim Jagielski oOptSpecify = oDialog.GetControl("opSpecify") 294*b1cdbd2cSJim Jagielski oTxtSpecify = oDialog.GetControl("txtSpecify") 295*b1cdbd2cSJim Jagielski 296*b1cdbd2cSJim Jagielski If oOptPredefined.State Then 297*b1cdbd2cSJim Jagielski oCbPredefined.setVisible(TRUE) 298*b1cdbd2cSJim Jagielski oTxtSpecify.setVisible(FALSE) 299*b1cdbd2cSJim Jagielski ElseIf oOptSpecify.State Then 300*b1cdbd2cSJim Jagielski oCbPredefined.setVisible(FALSE) 301*b1cdbd2cSJim Jagielski oTxtSpecify.setVisible(TRUE) 302*b1cdbd2cSJim Jagielski End If 303*b1cdbd2cSJim JagielskiEnd Sub 304*b1cdbd2cSJim Jagielski 305*b1cdbd2cSJim JagielskiSub CloseCase 306*b1cdbd2cSJim Jagielski CR 307*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_switch") 308*b1cdbd2cSJim Jagielski InsertTag("_CASE","</CASE>","hlp_aux_switch") 309*b1cdbd2cSJim JagielskiEnd Sub 310*b1cdbd2cSJim Jagielski 311*b1cdbd2cSJim JagielskiSub InsertDefault 312*b1cdbd2cSJim Jagielski CR_before 313*b1cdbd2cSJim Jagielski GoUp(1) 314*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_switch") 315*b1cdbd2cSJim Jagielski InsertTag("DEFAULT_","<DEFAULT>","hlp_aux_switch") 316*b1cdbd2cSJim Jagielski GoLeft(1) 317*b1cdbd2cSJim Jagielski GoDown(1) 318*b1cdbd2cSJim Jagielski SetCharStyle("Default") 319*b1cdbd2cSJim Jagielski CloseDefault 320*b1cdbd2cSJim Jagielski GoUp(1) 321*b1cdbd2cSJim JagielskiEnd Sub 322*b1cdbd2cSJim Jagielski 323*b1cdbd2cSJim JagielskiSub CloseDefault 324*b1cdbd2cSJim Jagielski CR 325*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_switch") 326*b1cdbd2cSJim Jagielski InsertTag("_DEFAULT","</DEFAULT>","hlp_aux_switch") 327*b1cdbd2cSJim JagielskiEnd Sub 328*b1cdbd2cSJim Jagielski 329*b1cdbd2cSJim JagielskiSub CloseSwitch 330*b1cdbd2cSJim Jagielski CR 331*b1cdbd2cSJim Jagielski SetParaStyle("hlp_aux_switch") 332*b1cdbd2cSJim Jagielski InsertTag("_SWITCH","</SWITCH>","hlp_aux_switch") 333*b1cdbd2cSJim JagielskiEnd Sub 334*b1cdbd2cSJim Jagielski 335*b1cdbd2cSJim JagielskiSub CloseSwitchInline 336*b1cdbd2cSJim Jagielski InsertTag("_SWITCHINLINE","</SWITCHINLINE>") 337*b1cdbd2cSJim JagielskiEnd Sub 338*b1cdbd2cSJim Jagielski</script:module> 339