sc/source/ui/miscdlgs/mvtabdlg.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
  21 #undef SC_DLLIMPLEMENTATION
  22
  23
  24
  25 //------------------------------------------------------------------
  26
  27 #include <vcl/msgbox.hxx>
  28
  29 #include "mvtabdlg.hxx"
  30 #include "document.hxx"
  31 #include "docsh.hxx"
  32 #include "miscdlgs.hrc"
  33 #include "global.hxx"
  34 #include "scresid.hxx"
  35 #include "globstr.hrc"
  36
  37 //==================================================================
  38
  39 ScMoveTableDlg::ScMoveTableDlg(Window* pParent, const OUString& rDefault)
  40
  41     :   ModalDialog ( pParent, "MoveCopySheetDialog", "modules/scalc/ui/movecopysheet.ui" ),
  42         maDefaultName( rDefault ),
  43         mnCurrentDocPos( 0 ),
  44         nDocument   ( 0 ),
  45         nTable      ( 0 ),
  46         bCopyTable  ( false ),
  47         bRenameTable( false ),
  48         mbEverEdited( false )
  49 {
  50     get(pBtnMove, "move");
  51     get(pBtnCopy, "copy");
  52     get(pLbDoc, "toDocument");
  53
  54     assert(pLbDoc->GetEntryCount() == 2);
  55     msCurrentDoc = pLbDoc->GetEntry(0);
  56     msNewDoc = pLbDoc->GetEntry(1);
  57     pLbDoc->Clear();
  58     assert(pLbDoc->GetEntryCount() == 0);
  59
  60     get(pLbTable, "insertBefore");
  61     pLbTable->set_height_request(pLbTable->GetTextHeight() * 8);
  62     get(pEdTabName, "newName");
  63     get(pFtWarn, "newNameWarn");
  64     get(pBtnOk, "ok");
  65
  66     msStrTabNameUsed = get<FixedText>("warnunused")->GetText();
  67     msStrTabNameEmpty = get<FixedText>("warnempty")->GetText();
  68     msStrTabNameInvalid = get<FixedText>("warninvalid")->GetText();
  69
  70     Init();
  71 }
  72
  73 //------------------------------------------------------------------------
  74
  75 ScMoveTableDlg::~ScMoveTableDlg()
  76 {
  77 }
  78
  79 //------------------------------------------------------------------------
  80
  81 sal_uInt16 ScMoveTableDlg::GetSelectedDocument () const { return nDocument;  }
  82
  83 SCTAB ScMoveTableDlg::GetSelectedTable    () const { return nTable;     }
  84
  85 bool   ScMoveTableDlg::GetCopyTable        () const { return bCopyTable; }
  86
  87 bool   ScMoveTableDlg::GetRenameTable        () const { return bRenameTable; }
  88
  89 void ScMoveTableDlg::GetTabNameString( OUString& rString ) const
  90 {
  91     rString = pEdTabName->GetText();
  92 }
  93
  94 void ScMoveTableDlg::SetForceCopyTable()
  95 {
  96     pBtnCopy->Check(true);
  97     pBtnMove->Disable();
  98     pBtnCopy->Disable();
  99 }
 100
 101 void ScMoveTableDlg::EnableCopyTable(sal_Bool bFlag)
 102 {
 103     if(bFlag)
 104         pBtnCopy->Enable();
 105     else
 106         pBtnCopy->Disable();
 107 }
 108
 109 void ScMoveTableDlg::EnableRenameTable(sal_Bool bFlag)
 110 {
 111     bRenameTable = bFlag;
 112     pEdTabName->Enable(bFlag);
 113     ResetRenameInput();
 114 }
 115
 116 void ScMoveTableDlg::ResetRenameInput()
 117 {
 118     if (mbEverEdited)
 119     {
 120         // Don't reset the name when the sheet name has ever been edited.
 121         // But check the name, as this is also called for change of copy/move
 122         // buttons and document listbox selection.
 123         CheckNewTabName();
 124         return;
 125     }
 126
 127     if (!pEdTabName->IsEnabled())
 128     {
 129         pEdTabName->SetText(OUString());
 130         return;
 131     }
 132
 133     bool bVal = pBtnCopy->IsChecked();
 134     if (bVal)
 135     {
 136         // copy
 137         ScDocument* pDoc = GetSelectedDoc();
 138         if (pDoc)
 139         {
 140             OUString aStr = maDefaultName;
 141             pDoc->CreateValidTabName(aStr);
 142             pEdTabName->SetText(aStr);
 143         }
 144         else
 145             pEdTabName->SetText(maDefaultName);
 146     }
 147     else
 148         // move
 149         pEdTabName->SetText(maDefaultName);
 150
 151     CheckNewTabName();
 152 }
 153
 154 void ScMoveTableDlg::CheckNewTabName()
 155 {
 156     const OUString aNewName = pEdTabName->GetText();
 157     if (aNewName.isEmpty())
 158     {
 159         // New sheet name is empty.  This is not good.
 160         pFtWarn->Show(sal_True);
 161         pFtWarn->SetControlBackground(Color(COL_YELLOW));
 162         pFtWarn->SetText(msStrTabNameEmpty);
 163         pBtnOk->Disable();
 164         return;
 165     }
 166
 167     if (!ScDocument::ValidTabName(aNewName))
 168     {
 169         // New sheet name contains invalid characters.
 170         pFtWarn->Show(sal_True);
 171         pFtWarn->SetControlBackground(Color(COL_YELLOW));
 172         pFtWarn->SetText(msStrTabNameInvalid);
 173         pBtnOk->Disable();
 174         return;
 175     }
 176
 177     bool bMoveInCurrentDoc = (pBtnMove->IsChecked() && IsCurrentDocSelected());
 178     bool bFound = false;
 179     sal_uInt16 nLast  = pLbTable->GetEntryCount() - 1;
 180     for ( sal_uInt16 i=0; i<=nLast && !bFound; ++i )
 181     {
 182         if ( aNewName.equals(pLbTable->GetEntry(i)) )
 183         {
 184             // Only for move within same document the same name is allowed.
 185             if (!bMoveInCurrentDoc || !maDefaultName.equals( pEdTabName->GetText()))
 186                 bFound = true;
 187         }
 188     }
 189
 190     if ( bFound )
 191     {
 192         pFtWarn->Show(sal_True);
 193         pFtWarn->SetControlBackground(Color(COL_YELLOW));
 194         pFtWarn->SetText(msStrTabNameUsed);
 195         pBtnOk->Disable();
 196     }
 197     else
 198     {
 199         pFtWarn->Hide(sal_True);
 200         pFtWarn->SetControlBackground();
 201         pFtWarn->SetText(OUString());
 202         pBtnOk->Enable();
 203     }
 204 }
 205
 206 ScDocument* ScMoveTableDlg::GetSelectedDoc()
 207 {
 208     sal_uInt16 nPos = pLbDoc->GetSelectEntryPos();
 209     return static_cast<ScDocument*>(pLbDoc->GetEntryData(nPos));
 210 }
 211
 212 bool ScMoveTableDlg::IsCurrentDocSelected() const
 213 {
 214     return pLbDoc->GetSelectEntryPos() == mnCurrentDocPos;
 215 }
 216
 217 //------------------------------------------------------------------------
 218
 219 void ScMoveTableDlg::Init()
 220 {
 221     pBtnOk->SetClickHdl   ( LINK( this, ScMoveTableDlg, OkHdl ) );
 222     pLbDoc->SetSelectHdl  ( LINK( this, ScMoveTableDlg, SelHdl ) );
 223     pBtnCopy->SetToggleHdl( LINK( this, ScMoveTableDlg, CheckBtnHdl ) );
 224     pEdTabName->SetModifyHdl( LINK( this, ScMoveTableDlg, CheckNameHdl ) );
 225     pBtnMove->Check( true );
 226     pBtnCopy->Check( false );
 227     pEdTabName->Enable(false);
 228     pFtWarn->Hide(sal_True);
 229     InitDocListBox();
 230     SelHdl( pLbDoc );
 231 }
 232
 233 //------------------------------------------------------------------------
 234
 235 void ScMoveTableDlg::InitDocListBox()
 236 {
 237     SfxObjectShell* pSh     = SfxObjectShell::GetFirst();
 238     ScDocShell*     pScSh   = NULL;
 239     sal_uInt16          nSelPos = 0;
 240     sal_uInt16          i       = 0;
 241     OUString          aEntryName;
 242
 243     pLbDoc->Clear();
 244     pLbDoc->SetUpdateMode( false );
 245
 246     while ( pSh )
 247     {
 248         pScSh = PTR_CAST( ScDocShell, pSh );
 249
 250         if ( pScSh )
 251         {
 252             aEntryName = pScSh->GetTitle();
 253
 254             if ( pScSh == SfxObjectShell::Current() )
 255             {
 256                 mnCurrentDocPos = nSelPos = i;
 257                 aEntryName += " ";
 258                 aEntryName += msCurrentDoc;
 259             }
 260
 261             pLbDoc->InsertEntry( aEntryName, i );
 262             pLbDoc->SetEntryData( i, (void*)pScSh->GetDocument() );
 263
 264             i++;
 265         }
 266         pSh = SfxObjectShell::GetNext( *pSh );
 267     }
 268
 269     pLbDoc->SetUpdateMode( sal_True );
 270     pLbDoc->InsertEntry(msNewDoc);
 271     pLbDoc->SelectEntryPos( nSelPos );
 272 }
 273
 274 //------------------------------------------------------------------------
 275 // Handler:
 276
 277 IMPL_LINK( ScMoveTableDlg, CheckBtnHdl, void *, pBtn )
 278 {
 279     if (pBtn == pBtnCopy)
 280         ResetRenameInput();
 281
 282     return 0;
 283 }
 284
 285 IMPL_LINK_NOARG(ScMoveTableDlg, OkHdl)
 286 {
 287     sal_uInt16  nDocSel     = pLbDoc->GetSelectEntryPos();
 288     sal_uInt16  nDocLast    = pLbDoc->GetEntryCount()-1;
 289     sal_uInt16  nTabSel     = pLbTable->GetSelectEntryPos();
 290     sal_uInt16  nTabLast    = pLbTable->GetEntryCount()-1;
 291
 292     nDocument   = (nDocSel != nDocLast) ? nDocSel : SC_DOC_NEW;
 293     nTable      = (nTabSel != nTabLast) ? static_cast<SCTAB>(nTabSel) : SC_TAB_APPEND;
 294     bCopyTable  = pBtnCopy->IsChecked();
 295
 296     if (bCopyTable)
 297     {
 298         // Return an empty string when the new name is the same as the
 299         // automatic name assigned by the document.
 300         OUString aCopyName = maDefaultName;
 301         ScDocument* pDoc = GetSelectedDoc();
 302         if (pDoc)
 303             pDoc->CreateValidTabName(aCopyName);
 304         if (aCopyName == pEdTabName->GetText())
 305             pEdTabName->SetText( OUString() );
 306     }
 307     else
 308     {
 309         // Return an empty string, when the new name is the same as the
 310         // original name.
 311         if (maDefaultName.equals(pEdTabName->GetText()))
 312             pEdTabName->SetText(OUString());
 313     }
 314
 315     EndDialog( RET_OK );
 316
 317     return 0;
 318 }
 319
 320 IMPL_LINK( ScMoveTableDlg, SelHdl, ListBox *, pLb )
 321 {
 322     if ( pLb == pLbDoc )
 323     {
 324         ScDocument* pDoc = GetSelectedDoc();
 325         OUString aName;
 326
 327         pLbTable->Clear();
 328         pLbTable->SetUpdateMode( false );
 329         if ( pDoc )
 330         {
 331             SCTAB nLast = pDoc->GetTableCount()-1;
 332             for ( SCTAB i=0; i<=nLast; i++ )
 333             {
 334                 pDoc->GetName( i, aName );
 335                 pLbTable->InsertEntry( aName, static_cast<sal_uInt16>(i) );
 336             }
 337         }
 338         pLbTable->InsertEntry( ScGlobal::GetRscString(STR_MOVE_TO_END) );
 339         pLbTable->SetUpdateMode( sal_True );
 340         pLbTable->SelectEntryPos( 0 );
 341         ResetRenameInput();
 342     }
 343
 344     return 0;
 345 }
 346
 347 IMPL_LINK( ScMoveTableDlg, CheckNameHdl, Edit *, pEdt )
 348 {
 349     if ( pEdt == pEdTabName )
 350     {
 351         mbEverEdited = true;
 352         CheckNewTabName();
 353     }
 354
 355     return 0;
 356 }
 357
 358
 359
 360 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */