sw/source/ui/fldui/fldfunc.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <sfx2/app.hxx>
  21 #include <basic/basmgr.hxx>
  22 #include <basic/sbmod.hxx>
  23 #include <docsh.hxx>
  24 #include <swtypes.hxx>
  25 #include <globals.hrc>
  26 #include <fldbas.hxx>
  27 #include <docufld.hxx>
  28 #include <view.hxx>
  29 #include <wrtsh.hxx>
  30 #include <swmodule.hxx>
  31 #include <fldfunc.hxx>
  32 #include <flddropdown.hxx>
  33 #include <fldui.hrc>
  34 #include <fldtdlg.hrc>
  35
  36 #define USER_DATA_VERSION_1 "1"
  37 #define USER_DATA_VERSION USER_DATA_VERSION_1
  38
  39 using namespace ::com::sun::star;
  40
  41
  42 SwFldFuncPage::SwFldFuncPage(Window* pParent, const SfxItemSet& rCoreSet ) :
  43     SwFldPage( pParent, SW_RES( TP_FLD_FUNC ), rCoreSet ),
  44
  45     aTypeFT     (this, SW_RES(FT_FUNCTYPE)),
  46     aTypeLB     (this, SW_RES(LB_FUNCTYPE)),
  47     aSelectionFT(this, SW_RES(FT_FUNCSELECTION)),
  48     aSelectionLB(this, SW_RES(LB_FUNCSELECTION)),
  49     aFormatFT   (this, SW_RES(FT_FUNCFORMAT)),
  50     aFormatLB   (this, SW_RES(LB_FUNCFORMAT)),
  51     aNameFT     (this, SW_RES(FT_FUNCNAME)),
  52     aNameED     (this, SW_RES(ED_FUNCNAME)),
  53     aValueFT    (this, SW_RES(FT_FUNCVALUE)),
  54     aValueED    (this, SW_RES(ED_FUNCVALUE)),
  55     aCond1FT    (this, SW_RES(FT_FUNCCOND1)),
  56     aCond1ED    (this, SW_RES(ED_FUNCCOND1)),
  57     aCond2FT    (this, SW_RES(FT_FUNCCOND2)),
  58     aCond2ED    (this, SW_RES(ED_FUNCCOND2)),
  59     aMacroBT    (this, SW_RES(BT_FUNCMACRO)),
  60     aListItemFT(    this, SW_RES( FT_LISTITEM    )),
  61     aListItemED(    this, SW_RES( ED_LISTITEM    )),
  62     aListAddPB(     this, SW_RES( PB_LISTADD     )),
  63     aListItemsFT(   this, SW_RES( FT_LISTITEMS   )),
  64     aListItemsLB(   this, SW_RES( LB_LISTITEMS   )),
  65     aListRemovePB(  this, SW_RES( PB_LISTREMOVE  )),
  66     aListUpPB(      this, SW_RES( PB_LISTUP      )),
  67     aListDownPB(    this, SW_RES( PB_LISTDOWN    )),
  68     aListNameFT(    this, SW_RES( FT_LISTNAME    )),
  69     aListNameED(    this, SW_RES( ED_LISTNAME    )),
  70     bDropDownLBChanged(false)
  71 {
  72     FreeResource();
  73
  74     aNameED.SetPosPixel(Point(aNameED.GetPosPixel().X(), aFormatLB.GetPosPixel().Y()));
  75
  76     aNameED.SetModifyHdl(LINK(this, SwFldFuncPage, ModifyHdl));
  77
  78     sOldValueFT = aValueFT.GetText();
  79     sOldNameFT = aNameFT.GetText();
  80
  81     aCond1ED.ShowBrackets(false);
  82     aCond2ED.ShowBrackets(false);
  83
  84 }
  85
  86 SwFldFuncPage::~SwFldFuncPage()
  87 {
  88 }
  89
  90 void SwFldFuncPage::Reset(const SfxItemSet& )
  91 {
  92     SavePos(&aTypeLB);
  93     Init(); // general initialisation
  94
  95     aTypeLB.SetUpdateMode(sal_False);
  96     aTypeLB.Clear();
  97
  98     sal_uInt16 nPos, nTypeId;
  99
 100     if (!IsFldEdit())
 101     {
 102         // initialise TypeListBox
 103         const SwFldGroupRgn& rRg = GetFldMgr().GetGroupRange(IsFldDlgHtmlMode(), GetGroup());
 104
 105         // fill Typ-Listbox
 106         for(short i = rRg.nStart; i < rRg.nEnd; ++i)
 107         {
 108             nTypeId = GetFldMgr().GetTypeId(i);
 109             nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(i));
 110             aTypeLB.SetEntryData(nPos, reinterpret_cast<void*>(nTypeId));
 111         }
 112     }
 113     else
 114     {
 115         nTypeId = GetCurField()->GetTypeId();
 116         nPos = aTypeLB.InsertEntry(GetFldMgr().GetTypeStr(GetFldMgr().GetPos(nTypeId)));
 117         aTypeLB.SetEntryData(nPos, reinterpret_cast<void*>(nTypeId));
 118
 119         if (nTypeId == TYP_MACROFLD)
 120         {
 121             String sName(GetCurField()->GetPar1());
 122             GetFldMgr().SetMacroPath(sName);
 123         }
 124     }
 125
 126     // select old Pos
 127     RestorePos(&aTypeLB);
 128
 129     aTypeLB.SetDoubleClickHdl       (LINK(this, SwFldFuncPage, InsertHdl));
 130     aTypeLB.SetSelectHdl            (LINK(this, SwFldFuncPage, TypeHdl));
 131     aSelectionLB.SetSelectHdl       (LINK(this, SwFldFuncPage, SelectHdl));
 132     aSelectionLB.SetDoubleClickHdl  (LINK(this, SwFldFuncPage, InsertMacroHdl));
 133     aFormatLB.SetDoubleClickHdl     (LINK(this, SwFldFuncPage, InsertHdl));
 134     aMacroBT.SetClickHdl            (LINK(this, SwFldFuncPage, MacroHdl));
 135     Link aListModifyLk( LINK(this, SwFldFuncPage, ListModifyHdl));
 136     aListAddPB.SetClickHdl(aListModifyLk);
 137     aListRemovePB.SetClickHdl(aListModifyLk);
 138     aListUpPB.SetClickHdl(aListModifyLk);
 139     aListDownPB.SetClickHdl(aListModifyLk);
 140     aListItemED.SetReturnActionLink(aListModifyLk);
 141     Link aListEnableLk = LINK(this, SwFldFuncPage, ListEnableHdl);
 142     aListItemED.SetModifyHdl(aListEnableLk);
 143     aListItemsLB.SetSelectHdl(aListEnableLk);
 144
 145     if( !IsRefresh() )
 146     {
 147         String sUserData = GetUserData();
 148         if(sUserData.GetToken(0, ';').EqualsIgnoreCaseAscii(USER_DATA_VERSION_1))
 149         {
 150             String sVal = sUserData.GetToken(1, ';');
 151             sal_uInt16 nVal = static_cast< sal_uInt16 >(sVal.ToInt32());
 152             if(nVal != USHRT_MAX)
 153             {
 154                 for(sal_uInt16 i = 0; i < aTypeLB.GetEntryCount(); i++)
 155                     if(nVal == (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(i))
 156                     {
 157                         aTypeLB.SelectEntryPos(i);
 158                         break;
 159                     }
 160             }
 161         }
 162     }
 163     TypeHdl(0);
 164
 165     aTypeLB.SetUpdateMode(sal_True);
 166
 167     if (IsFldEdit())
 168     {
 169         aNameED.SaveValue();
 170         aValueED.SaveValue();
 171         aCond1ED.SaveValue();
 172         aCond2ED.SaveValue();
 173         nOldFormat = GetCurField()->GetFormat();
 174     }
 175 }
 176
 177 IMPL_LINK_NOARG(SwFldFuncPage, TypeHdl)
 178 {
 179     // save old ListBoxPos
 180     const sal_uInt16 nOld = GetTypeSel();
 181
 182     // current ListBoxPos
 183     SetTypeSel(aTypeLB.GetSelectEntryPos());
 184
 185     if(GetTypeSel() == LISTBOX_ENTRY_NOTFOUND)
 186     {
 187         SetTypeSel(0);
 188         aTypeLB.SelectEntryPos(0);
 189     }
 190
 191     if (nOld != GetTypeSel())
 192     {
 193         sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel());
 194
 195         // fill Selection-Listbox
 196         UpdateSubType();
 197
 198         // fill Format-Listbox
 199         aFormatLB.Clear();
 200
 201         sal_uInt16 nSize = GetFldMgr().GetFormatCount(nTypeId, false, IsFldDlgHtmlMode());
 202
 203         for (sal_uInt16 i = 0; i < nSize; i++)
 204         {
 205             sal_uInt16 nPos = aFormatLB.InsertEntry(GetFldMgr().GetFormatStr(nTypeId, i));
 206             aFormatLB.SetEntryData( nPos, reinterpret_cast<void*>(GetFldMgr().GetFormatId( nTypeId, i )) );
 207         }
 208
 209         if (nSize)
 210         {
 211             if (IsFldEdit() && nTypeId == TYP_JUMPEDITFLD)
 212                 aFormatLB.SelectEntry(SW_RESSTR(FMT_MARK_BEGIN + (sal_uInt16)GetCurField()->GetFormat()));
 213
 214             if (!aFormatLB.GetSelectEntryCount())
 215                 aFormatLB.SelectEntryPos(0);
 216         }
 217
 218         sal_Bool bValue = sal_False, bName = sal_False, bMacro = sal_False, bInsert = sal_True;
 219         sal_Bool bShowSelection = sal_False;
 220         sal_Bool bFormat = nSize != 0;
 221
 222         // two controls for conditional text
 223         sal_Bool bDropDown = TYP_DROPDOWN == nTypeId;
 224         sal_Bool bCondTxtFld = TYP_CONDTXTFLD == nTypeId;
 225
 226         aCond1FT.Show(!bDropDown && bCondTxtFld);
 227         aCond1ED.Show(!bDropDown && bCondTxtFld);
 228         aCond2FT.Show(!bDropDown && bCondTxtFld);
 229         aCond2ED.Show(!bDropDown && bCondTxtFld);
 230         aValueFT.Show(!bDropDown && !bCondTxtFld);
 231         aValueED.Show(!bDropDown && !bCondTxtFld);
 232         aMacroBT.Show(!bDropDown);
 233         aNameED.Show(!bDropDown);
 234         aNameFT.Show(!bDropDown);
 235
 236         aListItemFT.Show(bDropDown);
 237         aListItemED.Show(bDropDown);
 238         aListAddPB.Show(bDropDown);
 239         aListItemsFT.Show(bDropDown);
 240         aListItemsLB.Show(bDropDown);
 241         aListRemovePB.Show(bDropDown);
 242         aListUpPB.Show(bDropDown);
 243         aListDownPB.Show(bDropDown);
 244         aListNameFT.Show(bDropDown);
 245         aListNameED.Show(bDropDown);
 246
 247         aNameED.SetDropEnable(false);
 248
 249         if (IsFldEdit())
 250         {
 251             if(bDropDown)
 252             {
 253                 const SwDropDownField* pDrop = (const SwDropDownField*)GetCurField();
 254                 uno::Sequence<OUString> aItems = pDrop->GetItemSequence();
 255                 const OUString* pArray = aItems.getConstArray();
 256                 aListItemsLB.Clear();
 257                 for(sal_Int32 i = 0; i < aItems.getLength(); i++)
 258                     aListItemsLB.InsertEntry(pArray[i]);
 259                 aListItemsLB.SelectEntry(pDrop->GetSelectedItem());
 260                 aListNameED.SetText(pDrop->GetPar2());
 261                 aListNameED.SaveValue();
 262                 bDropDownLBChanged = false;
 263             }
 264             else
 265             {
 266                 aNameED.SetText(GetCurField()->GetPar1());
 267                 aValueED.SetText(GetCurField()->GetPar2());
 268             }
 269         }
 270         else
 271         {
 272             aNameED.SetText(aEmptyStr);
 273             aValueED.SetText(aEmptyStr);
 274         }
 275         if(bDropDown)
 276             ListEnableHdl(0);
 277
 278         if( aNameFT.GetText() != OUString(sOldNameFT) )
 279             aNameFT.SetText(sOldNameFT);
 280         if (aValueFT.GetText() != OUString(sOldValueFT))
 281             aValueFT.SetText(sOldValueFT);
 282
 283         switch (nTypeId)
 284         {
 285             case TYP_MACROFLD:
 286                 bMacro = sal_True;
 287                 if (GetFldMgr().GetMacroPath().Len())
 288                     bValue = sal_True;
 289                 else
 290                     bInsert = sal_False;
 291
 292                 aNameFT.SetText(SW_RESSTR(STR_MACNAME));
 293                 aValueFT.SetText(SW_RESSTR(STR_PROMPT));
 294                 aNameED.SetText(GetFldMgr().GetMacroName());
 295                 aNameED.SetAccessibleName(aNameFT.GetText());
 296                 aValueED.SetAccessibleName(aValueFT.GetText());
 297                 break;
 298
 299             case TYP_HIDDENPARAFLD:
 300                 aNameFT.SetText(SW_RESSTR(STR_COND));
 301                 aNameED.SetDropEnable(true);
 302                 bName = sal_True;
 303                 aNameED.SetAccessibleName(aNameFT.GetText());
 304                 aValueED.SetAccessibleName(aValueFT.GetText());
 305                 break;
 306
 307             case TYP_HIDDENTXTFLD:
 308             {
 309                 aNameFT.SetText(SW_RESSTR(STR_COND));
 310                 aNameED.SetDropEnable(true);
 311                 aValueFT.SetText(SW_RESSTR(STR_INSTEXT));
 312                 SwWrtShell* pSh = GetActiveWrtShell();
 313                 if (!IsFldEdit() && pSh )
 314                     aValueED.SetText(pSh->GetSelTxt());
 315                 bName = bValue = sal_True;
 316                 aNameED.SetAccessibleName(aNameFT.GetText());
 317                 aValueED.SetAccessibleName(aValueFT.GetText());
 318             }
 319             break;
 320
 321             case TYP_CONDTXTFLD:
 322                 aNameFT.SetText(SW_RESSTR(STR_COND));
 323                 aNameED.SetDropEnable(true);
 324                 if (IsFldEdit())
 325                 {
 326                     aCond1ED.SetText(GetCurField()->GetPar2().getToken(0, '|'));
 327                     aCond2ED.SetText(GetCurField()->GetPar2().getToken(1, '|'));
 328                 }
 329
 330                 bName = bValue = sal_True;
 331                 aNameED.SetAccessibleName(aNameFT.GetText());
 332                 aValueED.SetAccessibleName(aValueFT.GetText());
 333                 break;
 334
 335             case TYP_JUMPEDITFLD:
 336                 aNameFT.SetText(SW_RESSTR(STR_JUMPEDITFLD));
 337                 aValueFT.SetText(SW_RESSTR(STR_PROMPT));
 338                 bName = bValue = sal_True;
 339                 aNameED.SetAccessibleName(aNameFT.GetText());
 340                 aValueED.SetAccessibleName(aValueFT.GetText());
 341                 break;
 342
 343             case TYP_INPUTFLD:
 344                 aValueFT.SetText(SW_RESSTR(STR_PROMPT));
 345                 bValue = sal_True;
 346                 aNameED.SetAccessibleName(aNameFT.GetText());
 347                 aValueED.SetAccessibleName(aValueFT.GetText());
 348                 break;
 349
 350             case TYP_COMBINED_CHARS:
 351                 {
 352                     aNameFT.SetText(SW_RESSTR(STR_COMBCHRS_FT));
 353                     aNameED.SetDropEnable(true);
 354                     bName = sal_True;
 355
 356                     const sal_Int32 nLen = aNameED.GetText().getLength();
 357                     if( !nLen || nLen > MAX_COMBINED_CHARACTERS )
 358                         bInsert = sal_False;
 359                     aNameED.SetAccessibleName(aNameFT.GetText());
 360                     aValueED.SetAccessibleName(aValueFT.GetText());
 361                 }
 362                 break;
 363             case TYP_DROPDOWN :
 364             break;
 365             default:
 366                 break;
 367         }
 368
 369         if (bShowSelection)
 370         {
 371             aSelectionLB.Show();
 372             aSelectionFT.Show();
 373             aFormatLB.Hide();
 374             aFormatFT.Hide();
 375         }
 376         else
 377         {
 378             aFormatLB.Show();
 379             aFormatFT.Show();
 380             aSelectionLB.Hide();
 381             aSelectionFT.Hide();
 382         }
 383
 384         aFormatLB.Enable(bFormat);
 385         aFormatFT.Enable(bFormat);
 386         aNameFT.Enable(bName);
 387         aNameED.Enable(bName);
 388         aValueFT.Enable(bValue);
 389         aValueED.Enable(bValue);
 390         aMacroBT.Enable(bMacro);
 391
 392         EnableInsert( bInsert );
 393     }
 394
 395     return 0;
 396 }
 397
 398 IMPL_LINK_NOARG(SwFldFuncPage, SelectHdl)
 399 {
 400     sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel());
 401
 402     if( TYP_MACROFLD == nTypeId )
 403         aNameED.SetText( aSelectionLB.GetSelectEntry() );
 404
 405     return 0;
 406 }
 407
 408 IMPL_LINK_NOARG(SwFldFuncPage, InsertMacroHdl)
 409 {
 410     SelectHdl();
 411     InsertHdl();
 412
 413     return 0;
 414 }
 415
 416 IMPL_LINK( SwFldFuncPage, ListModifyHdl, Control*, pControl)
 417 {
 418     aListItemsLB.SetUpdateMode(sal_False);
 419     if(pControl == &aListAddPB ||
 420             (pControl == &aListItemED && aListAddPB.IsEnabled()))
 421     {
 422         String sEntry(aListItemED.GetText());
 423         aListItemsLB.InsertEntry(sEntry);
 424         aListItemsLB.SelectEntry(sEntry);
 425     }
 426     else if(aListItemsLB.GetSelectEntryCount())
 427     {
 428         sal_uInt16 nSelPos = aListItemsLB.GetSelectEntryPos();
 429         if(pControl == &aListRemovePB)
 430         {
 431             aListItemsLB.RemoveEntry(nSelPos);
 432             aListItemsLB.SelectEntryPos(nSelPos ? nSelPos - 1 : 0);
 433         }
 434         else if(pControl == &aListUpPB)
 435         {
 436             if(nSelPos)
 437             {
 438                 String sEntry = aListItemsLB.GetSelectEntry();
 439                 aListItemsLB.RemoveEntry(nSelPos);
 440                 nSelPos--;
 441                 aListItemsLB.InsertEntry(sEntry, nSelPos);
 442                 aListItemsLB.SelectEntryPos(nSelPos);
 443             }
 444         }
 445         else if(pControl == &aListDownPB)
 446         {
 447             if(nSelPos < aListItemsLB.GetEntryCount() - 1)
 448             {
 449                 String sEntry = aListItemsLB.GetSelectEntry();
 450                 aListItemsLB.RemoveEntry(nSelPos);
 451                 nSelPos++;
 452                 aListItemsLB.InsertEntry(sEntry, nSelPos);
 453                 aListItemsLB.SelectEntryPos(nSelPos);
 454             }
 455         }
 456     }
 457     bDropDownLBChanged = true;
 458     aListItemsLB.SetUpdateMode(sal_True);
 459     ListEnableHdl(0);
 460     return 0;
 461 }
 462
 463 IMPL_LINK_NOARG(SwFldFuncPage, ListEnableHdl)
 464 {
 465     //enable "Add" button when text is in the Edit that's not already member of the box
 466     aListAddPB.Enable(!aListItemED.GetText().isEmpty() &&
 467                 LISTBOX_ENTRY_NOTFOUND == aListItemsLB.GetEntryPos(aListItemED.GetText()));
 468     sal_Bool bEnableButtons = aListItemsLB.GetSelectEntryCount() > 0;
 469     aListRemovePB.Enable(bEnableButtons);
 470     aListUpPB.Enable(bEnableButtons && (aListItemsLB.GetSelectEntryPos() > 0));
 471     aListDownPB.Enable(bEnableButtons &&
 472                 (aListItemsLB.GetSelectEntryPos() < (aListItemsLB.GetEntryCount() - 1)));
 473
 474     return 0;
 475 }
 476
 477 /*--------------------------------------------------------------------
 478      Description: renew types in SelectionBox
 479  --------------------------------------------------------------------*/
 480 void SwFldFuncPage::UpdateSubType()
 481 {
 482     sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel());
 483
 484     // fill Selction-Listbox
 485     aSelectionLB.SetUpdateMode(sal_False);
 486     aSelectionLB.Clear();
 487
 488     std::vector<OUString> aLst;
 489     GetFldMgr().GetSubTypes(nTypeId, aLst);
 490     size_t nCount = aLst.size();
 491
 492     for(size_t i = 0; i < nCount; ++i)
 493     {
 494         size_t nPos = aSelectionLB.InsertEntry(aLst[i]);
 495         aSelectionLB.SetEntryData(nPos, reinterpret_cast<void*>(i));
 496     }
 497
 498     sal_Bool bEnable = nCount != 0;
 499
 500     aSelectionLB.Enable( bEnable );
 501     aSelectionFT.Enable( bEnable );
 502
 503     if (bEnable)
 504     {
 505             aSelectionLB.SelectEntryPos(0);
 506     }
 507
 508     if (nTypeId == TYP_MACROFLD)
 509     {
 510         sal_Bool bHasMacro = GetFldMgr().GetMacroPath().Len() != 0;
 511
 512         if (bHasMacro)
 513         {
 514             aNameED.SetText(GetFldMgr().GetMacroName());
 515             aValueFT.Enable();
 516             aValueED.Enable();
 517         }
 518         EnableInsert(bHasMacro);
 519     }
 520
 521     aSelectionLB.SetUpdateMode(sal_True);
 522 }
 523
 524 /*--------------------------------------------------------------------
 525     Description: call MacroBrowser, fill Listbox with Macros
 526  --------------------------------------------------------------------*/
 527 IMPL_LINK( SwFldFuncPage, MacroHdl, Button *, pBtn )
 528 {
 529     Window* pDefModalDlgParent = Application::GetDefDialogParent();
 530     Application::SetDefDialogParent( pBtn );
 531
 532     String sMacro(TurnMacroString(aNameED.GetText()));
 533     while (sMacro.SearchAndReplace('.', ';') != STRING_NOTFOUND) ;
 534
 535     if (GetFldMgr().ChooseMacro(sMacro))
 536         UpdateSubType();
 537
 538     Application::SetDefDialogParent( pDefModalDlgParent );
 539
 540     return 0;
 541 }
 542
 543 sal_Bool SwFldFuncPage::FillItemSet(SfxItemSet& )
 544 {
 545     sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel());
 546
 547     sal_uInt16 nSubType = 0;
 548
 549     sal_uLong nFormat = aFormatLB.GetSelectEntryPos();
 550
 551     if(nFormat == LISTBOX_ENTRY_NOTFOUND)
 552         nFormat = 0;
 553     else
 554         nFormat = (sal_uLong)aFormatLB.GetEntryData((sal_uInt16)nFormat);
 555
 556     String aVal(aValueED.GetText());
 557     String aName(aNameED.GetText());
 558
 559     switch(nTypeId)
 560     {
 561         case TYP_INPUTFLD:
 562             nSubType = INP_TXT;
 563             // to prevent removal of CR/LF restore old content
 564             if(!aNameED.IsModified() && IsFldEdit())
 565                 aName = GetCurField()->GetPar1();
 566
 567             break;
 568
 569         case TYP_MACROFLD:
 570             // use the full script URL, not the name in the Edit control
 571             aName = GetFldMgr().GetMacroPath();
 572             break;
 573
 574         case TYP_CONDTXTFLD:
 575             aVal = aCond1ED.GetText();
 576             aVal += '|';
 577             aVal += aCond2ED.GetText();
 578             break;
 579         case TYP_DROPDOWN :
 580         {
 581             aName = aListNameED.GetText();
 582             for(sal_uInt16 i = 0; i < aListItemsLB.GetEntryCount(); i++)
 583             {
 584                 if(i)
 585                     aVal += DB_DELIM;
 586                 aVal += aListItemsLB.GetEntry(i);
 587             }
 588         }
 589         break;
 590         default:
 591             break;
 592     }
 593
 594     if (!IsFldEdit() ||
 595         aNameED.GetSavedValue() != aNameED.GetText() ||
 596         aValueED.GetSavedValue() != aValueED.GetText() ||
 597         aCond1ED.GetSavedValue() != aCond1ED.GetText() ||
 598         aCond2ED.GetSavedValue() != aCond2ED.GetText() ||
 599         aListNameED.GetSavedValue() != aListNameED.GetText() ||
 600         bDropDownLBChanged ||
 601         nOldFormat != nFormat)
 602     {
 603         InsertFld( nTypeId, nSubType, aName, aVal, nFormat );
 604     }
 605
 606     ModifyHdl();    // enable/disable Insert if applicable
 607
 608     return sal_False;
 609 }
 610
 611 String SwFldFuncPage::TurnMacroString(const String &rMacro)
 612 {
 613     if (rMacro.Len())
 614     {
 615         // reverse content of aName
 616         String sTmp, sBuf;
 617         sal_Int32 nPos = 0;
 618
 619         for (sal_uInt16 i = 0; i < 4 && nPos != -1; i++)
 620         {
 621             if (i == 3)
 622                 sTmp = rMacro.Copy(nPos);
 623             else
 624                 sTmp = rMacro.GetToken(0, '.', nPos);
 625
 626             if( sBuf.Len() )
 627                 sTmp += '.';
 628             sBuf.Insert( sTmp, 0 );
 629         }
 630         return sBuf;
 631     }
 632
 633     return rMacro;
 634 }
 635
 636 SfxTabPage* SwFldFuncPage::Create(  Window* pParent,
 637                         const SfxItemSet& rAttrSet )
 638 {
 639     return ( new SwFldFuncPage( pParent, rAttrSet ) );
 640 }
 641
 642 sal_uInt16 SwFldFuncPage::GetGroup()
 643 {
 644     return GRP_FKT;
 645 }
 646
 647 void    SwFldFuncPage::FillUserData()
 648 {
 649     String sData(OUString(USER_DATA_VERSION));
 650     sData += ';';
 651     sal_uInt16 nTypeSel = aTypeLB.GetSelectEntryPos();
 652     if( LISTBOX_ENTRY_NOTFOUND == nTypeSel )
 653         nTypeSel = USHRT_MAX;
 654     else
 655         nTypeSel = sal::static_int_cast< sal_uInt16 >(reinterpret_cast< sal_uIntPtr >(aTypeLB.GetEntryData( nTypeSel )));
 656     sData += OUString::number( nTypeSel );
 657     SetUserData(sData);
 658 }
 659
 660 IMPL_LINK_NOARG(SwFldFuncPage, ModifyHdl)
 661 {
 662     String aName(aNameED.GetText());
 663     const sal_uInt16 nLen = aName.Len();
 664
 665     sal_Bool bEnable = sal_True;
 666     sal_uInt16 nTypeId = (sal_uInt16)(sal_uLong)aTypeLB.GetEntryData(GetTypeSel());
 667
 668     if( TYP_COMBINED_CHARS == nTypeId &&
 669         (!nLen || nLen > MAX_COMBINED_CHARACTERS ))
 670         bEnable = sal_False;
 671
 672     EnableInsert( bEnable );
 673
 674     return 0;
 675 }
 676
 677 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */