xref: /aoo4110/main/svl/source/config/srchcfg.cxx (revision b1cdbd2c)
1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski  *
3*b1cdbd2cSJim Jagielski  * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski  * or more contributor license agreements.  See the NOTICE file
5*b1cdbd2cSJim Jagielski  * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski  * regarding copyright ownership.  The ASF licenses this file
7*b1cdbd2cSJim Jagielski  * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski  * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski  * with the License.  You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski  *
11*b1cdbd2cSJim Jagielski  *   http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski  *
13*b1cdbd2cSJim Jagielski  * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski  * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski  * KIND, either express or implied.  See the License for the
17*b1cdbd2cSJim Jagielski  * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski  * under the License.
19*b1cdbd2cSJim Jagielski  *
20*b1cdbd2cSJim Jagielski  *************************************************************/
21*b1cdbd2cSJim Jagielski 
22*b1cdbd2cSJim Jagielski 
23*b1cdbd2cSJim Jagielski 
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_svl.hxx"
26*b1cdbd2cSJim Jagielski 
27*b1cdbd2cSJim Jagielski #include <svl/srchcfg.hxx>
28*b1cdbd2cSJim Jagielski #include <svl/svarray.hxx>
29*b1cdbd2cSJim Jagielski #include <com/sun/star/uno/Any.hxx>
30*b1cdbd2cSJim Jagielski #include <com/sun/star/uno/Sequence.hxx>
31*b1cdbd2cSJim Jagielski #include <com/sun/star/beans/PropertyValue.hpp>
32*b1cdbd2cSJim Jagielski #include <tools/debug.hxx>
33*b1cdbd2cSJim Jagielski #include <unotools/configpathes.hxx>
34*b1cdbd2cSJim Jagielski 
35*b1cdbd2cSJim Jagielski //-----------------------------------------------------------------------------
36*b1cdbd2cSJim Jagielski using namespace utl;
37*b1cdbd2cSJim Jagielski using namespace rtl;
38*b1cdbd2cSJim Jagielski using namespace com::sun::star;
39*b1cdbd2cSJim Jagielski using namespace com::sun::star::uno;
40*b1cdbd2cSJim Jagielski using namespace com::sun::star::beans;
41*b1cdbd2cSJim Jagielski 
42*b1cdbd2cSJim Jagielski #define C2U(cChar) OUString::createFromAscii(cChar)
43*b1cdbd2cSJim Jagielski 
44*b1cdbd2cSJim Jagielski //-----------------------------------------------------------------------------
45*b1cdbd2cSJim Jagielski typedef SvxSearchEngineData* SvxSearchEngineDataPtr;
46*b1cdbd2cSJim Jagielski SV_DECL_PTRARR_DEL(SvxSearchEngineArr, SvxSearchEngineDataPtr, 2, 2)
47*b1cdbd2cSJim Jagielski SV_IMPL_PTRARR(SvxSearchEngineArr, SvxSearchEngineDataPtr);
48*b1cdbd2cSJim Jagielski //-----------------------------------------------------------------------------
49*b1cdbd2cSJim Jagielski struct SvxSearchConfig_Impl
50*b1cdbd2cSJim Jagielski {
51*b1cdbd2cSJim Jagielski     SvxSearchEngineArr   aEngineArr;
52*b1cdbd2cSJim Jagielski };
53*b1cdbd2cSJim Jagielski /* -----------------------------19.03.01 14:00--------------------------------
54*b1cdbd2cSJim Jagielski 
55*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
operator ==(const SvxSearchEngineData & rData)56*b1cdbd2cSJim Jagielski sal_Bool SvxSearchEngineData::operator==(const SvxSearchEngineData& rData)
57*b1cdbd2cSJim Jagielski {
58*b1cdbd2cSJim Jagielski     return sEngineName      == rData.sEngineName     &&
59*b1cdbd2cSJim Jagielski             sAndPrefix       == rData.sAndPrefix      &&
60*b1cdbd2cSJim Jagielski             sAndSuffix       == rData.sAndSuffix      &&
61*b1cdbd2cSJim Jagielski             sAndSeparator    == rData.sAndSeparator   &&
62*b1cdbd2cSJim Jagielski             nAndCaseMatch    == rData.nAndCaseMatch   &&
63*b1cdbd2cSJim Jagielski             sOrPrefix        == rData.sOrPrefix       &&
64*b1cdbd2cSJim Jagielski             sOrSuffix        == rData.sOrSuffix       &&
65*b1cdbd2cSJim Jagielski             sOrSeparator     == rData.sOrSeparator    &&
66*b1cdbd2cSJim Jagielski             nOrCaseMatch     == rData.nOrCaseMatch    &&
67*b1cdbd2cSJim Jagielski             sExactPrefix     == rData.sExactPrefix    &&
68*b1cdbd2cSJim Jagielski             sExactSuffix     == rData.sExactSuffix    &&
69*b1cdbd2cSJim Jagielski             sExactSeparator  == rData.sExactSeparator &&
70*b1cdbd2cSJim Jagielski             nExactCaseMatch  == rData.nExactCaseMatch;
71*b1cdbd2cSJim Jagielski }
72*b1cdbd2cSJim Jagielski /* -----------------------------16.01.01 15:36--------------------------------
73*b1cdbd2cSJim Jagielski 
74*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
lcl_GetSearchPropertyNames_Impl()75*b1cdbd2cSJim Jagielski const Sequence<OUString>& lcl_GetSearchPropertyNames_Impl()
76*b1cdbd2cSJim Jagielski {
77*b1cdbd2cSJim Jagielski     static Sequence<OUString> aNames;
78*b1cdbd2cSJim Jagielski     if(!aNames.getLength())
79*b1cdbd2cSJim Jagielski     {
80*b1cdbd2cSJim Jagielski         aNames.realloc(12);
81*b1cdbd2cSJim Jagielski         OUString* pNames = aNames.getArray();
82*b1cdbd2cSJim Jagielski         pNames[0] = C2U("And/ooInetPrefix");
83*b1cdbd2cSJim Jagielski         pNames[1] = C2U("And/ooInetSuffix");
84*b1cdbd2cSJim Jagielski         pNames[2] = C2U("And/ooInetSeparator");
85*b1cdbd2cSJim Jagielski         pNames[3] = C2U("And/ooInetCaseMatch");
86*b1cdbd2cSJim Jagielski         pNames[4] = C2U("Or/ooInetPrefix");
87*b1cdbd2cSJim Jagielski         pNames[5] = C2U("Or/ooInetSuffix");
88*b1cdbd2cSJim Jagielski         pNames[6] = C2U("Or/ooInetSeparator");
89*b1cdbd2cSJim Jagielski         pNames[7] = C2U("Or/ooInetCaseMatch");
90*b1cdbd2cSJim Jagielski         pNames[8] = C2U("Exact/ooInetPrefix");
91*b1cdbd2cSJim Jagielski         pNames[9] = C2U("Exact/ooInetSuffix");
92*b1cdbd2cSJim Jagielski         pNames[10] = C2U("Exact/ooInetSeparator");
93*b1cdbd2cSJim Jagielski         pNames[11] = C2U("Exact/ooInetCaseMatch");
94*b1cdbd2cSJim Jagielski     }
95*b1cdbd2cSJim Jagielski     return aNames;
96*b1cdbd2cSJim Jagielski }
97*b1cdbd2cSJim Jagielski // ---------------------------------------------------------------------------
SvxSearchConfig(sal_Bool bEnableNotify)98*b1cdbd2cSJim Jagielski SvxSearchConfig::SvxSearchConfig(sal_Bool bEnableNotify) :
99*b1cdbd2cSJim Jagielski     utl::ConfigItem(C2U("Inet/SearchEngines"), CONFIG_MODE_DELAYED_UPDATE),
100*b1cdbd2cSJim Jagielski     pImpl(new SvxSearchConfig_Impl)
101*b1cdbd2cSJim Jagielski {
102*b1cdbd2cSJim Jagielski 	if(bEnableNotify)
103*b1cdbd2cSJim Jagielski     {
104*b1cdbd2cSJim Jagielski         //request notifications from the node
105*b1cdbd2cSJim Jagielski         Sequence<OUString> aEnable(1);
106*b1cdbd2cSJim Jagielski         EnableNotification(aEnable);
107*b1cdbd2cSJim Jagielski     }
108*b1cdbd2cSJim Jagielski 	Load();
109*b1cdbd2cSJim Jagielski }
110*b1cdbd2cSJim Jagielski /* -----------------------------16.01.01 15:36--------------------------------
111*b1cdbd2cSJim Jagielski 
112*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
~SvxSearchConfig()113*b1cdbd2cSJim Jagielski SvxSearchConfig::~SvxSearchConfig()
114*b1cdbd2cSJim Jagielski {
115*b1cdbd2cSJim Jagielski 	delete pImpl;
116*b1cdbd2cSJim Jagielski }
117*b1cdbd2cSJim Jagielski /* -----------------------------17.01.01 09:57--------------------------------
118*b1cdbd2cSJim Jagielski 
119*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
Load()120*b1cdbd2cSJim Jagielski void SvxSearchConfig::Load()
121*b1cdbd2cSJim Jagielski {
122*b1cdbd2cSJim Jagielski     pImpl->aEngineArr.DeleteAndDestroy(0, pImpl->aEngineArr.Count());
123*b1cdbd2cSJim Jagielski     Sequence<OUString> aNodeNames = GetNodeNames(OUString());
124*b1cdbd2cSJim Jagielski     const OUString* pNodeNames = aNodeNames.getConstArray();
125*b1cdbd2cSJim Jagielski     for(sal_Int32 nNode = 0; nNode < aNodeNames.getLength(); nNode++)
126*b1cdbd2cSJim Jagielski     {
127*b1cdbd2cSJim Jagielski         SvxSearchEngineDataPtr pNew = new SvxSearchEngineData;
128*b1cdbd2cSJim Jagielski         pNew->sEngineName = pNodeNames[nNode];
129*b1cdbd2cSJim Jagielski         const Sequence<OUString>& rPropNames = lcl_GetSearchPropertyNames_Impl();
130*b1cdbd2cSJim Jagielski         const OUString* pPropNames = rPropNames.getConstArray();
131*b1cdbd2cSJim Jagielski         Sequence<OUString> aPropertyNames(rPropNames.getLength());
132*b1cdbd2cSJim Jagielski         OUString* pPropertyNames = aPropertyNames.getArray();
133*b1cdbd2cSJim Jagielski         const OUString sSlash(C2U("/"));
134*b1cdbd2cSJim Jagielski         sal_Int32 nProp;
135*b1cdbd2cSJim Jagielski         for(nProp = 0; nProp < rPropNames.getLength(); nProp++)
136*b1cdbd2cSJim Jagielski         {
137*b1cdbd2cSJim Jagielski             pPropertyNames[nProp] = wrapConfigurationElementName(pNodeNames[nNode]);
138*b1cdbd2cSJim Jagielski             pPropertyNames[nProp] += sSlash;
139*b1cdbd2cSJim Jagielski             pPropertyNames[nProp] += pPropNames[nProp];
140*b1cdbd2cSJim Jagielski         }
141*b1cdbd2cSJim Jagielski         Sequence<Any> aValues = GetProperties(aPropertyNames);
142*b1cdbd2cSJim Jagielski         const Any* pValues = aValues.getConstArray();
143*b1cdbd2cSJim Jagielski         for(nProp = 0; nProp < rPropNames.getLength(); nProp++)
144*b1cdbd2cSJim Jagielski         {
145*b1cdbd2cSJim Jagielski             switch(nProp)
146*b1cdbd2cSJim Jagielski             {
147*b1cdbd2cSJim Jagielski                 case 0 : pValues[nProp] >>= pNew->sAndPrefix;      break;
148*b1cdbd2cSJim Jagielski                 case 1 : pValues[nProp] >>= pNew->sAndSuffix;      break;
149*b1cdbd2cSJim Jagielski                 case 2 : pValues[nProp] >>= pNew->sAndSeparator;   break;
150*b1cdbd2cSJim Jagielski                 case 3 : pValues[nProp] >>= pNew->nAndCaseMatch;   break;
151*b1cdbd2cSJim Jagielski 
152*b1cdbd2cSJim Jagielski                 case 4 : pValues[nProp] >>= pNew->sOrPrefix;       break;
153*b1cdbd2cSJim Jagielski                 case 5 : pValues[nProp] >>= pNew->sOrSuffix;       break;
154*b1cdbd2cSJim Jagielski                 case 6 : pValues[nProp] >>= pNew->sOrSeparator;    break;
155*b1cdbd2cSJim Jagielski                 case 7 : pValues[nProp] >>= pNew->nOrCaseMatch;    break;
156*b1cdbd2cSJim Jagielski 
157*b1cdbd2cSJim Jagielski                 case 8 : pValues[nProp] >>= pNew->sExactPrefix;    break;
158*b1cdbd2cSJim Jagielski                 case 9 : pValues[nProp] >>= pNew->sExactSuffix;    break;
159*b1cdbd2cSJim Jagielski                 case 10: pValues[nProp] >>= pNew->sExactSeparator; break;
160*b1cdbd2cSJim Jagielski                 case 11: pValues[nProp] >>= pNew->nExactCaseMatch; break;
161*b1cdbd2cSJim Jagielski             }
162*b1cdbd2cSJim Jagielski         }
163*b1cdbd2cSJim Jagielski         pImpl->aEngineArr.Insert(pNew, pImpl->aEngineArr.Count());
164*b1cdbd2cSJim Jagielski     }
165*b1cdbd2cSJim Jagielski }
166*b1cdbd2cSJim Jagielski /* -----------------------------17.01.01 09:57--------------------------------
167*b1cdbd2cSJim Jagielski 
168*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
Notify(const Sequence<OUString> &)169*b1cdbd2cSJim Jagielski void    SvxSearchConfig::Notify( const Sequence<OUString>& )
170*b1cdbd2cSJim Jagielski {
171*b1cdbd2cSJim Jagielski 	Load();
172*b1cdbd2cSJim Jagielski }
173*b1cdbd2cSJim Jagielski /* -----------------------------16.01.01 15:36--------------------------------
174*b1cdbd2cSJim Jagielski 
175*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
Commit()176*b1cdbd2cSJim Jagielski void SvxSearchConfig::Commit()
177*b1cdbd2cSJim Jagielski {
178*b1cdbd2cSJim Jagielski     OUString sNode;
179*b1cdbd2cSJim Jagielski     if(!pImpl->aEngineArr.Count())
180*b1cdbd2cSJim Jagielski         ClearNodeSet(sNode);
181*b1cdbd2cSJim Jagielski     else
182*b1cdbd2cSJim Jagielski     {
183*b1cdbd2cSJim Jagielski         Sequence<PropertyValue> aSetValues(12 * pImpl->aEngineArr.Count());
184*b1cdbd2cSJim Jagielski 		PropertyValue* pSetValues = aSetValues.getArray();
185*b1cdbd2cSJim Jagielski 
186*b1cdbd2cSJim Jagielski         const Sequence<OUString>& rPropNames = lcl_GetSearchPropertyNames_Impl();
187*b1cdbd2cSJim Jagielski         const OUString* pPropNames = rPropNames.getConstArray();
188*b1cdbd2cSJim Jagielski         const OUString sSlash(C2U("/"));
189*b1cdbd2cSJim Jagielski         for(sal_uInt16 i = 0; i < pImpl->aEngineArr.Count(); i++)
190*b1cdbd2cSJim Jagielski 		{
191*b1cdbd2cSJim Jagielski             SvxSearchEngineDataPtr pSave = pImpl->aEngineArr[i];
192*b1cdbd2cSJim Jagielski             for(sal_Int16 nProp = 0; nProp < rPropNames.getLength(); nProp++)
193*b1cdbd2cSJim Jagielski             {
194*b1cdbd2cSJim Jagielski                 OUString sTmpName = sSlash;
195*b1cdbd2cSJim Jagielski                 sTmpName += wrapConfigurationElementName(pSave->sEngineName);
196*b1cdbd2cSJim Jagielski                 sTmpName += sSlash;
197*b1cdbd2cSJim Jagielski                 sTmpName += pPropNames[nProp];
198*b1cdbd2cSJim Jagielski                 pSetValues[nProp].Name = sTmpName;
199*b1cdbd2cSJim Jagielski                 switch(nProp)
200*b1cdbd2cSJim Jagielski                 {
201*b1cdbd2cSJim Jagielski                     case 0 : pSetValues[nProp].Value <<= pSave->sAndPrefix;      break;
202*b1cdbd2cSJim Jagielski                     case 1 : pSetValues[nProp].Value <<= pSave->sAndSuffix;      break;
203*b1cdbd2cSJim Jagielski                     case 2 : pSetValues[nProp].Value <<= pSave->sAndSeparator;   break;
204*b1cdbd2cSJim Jagielski                     case 3 : pSetValues[nProp].Value <<= pSave->nAndCaseMatch;   break;
205*b1cdbd2cSJim Jagielski 
206*b1cdbd2cSJim Jagielski                     case 4 : pSetValues[nProp].Value <<= pSave->sOrPrefix;       break;
207*b1cdbd2cSJim Jagielski                     case 5 : pSetValues[nProp].Value <<= pSave->sOrSuffix;       break;
208*b1cdbd2cSJim Jagielski                     case 6 : pSetValues[nProp].Value <<= pSave->sOrSeparator;    break;
209*b1cdbd2cSJim Jagielski                     case 7 : pSetValues[nProp].Value <<= pSave->nOrCaseMatch;    break;
210*b1cdbd2cSJim Jagielski 
211*b1cdbd2cSJim Jagielski                     case 8 : pSetValues[nProp].Value <<= pSave->sExactPrefix;    break;
212*b1cdbd2cSJim Jagielski                     case 9 : pSetValues[nProp].Value <<= pSave->sExactSuffix;    break;
213*b1cdbd2cSJim Jagielski                     case 10: pSetValues[nProp].Value <<= pSave->sExactSeparator; break;
214*b1cdbd2cSJim Jagielski                     case 11: pSetValues[nProp].Value <<= pSave->nExactCaseMatch; break;
215*b1cdbd2cSJim Jagielski                 }
216*b1cdbd2cSJim Jagielski             }
217*b1cdbd2cSJim Jagielski             pSetValues+= 12;
218*b1cdbd2cSJim Jagielski         }
219*b1cdbd2cSJim Jagielski 		ReplaceSetProperties(sNode, aSetValues);
220*b1cdbd2cSJim Jagielski     }
221*b1cdbd2cSJim Jagielski }
222*b1cdbd2cSJim Jagielski /* -----------------------------19.03.01 10:02--------------------------------
223*b1cdbd2cSJim Jagielski 
224*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
Count()225*b1cdbd2cSJim Jagielski sal_uInt16 SvxSearchConfig::Count()
226*b1cdbd2cSJim Jagielski {
227*b1cdbd2cSJim Jagielski     return pImpl->aEngineArr.Count();
228*b1cdbd2cSJim Jagielski }
229*b1cdbd2cSJim Jagielski /* -----------------------------19.03.01 10:02--------------------------------
230*b1cdbd2cSJim Jagielski 
231*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
GetData(sal_uInt16 nPos)232*b1cdbd2cSJim Jagielski const SvxSearchEngineData&  SvxSearchConfig::GetData(sal_uInt16 nPos)
233*b1cdbd2cSJim Jagielski {
234*b1cdbd2cSJim Jagielski     DBG_ASSERT(nPos < pImpl->aEngineArr.Count(), "wrong array index");
235*b1cdbd2cSJim Jagielski     return *pImpl->aEngineArr[nPos];
236*b1cdbd2cSJim Jagielski }
237*b1cdbd2cSJim Jagielski /* -----------------------------19.03.01 10:38--------------------------------
238*b1cdbd2cSJim Jagielski 
239*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
GetData(const rtl::OUString & rEngineName)240*b1cdbd2cSJim Jagielski const SvxSearchEngineData*  SvxSearchConfig::GetData(const rtl::OUString& rEngineName)
241*b1cdbd2cSJim Jagielski {
242*b1cdbd2cSJim Jagielski     for(sal_uInt16 nPos = 0; nPos < pImpl->aEngineArr.Count(); nPos++)
243*b1cdbd2cSJim Jagielski     {
244*b1cdbd2cSJim Jagielski         if(pImpl->aEngineArr[nPos]->sEngineName == rEngineName)
245*b1cdbd2cSJim Jagielski             return pImpl->aEngineArr[nPos];
246*b1cdbd2cSJim Jagielski     }
247*b1cdbd2cSJim Jagielski     return 0;
248*b1cdbd2cSJim Jagielski }
249*b1cdbd2cSJim Jagielski /* -----------------------------19.03.01 10:02--------------------------------
250*b1cdbd2cSJim Jagielski 
251*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
SetData(const SvxSearchEngineData & rData)252*b1cdbd2cSJim Jagielski void  SvxSearchConfig::SetData(const SvxSearchEngineData& rData)
253*b1cdbd2cSJim Jagielski {
254*b1cdbd2cSJim Jagielski     for(sal_uInt16 nPos = 0; nPos < pImpl->aEngineArr.Count(); nPos++)
255*b1cdbd2cSJim Jagielski     {
256*b1cdbd2cSJim Jagielski         if(pImpl->aEngineArr[nPos]->sEngineName == rData.sEngineName)
257*b1cdbd2cSJim Jagielski         {
258*b1cdbd2cSJim Jagielski             if((*pImpl->aEngineArr[nPos]) == rData)
259*b1cdbd2cSJim Jagielski                 return;
260*b1cdbd2cSJim Jagielski             pImpl->aEngineArr.DeleteAndDestroy(nPos, 1);
261*b1cdbd2cSJim Jagielski             break;
262*b1cdbd2cSJim Jagielski         }
263*b1cdbd2cSJim Jagielski     }
264*b1cdbd2cSJim Jagielski     SvxSearchEngineDataPtr pInsert = new SvxSearchEngineData(rData);
265*b1cdbd2cSJim Jagielski     pImpl->aEngineArr.Insert(pInsert, pImpl->aEngineArr.Count());
266*b1cdbd2cSJim Jagielski     SetModified();
267*b1cdbd2cSJim Jagielski }
268*b1cdbd2cSJim Jagielski /* -----------------------------19.03.01 10:38--------------------------------
269*b1cdbd2cSJim Jagielski 
270*b1cdbd2cSJim Jagielski  ---------------------------------------------------------------------------*/
RemoveData(const rtl::OUString & rEngineName)271*b1cdbd2cSJim Jagielski void SvxSearchConfig::RemoveData(const rtl::OUString& rEngineName)
272*b1cdbd2cSJim Jagielski {
273*b1cdbd2cSJim Jagielski     for(sal_uInt16 nPos = 0; nPos < pImpl->aEngineArr.Count(); nPos++)
274*b1cdbd2cSJim Jagielski     {
275*b1cdbd2cSJim Jagielski         if(pImpl->aEngineArr[nPos]->sEngineName == rEngineName)
276*b1cdbd2cSJim Jagielski         {
277*b1cdbd2cSJim Jagielski             pImpl->aEngineArr.DeleteAndDestroy(nPos, 1);
278*b1cdbd2cSJim Jagielski             SetModified();
279*b1cdbd2cSJim Jagielski             return ;
280*b1cdbd2cSJim Jagielski         }
281*b1cdbd2cSJim Jagielski     }
282*b1cdbd2cSJim Jagielski }
283*b1cdbd2cSJim Jagielski 
284