WordProcessor.cpp

/*
 * Copyright(c) Sophist Solutions, Inc. 1990-2025.  All rights reserved
 */
#include "Stroika/Frameworks/StroikaPreComp.h"
 
#include <cctype>
 
#if qStroika_Foundation_Common_Platform_Windows
#include <Windows.h>
#include <commdlg.h>
#include <shellapi.h>
#endif
 
#include "Stroika/Foundation/Characters/CString/Utilities.h"
#include "Stroika/Foundation/Characters/Character.h"
#include "Stroika/Foundation/Characters/CodePage.h"
#include "Stroika/Foundation/Characters/Format.h"
#include "Stroika/Foundation/Characters/String.h"
#include "Stroika/Frameworks/Led/Config.h"
#include "Stroika/Frameworks/Led/SimpleTextStore.h"
#include "Stroika/Frameworks/Led/StyledTextEmbeddedObjects.h"
 
#include "WordProcessor.h"
 
using namespace Stroika::Foundation;
using namespace Stroika::Foundation::Characters;
 
using namespace Stroika::Frameworks;
using namespace Stroika::Frameworks::Led;
using namespace Stroika::Frameworks::Led::StyledTextIO;
 
#if qStroika_Frameworks_Led_SupportGDI
using InteractiveModeUpdater = WordProcessor::InteractiveModeUpdater;
using UndoableContextHelper  = WordProcessor::UndoableContextHelper;
using Tablet_Acquirer        = WordProcessor::Tablet_Acquirer;
#endif
 
/*
 ********************************************************************************
 **************************** ParagraphDatabaseRep ******************************
 ********************************************************************************
 */
ParagraphDatabaseRep::ParagraphDatabaseRep (TextStore& textStore)
    : inheritedMC{textStore, GetStaticDefaultParagraphInfo ()}
{
#if qStroika_Frameworks_Led_SupportGDI
    //tmphack test - see if this fixes SPR#1129
    // LGP 2002-10-19 - didnt appear to work so probably get rid of it - but test some more!!!
    SetPartition (make_shared<WordProcessor::WPPartition> (GetTextStore (), *this));
#else
    SetPartition (make_shared<LineBasedPartition> (GetTextStore ()));
#endif
}
 
void ParagraphDatabaseRep::SetPartition (const shared_ptr<Partition>& partitionPtr)
{
    if (fPartition != partitionPtr) {
        fPartition = partitionPtr;
        // Re-align all the partition elts as close as possible to those appropriate for the new partition.
        CheckMarkerBounaryConstraints (0, GetTextStore ().GetEnd ());
    }
}
 
/*
@METHOD:        WordProcessor::ParagraphDatabaseRep::GetStaticDefaultParagraphInfo
@DESCRIPTION:
    <p>Return the default @'ParagraphInfo' object used when the paragraph database object is created.</p>
*/
ParagraphInfo ParagraphDatabaseRep::GetStaticDefaultParagraphInfo ()
{
    ParagraphInfo defaultPi;
    const int     kDefaultInches = 6;
    defaultPi.SetMargins (TWIPS{0}, TWIPS (kDefaultInches * 1440));
    defaultPi.SetJustification (eLeftJustify);
    return defaultPi;
}
 
const ParagraphInfo& ParagraphDatabaseRep::GetParagraphInfo (size_t charAfterPos) const
{
    return GetInfo (charAfterPos);
}
 
vector<pair<ParagraphInfo, size_t>> ParagraphDatabaseRep::GetParagraphInfo (size_t charAfterPos, size_t nTCharsFollowing) const
{
    return GetInfo (charAfterPos, nTCharsFollowing);
}
 
void ParagraphDatabaseRep::SetParagraphInfo (size_t charAfterPos, size_t nTCharsFollowing, const IncrementalParagraphInfo& infoForMarkers)
{
    if (infoForMarkers.GetMargins_Valid ()) {
        fCachedFarthestRightMarginInDocument = kBadCachedFarthestRightMarginInDocument;
    }
    SetInfo (charAfterPos, nTCharsFollowing, infoForMarkers);
}
 
void ParagraphDatabaseRep::SetParagraphInfo (size_t charAfterPos, const vector<pair<IncrementalParagraphInfo, size_t>>& infoForMarkers)
{
    for (auto i = infoForMarkers.begin (); i != infoForMarkers.end (); ++i) {
        if ((*i).first.GetMargins_Valid ()) {
            fCachedFarthestRightMarginInDocument = kBadCachedFarthestRightMarginInDocument;
            break;
        }
    }
    SetInfos (charAfterPos, infoForMarkers);
}
 
void ParagraphDatabaseRep::SetParagraphInfo (size_t charAfterPos, const vector<pair<ParagraphInfo, size_t>>& infoForMarkers)
{
    fCachedFarthestRightMarginInDocument = kBadCachedFarthestRightMarginInDocument;
    SetInfos2 (charAfterPos, infoForMarkers);
}
 
/*
@METHOD:        WordProcessor::ParagraphDatabaseRep::SetInfo
@DESCRIPTION:   <p>Override @'MarkerCover<MARKER,MARKERINFO,INCREMENTALMARKERINFO>::SetInfos' to assure we have a partition
            associated with us before allowing changes. This partition can be changed later.</p>
*/
void ParagraphDatabaseRep::SetInfo (size_t charAfterPos, size_t nTCharsFollowing, const IncrementalParagraphInfo& infoForMarkers)
{
    Assert (fPartition.get () != nullptr);
    inheritedMC::SetInfo (charAfterPos, nTCharsFollowing, infoForMarkers);
}
 
void ParagraphDatabaseRep::SetInfos (size_t charAfterPos, const vector<pair<IncrementalParagraphInfo, size_t>>& infoForMarkers)
{
    Assert (fPartition.get () != nullptr);
    inheritedMC::SetInfos (charAfterPos, infoForMarkers);
}
 
/*
@METHOD:        WordProcessor::ParagraphDatabaseRep::NoteCoverRangeDirtied
@ACCESS:        protected
@DESCRIPTION:   <p>Override @'MarkerCover<MARKER,MARKERINFO,INCREMENTALMARKERINFO>::NoteCoverRangeDirtied'
            to assure we check boundary contraints (assure paragraph cover markers end on paragraph boundaries,
            as defined by our partition).</p>
*/
void ParagraphDatabaseRep::NoteCoverRangeDirtied (size_t from, size_t to, const MarkerVector& rangeAndSurroundingsMarkers)
{
    inheritedMC::NoteCoverRangeDirtied (from, to, rangeAndSurroundingsMarkers);
    CheckMarkerBounaryConstraints (rangeAndSurroundingsMarkers);
}
 
void ParagraphDatabaseRep::ConstrainSetInfoArgs (size_t* charAfterPos, size_t* nTCharsFollowing)
{
    RequireNotNull (charAfterPos);
    RequireNotNull (nTCharsFollowing);
 
    size_t           from      = *charAfterPos;
    size_t           to        = from + *nTCharsFollowing;
    PartitionMarker* startPara = fPartition->GetPartitionMarkerContainingPosition (from);
    PartitionMarker* endPara   = (to <= startPara->GetEnd ()) ? startPara : fPartition->GetPartitionMarkerContainingPosition (to);
    // If the 'to' position happens to be the exact start of a paritition, it would have also been the end of the previous
    // parition. Take it to be the end of the previous one (unless that would imply no selection)
    if (startPara != endPara and endPara->GetStart () == to) {
        endPara = endPara->GetPrevious ();
    }
    size_t bigFrom = startPara->GetStart ();
    size_t bigEnd  = min (endPara->GetEnd (), GetTextStore ().GetEnd () + 1);
 
    *charAfterPos     = bigFrom;
    *nTCharsFollowing = bigEnd - bigFrom;
}
 
/*
@METHOD:        WordProcessor::ParagraphDatabaseRep::CheckMarkerBounaryConstraints
@ACCESS:        private
@DESCRIPTION:   <p>Called internally to check that all the paragraph info records in the MarkerCover
            respect the contraint that they start and end on paragraph boundaries.</p>
*/
void ParagraphDatabaseRep::CheckMarkerBounaryConstraints (size_t from, size_t to) noexcept
{
    if (fPartition.get () != nullptr) {
        MarkerVector markers = CollectAllInRange_OrSurroundings (from, to);
        sort (markers.begin (), markers.end (), LessThan<ParagraphInfoMarker> ());
        CheckMarkerBounaryConstraints (markers);
    }
}
 
void ParagraphDatabaseRep::CheckMarkerBounaryConstraints (const MarkerVector& rangeAndSurroundingsMarkers) noexcept
{
    /*
     *  For each paragraph style run, check if its edges fall on paragraph (as specified by the partition) boundaries.
     *  If not - then adjust the style runs so they do.
     */
    if (fPartition.get () != nullptr) {
        for (auto i = rangeAndSurroundingsMarkers.begin (); i != rangeAndSurroundingsMarkers.end (); ++i) {
            ParagraphInfoMarker* m = *i;
            AssertNotNull (m);
            size_t m_start; // Use these temporaries as speed tweeks -LGP990310
            size_t m_end;
            m->GetRange (&m_start, &m_end);
            size_t m_length = m_end - m_start;
 
            // Ignore zero-length ParagraphInfoMarkers - they will soon be culled...
            Assert (m->GetLength () == m_length);
            if (m_length != 0) {
                Assert (m_start == m->GetStart ());
                PartitionMarker* partitionElt = fPartition->GetPartitionMarkerContainingPosition (m_start);
                Assert (partitionElt->GetStart () == m->GetStart ()); // cuz we fix these up in order, and can only adjust ends of
                // cur marker, and start of following one
                Assert (m->GetEnd () == m_end);
                size_t partitionElt_end;
                for (; (partitionElt_end = partitionElt->GetEnd ()) < m_end;) {
                    partitionElt = partitionElt->GetNext ();
                    AssertNotNull (partitionElt); // must get to end by markerpos before last marker
                }
                Assert (partitionElt_end == partitionElt->GetEnd ());
 
                /*
                 *      We've now walked all the pms in this ParagraphInfoMarker, and if the last pm end was the same as
                 *  our ParagraphInfoMarker end, were all set. If they are unequal (cuz of how we walked the list), then
                 *  the PM extends PAST our ParagraphInfoMarker end. If so, we must adjust the boundaries between the
                 *  current ParagraphInfoMarker and the following one.
                 *
                 *      Now we have an arbitrary choice to make. Do we move the ParagraphInfoMarker to the right, or to
                 *  the left. This is completely arbitrary, and the only significance is that if we move to the right
                 *  then we lose ParagraphInfo styling of the following sentence when merging them together, and
                 *  if we go the other way, we get the opposite effect.
                 *
                 *      For now, chose to move the ParagraphInfoMarker to the RIGHT.
                 *
                 *      Note - this arbitrary choice has some UI consequences. I've tried (as part of SPR#1072 (2001-11-08)) to
                 *  compare what Led does with MSWord2k, and WordPad. WordPad and MSWord2k behave identically, but somewhat inconsistently
                 *  within themselves. If you have two paras with different style info, if you select the SINGLE NL between the two and delete
                 *  it, the paras are merged with the info from the first paragraph. If you select TWO chars - then the paras are merged
                 *  with the info from the second. VERY strange.
                 *
                 *      Anyhow - for now - with Led - I've decided to adopt the principle that the info resides (logically) in the
                 *  paragraph-termitating character. That implies that when the paragraphs are merged - we copy the info from the
                 *  FOLLOWING paragraph. -- LGP 2001-11-08- SPR#1072.
                 */
                Assert (m->GetEnd () == m_end);
                if (partitionElt_end != m_end) {
                    MarkerVector markers = CollectAllNonEmptyInRange (m_end, m_end + 1);
                    Assert (markers.size () == 1); // Better be exactly ONE following marker
                    ParagraphInfoMarker* followingMarker = markers[0];
                    Assert (m_end == followingMarker->GetStart ()); // Assure these markers I'm operating on are already continguous
                    Assert (partitionElt_end == partitionElt->GetEnd ());
                    GetTextStore ().SetMarkerEnd (m, partitionElt_end);
                    Assert (followingMarker->GetEnd () >= partitionElt->GetEnd ()); // Cannot set negative length
                    Assert (partitionElt_end == partitionElt->GetEnd ());
                    GetTextStore ().SetMarkerStart (followingMarker, partitionElt_end);
                    IncrementalParagraphInfo followingInfo = IncrementalParagraphInfo (followingMarker->GetInfo ());
                    if (followingMarker->GetLength () == 0) {
                        fMarkersToBeDeleted.AccumulateMarkerForDeletion (followingMarker);
                        Assert (partitionElt_end == m->GetEnd ());
                        CheckForMerges (partitionElt_end);
                    }
                    /*
                     *  When we combine two paragraph markers, we must choose which paragraphs info to keep.
                     *  We choose to keep the marker info from the second marker. SPR#1038.
                     *
                     *  But, do this carefully - just to the last partition element's worth of text - not to the last
                     *  paragraph style run element (which could be multiple paragraphs). This was the crux of the fix
                     *  in SPR#1072 (2001-11-08).
                     */
                    SetInfoInnerLoop (partitionElt->GetStart (), partitionElt->GetEnd (), followingInfo,
                                      UpdateInfo (partitionElt->GetStart (), partitionElt->GetEnd (), LED_TCHAR_OF (""), 0, false, false), nullptr);
                    CullZerod (partitionElt->GetStart ());
                    CullZerod (partitionElt->GetEnd ());
                }
            }
        }
    }
}
 
#if qStroika_Foundation_Debug_AssertionsChecked
void ParagraphDatabaseRep::Invariant_ () const
{
    inheritedMC::Invariant_ ();
 
    // Check partition in-sync with our marker alignments
    if (fPartition.get () != nullptr) {
        // all effected text is diff if we did a replace or not - if no, then from-to,
        // else from to from+textInserted (cuz from-to deleted)
        MarkerVector markers = CollectAllInRange_OrSurroundings (0, GetTextStore ().GetLength () + 1);
        sort (markers.begin (), markers.end (), LessThan<ParagraphInfoMarker> ());
        PartitionMarker* lastPartitionElt = nullptr;
        for (auto i = markers.begin (); i != markers.end (); ++i) {
            ParagraphInfoMarker* m = *i;
            Assert (m->GetLength () != 0);
            PartitionMarker* curPartitionElt = fPartition->GetPartitionMarkerContainingPosition (m->GetStart ());
            Assert (curPartitionElt != lastPartitionElt); // cuz then we would have multiple ParagraphInfos in a single PartitionElt
            Assert (curPartitionElt->GetStart () == m->GetStart ()); // partElt boundary must always match start
            Assert (curPartitionElt->GetEnd () <= m->GetEnd ());     // ParagraphInfo contains either one or more (but not less
            // or partial) partition elts
            lastPartitionElt = curPartitionElt;
        }
    }
}
#endif
 
/*
 ********************************************************************************
 ***************************** WordProcessorTable *******************************
 ********************************************************************************
 */
#if qStroika_Frameworks_Led_SupportGDI
class WordProcessorTable::TableCMD : public InteractiveReplaceCommand, public Memory::UseBlockAllocationIfAppropriate<TableCMD> {
private:
    using inherited = InteractiveReplaceCommand;
 
public:
    TableCMD (size_t tableAt, size_t tRow, size_t tCol, SavedTextRep* beforeRegion, SavedTextRep* afterRegion, size_t at, const SDKString& cmdName)
        : inherited (beforeRegion, afterRegion, at, cmdName)
        , fTableAt (tableAt)
        , fTableRow (tRow)
        , fTableColumn (tCol)
    {
    }
 
public:
    virtual void Do (TextInteractor& interactor) override
    {
        WordProcessor&      owningWP = dynamic_cast<WordProcessor&> (interactor);
        WordProcessorTable* aT       = owningWP.GetTableAt (fTableAt);
        AssertNotNull (aT);
        WordProcessorTable::TemporarilySetOwningWP            owningWPSetter (*aT, owningWP);
        WordProcessorTable::TemporarilyAllocateCellWithTablet wp (*aT, fTableRow, fTableColumn);
        inherited::Do (*wp);
    }
    virtual void UnDo (TextInteractor& interactor) override
    {
        WordProcessor&      owningWP = dynamic_cast<WordProcessor&> (interactor);
        WordProcessorTable* aT       = owningWP.GetTableAt (fTableAt);
        AssertNotNull (aT);
        WordProcessorTable::TemporarilySetOwningWP            owningWPSetter (*aT, owningWP);
        WordProcessorTable::TemporarilyAllocateCellWithTablet wp (*aT, fTableRow, fTableColumn);
        inherited::UnDo (*wp);
    }
    virtual void ReDo (TextInteractor& interactor) override
    {
        WordProcessor&      owningWP = dynamic_cast<WordProcessor&> (interactor);
        WordProcessorTable* aT       = owningWP.GetTableAt (fTableAt);
        AssertNotNull (aT);
        WordProcessorTable::TemporarilySetOwningWP            owningWPSetter (*aT, owningWP);
        WordProcessorTable::TemporarilyAllocateCellWithTablet wp (*aT, fTableRow, fTableColumn);
        inherited::ReDo (*wp);
    }
 
protected:
    size_t fTableAt;
    size_t fTableRow;
    size_t fTableColumn;
};
#endif
 
/*
 *  can only be called inside the context of WordProcessorTable::TemporarilySetOwningWP
 *  since that is what provides our external (window) coordinate system
 */
#define Led_Require_CurrentOwningWP() RequireNotNull (fCurrentOwningWP)
 
/*
@METHOD:        WordProcessorTable::WordProcessorTable
@DESCRIPTION:   <p>You generally don't construct a table object directly, but rather using
            @'WordProcessor::InsertTable'.</p>
*/
WordProcessorTable::WordProcessorTable (AbstractParagraphDatabaseRep* tableOwner, size_t addAt)
{
    FinalizeAddition (tableOwner, addAt);
}
 
WordProcessorTable::~WordProcessorTable ()
{
#if qStroika_Frameworks_Led_SupportGDI
    if (fCellUpdatePropationUpdater != nullptr) {
        Assert (false); // This should only happen if an earlier update was aborted (throw). NOT really a bug
        // if this gets triggered. Just for informational purposes (debugging) only
        fCellUpdatePropationUpdater->Cancel ();
        delete fCellUpdatePropationUpdater;
    }
    Assert (fCurrentOwningWP == nullptr);
#endif
}
 
void WordProcessorTable::FinalizeAddition (AbstractParagraphDatabaseRep* o, size_t addAt)
{
    RequireNotNull (o);
#if qStroika_Frameworks_Led_SupportGDI
    TextStore&               ts = o->GetTextStore ();
    TextStore::SimpleUpdater updater (ts, addAt, addAt + 1);
    ts.ReplaceWithoutUpdate (addAt, addAt, &kEmbeddingSentinelChar, 1);
    ts.AddMarker (this, addAt, 1, o);
#endif
}
 
Color WordProcessorTable::GetTableBorderColor () const
{
    return fBorderColor;
}
 
void WordProcessorTable::SetTableBorderColor (Color c)
{
    fBorderColor = c;
}
 
TWIPS WordProcessorTable::GetTableBorderWidth () const
{
    return fBorderWidth;
}
 
void WordProcessorTable::SetTableBorderWidth (TWIPS w)
{
    fBorderWidth = w;
}
 
TWIPS WordProcessorTable::GetColumnWidth (size_t row, size_t column) const
{
    if (GetCellFlags (row, column) != ePlainCell) {
        return TWIPS{0}; // NOT REALLY SURE WHAT THIS SHOULD DO!!!
    }
 
    return GetCell (row, column).GetCellXWidth ();
}
 
void WordProcessorTable::SetColumnWidth (size_t row, size_t column, TWIPS colWidth)
{
    GetCell (row, column).SetCellXWidth (colWidth);
#if qStroika_Frameworks_Led_SupportGDI
    InvalidateLayout ();
#endif
}
 
Color WordProcessorTable::GetCellColor (size_t row, size_t column) const
{
    return GetCell (row, column).GetBackColor ();
}
 
void WordProcessorTable::SetCellColor (size_t row, size_t column, const Color& c)
{
    Cell cell = GetCell (row, column);
    cell.SetBackColor (c);
}
 
size_t WordProcessorTable::GetColumnCount (size_t row) const
{
    Require (row < GetRowCount ());
    return fRows[row].fCells.size ();
}
 
size_t WordProcessorTable::GetColumnCount (size_t rowStart, size_t rowEnd) const
{
    Require (rowStart <= GetRowCount ());
    Require (rowEnd <= GetRowCount ());
    size_t colCount = 0;
    for (size_t ri = rowStart; ri < rowEnd; ++ri) {
        colCount = max (colCount, fRows[ri].fCells.size ());
    }
    return colCount;
}
 
void WordProcessorTable::SetColumnCount (size_t row, size_t columns)
{
    Require (row < GetRowCount ());
    size_t curColCount = fRows[row].fCells.size ();
    if (curColCount != columns) {
        vector<Cell>& rowCells = fRows[row].fCells;
        while (curColCount < columns) {
            Cell cell (*this, ePlainCell);
            rowCells.push_back (cell);
            ++curColCount;
        }
        while (curColCount > columns) {
            --curColCount;
            rowCells.erase (rowCells.begin () + curColCount);
        }
    }
}
 
/*
@METHOD:        WordProcessorTable::GetCellWordProcessorDatabases
@ACCESS:        public
@DESCRIPTION:   <p>Retrieve  the various databases (textstore, style etc) associated
            with the given cell. Arguments CAN be null. Only non-null pointer values
            are filled in.</p>
*/
void WordProcessorTable::GetCellWordProcessorDatabases (size_t row, size_t column, TextStore** ts, shared_ptr<AbstractStyleDatabaseRep>* styleDatabase,
                                                        shared_ptr<AbstractParagraphDatabaseRep>* paragraphDatabase,
                                                        shared_ptr<HidableTextMarkerOwner>*       hidableTextDatabase)
{
    Require (row < GetRowCount ());
    Require (column < GetColumnCount (row));
    const Cell& c = GetCell (row, column);
    if (ts != nullptr) {
        *ts = &c.GetTextStore ();
    }
    if (styleDatabase != nullptr) {
        *styleDatabase = c.GetStyleDatabase ();
    }
    if (paragraphDatabase != nullptr) {
        *paragraphDatabase = c.GetParagraphDatabase ();
    }
    if (hidableTextDatabase != nullptr) {
        *hidableTextDatabase = c.GetHidableTextDatabase ();
    }
}
 
/*
 ********************************************************************************
 ************************** WordProcessorTable::Cell ****************************
 ********************************************************************************
 */
WordProcessorTable::Cell::Cell (WordProcessorTable& forTable, CellMergeFlags mergeFlags)
    : fCellMergeFlags{mergeFlags}
    , fCellRep{mergeFlags == ePlainCell ? (new CellRep (forTable)) : nullptr}
{
}
 
/*
@METHOD:        WordProcessorTable::Cell::GetCellWordProcessorDatabases
@ACCESS:        public
@DESCRIPTION:   <p>Retrieve  the various databases (textstore, style etc) associated with the given cell. Arguments
            CAN be null. Only non-null pointer valeus
            are filled in.</p>
*/
void WordProcessorTable::Cell::GetCellWordProcessorDatabases (TextStore** ts, shared_ptr<AbstractStyleDatabaseRep>* styleDatabase,
                                                              shared_ptr<AbstractParagraphDatabaseRep>* paragraphDatabase,
                                                              shared_ptr<HidableTextMarkerOwner>*       hidableTextDatabase)
{
    Require (fCellMergeFlags == ePlainCell);
    if (ts != nullptr) {
        *ts = &GetTextStore ();
    }
    if (styleDatabase != nullptr) {
        *styleDatabase = GetStyleDatabase ();
    }
    if (paragraphDatabase != nullptr) {
        *paragraphDatabase = GetParagraphDatabase ();
    }
    if (hidableTextDatabase != nullptr) {
        *hidableTextDatabase = GetHidableTextDatabase ();
    }
}
 
TextStore& WordProcessorTable::Cell::GetTextStore () const
{
    Require (fCellMergeFlags == ePlainCell);
    EnsureNotNull (fCellRep->fTextStore);
    return *fCellRep->fTextStore;
}
 
shared_ptr<AbstractStyleDatabaseRep> WordProcessorTable::Cell::GetStyleDatabase () const
{
    Require (fCellMergeFlags == ePlainCell);
    return fCellRep->fStyleDatabase;
}
 
shared_ptr<AbstractParagraphDatabaseRep> WordProcessorTable::Cell::GetParagraphDatabase () const
{
    Require (fCellMergeFlags == ePlainCell);
    return fCellRep->fParagraphDatabase;
}
 
shared_ptr<HidableTextMarkerOwner> WordProcessorTable::Cell::GetHidableTextDatabase () const
{
    Require (fCellMergeFlags == ePlainCell);
    return fCellRep->fHidableTextDatabase;
}
 
Color WordProcessorTable::Cell::GetBackColor () const
{
    Require (fCellMergeFlags == ePlainCell);
    return fCellRep->fBackColor;
}
 
void WordProcessorTable::Cell::SetBackColor (Color c)
{
    Require (fCellMergeFlags == ePlainCell);
    fCellRep->fBackColor = c;
}
 
/*
 ********************************************************************************
 ************************ WordProcessorTable::CellRep ***************************
 ********************************************************************************
 */
WordProcessorTable::CellRep::CellRep (WordProcessorTable& forTable)
    : fForTable (forTable)
    , fTextStore (nullptr)
    , fStyleDatabase ()
    , fParagraphDatabase ()
    , fHidableTextDatabase ()
    , fBackColor (Color::kWhite)
    , fCachedBoundsRect (Led_Rect (0, 0, 0, 0))
#if qStroika_Frameworks_Led_SupportGDI
    , fCellXWidth (Led_CvtScreenPixelsToTWIPSH (75)) // This should be overridden someplace - depending on how the table is constructed - but
// in case its not, and until it is, leave in a vaguely reasonable number - LGP 2003-04-17
#else
    , fCellXWidth{75}
#endif
{
    fTextStore = new SimpleTextStore ();
    fTextStore->AddMarkerOwner (this);
    fStyleDatabase       = make_shared<StyleDatabaseRep> (*fTextStore);
    fParagraphDatabase   = make_shared<ParagraphDatabaseRep> (*fTextStore);
    fHidableTextDatabase = make_shared<UniformHidableTextMarkerOwner> (*fTextStore);
}
 
WordProcessorTable::CellRep::~CellRep ()
{
    Require (fStyleDatabase.use_count () == 1);       // hack to debug SPR#1465
    Require (fParagraphDatabase.use_count () == 1);   // ''
    Require (fHidableTextDatabase.use_count () == 1); // ''
    fStyleDatabase.reset ();
    fParagraphDatabase.reset ();
    fHidableTextDatabase.reset ();
    if (fTextStore != nullptr) {
        fTextStore->RemoveMarkerOwner (this);
    }
    delete fTextStore;
}
 
TextStore* WordProcessorTable::CellRep::PeekAtTextStore () const
{
    return fTextStore;
}
 
void WordProcessorTable::CellRep::AboutToUpdateText (const UpdateInfo& updateInfo)
{
    inherited::AboutToUpdateText (updateInfo);
    if (fForTable.fAllowUpdateInfoPropagationContext and updateInfo.fRealContentUpdate) {
        if (fForTable.fCellUpdatePropationUpdater != nullptr) {
            Assert (false); // This should only happen if an earlier update was aborted (throw). NOT really a bug
            // if this gets triggered. Just for informational purposes (debugging) only
            fForTable.fCellUpdatePropationUpdater->Cancel ();
            delete fForTable.fCellUpdatePropationUpdater;
            fForTable.fCellUpdatePropationUpdater = nullptr;
        }
        fForTable.fCellUpdatePropationUpdater =
            new TextStore::SimpleUpdater (fForTable.GetOwner ()->GetTextStore (), fForTable.GetStart (), fForTable.GetEnd ());
    }
}
 
void WordProcessorTable::CellRep::DidUpdateText (const UpdateInfo& updateInfo) noexcept
{
    inherited::DidUpdateText (updateInfo);
    if (not fForTable.fSuppressCellUpdatePropagationContext) {
        fForTable.InvalidateLayout ();
    }
    if (fForTable.fAllowUpdateInfoPropagationContext and updateInfo.fRealContentUpdate) {
        AssertNotNull (fForTable.fCellUpdatePropationUpdater);
        delete fForTable.fCellUpdatePropationUpdater; // NB: This calls the DidUpdate calls for the table itself and its owners...
        fForTable.fCellUpdatePropationUpdater = nullptr;
    }
}
 
/*
 ********************************************************************************
 *************************** WordProcessorTextIOSinkStream **********************
 ********************************************************************************
 */
namespace {
    inline TWIPS CalcDefaultRHSMargin_ ()
    {
        const int kRTF_SPEC_DefaultInches = 6; // HACK - see comments in SinkStreamDestination::SetRightMargin ()
        int       rhsTWIPS                = kRTF_SPEC_DefaultInches * 1440;
        return TWIPS{rhsTWIPS};
    }
}
 
WordProcessorTextIOSinkStream::WordProcessorTextIOSinkStream (TextStore* textStore, const shared_ptr<AbstractStyleDatabaseRep>& textStyleDatabase,
                                                              const shared_ptr<AbstractParagraphDatabaseRep>& paragraphDatabase,
                                                              const shared_ptr<HidableTextMarkerOwner>& hidableTextDatabase, size_t insertionStart)
    : inherited{textStore, textStyleDatabase, insertionStart}
    , fOverwriteTableMode{false}
    ,
#if !qStroika_Frameworks_Led_NestedTablesSupported
    fNoTablesAllowed{false}
    ,
#endif
    fSavedContexts{}
    , fParagraphDatabase{paragraphDatabase}
    , fHidableTextDatabase{hidableTextDatabase}
    , fSavedParaInfo{}
    , fNewParagraphInfo{}
    , fTextHidden{false}
    , fHidableTextRuns{}
    , fEndOfBuffer{false}
    , fIgnoreLastParaAttributes{false}
    , fCurrentTable{nullptr}
    , fCurrentTableCellWidths{}
    , fCurrentTableCellColor{Color::kWhite}
    , fCurrentTableColSpanArray{}
    , fTableStack{}
    , fNextTableRow{0}
    , fNextTableCell{0}
    , fCurrentTableCell{size_t (-1)}
#if qStroika_Foundation_Debug_AssertionsChecked
    , fTableOpenLevel{0}
    , fTableRowOpen{false}
    , fTableCellOpen{false}
#endif
{
    CTOR_COMMON ();
}
 
#if qStroika_Frameworks_Led_SupportGDI
WordProcessorTextIOSinkStream::WordProcessorTextIOSinkStream (WordProcessor* wp, size_t insertionStart)
    : inherited{&wp->GetTextStore (), wp->GetStyleDatabase (), insertionStart}
    , fOverwriteTableMode{false}
    ,
#if !qStroika_Frameworks_Led_NestedTablesSupported
    fNoTablesAllowed{false}
    ,
#endif
    fSavedContexts{}
    , fParagraphDatabase{wp->GetParagraphDatabase ()}
    , fHidableTextDatabase{wp->GetHidableTextDatabase ()}
    , fSavedParaInfo{}
    , fNewParagraphInfo{}
    , fTextHidden{false}
    , fHidableTextRuns{}
    , fEndOfBuffer{false}
    , fIgnoreLastParaAttributes{false}
    , fCurrentTable{nullptr}
    , fCurrentTableCellWidths{}
    , fCurrentTableCellColor{Color::kWhite}
    , fCurrentTableColSpanArray{}
    , fTableStack{}
    , fNextTableRow{0}
    , fNextTableCell{0}
    , fCurrentTableCell{size_t (-1)}
#if qStroika_Foundation_Debug_AssertionsChecked
    , fTableOpenLevel{0}
    , fTableRowOpen{false}
    , fTableCellOpen{false}
#endif
{
    CTOR_COMMON ();
}
#endif
 
WordProcessorTextIOSinkStream::~WordProcessorTextIOSinkStream ()
{
#if qStroika_Foundation_Debug_AssertionsChecked
    Assert (fTableOpenLevel == 0);
    Assert (not fTableRowOpen);
    Assert (not fTableCellOpen);
#endif
    try {
        Flush ();
        Ensure (GetCachedTextSize () == 0); // If flush succeeds, then these must be zero
        Ensure (fSavedParaInfo.size () == 0);
    }
    catch (...) {
        // ignore, cuz cannot fail out of DTOR
    }
}
 
void WordProcessorTextIOSinkStream::CTOR_COMMON ()
{
    fNewParagraphInfo.SetJustification (eLeftJustify);
    fNewParagraphInfo.SetTabStopList (StandardTabStopList{});
    fNewParagraphInfo.SetFirstIndent (TWIPS{0});
    fNewParagraphInfo.SetMargins (TWIPS{0}, CalcDefaultRHSMargin_ ());
    fNewParagraphInfo.SetListStyle (eListStyle_None);
    fNewParagraphInfo.SetSpaceBefore (TWIPS{0});
    fNewParagraphInfo.SetSpaceAfter (TWIPS{0});
}
 
void WordProcessorTextIOSinkStream::AppendText (const Led_tChar* text, size_t nTChars, const FontSpecification* fontSpec)
{
    RequireNotNull (text);
    inherited::AppendText (text, nTChars, fontSpec);
    if (fSavedParaInfo.size () == 0) {
        fSavedParaInfo.push_back (ParaInfoNSize (fNewParagraphInfo, nTChars));
    }
    else if (fSavedParaInfo.back ().first == fNewParagraphInfo) {
        fSavedParaInfo.back ().second += nTChars;
    }
    else {
        fSavedParaInfo.push_back (ParaInfoNSize (fNewParagraphInfo, nTChars));
    }
    if (fHidableTextRuns.size () != 0 and fHidableTextRuns.back ().fData == fTextHidden) {
        fHidableTextRuns.back ().fElementLength += nTChars;
    }
    else {
        fHidableTextRuns.push_back (DiscontiguousRunElement<bool> (0, nTChars, fTextHidden));
    }
}
 
#if qStroika_Frameworks_Led_SupportGDI
void WordProcessorTextIOSinkStream::AppendEmbedding (SimpleEmbeddedObjectStyleMarker* embedding)
{
    RequireNotNull (embedding);
    if (GetCachedTextSize () != 0) {
        Flush ();
    }
    size_t whereToStartHiddenArea = GetInsertionStart ();
    inherited::AppendEmbedding (embedding);
    if (fTextHidden) {
        fHidableTextDatabase->MakeRegionHidable (whereToStartHiddenArea, whereToStartHiddenArea + 1);
    }
}
#endif
 
void WordProcessorTextIOSinkStream::AppendSoftLineBreak ()
{
    AppendText (&kSoftLineBreakChar, 1, nullptr);
}
 
void WordProcessorTextIOSinkStream::SetJustification (Justification justification)
{
    fNewParagraphInfo.SetJustification (justification);
}
 
void WordProcessorTextIOSinkStream::SetStandardTabStopList (const StandardTabStopList& tabStops)
{
    fNewParagraphInfo.SetTabStopList (tabStops);
}
 
void WordProcessorTextIOSinkStream::SetFirstIndent (TWIPS tx)
{
    fNewParagraphInfo.SetFirstIndent (tx);
}
 
void WordProcessorTextIOSinkStream::SetLeftMargin (TWIPS lhs)
{
    fNewParagraphInfo.SetMargins (lhs, max (TWIPS (lhs + 1), fNewParagraphInfo.GetRightMargin ()));
}
 
void WordProcessorTextIOSinkStream::SetRightMargin (TWIPS rhs)
{
    fNewParagraphInfo.SetMargins (fNewParagraphInfo.GetLeftMargin (), max (TWIPS (fNewParagraphInfo.GetLeftMargin () + 1), rhs));
}
 
void WordProcessorTextIOSinkStream::SetSpaceBefore (TWIPS sb)
{
    fNewParagraphInfo.SetSpaceBefore (sb);
}
 
void WordProcessorTextIOSinkStream::SetSpaceAfter (TWIPS sa)
{
    fNewParagraphInfo.SetSpaceAfter (sa);
}
 
void WordProcessorTextIOSinkStream::SetLineSpacing (LineSpacing sl)
{
    fNewParagraphInfo.SetLineSpacing (sl);
}
 
void WordProcessorTextIOSinkStream::SetTextHidden (bool hidden)
{
    fTextHidden = hidden;
}
 
void WordProcessorTextIOSinkStream::StartTable ()
{
#if qStroika_Foundation_Debug_AssertionsChecked
    // NB: because of nested tables - we COULD be starting a table inside another table.
    // If we are - then we must be inside a table cell (so row/cell must be open). Otherwise, they
    // must both be closed
    if (fTableOpenLevel == 0) {
        // we are NOT in a non-nested case, and so NONE should be open
        Assert (fTableOpenLevel == 0);
        Assert (not fTableRowOpen);
        Assert (not fTableCellOpen);
    }
    else {
        // we must be in a nested case, and so BOTH should be open
        Assert (fTableRowOpen);
        Assert (fTableCellOpen);
    }
    // either way - one we start a new table - they must both be closed
    fTableRowOpen  = false;
    fTableCellOpen = false;
    ++fTableOpenLevel;
#endif
#if !qStroika_Frameworks_Led_NestedTablesSupported
    if (GetNoTablesAllowed ()) {
        return;
    }
#endif
 
    if (GetCachedTextSize () != 0) {
        // Because we address directly into the textstore here - we need any pending writes to actually go in so the right stuff
        // is already in the textstore.
        Flush ();
    }
 
#if qStroika_Frameworks_Led_NestedTablesSupported
    if (fCurrentTable != nullptr) {
        // when we support nested tables for REAL - we need to also save other context like fCurrentTableCellWidths / fCurrentTableColSpanArray
        fTableStack.push_back (fCurrentTable);
    }
    fCurrentTable = nullptr;
#endif
 
    if (GetOverwriteTableMode ()) {
        TextStore&                                  ts             = GetTextStore ();
        size_t                                      realCoordStart = GetInsertionStart ();
        MarkerOfATypeMarkerSink<WordProcessorTable> maybeTable;
        Assert (realCoordStart <= ts.GetEnd ());
        ts.CollectAllMarkersInRangeInto (ts.FindPreviousCharacter (realCoordStart), realCoordStart, fParagraphDatabase.get (), maybeTable);
        if (maybeTable.fResult != nullptr) {
            fCurrentTable      = maybeTable.fResult;
            size_t rowSelStart = 0;
            size_t colSelStart = 0;
            fCurrentTable->GetCellSelection (&rowSelStart, nullptr, &colSelStart, nullptr);
            fNextTableRow     = rowSelStart;
            fNextTableCell    = colSelStart;
            fCurrentTableCell = size_t (-1);
        }
    }
 
    if (fCurrentTable == nullptr) {
        fCurrentTable = new WordProcessorTable (fParagraphDatabase.get (), current_offset () + GetOriginalStart ());
        SetInsertionStart (GetInsertionStart () + 1); // cuz we added a row which adds a sentinel
        fNextTableRow     = 0;
        fNextTableCell    = 0;
        fCurrentTableCell = size_t (-1);
    }
}
 
void WordProcessorTextIOSinkStream::EndTable ()
{
#if qStroika_Foundation_Debug_AssertionsChecked
    Require (fTableOpenLevel >= 1);
    Require (not fTableRowOpen); // caller must close row/cell before closing table
    Require (not fTableCellOpen);
    // if this is a nested table, then the parent scope must have had an open cell/row, and otherwise,
    // NO
    --fTableOpenLevel;
    if (fTableOpenLevel > 0) {
        fTableRowOpen  = true;
        fTableCellOpen = true;
    }
    else {
        fTableRowOpen  = false;
        fTableCellOpen = false;
    }
#endif
#if !qStroika_Frameworks_Led_NestedTablesSupported
    if (GetNoTablesAllowed ()) {
        AppendText (LED_TCHAR_OF ("\n"), 1, nullptr);
        return;
    }
#endif
    if (fCurrentTable != nullptr) {
        // Be careful to protect against unbalanced start/ends cuz of bad StyledTextIO input data
        fCurrentTable = nullptr;
#if qStroika_Frameworks_Led_NestedTablesSupported
        if (not fTableStack.empty ()) {
            fCurrentTable = fTableStack.back ();
            fTableStack.pop_back ();
        }
#endif
    }
}
 
void WordProcessorTextIOSinkStream::StartTableRow ()
{
#if qStroika_Foundation_Debug_AssertionsChecked
    Require (fTableOpenLevel >= 1);
    Require (not fTableRowOpen);
    Require (not fTableCellOpen);
    fTableRowOpen = true;
#endif
#if !qStroika_Frameworks_Led_NestedTablesSupported
    if (GetNoTablesAllowed ()) {
        fNextTableCell = 0;
        AppendText (LED_TCHAR_OF ("\n"), 1, nullptr);
        return;
    }
#endif
    RequireNotNull (fCurrentTable);
    ++fNextTableRow;
    if (GetOverwriteTableMode ()) {
        if (fNextTableRow > fCurrentTable->GetRowCount ()) {
            fCurrentTable->InsertRow (fNextTableRow - 1, 1);
        }
        size_t colSelStart = 0;
        fCurrentTable->GetCellSelection (nullptr, nullptr, &colSelStart, nullptr);
        fNextTableCell = min (fCurrentTable->GetColumnCount (fNextTableRow - 1) - 1, colSelStart);
    }
    else {
        fNextTableCell = 0;
        fCurrentTable->InsertRow (fNextTableRow - 1, 1);
    }
    fCurrentTableColSpanArray.clear ();
}
 
void WordProcessorTextIOSinkStream::EndTableRow ()
{
#if qStroika_Foundation_Debug_AssertionsChecked
    Require (fTableOpenLevel >= 1);
    Require (fTableRowOpen);
    Require (not fTableCellOpen);
    fTableRowOpen = false;
#endif
#if !qStroika_Frameworks_Led_NestedTablesSupported
    if (GetNoTablesAllowed ()) {
        return;
    }
#endif
    AssertNotNull (fCurrentTable);
    size_t nCellsInThisRow = fCurrentTableCellWidths.size ();
 
    while (nCellsInThisRow > fCurrentTableColSpanArray.size ()) {
        // treat missing startcell/endcell pairs as just colWidth = 1
        fCurrentTableColSpanArray.push_back (1);
    }
 
    if (nCellsInThisRow != fCurrentTableColSpanArray.size ()) {
        // For HTML readers - they don't (generally) call SetCellWidths - and so
        // we don't get extra cells generated in that way. -- LGP 2003-05-22
        nCellsInThisRow = min (nCellsInThisRow, fCurrentTableColSpanArray.size ());
    }
    fCurrentTable->SetColumnCount (fNextTableRow - 1, max (nCellsInThisRow, fCurrentTable->GetColumnCount (fNextTableRow - 1)));
 
    size_t col = 0;
    for (size_t cellIdx = 0; cellIdx < nCellsInThisRow; ++cellIdx) {
        size_t nColsInThisCell = fCurrentTableColSpanArray[cellIdx];
        Assert (nColsInThisCell >= 1);
        Assert (col < fCurrentTable->GetColumnCount ());
 
        TWIPS thisCellWidth = fCurrentTableCellWidths[cellIdx];
        if (nColsInThisCell == 1) {
            Assert (fNextTableRow > 0);
            fCurrentTable->SetColumnWidth (fNextTableRow - 1, col, thisCellWidth);
        }
        else {
            // not sure what to do in this case. All we know is the width of some SET of columns. We don't know how to apportion it between
            // columns. Assume that if it matters - it was specified elsewhere. I COULD use the info based on the existing colwidths
            // to at least set properly the last colwidth...
            TWIPS prevColWidths = TWIPS{0};
            for (size_t i = col; i < col + nColsInThisCell; ++i) {
                Assert (fNextTableRow > 0);
                prevColWidths += fCurrentTable->GetColumnWidth (fNextTableRow - 1, i);
            }
            if (prevColWidths < thisCellWidth) {
                Assert (fNextTableRow > 0);
                fCurrentTable->SetColumnWidth (fNextTableRow - 1, col, thisCellWidth - prevColWidths);
            }
        }
 
        col += nColsInThisCell;
    }
}
 
void WordProcessorTextIOSinkStream::StartTableCell (size_t colSpan)
{
#if qStroika_Foundation_Debug_AssertionsChecked
 
    Require (fTableOpenLevel >= 1);
    Require (fTableRowOpen);
    Require (not fTableCellOpen);
    fTableCellOpen = true;
#endif
 
#if !qStroika_Frameworks_Led_NestedTablesSupported
    if (GetNoTablesAllowed ()) {
        if (fNextTableCell >= 1) {
            AppendText (LED_TCHAR_OF ("\t"), 1, nullptr);
        }
        ++fNextTableCell;
        return;
    }
#endif
    Require (colSpan >= 1);
 
    fCurrentTableCell = fNextTableCell;
    fCurrentTableColSpanArray.push_back (colSpan);
    fNextTableCell += colSpan;
 
    AssertNotNull (fCurrentTable);
    fCurrentTable->SetColumnCount (fNextTableRow - 1, max (fNextTableCell, fCurrentTable->GetColumnCount (fNextTableRow - 1)));
 
    Assert (fNextTableRow > 0);
    Assert (fNextTableCell > 0);
 
    TextStore*                               ts = nullptr;
    shared_ptr<AbstractStyleDatabaseRep>     styleDatabase;
    shared_ptr<AbstractParagraphDatabaseRep> paragraphDatabase;
    shared_ptr<HidableTextMarkerOwner>       hidableTextDatabase;
    fCurrentTable->GetCellWordProcessorDatabases (fNextTableRow - 1, fCurrentTableCell, &ts, &styleDatabase, &paragraphDatabase, &hidableTextDatabase);
    PushContext (ts, styleDatabase, paragraphDatabase, hidableTextDatabase, 0);
    if (GetOverwriteTableMode ()) {
        ts->Replace (0, ts->GetLength (), nullptr, 0);
    }
}
 
void WordProcessorTextIOSinkStream::EndTableCell ()
{
#if qStroika_Foundation_Debug_AssertionsChecked
    Require (fTableOpenLevel >= 1);
    Require (fTableRowOpen);
    Require (fTableCellOpen);
    fTableCellOpen = false;
#endif
#if !qStroika_Frameworks_Led_NestedTablesSupported
    if (GetNoTablesAllowed ()) {
        return;
    }
#endif
    Flush ();
    fCurrentTable->SetCellColor (fNextTableRow - 1, fCurrentTableCell, fCurrentTableCellColor);
    PopContext ();
}
 
void WordProcessorTextIOSinkStream::SetListStyle (ListStyle listStyle)
{
    fNewParagraphInfo.SetListStyle (listStyle);
}
 
void WordProcessorTextIOSinkStream::SetListIndentLevel (unsigned char indentLevel)
{
    fNewParagraphInfo.SetListIndentLevel (indentLevel);
}
 
void WordProcessorTextIOSinkStream::SetIgnoreLastParaAttributes (bool ignoreLastParaAttributes)
{
    fIgnoreLastParaAttributes = ignoreLastParaAttributes;
}
 
void WordProcessorTextIOSinkStream::SetTableBorderColor (Color c)
{
    if (fCurrentTable != nullptr) {
        fCurrentTable->SetTableBorderColor (c);
    }
}
 
void WordProcessorTextIOSinkStream::SetTableBorderWidth (TWIPS bWidth)
{
    if (fCurrentTable != nullptr) {
        fCurrentTable->SetTableBorderWidth (bWidth);
    }
}
 
void WordProcessorTextIOSinkStream::SetCellWidths (const vector<TWIPS>& cellWidths)
{
    if (fCurrentTable != nullptr) {
        fCurrentTableCellWidths = cellWidths;
    }
}
 
void WordProcessorTextIOSinkStream::SetCellBackColor (const Color c)
{
    if (fCurrentTable != nullptr) {
        fCurrentTableCellColor = c;
    }
}
 
void WordProcessorTextIOSinkStream::SetDefaultCellMarginsForCurrentRow (TWIPS top, TWIPS left, TWIPS bottom, TWIPS right)
{
    // RTF spec seems to indicate that default cell margins can be specified on
    // a per-row basis, whereas the MSWord XP UI seems to do it on a per-table basis. Anyhow, no
    // matter - as for now - all WE support is on a per table basis, so just update that
    //              -- LGP 2003-04-30
    if (fCurrentTable != nullptr) {
        fCurrentTable->SetDefaultCellMargins (top, left, bottom, right);
    }
}
 
void WordProcessorTextIOSinkStream::SetDefaultCellSpacingForCurrentRow (TWIPS top, TWIPS left, TWIPS bottom, TWIPS right)
{
    // RTF spec seems to indicate that default cell spacing can be specified on
    // a per-row basis, whereas the MSWord XP UI seems to do it on a per-table basis. Anyhow, no
    // matter - as for now - all WE support is on a per table basis, so just update that
    // Also, the spec allows for a separate value for top/left/bottom/right. Our WP table layout
    // class just uses a single spacing value, so compress them into one for now... (see SPR#1396)
    //              -- LGP 2003-04-30
    if (fCurrentTable != nullptr) {
        TWIPS aveSpacing = TWIPS ((top + left + bottom + right) / 4);
        fCurrentTable->SetCellSpacing (aveSpacing);
    }
}
 
void WordProcessorTextIOSinkStream::PushContext (TextStore* ts, const shared_ptr<AbstractStyleDatabaseRep>& textStyleDatabase,
                                                 const shared_ptr<AbstractParagraphDatabaseRep>& paragraphDatabase,
                                                 const shared_ptr<HidableTextMarkerOwner>& hidableTextDatabase, size_t insertionStart)
{
    if (GetCachedTextSize () != 0) { // must flush before setting/popping context
        Flush ();
    }
    inherited::PushContext (ts, textStyleDatabase, insertionStart);
    Context c;
    c.fHidableTextDatabase = fHidableTextDatabase;
    c.fParagraphDatabase   = fParagraphDatabase;
    fSavedContexts.push_back (c);
    fHidableTextDatabase = hidableTextDatabase;
    fParagraphDatabase   = paragraphDatabase;
}
 
void WordProcessorTextIOSinkStream::PopContext ()
{
    Require (GetCachedTextSize () == 0); // must flush before setting/popping context
    Require (not fSavedContexts.empty ());
    inherited::PopContext ();
    fHidableTextDatabase = fSavedContexts.back ().fHidableTextDatabase;
    fParagraphDatabase   = fSavedContexts.back ().fParagraphDatabase;
    fSavedContexts.pop_back ();
}
 
void WordProcessorTextIOSinkStream::EndOfBuffer ()
{
    fEndOfBuffer = true;
}
 
void WordProcessorTextIOSinkStream::Flush ()
{
    size_t stripParaCharCount = 0;
    if (fEndOfBuffer and fIgnoreLastParaAttributes) {
        const vector<Led_tChar>& t = GetCachedText ();
        {
            for (auto i = t.rbegin (); i != t.rend (); ++i) {
                if (*i == '\n') {
                    break;
                }
                else {
                    ++stripParaCharCount;
                }
            }
        }
    }
 
    size_t dataSize      = GetCachedTextSize ();
    size_t whereToInsert = GetInsertionStart () - dataSize;
    inherited::Flush ();
 
    // Flush the cached paragraph info
    {
        if constexpr (qStroika_Foundation_Debug_AssertionsChecked) {
            [[maybe_unused]] size_t curInsert = whereToInsert;
            for (auto i = fSavedParaInfo.begin (); i != fSavedParaInfo.end (); ++i) {
                curInsert += (*i).second;
            }
            Assert (curInsert == GetInsertionStart ());
        }
        if (stripParaCharCount != 0) {
            Assert (fSavedParaInfo.size () > 0);
            vector<ParaInfoNSize>::iterator i = fSavedParaInfo.end () - 1;
            if ((*i).second > stripParaCharCount) {
                (*i).second -= stripParaCharCount;
            }
            else {
                fSavedParaInfo.resize (fSavedParaInfo.size () - 1);
            }
        }
        fParagraphDatabase->SetParagraphInfo (whereToInsert, fSavedParaInfo);
        fSavedParaInfo.clear ();
    }
 
    /*
     *  Somewhat of an inelegant hack to work around SPR#1074. The issue is that when we read in an RTF (or other)
     *  document, we don't SET the region just past the end of the document. Still - we use this internally to
     *  store the paragraph info of the last paragraph if it has zero characters (really just if it has
     *  no terminating NL).
     *
     *  For a future release, consider finding a more elegant solution to this. This is the most we can hope
     *  todo so late in the development cycle.
     *
     *      LGP 2001-11-09 - SPR#1074.
     */
    if (fEndOfBuffer and not fIgnoreLastParaAttributes and whereToInsert == fParagraphDatabase->GetTextStore ().GetEnd ()) {
        fParagraphDatabase->SetParagraphInfo (whereToInsert, 1,
                                              IncrementalParagraphInfo (fParagraphDatabase->GetParagraphInfo (
                                                  fParagraphDatabase->GetTextStore ().FindPreviousCharacter (whereToInsert))));
    }
 
    // Flush the cached hidable text info
    {
        vector<pair<size_t, size_t>> hidePairs;
        size_t                       curInsert = whereToInsert;
        for (auto i = fHidableTextRuns.begin (); i != fHidableTextRuns.end (); ++i) {
            if ((*i).fData) {
                hidePairs.push_back (pair<size_t, size_t> (curInsert, curInsert + (*i).fElementLength));
            }
            curInsert += (*i).fElementLength;
        }
        for (auto i = hidePairs.rbegin (); i != hidePairs.rend (); ++i) {
            fHidableTextDatabase->MakeRegionHidable ((*i).first, (*i).second);
        }
        fHidableTextRuns.clear ();
    }
}
 
/*
 ********************************************************************************
 *************************** WordProcessorTextIOSrcStream ***********************
 ********************************************************************************
 */
WordProcessorTextIOSrcStream::WordProcessorTextIOSrcStream (TextStore* textStore, const shared_ptr<AbstractStyleDatabaseRep>& textStyleDatabase,
                                                            const shared_ptr<AbstractParagraphDatabaseRep>& paragraphDatabase,
                                                            const shared_ptr<HidableTextMarkerOwner>&       hidableTextDatabase,
                                                            size_t selectionStart, size_t selectionEnd)
    : inherited{textStore, textStyleDatabase, selectionStart, selectionEnd}
    , fParagraphDatabase{paragraphDatabase}
    , fHidableTextRuns{}
{
 
    if (hidableTextDatabase.get () != nullptr) {
        fHidableTextRuns = hidableTextDatabase->GetHidableRegions (selectionStart, selectionEnd);
    }
}
 
#if qStroika_Frameworks_Led_SupportGDI
WordProcessorTextIOSrcStream::WordProcessorTextIOSrcStream (WordProcessor* textImager, size_t selectionStart, size_t selectionEnd)
    : inherited (textImager, selectionStart, selectionEnd)
    , fParagraphDatabase (textImager->GetParagraphDatabase ())
    , fHidableTextRuns ()
{
    shared_ptr<HidableTextMarkerOwner> hidableTextDatabase = textImager->GetHidableTextDatabase ();
    if (hidableTextDatabase.get () != nullptr) {
        fHidableTextRuns = hidableTextDatabase->GetHidableRegions (selectionStart, selectionEnd);
    }
}
#endif
 
Justification WordProcessorTextIOSrcStream::GetJustification () const
{
    if (fParagraphDatabase.get () == nullptr) {
        return inherited::GetJustification ();
    }
    else {
        return fParagraphDatabase->GetParagraphInfo (GetCurOffset ()).GetJustification ();
    }
}
 
StandardTabStopList WordProcessorTextIOSrcStream::GetStandardTabStopList () const
{
    if (fParagraphDatabase.get () == nullptr) {
        return inherited::GetStandardTabStopList ();
    }
    else {
        return fParagraphDatabase->GetParagraphInfo (GetCurOffset ()).GetTabStopList ();
    }
}
 
TWIPS WordProcessorTextIOSrcStream::GetFirstIndent () const
{
    if (fParagraphDatabase.get () == nullptr) {
        return inherited::GetFirstIndent ();
    }
    else {
        return fParagraphDatabase->GetParagraphInfo (GetCurOffset ()).GetFirstIndent ();
    }
}
 
void WordProcessorTextIOSrcStream::GetMargins (TWIPS* lhs, TWIPS* rhs) const
{
    RequireNotNull (lhs);
    RequireNotNull (rhs);
    if (fParagraphDatabase.get () == nullptr) {
        inherited::GetMargins (lhs, rhs);
    }
    else {
        ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (GetCurOffset ());
        *lhs             = pi.GetLeftMargin ();
        *rhs             = pi.GetRightMargin ();
    }
}
 
/*
@METHOD:        WordProcessor::WordProcessorTextIOSrcStream::GetSpaceBefore
@DESCRIPTION:
*/
TWIPS WordProcessorTextIOSrcStream::GetSpaceBefore () const
{
    if (fParagraphDatabase.get () == nullptr) {
        return inherited::GetSpaceBefore ();
    }
    else {
        ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (GetCurOffset ());
        return pi.GetSpaceBefore ();
    }
}
 
/*
@METHOD:        WordProcessor::WordProcessorTextIOSrcStream::GetSpaceAfter
@DESCRIPTION:
*/
TWIPS WordProcessorTextIOSrcStream::GetSpaceAfter () const
{
    if (fParagraphDatabase.get () == nullptr) {
        return inherited::GetSpaceAfter ();
    }
    else {
        ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (GetCurOffset ());
        return pi.GetSpaceAfter ();
    }
}
 
/*
@METHOD:        WordProcessor::WordProcessorTextIOSrcStream::GetLineSpacing
@DESCRIPTION:
*/
LineSpacing WordProcessorTextIOSrcStream::GetLineSpacing () const
{
    if (fParagraphDatabase.get () == nullptr) {
        return inherited::GetLineSpacing ();
    }
    else {
        ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (GetCurOffset ());
        return pi.GetLineSpacing ();
    }
}
 
/*
@METHOD:        WordProcessor::WordProcessorTextIOSrcStream::GetListStyleInfo
@DESCRIPTION:
*/
void WordProcessorTextIOSrcStream::GetListStyleInfo (ListStyle* listStyle, unsigned char* indentLevel) const
{
    RequireNotNull (listStyle);
    RequireNotNull (indentLevel);
    if (fParagraphDatabase.get () == nullptr) {
        inherited::GetListStyleInfo (listStyle, indentLevel);
    }
    else {
        ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (GetCurOffset ());
        *listStyle       = pi.GetListStyle ();
        *indentLevel     = pi.GetListIndentLevel ();
    }
}
 
Led_tChar WordProcessorTextIOSrcStream::GetSoftLineBreakCharacter () const
{
    return kSoftLineBreakChar;
}
 
DiscontiguousRun<bool> WordProcessorTextIOSrcStream::GetHidableTextRuns () const
{
    return fHidableTextRuns;
}
 
#if qStroika_Frameworks_Led_SupportTables
WordProcessorTextIOSrcStream::Table* WordProcessorTextIOSrcStream::GetTableAt (size_t at) const
{
    Require (fParagraphDatabase.get () != nullptr);
    TextStore&                                  ts             = fParagraphDatabase->GetTextStore ();
    size_t                                      realCoordStart = GetEmbeddingMarkerPosOffset () + at;
    MarkerOfATypeMarkerSink<WordProcessorTable> maybeTable;
    ts.CollectAllMarkersInRangeInto (realCoordStart, realCoordStart + 1, fParagraphDatabase.get (), maybeTable);
    if (maybeTable.fResult == nullptr) {
        return nullptr;
    }
    else {
        /*
         *  Make sure we create a TableIOMapper for just the subset of the document selected. For now, this just
         *  applies to ROWS (no support yet for selecting columns).
         */
        [[maybe_unused]] size_t realCoordEnd = min (maybeTable.fResult->GetEnd (), GetSelEnd ());
        Assert (realCoordStart < realCoordEnd);
        if (fUseTableSelection) {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            maybeTable.fResult->GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
            return new TableIOMapper{*maybeTable.fResult, rowSelStart, rowSelEnd, colSelStart, colSelEnd};
        }
        else {
            return new TableIOMapper{*maybeTable.fResult};
        }
    }
}
#endif
 
void WordProcessorTextIOSrcStream::SummarizeFontAndColorTable (set<SDKString>* fontNames, set<Color>* colorsUsed) const
{
    inherited::SummarizeFontAndColorTable (fontNames, colorsUsed);
 
    {
        TextStore&                                          ts = fParagraphDatabase->GetTextStore ();
        MarkersOfATypeMarkerSink2Vector<WordProcessorTable> tables;
        ts.CollectAllMarkersInRangeInto (GetSelStart (), GetSelEnd (), fParagraphDatabase.get (), tables);
        for (auto i = tables.fResult.begin (); i != tables.fResult.end (); ++i) {
            TableIOMapper tiom (**i);
            size_t        rows = tiom.GetRows ();
            for (size_t r = 0; r < rows; ++r) {
                size_t columns = tiom.GetColumns (r);
                for (size_t c = 0; c < columns; ++c) {
                    unique_ptr<StyledTextIOWriter::SrcStream> subSrcStream (tiom.MakeCellSubSrcStream (r, c));
                    if (subSrcStream.get () != nullptr) {
                        subSrcStream.get ()->SummarizeFontAndColorTable (fontNames, colorsUsed);
                    }
                }
                if (colorsUsed != nullptr) {
                    using CellInfo = StyledTextIOWriter::SrcStream::Table::CellInfo;
                    vector<CellInfo> cellInfos;
                    tiom.GetRowInfo (r, &cellInfos);
                    for (auto ci = cellInfos.begin (); ci != cellInfos.end (); ++ci) {
                        colorsUsed->insert ((*ci).f_clcbpat);
                    }
                }
            }
        }
    }
}
 
/*
 ********************************************************************************
 *********** WordProcessor::WordProcessorTextIOSrcStream::TableIOMapper *********
 ********************************************************************************
 */
WordProcessorTextIOSrcStream::TableIOMapper::TableIOMapper (WordProcessorTable& realTable, size_t startRow, size_t endRow, size_t startCol, size_t endCol)
    : fRealTable{realTable}
    , fStartRow{startRow}
    , fEndRow{endRow}
    , fStartCol{startCol}
    , fEndCol{endCol}
{
    if (fEndRow == static_cast<size_t> (-1)) {
        fEndRow = fRealTable.GetRowCount ();
    }
    if (fEndCol == static_cast<size_t> (-1)) {
        fEndCol = fRealTable.GetColumnCount ();
    }
 
    Ensure (fStartRow < fEndRow); // must be at least one row
    Ensure (fStartCol < fEndCol); // ditto for columns
    Ensure (fEndRow <= fRealTable.GetRowCount ());
    Ensure (fEndCol <= fRealTable.GetColumnCount ());
}
 
size_t WordProcessorTextIOSrcStream::TableIOMapper::GetRows () const
{
    return fEndRow - fStartRow;
}
 
size_t WordProcessorTextIOSrcStream::TableIOMapper::GetColumns (size_t row) const
{
    size_t vRow         = row + fStartRow;
    size_t realColCount = fRealTable.GetColumnCount (vRow);
    size_t pinnedColEnd = min (realColCount, fEndCol);
 
    Assert (pinnedColEnd > fStartCol); // not sure how to deal with this failing - can it?
    // I guess we just pin result at zero??? - LGP 2003-04-11
    return pinnedColEnd - fStartCol;
}
 
void WordProcessorTextIOSrcStream::TableIOMapper::GetRowInfo (size_t row, vector<CellInfo>* cellInfos)
{
    Require (row < GetRows ());
 
    size_t vRow = row + fStartRow;
 
    RequireNotNull (cellInfos);
    size_t columns = GetColumns (row);
    cellInfos->clear ();
    for (size_t c = 0; c < columns; ++c) {
        size_t vCol = c + fStartCol;
        if (fRealTable.GetCellFlags (vRow, vCol) == WordProcessorTable::ePlainCell) {
            CellInfo cellInfo;
            cellInfo.f_clcbpat = fRealTable.GetCellColor (vRow, vCol);
            cellInfo.f_cellx   = fRealTable.GetColumnWidth (vRow, vCol);
            cellInfos->push_back (cellInfo);
        }
        else {
            // if any previous real cell, append this guys colwidth to him...
            if (not cellInfos->empty ()) {
                cellInfos->back ().f_cellx += fRealTable.GetColumnWidth (vRow, vCol);
            }
        }
    }
}
 
StyledTextIOWriter::SrcStream* WordProcessorTextIOSrcStream::TableIOMapper::MakeCellSubSrcStream (size_t row, size_t column)
{
    Require (row < GetRows ());
    Require (column < GetColumns (row));
 
    size_t vRow = row + fStartRow;
    size_t vCol = column + fStartCol;
 
    if (fRealTable.GetCellFlags (vRow, vCol) == WordProcessorTable::ePlainCell) {
        TextStore*                               ts = nullptr;
        shared_ptr<AbstractStyleDatabaseRep>     styleDatabase;
        shared_ptr<AbstractParagraphDatabaseRep> paragraphDatabase;
        shared_ptr<HidableTextMarkerOwner>       hidableTextDatabase;
        fRealTable.GetCellWordProcessorDatabases (vRow, vCol, &ts, &styleDatabase, &paragraphDatabase, &hidableTextDatabase);
        return new WordProcessorTextIOSrcStream (ts, styleDatabase, paragraphDatabase, hidableTextDatabase);
    }
    else {
        return nullptr;
    }
}
 
size_t WordProcessorTextIOSrcStream::TableIOMapper::GetOffsetEnd () const
{
    // The current implementation of tables uses a single embedding object with a single sentinel character
    // for the entire table (no matter how many rows)
    return 1;
}
 
TWIPS_Rect WordProcessorTextIOSrcStream::TableIOMapper::GetDefaultCellMarginsForRow (size_t /*row*/) const
{
    // Right now - our table implementation just has ONE value for the entire table
    TWIPS_Rect cellMargins = TWIPS_Rect (TWIPS{0}, TWIPS{0}, TWIPS{0}, TWIPS{0});
    fRealTable.GetDefaultCellMargins (&cellMargins.top, &cellMargins.left, &cellMargins.bottom, &cellMargins.right);
    return cellMargins;
}
 
TWIPS_Rect WordProcessorTextIOSrcStream::TableIOMapper::GetDefaultCellSpacingForRow (size_t /*row*/) const
{
    // Right now - our table implementation just has ONE value for the entire table
    TWIPS cellSpacing = fRealTable.GetCellSpacing ();
    return TWIPS_Rect (cellSpacing, cellSpacing, TWIPS{0}, TWIPS{0}); // carefull - TLBR sb cellSpacing and last 2 args to TWIPS_Rect::CTOR are height/width!
}
 
#if qStroika_Frameworks_Led_SupportGDI
 
class ParagraphInfoChangeTextRep : public InteractiveReplaceCommand::SavedTextRep {
private:
    using inherited = InteractiveReplaceCommand::SavedTextRep;
 
public:
    using ParaInfoNSize = pair<ParagraphInfo, size_t>;
 
public:
    ParagraphInfoChangeTextRep (WordProcessor* interactor, size_t from, size_t to)
        : inherited (from, to)
        , fSavedInfo ()
    {
        fSavedInfo = interactor->GetParagraphDatabase ()->GetParagraphInfo (from, to - from);
        Assert (GetLength () == to - from);
    }
    virtual size_t GetLength () const override
    {
        size_t len = 0;
        for (auto i = fSavedInfo.begin (); i != fSavedInfo.end (); ++i) {
            len += (*i).second;
        }
        return len;
    }
    virtual void InsertSelf (TextInteractor* interactor, size_t at, [[maybe_unused]] size_t nBytesToOverwrite) override
    {
        RequireNotNull (dynamic_cast<WordProcessor*> (interactor));
        WordProcessor* wp = dynamic_cast<WordProcessor*> (interactor);
        RequireNotNull (wp);
        Assert (nBytesToOverwrite == GetLength ()); // For THIS particular kind of update, the length cannot change since we don't save the text
        shared_ptr<AbstractParagraphDatabaseRep> paraDBase = wp->GetParagraphDatabase ();
        paraDBase->SetParagraphInfo (at, fSavedInfo);
    }
 
private:
    vector<ParaInfoNSize> fSavedInfo;
};
 
// Somewhat kludgy way to share code. Tried a member template, but that caused MSVC60SP1 to crash.
template <typename SPECIALIZER, typename T1>
void InteractiveWPHelper1 (WordProcessor* wp, T1 arg1)
{
    TextInteractor::InteractiveModeUpdater iuMode (*wp);
    using SavedTextRep = InteractiveReplaceCommand::SavedTextRep;
    wp->BreakInGroupedCommands ();
    size_t        selStart = wp->GetSelectionStart ();
    size_t        selEnd   = wp->GetSelectionEnd ();
    SavedTextRep* before   = nullptr;
    SavedTextRep* after    = nullptr;
    try {
        if (wp->GetCommandHandler () != nullptr) {
            before = new ParagraphInfoChangeTextRep (wp, selStart, selEnd);
        }
        SPECIALIZER::DoIt (wp, selStart, selEnd, arg1);
        if (wp->GetCommandHandler () != nullptr) {
            after = new ParagraphInfoChangeTextRep (wp, selStart, selEnd);
            wp->PostInteractiveUndoPostHelper (&before, &after, selStart, SPECIALIZER::GetName (wp));
        }
    }
    catch (...) {
        delete before;
        delete after;
        throw;
    }
    wp->BreakInGroupedCommands ();
}
struct DoIt_SetJustification {
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, Justification justification)
    {
        wp->SetJustification (selStart, selEnd, justification);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fJustificationCommandName;
    }
};
struct DoIt_SetStandardTabStopList {
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, StandardTabStopList tabStops)
    {
        wp->SetStandardTabStopList (selStart, selEnd, tabStops);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fStandardTabStopListCommandName;
    }
};
struct DoIt_SetMargins {
    struct Margins {
        TWIPS fLHS;
        TWIPS fRHS;
        Margins (TWIPS l, TWIPS r)
            : fLHS (l)
            , fRHS (r)
        {
        }
    };
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, Margins margins)
    {
        wp->SetMargins (selStart, selEnd, margins.fLHS, margins.fRHS);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fMarginsCommandName;
    }
};
struct DoIt_SetFirstIndent {
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, TWIPS firstIndent)
    {
        wp->SetFirstIndent (selStart, selEnd, firstIndent);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fFirstIndentCommandName;
    }
};
struct DoIt_SetMarginsAndFirstIndent {
    struct MarginsAndFirstIndent {
        TWIPS fLHS;
        TWIPS fRHS;
        TWIPS fFirstIndent;
        MarginsAndFirstIndent (TWIPS l, TWIPS r, TWIPS firstIndent)
            : fLHS (l)
            , fRHS (r)
            , fFirstIndent (firstIndent)
        {
        }
    };
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, MarginsAndFirstIndent marginsEtc)
    {
        wp->SetMargins (selStart, selEnd, marginsEtc.fLHS, marginsEtc.fRHS);
        wp->SetFirstIndent (selStart, selEnd, marginsEtc.fFirstIndent);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fMarginsAndFirstIndentCommandName;
    }
};
struct DoIt_SetParagraphSpacing {
    struct AllSpacingArgs {
        TWIPS       fSpaceBefore;
        TWIPS       fSpaceAfter;
        LineSpacing fLineSpacing;
        bool        fSBValid, fSAValid, fSLValid;
        AllSpacingArgs (TWIPS sb, bool sbValid, TWIPS sa, bool saValid, LineSpacing sl, bool slValid)
            : fSpaceBefore (sb)
            , fSBValid (sbValid)
            , fSpaceAfter (sa)
            , fSAValid (saValid)
            , fLineSpacing (sl)
            , fSLValid (slValid)
        {
        }
    };
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, AllSpacingArgs spacingArgs)
    {
        if (spacingArgs.fSBValid) {
            wp->SetSpaceBefore (selStart, selEnd, spacingArgs.fSpaceBefore);
        }
        if (spacingArgs.fSAValid) {
            wp->SetSpaceAfter (selStart, selEnd, spacingArgs.fSpaceAfter);
        }
        if (spacingArgs.fSLValid) {
            wp->SetLineSpacing (selStart, selEnd, spacingArgs.fLineSpacing);
        }
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fParagraphSpacingCommandName;
    }
};
struct DoIt_SetListStyle {
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, ListStyle listStyle)
    {
        wp->SetListStyle (selStart, selEnd, listStyle, true);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fSetListStyleCommandName;
    }
};
struct DoIt_IndentUnIndentList {
    static void DoIt (WordProcessor* wp, size_t selStart, size_t selEnd, bool indent)
    {
        unsigned char indentLevel = wp->GetListIndentLevel (selStart);
        if (indent) {
            if (indentLevel < 8) {
                ++indentLevel;
            }
            else {
                Led_BeepNotify ();
            }
        }
        else {
            if (indentLevel > 0) {
                --indentLevel;
            }
            else {
                Led_BeepNotify ();
            }
        }
        wp->SetListIndentLevel (selStart, selEnd, indentLevel, true);
    }
    static SDKString GetName (WordProcessor* wp)
    {
        return wp->GetCommandNames ().fIndentLevelChangeCommandName;
    }
};
 
/*
 ********************************************************************************
 ********************************* WordProcessor ********************************
 ********************************************************************************
 */
WordProcessor::WPIdler::WPIdler ()
    : fWP (nullptr)
{
}
 
void WordProcessor::WPIdler::SpendIdleTime ()
{
    /*
     *  Just randomly grab tables, and lay them out. Don't spend more than kMaxTime per
     *  idle time call. First check if 'fSomeInvalidTables' as a performance hack (SPR#1365).
     */
    AbstractParagraphDatabaseRep* pdbRep = fWP->GetParagraphDatabase ().get ();
    AssertNotNull (pdbRep);
    if (pdbRep->fSomeInvalidTables) {
        constexpr Foundation::Time::DurationSeconds kMaxTime  = 0.2s;
        Foundation::Time::TimePointSeconds          startTime = Time::GetTickCount ();
        Foundation::Time::TimePointSeconds          endTime   = startTime + kMaxTime;
        AssertNotNull (fWP);
        vector<WordProcessorTable*> tables          = fWP->GetTablesInRange (0, fWP->GetEnd ());
        bool                        maybeMoreTables = false;
        for (auto i = tables.begin (); i != tables.end (); ++i) {
            WordProcessorTable* t = *i;
            if (t->fNeedLayout != WordProcessorTable::eDone) {
                WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*t, *fWP);
                t->PerformLayout ();
                if (endTime < Time::GetTickCount ()) {
                    maybeMoreTables = true;
                    break;
                }
            }
        }
        pdbRep->fSomeInvalidTables = maybeMoreTables;
    }
}
 
/*
 ********************************************************************************
 ******************* WordProcessor::DialogSupport *******************************
 ********************************************************************************
 */
WordProcessor::DialogSupport::FontNameSpecifier WordProcessor::DialogSupport::CmdNumToFontName (CommandNumber /*cmdNum*/)
{
 
    Assert (false); // must be overriden - or don't include / enable commands that refer to this method.
    return FontNameSpecifier ();
}
 
bool WordProcessor::DialogSupport::IsPredefinedFontSize (DistanceType fontSize)
{
    switch (fontSize) {
        case 9:
            return true;
        case 10:
            return true;
        case 12:
            return true;
        case 14:
            return true;
        case 18:
            return true;
        case 24:
            return true;
        case 36:
            return true;
        case 48:
            return true;
        case 72:
            return true;
        default:
            return false;
    }
}
 
DistanceType WordProcessor::DialogSupport::FontCmdToSize (CommandNumber commandNum)
{
    switch (commandNum) {
        case kFontSize9_CmdID:
            return 9;
        case kFontSize10_CmdID:
            return 10;
        case kFontSize12_CmdID:
            return 12;
        case kFontSize14_CmdID:
            return 14;
        case kFontSize18_CmdID:
            return 18;
        case kFontSize24_CmdID:
            return 24;
        case kFontSize36_CmdID:
            return 36;
        case kFontSize48_CmdID:
            return 48;
        case kFontSize72_CmdID:
            return 72;
    }
    return 0;
}
 
DistanceType WordProcessor::DialogSupport::PickOtherFontHeight (DistanceType /*origHeight*/)
{
    Assert (false); // You must implement this yourself in your own subclass - or don't enable commands that call it.
    return 0;
}
 
bool WordProcessor::DialogSupport::PickNewParagraphLineSpacing (TWIPS* /*spaceBefore*/, bool* /*spaceBeforeValid*/, TWIPS* /*spaceAfter*/,
                                                                bool* /*spaceAfterValid*/, LineSpacing* /*lineSpacing*/, bool* /*lineSpacingValid*/)
{
    Assert (false); // You must implement this yourself in your own subclass - or don't enable commands that call it.
    return false;
}
 
bool WordProcessor::DialogSupport::PickNewParagraphMarginsAndFirstIndent (TWIPS* /*leftMargin*/, bool* /*leftMarginValid*/, TWIPS* /*rightMargin*/,
                                                                          bool* /*rightMarginValid*/, TWIPS* /*firstIndent*/, bool* /*firstIndentValid*/)
{
    Assert (false); // You must implement this yourself in your own subclass - or don't enable commands that call it.
    return false;
}
 
Color WordProcessor::DialogSupport::FontCmdToColor (CommandNumber cmd)
{
    switch (cmd) {
        case kFontColorBlack_CmdID:
            return Color::kBlack;
        case kFontColorMaroon_CmdID:
            return Color::kMaroon;
        case kFontColorGreen_CmdID:
            return Color::kGreen;
        case kFontColorOlive_CmdID:
            return Color::kOlive;
        case kFontColorNavy_CmdID:
            return Color::kNavyBlue;
        case kFontColorPurple_CmdID:
            return Color::kPurple;
        case kFontColorTeal_CmdID:
            return Color::kTeal;
        case kFontColorGray_CmdID:
            return Color::kGray;
        case kFontColorSilver_CmdID:
            return Color::kSilver;
        case kFontColorRed_CmdID:
            return Color::kRed;
        case kFontColorLime_CmdID:
            return Color::kLimeGreen;
        case kFontColorYellow_CmdID:
            return Color::kYellow;
        case kFontColorBlue_CmdID:
            return Color::kBlue;
        case kFontColorFuchsia_CmdID:
            return Color::kFuchsia;
        case kFontColorAqua_CmdID:
            return Color::kAqua;
        case kFontColorWhite_CmdID:
            return Color::kWhite;
    }
    Assert (false);
    return Color::kBlack;
}
 
WordProcessor::DialogSupport::CommandNumber WordProcessor::DialogSupport::FontColorToCmd (Color color)
{
    if (color == Color::kBlack) {
        return kFontColorBlack_CmdID;
    }
    else if (color == Color::kMaroon) {
        return kFontColorMaroon_CmdID;
    }
    else if (color == Color::kGreen) {
        return kFontColorGreen_CmdID;
    }
    else if (color == Color::kOlive) {
        return kFontColorOlive_CmdID;
    }
    else if (color == Color::kNavyBlue) {
        return kFontColorNavy_CmdID;
    }
    else if (color == Color::kPurple) {
        return kFontColorPurple_CmdID;
    }
    else if (color == Color::kTeal) {
        return kFontColorTeal_CmdID;
    }
    else if (color == Color::kGray) {
        return kFontColorGray_CmdID;
    }
    else if (color == Color::kSilver) {
        return kFontColorSilver_CmdID;
    }
    else if (color == Color::kRed) {
        return kFontColorRed_CmdID;
    }
    else if (color == Color::kGreen) {
        return kFontColorLime_CmdID;
    }
    else if (color == Color::kYellow) {
        return kFontColorYellow_CmdID;
    }
    else if (color == Color::kBlue) {
        return kFontColorBlue_CmdID;
    }
    else if (color == Color::kFuchsia) {
        return kFontColorFuchsia_CmdID;
    }
    else if (color == Color::kAqua) {
        return kFontColorAqua_CmdID;
    }
    else if (color == Color::kWhite) {
        return kFontColorWhite_CmdID;
    }
    else {
        // Now - double check. User could have overridden our FontCmdToColor () method to specify new commands.
        // catch those as well (at a slight performance cost)
        for (CommandNumber i = kBaseFontColor_CmdID; i <= kLastNamedFontColor_CmdID; ++i) {
            if (FontCmdToColor (i) == color) {
                return i;
            }
        }
        return kFontColorOther_CmdID;
    }
}
 
bool WordProcessor::DialogSupport::PickOtherFontColor (Color* color)
{
    RequireNotNull (color);
 
#if qStroika_Foundation_Common_Platform_MacOS
    RGBColor oldColor = color->GetOSRep ();
    RGBColor newColor = oldColor;
    Point    where    = {0, 0};
    if (::GetColor (where, "\pPick new color", &oldColor, &newColor)) {
        *color = Color (newColor);
        return true;
    }
#elif qStroika_Foundation_Common_Platform_Windows
    CHOOSECOLOR cc;
    memset (&cc, 0, sizeof (cc));
    cc.lStructSize = sizeof (cc);
    cc.Flags |= CC_ANYCOLOR;
    cc.rgbResult = color->GetOSRep ();
    cc.Flags |= CC_RGBINIT;
    cc.Flags |= CC_FULLOPEN;
 
    cc.Flags |= CC_ENABLEHOOK;
    cc.lpfnHook = ColorPickerINITPROC;
 
    static COLORREF sCustomColors[16];
    cc.lpCustColors = sCustomColors;
 
    cc.hwndOwner = ::GetActiveWindow (); // Not a great choice - but the best I can come up with from here...
 
    if (::ChooseColor (&cc)) {
        *color = Color (cc.rgbResult);
        return true;
    }
#endif
    return false;
}
 
#if qStroika_Foundation_Common_Platform_Windows
UINT_PTR CALLBACK WordProcessor::DialogSupport::ColorPickerINITPROC (HWND hWnd, UINT message, [[maybe_unused]] WPARAM wParam, [[maybe_unused]] LPARAM lParam)
{
    if (hWnd != nullptr and message == WM_INITDIALOG) {
        Led_CenterWindowInParent (hWnd);
    }
    return 0;
}
#endif
 
bool WordProcessor::DialogSupport::ChooseFont ([[maybe_unused]] IncrementalFontSpecification* font)
{
    RequireNotNull (font);
 
#if qStroika_Foundation_Common_Platform_Windows
    // Copy each valid attribute into the LOGFONT to initialize the CFontDialog
    LOGFONT lf;
    (void)::memset (&lf, 0, sizeof (lf));
    if (font->GetFontNameSpecifier_Valid ()) {
        Characters::CString::Copy (lf.lfFaceName, Memory::NEltsOf (lf.lfFaceName), font->GetFontNameSpecifier ().fName);
        Assert (::_tcslen (lf.lfFaceName) < Memory::NEltsOf (lf.lfFaceName)); // cuz our cached entry - if valid - always short enuf...
    }
    lf.lfWeight    = (font->GetStyle_Bold_Valid () and font->GetStyle_Bold ()) ? FW_BOLD : FW_NORMAL;
    lf.lfItalic    = (font->GetStyle_Italic_Valid () and font->GetStyle_Italic ());
    lf.lfUnderline = (font->GetStyle_Underline_Valid () and font->GetStyle_Underline ());
    lf.lfStrikeOut = (font->GetStyle_Strikeout_Valid () and font->GetStyle_Strikeout ());
 
    if (font->GetPointSize_Valid ()) {
        lf.lfHeight = font->PeekAtTMHeight ();
    }
 
    CHOOSEFONT cc;
    memset (&cc, 0, sizeof (cc));
    cc.lStructSize = sizeof (cc);
    cc.Flags |= CF_SCREENFONTS | CF_NOVERTFONTS | CF_EFFECTS | CF_SCALABLEONLY;
 
    cc.hwndOwner = ::GetActiveWindow (); // Not a great choice - but the best I can come up with from here...
 
    cc.lpLogFont = &lf;
    cc.Flags |= CF_INITTOLOGFONTSTRUCT;
 
    if (font->GetTextColor_Valid ()) {
        cc.rgbColors = font->GetTextColor ().GetOSRep ();
    }
 
    if (::ChooseFont (&cc)) {
        *font = FontSpecification (*cc.lpLogFont);
        font->SetTextColor (Color (cc.rgbColors));
        return true;
    }
#endif
    return false;
}
 
void WordProcessor::DialogSupport::ShowSimpleEmbeddingInfoDialog (const SDKString& /*embeddingTypeName*/)
{
    Assert (false); // You must implement this yourself in your own subclass - or don't enable commands that call it.
}
 
bool WordProcessor::DialogSupport::ShowURLEmbeddingInfoDialog (const SDKString& /*embeddingTypeName*/, SDKString* /*urlTitle*/, SDKString* /*urlValue*/)
{
    Assert (false); // You must implement this yourself in your own subclass - or don't enable commands that call it.
    return false;
}
 
bool WordProcessor::DialogSupport::ShowAddURLEmbeddingInfoDialog (SDKString* /*urlTitle*/, SDKString* /*urlValue*/)
{
    Assert (false); // You must implement this yourself in your own subclass - or don't enable commands that call it.
    return false;
}
 
bool WordProcessor::DialogSupport::AddNewTableDialog (size_t* nRows, size_t* nCols)
{
    RequireNotNull (nRows);
    RequireNotNull (nCols);
    // In case no AddNewTable dialog implemented - just default to simple basic table
    *nRows = 3;
    *nCols = 4;
    return true;
}
 
bool WordProcessor::DialogSupport::EditTablePropertiesDialog ([[maybe_unused]] TableSelectionPropertiesInfo* tableProperties)
{
    RequireNotNull (tableProperties);
    return false; // You must implement this yourself in your own subclass - or don't enable commands that call it.
}
 
/*
 ********************************************************************************
 ********************************* WordProcessor ********************************
 ********************************************************************************
 */
WordProcessor::CommandNames   WordProcessor::sCommandNames  = WordProcessor::MakeDefaultCommandNames ();
WordProcessor::DialogSupport* WordProcessor::sDialogSupport = nullptr;
 
template <class T, class EXTRACTOR>
bool CheckForCommonParaValue (EXTRACTOR /*IGNORED_BUT_HERE_FOR_OVERLOADING*/, const shared_ptr<AbstractParagraphDatabaseRep>& paraDB,
                              size_t from, size_t to, T* commonValue)
{
    RequireNotNull (commonValue);
    if (paraDB.get () == nullptr) {
        throw WordProcessor::NoParagraphDatabaseAvailable ();
    }
    vector<pair<ParagraphInfo, size_t>> v = paraDB->GetParagraphInfo (from, to - from);
    Assert (v.size () != 0);
    if (v.size () >= 1) {
        T maybeCommonValue = EXTRACTOR () (v[0].first);
        for (auto i = v.begin () + 1; i != v.end (); ++i) {
            if (EXTRACTOR () ((*i).first) != maybeCommonValue) {
                return false;
            }
        }
        *commonValue = maybeCommonValue;
        return true;
    }
    else {
        return false;
    }
}
struct JustificationExtractor {
    Justification operator() (const ParagraphInfo& from)
    {
        return from.GetJustification ();
    }
};
struct TabStopExtractor {
    StandardTabStopList operator() (const ParagraphInfo& from)
    {
        return from.GetTabStopList ();
    }
};
struct FirstIndentExtractor {
    TWIPS operator() (const ParagraphInfo& from)
    {
        return from.GetFirstIndent ();
    }
};
struct MarginsRec {
    MarginsRec ()
        : fLHS (TWIPS{0})
        , fRHS (TWIPS{0})
    {
    }
    MarginsRec (TWIPS lhs, TWIPS rhs)
        : fLHS (lhs)
        , fRHS (rhs)
    {
    }
 
    TWIPS fLHS;
    TWIPS fRHS;
 
    inline bool operator!= (const MarginsRec& rhs)
    {
        return fLHS != rhs.fLHS or fRHS != rhs.fRHS;
    }
};
struct MarginsRecExtractor {
    MarginsRec operator() (const ParagraphInfo& from)
    {
        return MarginsRec (from.GetLeftMargin (), from.GetRightMargin ());
    }
};
struct SpaceBeforeExtractor {
    TWIPS operator() (const ParagraphInfo& from)
    {
        return from.GetSpaceBefore ();
    }
};
struct SpaceAfterExtractor {
    TWIPS operator() (const ParagraphInfo& from)
    {
        return from.GetSpaceAfter ();
    }
};
struct LineSpacingExtractor {
    LineSpacing operator() (const ParagraphInfo& from)
    {
        return from.GetLineSpacing ();
    }
};
struct ListStyleExtractor {
    ListStyle operator() (const ParagraphInfo& from)
    {
        return from.GetListStyle ();
    }
};
struct ListIndentLevelExtractor {
    unsigned char operator() (const ParagraphInfo& from)
    {
        return from.GetListIndentLevel ();
    }
};
 
WordProcessor::WordProcessor ()
    : inherited ()
    , fSmartQuoteMode (true)
    , fParagraphDatabase (nullptr)
    , fICreatedParaDB (false)
    , fHidableTextDatabase (nullptr)
    , fICreatedHidableTextDB (false)
    , fWPIdler ()
    , fCachedCurSelFontSpec ()
    , fCachedCurSelJustification (eLeftJustify)
    , fCachedCurSelJustificationUnique (false)
    , fCachedCurSelFontSpecValid (false)
    , fShowParagraphGlyphs (false)
    , fShowTabGlyphs (false)
    , fShowSpaceGlyphs (false)
{
    fWPIdler.fWP = this;
    IdleManager::Get ().AddIdler (&fWPIdler);
    IdleManager::Get ().SetIdlerFrequncy (&fWPIdler, 0.25s);
}
 
WordProcessor::~WordProcessor ()
{
    IdleManager::Get ().RemoveIdler (&fWPIdler);
}
 
void WordProcessor::HookLosingTextStore ()
{
    HookLosingTextStore_ ();
    inherited::HookLosingTextStore ();
}
 
void WordProcessor::HookLosingTextStore_ ()
{
    {
        MarkersOfATypeMarkerSink2Vector<WordProcessorTable> tables;
        GetTextStore ().CollectAllMarkersInRangeInto (GetTextStore ().GetStart (), GetTextStore ().GetEnd (), this, tables);
#if qConstNonConstPtrConversionsWithTemplatedMemberFunctionBug
        WordProcessorTable**       t  = Traversal::Iterator2Pointer (tables.fResultArray.begin ());
        WordProcessorTable* const* tt = t;
        GetTextStore ().RemoveAndDeleteMarkers (tt, tables.fResult.size ());
#else
        GetTextStore ().RemoveAndDeleteMarkers (Containers::Start (tables.fResult), tables.fResult.size ());
#endif
    }
 
    // NB: We only set the fParagraphDatabase/fHidableTextDatabase to nullptr here if we created it because if the USER
    // created it - its up to THEM to properly bind it to the right TextStore. And when we are told to use a particular
    // database, someones call to change our TextStore shouldn't make us ignore that earlier request (to use a particular database).
    //      We bother to delete it here if we HAD created it ourselves - only because the TextStore WE created it with
    //  could be destroyed after this call returns - and then we'd have a database with a bogus pointer to a TextStore.
    if (fICreatedParaDB) {
        fICreatedParaDB = false;
        if (fParagraphDatabase.get () != nullptr) {
            fParagraphDatabase.reset (); // Cannot call WordProcessor::SetParagraphDatabase (nullptr) cuz that might build a NEW one
            HookParagraphDatabaseChanged ();
        }
    }
    if (fICreatedHidableTextDB) {
        SetHidableTextDatabase (nullptr);
        fICreatedHidableTextDB = false;
    }
    //to try to avoid circular links that cause things to not get freed. - LGP 2000/04/24
    if (fHidableTextDatabase.get () != nullptr) {
        fHidableTextDatabase->SetInternalizer (nullptr);
        fHidableTextDatabase->SetExternalizer (nullptr);
    }
}
 
void WordProcessor::HookGainedNewTextStore ()
{
    /*
     *  Note - we must check if the ParagraphDatabase has already been set - and use its Partition. Do this before
     *  calling inherited::HookGainedNewTextStore () to avoid redundant creation of a 'default' partition (speed tweek).
     */
    if (fParagraphDatabase.get () != nullptr) {
        SetPartition (fParagraphDatabase->GetPartition ());
    }
    inherited::HookGainedNewTextStore ();
    HookGainedNewTextStore_ ();
}
 
void WordProcessor::HookGainedNewTextStore_ ()
{
    if (fParagraphDatabase.get () == nullptr) {
        SetParagraphDatabase (nullptr); // fills in default value since we have a textstore...
    }
    if (fHidableTextDatabase.get () == nullptr) {
        SetHidableTextDatabase (make_shared<UniformHidableTextMarkerOwner> (GetTextStore ())); // fills in default value since we have e textstore...
        fICreatedHidableTextDB = true; // do this AFTER above call - cuz WordProcessor::SetHidableTextDatabase () sets flag FALSE (so for case when others call it)
    }
}
 
shared_ptr<Partition> WordProcessor::MakeDefaultPartition () const
{
    // Probably no point in overriding this anymore - LGP 2002-10-20 -- RETHINK??? Perhaps no harm - either...
    RequireNotNull (PeekAtTextStore ());
    if (fParagraphDatabase.get () == nullptr) {
        return make_shared<LineBasedPartition> (GetTextStore ());
    }
    else {
        const MarkerOwner* mo = fParagraphDatabase.get ();
        return make_shared<WPPartition> (GetTextStore (), *const_cast<MarkerOwner*> (mo));
    }
}
 
/*
@METHOD:        WordProcessor::SetParagraphDatabase
@DESCRIPTION:   <p>This method allows the caller to specify the database of paragraph information associated
    with the given word processor. If not called, a default will be used, and automatically deleted.</p>
        <p>This API exists so that you can share a single database @'WordProcessor::ParagraphDatabasePtr'
    with multiple views. And so you can save it associated with a document (or some such object), and dynamically
    create/destroy views using that data. Also - so you can subclass it, and provide your own virtual replacement
    database.</p>
*/
void WordProcessor::SetParagraphDatabase (const shared_ptr<AbstractParagraphDatabaseRep>& paragraphDatabase)
{
    fParagraphDatabase = paragraphDatabase;
    fICreatedParaDB    = false;
    if (fParagraphDatabase.get () == nullptr and PeekAtTextStore () != nullptr) {
        fParagraphDatabase = make_shared<ParagraphDatabaseRep> (GetTextStore ());
        fICreatedParaDB    = true;
    }
    //Any newly assigned fParagraphDatabase better share the same Partition we do!
    HookParagraphDatabaseChanged ();
}
 
/*
@METHOD:        WordProcessor::HookParagraphDatabaseChanged
@DESCRIPTION:   <p>Called whenever the @'WordProcessor::shared_ptr<AbstractParagraphDatabaseRep>' associated with this @'WordProcessor'
    is changed. This means when a new one is provided, created, or disassociated. It does NOT mean that its called when any of the
    data in the paragphrase database changes.</p>
        <p>Usually called by @'WordProcessor::SetParagraphDatabase'. By default, it calls @'WordProcessor::HookParagraphDatabaseChanged_'.</p>
*/
void WordProcessor::HookParagraphDatabaseChanged ()
{
    if (PeekAtTextStore () != nullptr) {
        HookParagraphDatabaseChanged_ ();
    }
}
 
/*
@METHOD:        WordProcessor::HookParagraphDatabaseChanged_
@DESCRIPTION:   <p>Default implementation of @'WordProcessor::HookParagraphDatabaseChanged'.</p>
*/
void WordProcessor::HookParagraphDatabaseChanged_ ()
{
    /*
     *  At LEAST by default - we want the paragraphDB's partition to be the same as the one our imager is using. Which
     *  should be preferred (ie which way do we do the copy?)? Since you can have multiple imagers associated with a single
     *  ParagraphDatabase, and since you can operate on a paragraphdatabase without a WP/imager (say with a document),
     *  it makes sense to assume THAT is primary. -- LGP 2002-10-20
     */
    if (fParagraphDatabase.get () != nullptr) {
        SetPartition (fParagraphDatabase->GetPartition ());
    }
    SetExternalizer (MakeDefaultExternalizer ());
    SetInternalizer (MakeDefaultInternalizer ());
}
 
/*
@METHOD:        WordProcessor::SetHidableTextDatabase
@DESCRIPTION:   <p>This method allows the caller to specify the database of hidden-text information associated
    with the given word processor. If not called, a default will be used, and automatically deleted.</p>
        <p>This API exists so that you can share a single database @'shared_ptr<HidableTextMarkerOwner>'
    with multiple views. And so you can save it associated with a document (or some such object), and dynamically
    create/destroy views using that data. Also - so you can subclass it, and provide your own virtual replacement
    database, or other subclass of the hidable text API.</p>
        <p>To disable hidden text support, just call this method from your @'TextImager::HookGainedNewTextStore ()' OVERRIDE,
    and pass nullptr. Do this after the  @'WordProcessor::HookGainedNewTextStore ()' OVERRIDE - since that method
    will create one of these by default.</p>
*/
void WordProcessor::SetHidableTextDatabase (const shared_ptr<HidableTextMarkerOwner>& hidableTextDatabase)
{
    //to try to avoid circular links that cause things to not get freed. - LGP 2000/04/24
    if (fHidableTextDatabase.get () != nullptr) {
        fHidableTextDatabase->SetInternalizer (shared_ptr<FlavorPackageInternalizer> ());
        fHidableTextDatabase->SetExternalizer (shared_ptr<FlavorPackageExternalizer> ());
    }
 
    fHidableTextDatabase   = hidableTextDatabase;
    fICreatedHidableTextDB = false;
    HookHidableTextDatabaseChanged ();
}
 
/*
@METHOD:        WordProcessor::HookHidableTextDatabaseChanged
@DESCRIPTION:   <p>Called whenever the @'WordProcessor::shared_ptr<HidableTextMarkerOwner>' associated with this @'WordProcessor'
    is changed. This means when a new one is provided, created, or disassociated. It does NOT mean that its called when any of the
    data in the hidable text database changes.</p>
        <p>Usually called by @'WordProcessor::SetHidableTextDatabase'. By default, it calls @'WordProcessor::HookHidableTextDatabaseChanged_'.</p>
*/
void WordProcessor::HookHidableTextDatabaseChanged ()
{
    HookHidableTextDatabaseChanged_ ();
}
 
/*
@METHOD:        WordProcessor::HookHidableTextDatabaseChanged_
@DESCRIPTION:   <p>Default implementation of @'WordProcessor::HookHidableTextDatabaseChanged'. Assures that when we change the hidableText database,
    we re-create the our internalizer and externalizers (cuz those can depend on the hidden text database). And be sure to notify any
    newly created hidable text database of our current internalizer and externalizer (the reverse).</p>
*/
void WordProcessor::HookHidableTextDatabaseChanged_ ()
{
    if (PeekAtTextStore () != nullptr) {
        SetExternalizer (MakeDefaultExternalizer ());
        SetInternalizer (MakeDefaultInternalizer ());
    }
}
 
shared_ptr<FlavorPackageInternalizer> WordProcessor::MakeDefaultInternalizer ()
{
    return make_shared<WordProcessorFlavorPackageInternalizer> (GetTextStore (), GetStyleDatabase (), GetParagraphDatabase (),
                                                                GetHidableTextDatabase ());
}
 
shared_ptr<FlavorPackageExternalizer> WordProcessor::MakeDefaultExternalizer ()
{
    return make_shared<WordProcessorFlavorPackageExternalizer> (GetTextStore (), GetStyleDatabase (), GetParagraphDatabase (),
                                                                GetHidableTextDatabase ());
}
 
/*
@METHOD:        WordProcessor::HookInternalizerChanged
@DESCRIPTION:   <p>Override @TextInteractor::HookInternalizerChanged' to sync up with our HidableText database.</p>
*/
void WordProcessor::HookInternalizerChanged ()
{
    inherited::HookInternalizerChanged ();
    if (fHidableTextDatabase.get () != nullptr) {
        fHidableTextDatabase->SetInternalizer (GetInternalizer ());
    }
}
 
/*
@METHOD:        WordProcessor::HookExternalizerChanged
@DESCRIPTION:   <p>Override @TextInteractor::HookExternalizerChanged' to sync up with our HidableText database.</p>
*/
void WordProcessor::HookExternalizerChanged ()
{
    inherited::HookExternalizerChanged ();
    if (fHidableTextDatabase.get () != nullptr) {
        fHidableTextDatabase->SetExternalizer (GetExternalizer ());
    }
}
 
/*
@METHOD:        WordProcessor::InternalizeBestFlavor
@DESCRIPTION:   <p>Override @'TextInteractor::InternalizeBestFlavor' and set the internalizer (and so the source stream)
            to overwrite mode.</p>
*/
void WordProcessor::InternalizeBestFlavor (ReaderFlavorPackage& flavorPackage, bool updateCursorPosition, bool autoScroll, UpdateMode updateMode)
{
    WordProcessorTable* t = GetActiveTable ();
    if (t != nullptr) {
        WordProcessorFlavorPackageInternalizer* internalizerRep =
            dynamic_cast<WordProcessorFlavorPackageInternalizer*> (static_cast<FlavorPackageInternalizer*> (GetInternalizer ().get ()));
        AssertNotNull (internalizerRep);
 
        bool oldFlagVal = internalizerRep->GetOverwriteTableMode ();
        internalizerRep->SetOverwriteTableMode (true);
        try {
            size_t selEnd = GetSelectionEnd ();
            Assert (selEnd - GetSelectionStart () == 1); // cuz GetActiveTable should assure this
 
            // pass in ONLY selEnd to selEnd (not selStart to selEnd) because with pastes (or D&D) into a
            // selected table - we DONT want to delete first (replace) the table itself
            bool good = GetInternalizer ()->InternalizeBestFlavor (flavorPackage, selEnd, selEnd);
            if (good) {
                if (autoScroll) {
                    ScrollToSelection ();
                }
                if (updateMode == eImmediateUpdate) {
                    Update ();
                }
            }
            else {
                OnBadUserInput ();
            }
            internalizerRep->SetOverwriteTableMode (oldFlagVal);
        }
        catch (...) {
            internalizerRep->SetOverwriteTableMode (oldFlagVal);
            throw;
        }
    }
    else {
        inherited::InternalizeBestFlavor (flavorPackage, updateCursorPosition, autoScroll, updateMode);
    }
}
 
/*
@METHOD:        WordProcessor::ExternalizeFlavors
@DESCRIPTION:   <p>Override @'TextInteractor::ExternalizeFlavors' but also restrict table externalizing to just
            the selected portion.</p>
*/
void WordProcessor::ExternalizeFlavors (WriterFlavorPackage& flavorPackage)
{
    WordProcessorFlavorPackageExternalizer* externalizerRep =
        dynamic_cast<WordProcessorFlavorPackageExternalizer*> (static_cast<FlavorPackageExternalizer*> (GetExternalizer ().get ()));
    AssertNotNull (externalizerRep);
 
    bool oldFlagVal = externalizerRep->GetUseTableSelection ();
    externalizerRep->SetUseTableSelection (true);
    try {
        inherited::ExternalizeFlavors (flavorPackage);
        externalizerRep->SetUseTableSelection (oldFlagVal);
    }
    catch (...) {
        externalizerRep->SetUseTableSelection (oldFlagVal);
        throw;
    }
}
 
/*
@METHOD:        WordProcessor::InterectiveSetRegionHidable
@DESCRIPTION:   <p>Interactively set the given region to be hidable or not. Interactively means that the action
    is considered an undoable command.</p>
*/
void WordProcessor::InterectiveSetRegionHidable (bool hidable)
{
    RequireNotNull (PeekAtTextStore ()); // Must specify TextStore before calling this, or any routine that calls it.
 
    BreakInGroupedCommands ();
 
    UndoableContextHelper undoContext (*this, hidable ? GetCommandNames ().fHideCommandName : GetCommandNames ().fUnHideCommandName, false);
    {
        if (hidable) {
            GetHidableTextDatabase ()->MakeRegionHidable (undoContext.GetUndoRegionStart (), undoContext.GetUndoRegionEnd ());
        }
        else {
            GetHidableTextDatabase ()->MakeRegionUnHidable (undoContext.GetUndoRegionStart (), undoContext.GetUndoRegionEnd ());
        }
    }
    undoContext.CommandComplete ();
}
 
/*
@METHOD:        WordProcessor::GetJustification
@DESCRIPTION:
    <p>Return the @'Justification' setting for the paragraph containing the character characterPos</p>
*/
Justification WordProcessor::GetJustification (size_t characterPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetJustification ();
}
 
/*
@METHOD:        WordProcessor::GetJustification
@DESCRIPTION:
    <p>Return true iff there is a unique answer, and only then to we set out justification param (@'Justification').</p>
*/
bool WordProcessor::GetJustification (size_t from, size_t to, Justification* justification) const
{
    RequireNotNull (justification);
    return CheckForCommonParaValue (JustificationExtractor (), fParagraphDatabase, from, to, justification);
}
 
/*
@METHOD:        WordProcessor::SetJustification
@DESCRIPTION:   <p>Set the justification to <code>justification</code> for all paragraphs
    between <code>from</code> and <code>to</code>.</p>
*/
void WordProcessor::SetJustification (size_t from, size_t to, Justification justification)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetJustification (justification);
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
StandardTabStopList WordProcessor::GetDefaultStandardTabStopList ()
{
    return StandardTabStopList{};
}
 
/*
@METHOD:        WordProcessor::GetStandardTabStopList
@DESCRIPTION:
    <p>Return the tabstops list setting for the paragraph containing the character characterPos</p>
*/
StandardTabStopList WordProcessor::GetStandardTabStopList (size_t characterPos) const
{
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetTabStopList ();
}
 
/*
@METHOD:        WordProcessor::GetStandardTabStopList
@DESCRIPTION:
    <p>Return true iff there is a unique answer, and only then to we set out <code>tabStops</code> param</p>
*/
bool WordProcessor::GetStandardTabStopList (size_t from, size_t to, StandardTabStopList* tabStops) const
{
    RequireNotNull (tabStops);
    return CheckForCommonParaValue (TabStopExtractor (), fParagraphDatabase, from, to, tabStops);
}
 
/*
@METHOD:        WordProcessor::SetStandardTabStopList
@DESCRIPTION:   <p>Set the tabstops to <code>tabStops</code> for all paragraphs
    between <code>from</code> and <code>to</code>.</p>
*/
void WordProcessor::SetStandardTabStopList (size_t from, size_t to, StandardTabStopList tabStops)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetTabStopList (tabStops);
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
/*
@METHOD:        WordProcessor::GetMargins
@DESCRIPTION:
    <p>Return the left and right margin settings for the paragraph containing the character characterPos</p>
*/
void WordProcessor::GetMargins (size_t characterPos, TWIPS* leftMargin, TWIPS* rightMargin) const
{
    RequireNotNull (leftMargin);
    RequireNotNull (rightMargin);
    const ParagraphInfo& pi = fParagraphDatabase->GetParagraphInfo (characterPos); // Be careful holding onto reference here.
    // I do so cuz its a big optimization in my MacOS
    // profiling, as it avoids CTOR/DTOR for vector of
    // tabstops (SPR#1029)
    *leftMargin  = pi.GetLeftMargin ();
    *rightMargin = pi.GetRightMargin ();
}
 
bool WordProcessor::GetMargins (size_t from, size_t to, TWIPS* leftMargin, TWIPS* rightMargin) const
{
    RequireNotNull (leftMargin);
    RequireNotNull (rightMargin);
    MarginsRec mrResult;
    bool       result = CheckForCommonParaValue (MarginsRecExtractor (), fParagraphDatabase, from, to, &mrResult);
    *leftMargin       = mrResult.fLHS;
    *rightMargin      = mrResult.fRHS;
    return result;
}
 
/*
@METHOD:        WordProcessor::SetMargins
@DESCRIPTION:   <p>See @'WordProcessor::GetMargins'.</p>
*/
void WordProcessor::SetMargins (size_t from, size_t to, TWIPS leftMargin, TWIPS rightMargin)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetMargins (leftMargin, rightMargin);
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
/*
@METHOD:        WordProcessor::GetFirstIndent
@DESCRIPTION:   <p>Get the 'first indent' property for the paragraph containing the
            given character position.</p>
*/
TWIPS WordProcessor::GetFirstIndent (size_t characterPos) const
{
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetFirstIndent ();
}
 
/*
@METHOD:        WordProcessor::GetFirstIndent
@DESCRIPTION:   <p>Get the 'first indent' property for the paragraphs bounded by the given range, if it is
            unique over that range, and return true. If it is not unqique over that range, return false.</p>
*/
bool WordProcessor::GetFirstIndent (size_t from, size_t to, TWIPS* firstIndent) const
{
    RequireNotNull (firstIndent);
    return CheckForCommonParaValue (FirstIndentExtractor (), fParagraphDatabase, from, to, firstIndent);
}
 
/*
@METHOD:        WordProcessor::SetFirstIndent
@DESCRIPTION:
*/
void WordProcessor::SetFirstIndent (size_t from, size_t to, TWIPS firstIndent)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetFirstIndent (firstIndent);
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
/*
@METHOD:        WordProcessor::GetSpaceBefore
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetSpaceBefore'</p>
*/
TWIPS WordProcessor::GetSpaceBefore (size_t characterPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable{};
    }
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetSpaceBefore ();
}
 
/*
@METHOD:        WordProcessor::GetSpaceBefore
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetSpaceBefore'</p>
*/
bool WordProcessor::GetSpaceBefore (size_t from, size_t to, TWIPS* sb) const
{
    RequireNotNull (sb);
    return CheckForCommonParaValue (SpaceBeforeExtractor{}, fParagraphDatabase, from, to, sb);
}
 
/*
@METHOD:        WordProcessor::SetSpaceBefore
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetSpaceBefore'</p>
*/
void WordProcessor::SetSpaceBefore (size_t from, size_t to, TWIPS sb)
{
    Require (from <= to);
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable{};
    }
    IncrementalParagraphInfo pi;
    pi.SetSpaceBefore (sb);
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
/*
@METHOD:        WordProcessor::GetSpaceAfter
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetSpaceAfter'</p>
*/
TWIPS WordProcessor::GetSpaceAfter (size_t characterPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetSpaceAfter ();
}
 
/*
@METHOD:        WordProcessor::GetSpaceAfter
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetSpaceAfter'</p>
*/
bool WordProcessor::GetSpaceAfter (size_t from, size_t to, TWIPS* sa) const
{
    RequireNotNull (sa);
    return CheckForCommonParaValue (SpaceAfterExtractor (), fParagraphDatabase, from, to, sa);
}
 
/*
@METHOD:        WordProcessor::SetSpaceAfter
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetSpaceAfter'</p>
*/
void WordProcessor::SetSpaceAfter (size_t from, size_t to, TWIPS sa)
{
    Require (from <= to);
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    IncrementalParagraphInfo pi;
    pi.SetSpaceAfter (sa);
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
/*
@METHOD:        WordProcessor::GetLineSpacing
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetLineSpacing'</p>
*/
LineSpacing WordProcessor::GetLineSpacing (size_t characterPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetLineSpacing ();
}
 
/*
@METHOD:        WordProcessor::GetLineSpacing
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetLineSpacing'</p>
*/
bool WordProcessor::GetLineSpacing (size_t from, size_t to, LineSpacing* sl) const
{
    RequireNotNull (sl);
    return CheckForCommonParaValue (LineSpacingExtractor (), fParagraphDatabase, from, to, sl);
}
 
/*
@METHOD:        WordProcessor::SetLineSpacing
@DESCRIPTION:
    <p>See @'ParagraphInfo::SetLineSpacing'</p>
*/
void WordProcessor::SetLineSpacing (size_t from, size_t to, LineSpacing sl)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetLineSpacing (sl);
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
}
 
/*
@METHOD:        WordProcessor::GetListStyle
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetListStyle'</p>
*/
ListStyle WordProcessor::GetListStyle (size_t characterPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetListStyle ();
}
 
/*
@METHOD:        WordProcessor::GetListStyle
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetListStyle'</p>
*/
bool WordProcessor::GetListStyle (size_t from, size_t to, ListStyle* listStyle) const
{
    RequireNotNull (listStyle);
    return CheckForCommonParaValue (ListStyleExtractor (), fParagraphDatabase, from, to, listStyle);
}
 
/*
@METHOD:        WordProcessor::SetListStyle
@DESCRIPTION:
    <p>See @'ParagraphInfo::SetListStyle'</p>
*/
void WordProcessor::SetListStyle (size_t from, size_t to, ListStyle listStyle, bool autoFormat)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetListStyle (listStyle);
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
 
    if (autoFormat) {
        AutoFormatIndentedText (from, to);
    }
}
 
/*
@METHOD:        WordProcessor::GetListIndentLevel
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetListIndentLevel'</p>
*/
unsigned char WordProcessor::GetListIndentLevel (size_t characterPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    return fParagraphDatabase->GetParagraphInfo (characterPos).GetListIndentLevel ();
}
 
/*
@METHOD:        WordProcessor::GetListIndentLevel
@DESCRIPTION:
    <p>See @'ParagraphInfo::GetListIndentLevel'</p>
*/
bool WordProcessor::GetListIndentLevel (size_t from, size_t to, unsigned char* indentLevel) const
{
    RequireNotNull (indentLevel);
    return CheckForCommonParaValue (ListIndentLevelExtractor (), fParagraphDatabase, from, to, indentLevel);
}
 
/*
@METHOD:        WordProcessor::SetListIndentLevel
@DESCRIPTION:
    <p>See @'ParagraphInfo::SetListIndentLevel'</p>
*/
void WordProcessor::SetListIndentLevel (size_t from, size_t to, unsigned char indentLevel, bool autoFormat)
{
    Require (from <= to);
    IncrementalParagraphInfo pi;
    pi.SetListIndentLevel (indentLevel);
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    fParagraphDatabase->SetParagraphInfo (from, to - from, pi);
    if (autoFormat) {
        AutoFormatIndentedText (from, to);
    }
}
 
/*
@METHOD:        WordProcessor::AutoFormatIndentedText
@DESCRIPTION:
    <p>Examine each paragraph from 'from' to 'to', and set their various paragraph properties to fit their indent
    level. If I supported style sheets, this would be a natural place to use them (just applying a predefined
    style sheet).</p>
*/
void WordProcessor::AutoFormatIndentedText (size_t from, size_t to)
{
    for (PartitionMarker* pm = GetPartitionMarkerContainingPosition (from); pm != nullptr and pm->GetStart () <= to; pm = pm->GetNext ()) {
        AssertNotNull (pm);
        ParagraphInfo            pi = fParagraphDatabase->GetParagraphInfo (pm->GetStart ());
        IncrementalParagraphInfo newPI;
        if (pi.GetListStyle () == eListStyle_None) {
            newPI.SetFirstIndent (TWIPS{0});
            newPI.SetMargins (TWIPS{0}, pi.GetRightMargin ());
            newPI.SetTabStopList (StandardTabStopList ());
        }
        else {
            const int kTWIPSIncrement = 1440 / 4;
            TWIPS     marginAt        = TWIPS (kTWIPSIncrement * 2 * (pi.GetListIndentLevel () + 1));
            newPI.SetFirstIndent (TWIPS (-kTWIPSIncrement));
            newPI.SetMargins (marginAt, pi.GetRightMargin ());
            StandardTabStopList tabStops;
            tabStops.fTabStops.push_back (marginAt);
            newPI.SetTabStopList (tabStops);
        }
        fParagraphDatabase->SetParagraphInfo (pm->GetStart (), pm->GetLength (), newPI);
    }
}
 
/*
@METHOD:        WordProcessor::SetSelection
@DESCRIPTION:   <p>Override @'TextImager::SetSelection' to handle updating selection of embedded tables.</p>
*/
void WordProcessor::SetSelection (size_t start, size_t end)
{
    size_t oldSelStart = 0;
    size_t oldSelEnd   = 0;
    GetSelection (&oldSelStart, &oldSelEnd);
    inherited::SetSelection (start, end);
 
    // For the area we have ADDED to the selection region, we must set the embedded tables in that region to be
    // fully selected. Note that we need not worry about the selection range within an UNSELECTED table
    // because that is ignored, and its forcibly reset upon new selection (or at least should be) - LGP 2003-03-17
    if (oldSelStart != start or oldSelEnd != end) {
        vector<WordProcessorTable*> tables;
        size_t                      checkRangeStart1 = start;
        size_t                      checkRangeEnd1   = oldSelStart;
        if (checkRangeStart1 < checkRangeEnd1) {
            tables = GetTablesInRange (checkRangeStart1, checkRangeEnd1);
        }
 
        size_t checkRangeStart2 = FindPreviousCharacter (oldSelEnd); // back one to handle the case where we had one char selected
        size_t checkRangeEnd2   = end;
        if (checkRangeStart2 < checkRangeEnd2) {
            vector<WordProcessorTable*> tables2 = GetTablesInRange (checkRangeStart2, checkRangeEnd2);
            tables.insert (tables.end (), tables2.begin (), tables2.end ()); // append the vectors
        }
        for (auto i = tables.begin (); i != tables.end (); ++i) {
            WordProcessorTable*                        t = *i;
            WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*t, *const_cast<WordProcessor*> (this));
            t->SetCellSelection (0, t->GetRowCount (), 0, t->GetColumnCount ());
        }
    }
 
    fCachedCurSelFontSpecValid = false;
}
 
/*
@METHOD:        WordProcessor::GetCaretShownSituation
@DESCRIPTION:   <p>Override @'TextInteractor::GetCaretShownSituation' to handle tables.</p>
*/
bool WordProcessor::GetCaretShownSituation () const
{
    if (inherited::GetCaretShownSituation ()) {
        return true;
    }
 
    WordProcessorTable* table = GetActiveTable ();
    if (table != nullptr) {
        return table->GetCaretShownSituation ();
    }
    return false;
}
 
/*
@METHOD:        WordProcessor::CalculateCaretRect
@DESCRIPTION:   <p>Override @'TextInteractor::CalculateCaretRect' to handle tables.</p>
*/
Led_Rect WordProcessor::CalculateCaretRect () const
{
    WordProcessorTable* table = GetActiveTable ();
    if (table != nullptr) {
        WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*table, *const_cast<WordProcessor*> (this));
        return table->CalculateCaretRect ();
    }
    return inherited::CalculateCaretRect ();
}
 
/*
@METHOD:        WordProcessor::OnTypedNormalCharacter
@DESCRIPTION:   <p>Override @'TextInteractor::OnTypedNormalCharacter' to handle smart quotes
            (@'WordProcessor::GetSmartQuoteMode'), tab/shift-tab indents (lists) and tables.</p>
*/
void WordProcessor::OnTypedNormalCharacter (Led_tChar theChar, bool optionPressed, bool shiftPressed, bool commandPressed,
                                            bool controlPressed, bool altKeyPressed)
{
    WordProcessorTable* table = GetActiveTable ();
    if (table != nullptr) {
        WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*table, *const_cast<WordProcessor*> (this));
        if (table->OnTypedNormalCharacter (theChar, optionPressed, shiftPressed, commandPressed, controlPressed, altKeyPressed)) {
            return;
        }
    }
 
    // if the entire region is in the 'list' style - then assume a tab is meant to INDENT or UNINDENT
    if (theChar == '\t' and not(optionPressed or commandPressed or controlPressed or altKeyPressed)) {
        ListStyle ls = eListStyle_None;
        if (GetListStyle (GetSelectionStart (), GetSelectionEnd (), &ls) and ls != eListStyle_None) {
            InteractiveDoIndentChange (not shiftPressed);
            return;
        }
    }
    if (theChar == '"' and GetSmartQuoteMode () and not(optionPressed or commandPressed or controlPressed or altKeyPressed)) {
        const wchar_t kSpecialOpenQuote  = 8220;
        const wchar_t kSpecialCloseQuote = 8221;
        bool          isAQuoteToClose    = false;
        size_t        selStart           = GetSelectionStart ();
        {
            // Walk backwards and see if we can find a recent OPEN-quote
            const size_t kScanBackSize = 1024;
            size_t       scanBackTo    = static_cast<size_t> (max (0, static_cast<int> (selStart) - static_cast<int> (kScanBackSize)));
            Memory::StackBuffer<Led_tChar> buf{Memory::eUninitialized, kScanBackSize};
            size_t                         scanBackCount = selStart - scanBackTo;
            CopyOut (scanBackTo, scanBackCount, buf.data ());
            for (size_t i = scanBackCount; i != 0; --i) {
                if (buf[i - 1] == kSpecialCloseQuote) {
                    // then last thing was a close quote - so next is OPEN
                    break;
                }
                else if (buf[i - 1] == kSpecialOpenQuote) {
                    isAQuoteToClose = true;
                    break;
                }
            }
        }
        wchar_t quoteChar = isAQuoteToClose ? kSpecialCloseQuote : kSpecialOpenQuote;
        inherited::OnTypedNormalCharacter (quoteChar, optionPressed, shiftPressed, commandPressed, controlPressed, altKeyPressed);
    }
    else {
        inherited::OnTypedNormalCharacter (theChar, optionPressed, shiftPressed, commandPressed, controlPressed, altKeyPressed);
    }
}
 
bool WordProcessor::ProcessSimpleClick (Led_Point clickedAt, unsigned clickCount, bool extendSelection, size_t* dragAnchor)
{
    RequireNotNull (dragAnchor);
    size_t   clickedOnChar = GetCharAtWindowLocation (clickedAt);
    Led_Rect charRect      = GetCharWindowLocation (clickedOnChar);
 
    // Only if click is on an embedding character cell, and fully within it (not in case just past it as at when at
    // end of line) - then we look at if it needs special processing
    //
    // Actually - better to check that the click isn't too near the edges of the embedding,
    // cuz then its hard to click and make an insertion point in between two embeddings.
    // So only do this click-selects somewhere near the middle of the embedding.
    Led_Rect           tstClickRect = charRect;
    const DistanceType kHMargin     = 3;
    tstClickRect.left += kHMargin;
    tstClickRect.right -= kHMargin;
    if (tstClickRect.Contains (clickedAt)) {
        vector<WordProcessorTable*> tables = GetTablesInRange (clickedOnChar, clickedOnChar + 1);
        Assert (tables.size () == 0 or tables.size () == 1);
        if (tables.size () == 1) {
            WordProcessorTable*                        t = tables[0];
            WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*t, *const_cast<WordProcessor*> (this));
            if (clickCount == 1) {
                // In this case - it really doesn't matter if we pick the LHS or RHS of the embedding
                // as the drag anchor...
                *dragAnchor = clickedOnChar;
            }
            return t->ProcessSimpleClick (clickedAt - charRect.GetOrigin (), clickCount, extendSelection);
        }
    }
    return inherited::ProcessSimpleClick (clickedAt, clickCount, extendSelection, dragAnchor);
}
 
/*
@METHOD:        WordProcessor::WhileSimpleMouseTracking
@DESCRIPTION:   <p>Override @'TextInteractor::WhileSimpleMouseTracking' to handle tables.</p>
*/
void WordProcessor::WhileSimpleMouseTracking (Led_Point newMousePos, size_t dragAnchor)
{
    size_t clickedOnChar = GetCharAtWindowLocation (newMousePos);
    size_t oldSelStart   = GetSelectionStart ();
    size_t oldSelEnd     = GetSelectionEnd ();
 
    /*
     *  If the drag anchor is coincident with the LHS or RHS of the clicked on character and the selection length
     *  is one (we clicked on an embedding) - then just eat that mousetracking - and prevent the selection from
     *  changing.
     */
    if ((clickedOnChar == dragAnchor or clickedOnChar + 1 == dragAnchor) and (oldSelEnd - oldSelStart == 1)) {
        vector<WordProcessorTable*> tables = GetTablesInRange (clickedOnChar, clickedOnChar + 1);
        if (tables.size () == 1) {
            WordProcessorTable*                        t        = tables[0];
            Led_Rect                                   charRect = GetCharWindowLocation (t->GetStart ());
            WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*t, *const_cast<WordProcessor*> (this));
            // must adjust/be careful about charRect.GetOrigin () in case out of range... not sure what args to REALLY pass in !
            t->WhileSimpleMouseTracking (newMousePos - charRect.GetOrigin ());
            return;
        }
    }
    inherited::WhileSimpleMouseTracking (newMousePos, dragAnchor);
#if 0
    DbgTrace ("WordProcessor::WhileSimpleMouseTracking (tickCount=%f, newMousePos=(%d,%d), clickedOnChar=%d, dragAnchor=%d)\n",
              Time::GetTickCount (), newMousePos.v, newMousePos.h, clickedOnChar, dragAnchor
             );
#endif
}
 
/*
@METHOD:        WordProcessor::InsertTable
@DESCRIPTION:   <p>Create a @'WordProcessorTable' object at the given location in the document. The table object is returned you that you can then
            call specific methods to add rows and columns etc.</p>
*/
WordProcessorTable* WordProcessor::InsertTable (size_t at)
{
    WordProcessorTable* t = new WordProcessorTable (fParagraphDatabase.get (), at);
    t->SetDimensions (1, 1); //tmphack so we have at least one sentinel - auto-delete table when it becomes empty?
    //like the embeddings it owns!
    // LGP 2002-11-15
    return t;
}
 
/*
@METHOD:        WordProcessor::GetTablesInRange
@DESCRIPTION:   <p>Generate a list of all tables obejcts in the given range. Grabs all tables from 'from' to 'to' with from defaulting
            to the start of the buffer, and 'to' defaulting to the end of the buffer.</p>
*/
vector<WordProcessorTable*> WordProcessor::GetTablesInRange (size_t from, size_t to) const
{
    if (to == static_cast<size_t> (-1)) {
        to = GetTextStore ().GetLength ();
    }
    Require (from <= to);
    Require (to <= GetTextStore ().GetLength () + 1);
    MarkersOfATypeMarkerSink2Vector<WordProcessorTable> result;
    if (fParagraphDatabase.get () != nullptr) {
        GetTextStore ().CollectAllMarkersInRangeInto (from, to, fParagraphDatabase.get (), result);
    }
    return result.fResult;
}
 
/*
@METHOD:        WordProcessor::GetTableAt
@DESCRIPTION:   <p>Return the table which starts at offset 'from'. If there is no table there - return nullptr.</p>
*/
WordProcessorTable* WordProcessor::GetTableAt (size_t from) const
{
    size_t to = from + 1;
    Require (to <= GetTextStore ().GetLength () + 1);
    MarkerOfATypeMarkerSink<WordProcessorTable> result;
    if (fParagraphDatabase.get () != nullptr) {
        GetTextStore ().CollectAllMarkersInRangeInto (from, to, fParagraphDatabase.get (), result);
    }
    return result.fResult;
}
 
WordProcessor::CommandNames WordProcessor::MakeDefaultCommandNames ()
{
    WordProcessor::CommandNames cmdNames;
    cmdNames.fJustificationCommandName         = Led_SDK_TCHAROF ("Justification Change");
    cmdNames.fStandardTabStopListCommandName   = Led_SDK_TCHAROF ("Set Tabs");
    cmdNames.fMarginsCommandName               = Led_SDK_TCHAROF ("Set Margins");
    cmdNames.fFirstIndentCommandName           = Led_SDK_TCHAROF ("Set First Indent");
    cmdNames.fMarginsAndFirstIndentCommandName = Led_SDK_TCHAROF ("Set Margins and First Indent");
    cmdNames.fParagraphSpacingCommandName      = Led_SDK_TCHAROF ("Change Paragraph Spacing");
    cmdNames.fHideCommandName                  = Led_SDK_TCHAROF ("Hide");
    cmdNames.fUnHideCommandName                = Led_SDK_TCHAROF ("UnHide");
    cmdNames.fSetListStyleCommandName          = Led_SDK_TCHAROF ("Change List Style");
    cmdNames.fIndentLevelChangeCommandName     = Led_SDK_TCHAROF ("Change Indent Level");
    cmdNames.fInsertTableCommandName           = Led_SDK_TCHAROF ("Insert Table");
    cmdNames.fInsertTableRowAboveCommandName   = Led_SDK_TCHAROF ("Insert Table Row Above");
    cmdNames.fInsertTableRowBelowCommandName   = Led_SDK_TCHAROF ("Insert Table Row Below");
    cmdNames.fInsertTableColBeforeCommandName  = Led_SDK_TCHAROF ("Insert Table Column Before");
    cmdNames.fInsertTableColAfterCommandName   = Led_SDK_TCHAROF ("Insert Table Column After");
    cmdNames.fInsertURLCommandName             = Led_SDK_TCHAROF ("Insert URL");
    cmdNames.fRemoveTableRowsCommandName       = Led_SDK_TCHAROF ("Remove Rows");
    cmdNames.fRemoveTableColumnsCommandName    = Led_SDK_TCHAROF ("Remove Columns");
    cmdNames.fEmbeddingTypeName_ImageDIB       = Led_SDK_TCHAROF ("image (DIB)");
    cmdNames.fEmbeddingTypeName_URL            = Led_SDK_TCHAROF ("URL");
    cmdNames.fEmbeddingTypeName_ImageMacPict   = Led_SDK_TCHAROF ("image (MacPICT)");
    cmdNames.fEmbeddingTypeName_Table          = Led_SDK_TCHAROF ("table");
    cmdNames.fEmbeddingTypeName_Unknown        = Led_SDK_TCHAROF ("unknown");
    cmdNames.fFontSizeChange_Other_NoArg       = Led_SDK_TCHAROF ("Other...");
    cmdNames.fFontSizeChange_Other_OneArg      = Led_SDK_TCHAROF ("Other (%d)...");
    cmdNames.fTablePropertiesCommandName       = Led_SDK_TCHAROF ("Table Properties...")
#if qStroika_Foundation_Common_Platform_Windows
        Led_SDK_TCHAROF ("\tAlt+Enter")
#endif
        ;
    cmdNames.fGenericEmbeddingPropertiesCommandName = Led_SDK_TCHAROF ("Properties")
#if qStroika_Foundation_Common_Platform_Windows
        Led_SDK_TCHAROF ("\tAlt+Enter")
#endif
        ;
    cmdNames.fChangeTablePropertiesCommandName = Led_SDK_TCHAROF ("Change table properties");
    return cmdNames;
}
 
/*
@METHOD:        WordProcessor::ComputeMaxHScrollPos ()
@DESCRIPTION:   <p>Override @'TextImager::ComputeMaxHScrollPos' to call
            @'WordProcessor::CalculateFarthestRightMargin ()' and
            cache the results (for performance reasons).</p>
*/
DistanceType WordProcessor::ComputeMaxHScrollPos () const
{
    DistanceType cachedLayoutWidth = 0;
    {
        /*
         *  Figure the largest amount we might need to scroll given the current windows contents.
         *  But take into account where we've scrolled so far, and never invalidate that
         *  scroll amount. Always leave at least as much layout-width as needed to
         *  preserve the current scroll-to position.
         */
        TextInteractor::Tablet_Acquirer tablet_ (this);
        Tablet*                         tablet = tablet_;
        DistanceType                    width  = tablet->CvtFromTWIPSH (CalculateFarthestRightMargin ());
        if (GetHScrollPos () != 0) {
            width = max (width, GetHScrollPos () + GetWindowRect ().GetWidth ());
        }
        cachedLayoutWidth = max (width, DistanceType (1));
    }
    DistanceType wWidth = GetWindowRect ().GetWidth ();
    if (cachedLayoutWidth > wWidth) {
        return (cachedLayoutWidth - wWidth);
    }
    else {
        return 0;
    }
}
 
/*
@METHOD:        WordProcessor::CalculateFarthestRightMarginInDocument ()
@DESCRIPTION:   <p>Calculate how wide an effective margin must be used for specifying the parameters for
            a horizontal scrollbar. By default - asks the max row width/margins for all the rows displayed in the
            current window (so this value can change when we scroll or edit text).</p>
                <p>See also @'WordProcessor::CalculateFarthestRightMarginInWindow'
            </p>
*/
TWIPS WordProcessor::CalculateFarthestRightMarginInDocument () const
{
    CoordinateType longestRowWidth = 0;
    RowReference   curRow          = RowReference{GetFirstPartitionMarker (), 0};
    do {
        CoordinateType rhsMargin = 0;
        GetLayoutMargins (curRow, nullptr, &rhsMargin);
        longestRowWidth = max (longestRowWidth, rhsMargin);
    } while (GetNextRowReference (&curRow));
    Tablet_Acquirer tablet_ (this);
    Tablet*         tablet = tablet_;
    return tablet->CvtToTWIPSH (longestRowWidth);
}
 
/*
@METHOD:        WordProcessor::GetFarthestRightMarginInDocument ()
@DESCRIPTION:   <p>See also @'WordProcessor::CalculateFarthestRightMarginInWindow'
            </p>
*/
TWIPS WordProcessor::GetFarthestRightMarginInDocument () const
{
    AbstractParagraphDatabaseRep* pdbRep = GetParagraphDatabase ().get ();
    RequireNotNull (pdbRep); // this shouldn't be called with a null PDB?
    if (pdbRep->fCachedFarthestRightMarginInDocument == kBadCachedFarthestRightMarginInDocument) {
        pdbRep->fCachedFarthestRightMarginInDocument = CalculateFarthestRightMarginInDocument ();
    }
    return pdbRep->fCachedFarthestRightMarginInDocument;
}
 
/*
@METHOD:        WordProcessor::CalculateFarthestRightMarginInWindow ()
@DESCRIPTION:   <p>Calculate how wide an effective margin must be used for specifying the parameters for
            a horizontal scrollbar. By default - asks the max row width/margins for all the rows displayed in the
            current window (so this value can change when we scroll or edit text).</p>
                <p>NB: prior to Led 3.1d8 - this method returned a DistanceType - and it now returns a TWIPS.
            </p>
*/
TWIPS WordProcessor::CalculateFarthestRightMarginInWindow () const
{
    CoordinateType longestRowWidth  = 0;
    size_t         rowsLeftInWindow = GetTotalRowsInWindow_ ();
    RowReference   curRow           = GetTopRowReferenceInWindow ();
    do {
        CoordinateType rhsMargin = 0;
        GetLayoutMargins (curRow, nullptr, &rhsMargin);
        longestRowWidth = max (longestRowWidth, rhsMargin);
    } while (rowsLeftInWindow-- > 0 and GetNextRowReference (&curRow));
    Tablet_Acquirer tablet_ (this);
    Tablet*         tablet = tablet_;
    return tablet->CvtToTWIPSH (longestRowWidth);
}
 
/*
@METHOD:        WordProcessor::CalculateFarthestRightMargin ()
@DESCRIPTION:   <p>Typically this will call either @'WordProcessor::GetFarthestRightMarginInDocument' (the default) or
            @'WordProcessor::CalculateFarthestRightMarginInWindow'. This is typically called by @'WordProcessor::ComputeMaxHScrollPos'.
            </p>
*/
TWIPS WordProcessor::CalculateFarthestRightMargin () const
{
    return GetFarthestRightMarginInDocument ();
}
 
void WordProcessor::InvalidateAllCaches ()
{
    inherited::InvalidateAllCaches ();
    shared_ptr<AbstractParagraphDatabaseRep> pdb = GetParagraphDatabase ();
    if (pdb.get () != nullptr) {
        static_cast<AbstractParagraphDatabaseRep*> (pdb.get ())->fCachedFarthestRightMarginInDocument = kBadCachedFarthestRightMarginInDocument;
    }
}
 
void WordProcessor::TabletChangedMetrics ()
{
    inherited::TabletChangedMetrics ();
    shared_ptr<AbstractParagraphDatabaseRep> pdb = GetParagraphDatabase ();
    if (pdb.get () != nullptr) {
        static_cast<AbstractParagraphDatabaseRep*> (pdb.get ())->fCachedFarthestRightMarginInDocument = kBadCachedFarthestRightMarginInDocument;
    }
}
 
void WordProcessor::DidUpdateText (const UpdateInfo& updateInfo) noexcept
{
    inherited::DidUpdateText (updateInfo);
    fCachedCurSelFontSpecValid = false;
}
 
void WordProcessor::AssureCurSelFontCacheValid () const
{
    if (not fCachedCurSelFontSpecValid) {
        Assert (GetSelectionEnd () >= GetSelectionStart ());
        size_t              selectionLength = GetSelectionEnd () - GetSelectionStart ();
        WordProcessorTable* aT              = GetActiveTable ();
        if (aT != nullptr) {
            WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*aT, *const_cast<WordProcessor*> (this));
            aT->AssureCurSelFontCacheValid (&fCachedCurSelFontSpec);
            fCachedCurSelJustification       = eLeftJustify;
            fCachedCurSelJustificationUnique = false;
        }
        else {
            fCachedCurSelFontSpec            = GetContinuousStyleInfo (GetSelectionStart (), selectionLength);
            fCachedCurSelJustificationUnique = GetJustification (GetSelectionStart (), GetSelectionEnd (), &fCachedCurSelJustification);
        }
        fCachedCurSelFontSpecValid = true;
    }
}
 
void WordProcessor::DoSingleCharCursorEdit (CursorMovementDirection direction, CursorMovementUnit movementUnit, CursorMovementAction action,
                                            UpdateMode updateMode, bool scrollToSelection)
{
    WordProcessorTable* table = GetActiveTable ();
    if (table != nullptr) {
        WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*table, *const_cast<WordProcessor*> (this));
        if (table->DoSingleCharCursorEdit (direction, movementUnit, action, updateMode, false)) {
            if (scrollToSelection) {
                ScrollToSelection ();
            }
            return;
        }
    }
    inherited::DoSingleCharCursorEdit (direction, movementUnit, action, updateMode, scrollToSelection);
}
 
bool WordProcessor::OnUpdateCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
 
    WordProcessorTable* aT = GetActiveTable ();
    if (aT != nullptr) {
        WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*aT, *const_cast<WordProcessor*> (this));
        if (aT->OnUpdateCommand (enabler)) {
            return true;
        }
    }
 
    switch (enabler->GetCmdID ()) {
        case kFontStylePlain_CmdID: {
            OnUpdateFontStylePlainCommand (enabler);
            return true;
        }
        case kFontStyleBold_CmdID: {
            OnUpdateFontStyleBoldCommand (enabler);
            return true;
        }
        case kFontStyleItalic_CmdID: {
            OnUpdateFontStyleItalicCommand (enabler);
            return true;
        }
        case kFontStyleUnderline_CmdID: {
            OnUpdateFontStyleUnderlineCommand (enabler);
            return true;
        }
#if qStroika_Foundation_Common_Platform_Windows
        case kFontStyleStrikeout_CmdID: {
            OnUpdateFontStyleStrikeoutCommand (enabler);
            return true;
        }
#endif
#if qStroika_Foundation_Common_Platform_MacOS
        case kFontStyleOutline_CmdID: {
            OnUpdateFontStyleOutlineCommand (enabler);
            return true;
        }
        case kFontStyleShadow_CmdID: {
            OnUpdateFontStyleShadowCommand (enabler);
            return true;
        }
        case kFontStyleCondensed_CmdID: {
            OnUpdateFontStyleCondensedCommand (enabler);
            return true;
        }
        case kFontStyleExtended_CmdID: {
            OnUpdateFontStyleExtendedCommand (enabler);
            return true;
        }
#endif
        case kSubScriptCommand_CmdID: {
            OnUpdateFontStyleSubscriptCommand (enabler);
            return true;
        }
        case kSuperScriptCommand_CmdID: {
            OnUpdateFontStyleSuperscriptCommand (enabler);
            return true;
        }
        case kChooseFontCommand_CmdID: {
            OnUpdateChooseFontCommand (enabler);
            return true;
        }
        case kInsertTable_CmdID: {
            OnUpdateInsertTableCommand (enabler);
            return true;
        }
        case kInsertURL_CmdID: {
            OnUpdateInsertURLCommand (enabler);
            return true;
        }
        case kInsertSymbol_CmdID: {
            OnUpdateInsertSymbolCommand (enabler);
            return true;
        }
        case kHideSelection_CmdID: {
            OnUpdateHideSelectionCommands (enabler);
            return true;
        }
        case kUnHideSelection_CmdID: {
            OnUpdateHideSelectionCommands (enabler);
            return true;
        }
        case kParagraphSpacingCommand_CmdID: {
            OnUpdateParagraphSpacingChangeCommand (enabler);
            return true;
        }
        case kParagraphIndentsCommand_CmdID: {
            OnUpdateParagraphIndentsChangeCommand (enabler);
            return true;
        }
        case kIncreaseIndent_CmdID: {
            OnUpdateIndentCommand (enabler);
            return true;
        }
        case kDecreaseIndent_CmdID: {
            OnUpdateIndentCommand (enabler);
            return true;
        }
    }
 
    if (kFontMenuFirst_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kFontMenuLast_CmdID) {
        OnUpdateFontNameChangeCommand (enabler);
        return true;
    }
    else if (kBaseFontSize_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kLastFontSize_CmdID) {
        OnUpdateFontSizeChangeCommand (enabler);
        return true;
    }
    else if (kBaseFontColor_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kLastFontColor_CmdID) {
        OnUpdateFontColorChangeCommand (enabler);
        return true;
    }
    else if (kFirstSelectedEmbedding_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kLastSelectedEmbedding_CmdID) {
        OnUpdateSelectedEmbeddingExtendedCommand (enabler);
        return true;
    }
    else if (kFirstJustification_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kLastJustification_CmdID) {
        OnUpdateParagraphJustificationCommand (enabler);
        return true;
    }
    else if (kFirstShowHideGlyph_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kLastShowHideGlyph_CmdID) {
        OnUpdateShowHideGlyphCommand (enabler);
        return true;
    }
    else if (kFirstListStyle_CmdID <= enabler->GetCmdID () and enabler->GetCmdID () <= kLastListStyle_CmdID) {
        OnUpdateListStyleChangeCommand (enabler);
        return true;
    }
 
    return inherited::OnUpdateCommand (enabler);
}
 
bool WordProcessor::OnPerformCommand (CommandNumber commandNumber)
{
    WordProcessorTable* aT = GetActiveTable ();
    if (aT != nullptr) {
        WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*aT, *const_cast<WordProcessor*> (this));
        if (aT->OnPerformCommand (commandNumber)) {
            return true;
        }
    }
 
    switch (commandNumber) {
        case kFontStylePlain_CmdID: {
            OnFontStylePlainCommand ();
            return true;
        }
        case kFontStyleBold_CmdID: {
            OnFontStyleBoldCommand ();
            return true;
        }
        case kFontStyleItalic_CmdID: {
            OnFontStyleItalicCommand ();
            return true;
        }
        case kFontStyleUnderline_CmdID: {
            OnFontStyleUnderlineCommand ();
            return true;
        }
#if qStroika_Foundation_Common_Platform_Windows
        case kFontStyleStrikeout_CmdID: {
            OnFontStyleStrikeoutCommand ();
            return true;
        }
#endif
#if qStroika_Foundation_Common_Platform_MacOS
        case kFontStyleOutline_CmdID: {
            OnFontStyleOutlineCommand ();
            return true;
        }
        case kFontStyleShadow_CmdID: {
            OnFontStyleShadowCommand ();
            return true;
        }
        case kFontStyleCondensed_CmdID: {
            OnFontStyleCondensedCommand ();
            return true;
        }
        case kFontStyleExtended_CmdID: {
            OnFontStyleExtendedCommand ();
            return true;
        }
#endif
        case kSubScriptCommand_CmdID: {
            OnFontStyleSubscriptCommand ();
            return true;
        }
        case kSuperScriptCommand_CmdID: {
            OnFontStyleSuperscriptCommand ();
            return true;
        }
        case kChooseFontCommand_CmdID: {
            OnChooseFontCommand ();
            return true;
        }
        case kInsertTable_CmdID: {
            OnInsertTableCommand ();
            return true;
        }
        case kInsertURL_CmdID: {
            OnInsertURLCommand ();
            return true;
        }
        case kInsertSymbol_CmdID: {
            OnInsertSymbolCommand ();
            return true;
        }
        case kHideSelection_CmdID: {
            OnHideSelection ();
            return true;
        }
        case kUnHideSelection_CmdID: {
            OnUnHideSelection ();
            return true;
        }
        case kParagraphSpacingCommand_CmdID: {
            OnParagraphSpacingChangeCommand ();
            return true;
        }
        case kParagraphIndentsCommand_CmdID: {
            OnParagraphIndentsChangeCommand ();
            return true;
        }
        case kIncreaseIndent_CmdID: {
            OnIndentCommand (commandNumber);
            return true;
        }
        case kDecreaseIndent_CmdID: {
            OnIndentCommand (commandNumber);
            return true;
        }
    }
 
    if (kFontMenuFirst_CmdID <= commandNumber and commandNumber <= kFontMenuLast_CmdID) {
        OnFontNameChangeCommand (commandNumber);
        return true;
    }
    else if (kBaseFontSize_CmdID <= commandNumber and commandNumber <= kLastFontSize_CmdID) {
        OnFontSizeChangeCommand (commandNumber);
        return true;
    }
    else if (kBaseFontColor_CmdID <= commandNumber and commandNumber <= kLastFontColor_CmdID) {
        OnFontColorChangeCommand (commandNumber);
        return true;
    }
    else if (kFirstSelectedEmbedding_CmdID <= commandNumber and commandNumber <= kLastSelectedEmbedding_CmdID) {
        return OnSelectedEmbeddingExtendedCommand (commandNumber);
    }
    else if (kFirstJustification_CmdID <= commandNumber and commandNumber <= kLastJustification_CmdID) {
        OnParagraphJustificationCommand (commandNumber);
        return true;
    }
    else if (kFirstShowHideGlyph_CmdID <= commandNumber and commandNumber <= kLastShowHideGlyph_CmdID) {
        OnShowHideGlyphCommand (commandNumber);
        return true;
    }
    else if (kFirstListStyle_CmdID <= commandNumber and commandNumber <= kLastListStyle_CmdID) {
        OnListStyleChangeCommand (commandNumber);
        return true;
    }
 
    return inherited::OnPerformCommand (commandNumber);
}
 
bool WordProcessor::PassAlongCommandToIntraCellModeTableCell (CommandNumber commandNumber)
{
    switch (commandNumber) {
        // TextInteractor commands
        case kCut_CmdID:
            return true;
        case kCopy_CmdID:
            return true;
        case kPaste_CmdID:
            return true;
        case kClear_CmdID:
            return true;
 
        case kSelectAll_CmdID: {
            /*
                 *  If we get a select-all command, then first select the cell contents. If that
                 *  is already done - then pass on the command to our parent (which will select a wider
                 *  unit). (see SPR#1615).
                 */
            WordProcessorTable* aT  = GetActiveTable ();
            size_t              row = 0;
            size_t              col = 0;
            if (aT != nullptr and aT->GetIntraCellMode (&row, &col)) {
                size_t intraCellStart = 0;
                size_t intraCellEnd   = 0;
                aT->GetIntraCellSelection (&intraCellStart, &intraCellEnd);
                if (intraCellStart != 0) {
                    return true;
                }
                size_t cellEnd = aT->GetCell (row, col).GetTextStore ().GetEnd ();
                if (intraCellEnd != cellEnd) {
                    return true;
                }
            }
        } break;
 
        // WordProcessor commands
        case kParagraphSpacingCommand_CmdID:
            return true;
        case kParagraphIndentsCommand_CmdID:
            return true;
        case kIncreaseIndent_CmdID:
            return true;
        case kDecreaseIndent_CmdID:
            return true;
        case kChooseFontCommand_CmdID:
            return true;
        case kInsertURL_CmdID:
            return true;
        case kHideSelection_CmdID:
            return true;
        case kUnHideSelection_CmdID:
            return true;
    }
 
    // Ranged WordProcessor commands
    if (kBaseFontSize_CmdID <= commandNumber and commandNumber <= kLastFontSize_CmdID) {
        return true;
    }
    if (kBaseFontColor_CmdID <= commandNumber and commandNumber <= kLastFontColor_CmdID) {
        return true;
    }
    if (kFirstJustification_CmdID <= commandNumber and commandNumber <= kLastJustification_CmdID) {
        return true;
    }
    if (kFirstListStyle_CmdID <= commandNumber and commandNumber <= kLastListStyle_CmdID) {
        return true;
    }
    if (kFontMenuFirst_CmdID <= commandNumber and commandNumber <= kFontMenuLast_CmdID) {
        return true;
    }
    if (kFontStyleCommand_FirstCmdId <= commandNumber and commandNumber <= kFontStyleCommand_LastCmdId) {
        return true;
    }
    if (kFirstSelectedEmbedding_CmdID <= commandNumber and commandNumber <= kLastSelectedEmbedding_CmdID) {
        return true;
    }
 
    return false;
}
 
bool WordProcessor::PassAlongCommandToEachSelectedTableCell (CommandNumber commandNumber)
{
    switch (commandNumber) {
        // TextInteractor commands
        case kClear_CmdID:
            return true;
 
        // WordProcessor commands
        case kHideSelection_CmdID:
            return true;
        case kUnHideSelection_CmdID:
            return true;
    }
 
    // Ranged WordProcessor commands
    if (kBaseFontSize_CmdID <= commandNumber and commandNumber <= kLastFontSize_CmdID) {
        return true;
    }
    if (kBaseFontColor_CmdID <= commandNumber and commandNumber <= kLastFontColor_CmdID) {
        return true;
    }
    if (kFirstJustification_CmdID <= commandNumber and commandNumber <= kLastJustification_CmdID) {
        return true;
    }
    if (kFirstListStyle_CmdID <= commandNumber and commandNumber <= kLastListStyle_CmdID) {
        return true;
    }
    if (kFontMenuFirst_CmdID <= commandNumber and commandNumber <= kFontMenuLast_CmdID) {
        return true;
    }
    if (kFontStyleCommand_FirstCmdId <= commandNumber and commandNumber <= kFontStyleCommand_LastCmdId) {
        return true;
    }
 
    return false;
}
 
/*
@METHOD:        WordProcessor::OnSelectAllCommand
@DESCRIPTION:   <p>Override @'TextInteractor::OnSelectAllCommand' () to also make sure we've selected all the cells
            in a table - if its the only thing in the document (if we aren't changing the selection - and
            have a table selected - then its cells don't automatically get selected otherwise).</p>
*/
void WordProcessor::OnSelectAllCommand ()
{
    inherited::OnSelectAllCommand ();
    if (GetLength () == 1) {
        (void)OnPerformCommand (kSelectTable_CmdID);
    }
}
 
void WordProcessor::OnUpdateFontNameChangeCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    IncrementalFontSpecification fontSpec = GetCurSelFontSpec ();
    // check the item iff it is the currently selected font.
    // But always enable them...
    enabler->SetChecked (fontSpec.GetFontNameSpecifier_Valid () and
                         (GetDialogSupport ().CmdNumToFontName (enabler->GetCmdID ()) == fontSpec.GetFontNameSpecifier ()));
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontNameChangeCommand (CommandNumber cmdNum)
{
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetFontNameSpecifier (GetDialogSupport ().CmdNumToFontName (cmdNum));
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStylePlainCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    IncrementalFontSpecification fontSpec = GetCurSelFontSpec ();
    enabler->SetChecked (fontSpec.GetStyle_Plain_Valid () and fontSpec.GetStyle_Plain ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStylePlainCommand ()
{
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Plain ();
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleBoldCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    IncrementalFontSpecification fontSpec = GetCurSelFontSpec ();
    enabler->SetChecked (fontSpec.GetStyle_Bold_Valid () and fontSpec.GetStyle_Bold ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleBoldCommand ()
{
    IncrementalFontSpecification applyFontSpec;
    IncrementalFontSpecification fontSpec = GetCurSelFontSpec ();
    applyFontSpec.SetStyle_Bold (not(fontSpec.GetStyle_Bold_Valid () and fontSpec.GetStyle_Bold ()));
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleItalicCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    IncrementalFontSpecification fontSpec = GetCurSelFontSpec ();
    enabler->SetChecked (fontSpec.GetStyle_Italic_Valid () and fontSpec.GetStyle_Italic ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleItalicCommand ()
{
    IncrementalFontSpecification applyFontSpec;
    IncrementalFontSpecification fontSpec = GetCurSelFontSpec ();
    applyFontSpec.SetStyle_Italic (not(fontSpec.GetStyle_Italic_Valid () and fontSpec.GetStyle_Italic ()));
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleUnderlineCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_Underline_Valid () and fCachedCurSelFontSpec.GetStyle_Underline ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleUnderlineCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Underline (not(fCachedCurSelFontSpec.GetStyle_Underline_Valid () and fCachedCurSelFontSpec.GetStyle_Underline ()));
    InteractiveSetFont (applyFontSpec);
}
 
#if qStroika_Foundation_Common_Platform_MacOS
void WordProcessor::OnUpdateFontStyleOutlineCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_Outline_Valid () and fCachedCurSelFontSpec.GetStyle_Outline ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleOutlineCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Outline (not(fCachedCurSelFontSpec.GetStyle_Outline_Valid () and fCachedCurSelFontSpec.GetStyle_Outline ()));
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleShadowCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_Shadow_Valid () and fCachedCurSelFontSpec.GetStyle_Shadow ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleShadowCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Shadow (not(fCachedCurSelFontSpec.GetStyle_Shadow_Valid () and fCachedCurSelFontSpec.GetStyle_Shadow ()));
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleCondensedCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_Condensed_Valid () and fCachedCurSelFontSpec.GetStyle_Condensed ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleCondensedCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Condensed (not(fCachedCurSelFontSpec.GetStyle_Condensed_Valid () and fCachedCurSelFontSpec.GetStyle_Condensed ()));
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleExtendedCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_Extended_Valid () and fCachedCurSelFontSpec.GetStyle_Extended ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleExtendedCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Extended (not(fCachedCurSelFontSpec.GetStyle_Extended_Valid () and fCachedCurSelFontSpec.GetStyle_Extended ()));
    InteractiveSetFont (applyFontSpec);
}
 
#elif qStroika_Foundation_Common_Platform_Windows
 
void WordProcessor::OnUpdateFontStyleStrikeoutCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_Strikeout_Valid () and fCachedCurSelFontSpec.GetStyle_Strikeout ());
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleStrikeoutCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_Strikeout (not(fCachedCurSelFontSpec.GetStyle_Strikeout_Valid () and fCachedCurSelFontSpec.GetStyle_Strikeout ()));
    InteractiveSetFont (applyFontSpec);
}
 
#endif
 
void WordProcessor::OnUpdateFontStyleSubscriptCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_SubOrSuperScript_Valid () and
                         fCachedCurSelFontSpec.GetStyle_SubOrSuperScript () == FontSpecification::eSubscript);
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleSubscriptCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_SubOrSuperScript ((fCachedCurSelFontSpec.GetStyle_SubOrSuperScript_Valid () and
                                              fCachedCurSelFontSpec.GetStyle_SubOrSuperScript () == FontSpecification::eSubscript)
                                                 ? FontSpecification::eNoSubOrSuperscript
                                                 : FontSpecification::eSubscript);
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateFontStyleSuperscriptCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    AssureCurSelFontCacheValid ();
    enabler->SetChecked (fCachedCurSelFontSpec.GetStyle_SubOrSuperScript_Valid () and
                         fCachedCurSelFontSpec.GetStyle_SubOrSuperScript () == FontSpecification::eSuperscript);
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontStyleSuperscriptCommand ()
{
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    applyFontSpec.SetStyle_SubOrSuperScript ((fCachedCurSelFontSpec.GetStyle_SubOrSuperScript_Valid () and
                                              fCachedCurSelFontSpec.GetStyle_SubOrSuperScript () == FontSpecification::eSuperscript)
                                                 ? FontSpecification::eNoSubOrSuperscript
                                                 : FontSpecification::eSuperscript);
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateChooseFontCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnChooseFontCommand ()
{
    IncrementalFontSpecification curSelFontSpec = GetCurSelFontSpec ();
    if (GetDialogSupport ().ChooseFont (&curSelFontSpec)) {
        InteractiveSetFont (curSelFontSpec);
    }
}
 
void WordProcessor::OnUpdateFontSizeChangeCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    DistanceType chosenFontSize = GetDialogSupport ().FontCmdToSize (enabler->GetCmdID ());
 
    AssureCurSelFontCacheValid ();
    if (chosenFontSize == 0) {
        switch (enabler->GetCmdID ()) {
            case kFontSizeSmaller_CmdID:
            case kFontSizeLarger_CmdID: {
                enabler->SetEnabled (true);
            } break;
 
            case kFontSizeOther_CmdID: {
                enabler->SetEnabled (true);
                if (fCachedCurSelFontSpec.GetPointSize_Valid ()) {
                    int pointSize = fCachedCurSelFontSpec.GetPointSize ();
                    if (not GetDialogSupport ().IsPredefinedFontSize (pointSize)) {
                        enabler->SetChecked (true);
                        enabler->SetText (Characters::CString::Format (GetCommandNames ().fFontSizeChange_Other_OneArg.c_str (), pointSize).c_str ());
                        return;
                    }
                }
                enabler->SetChecked (false);
                enabler->SetText (GetCommandNames ().fFontSizeChange_Other_NoArg.c_str ());
            } break;
        }
    }
    else {
        enabler->SetChecked (fCachedCurSelFontSpec.GetPointSize_Valid () and fCachedCurSelFontSpec.GetPointSize () == chosenFontSize);
        enabler->SetEnabled (true);
    }
}
 
void WordProcessor::OnFontSizeChangeCommand (CommandNumber cmdNum)
{
    DistanceType chosenFontSize = GetDialogSupport ().FontCmdToSize (cmdNum);
    if (chosenFontSize == 0) {
        switch (cmdNum) {
            case kFontSizeSmaller_CmdID: {
                IncrementalFontSpecification applyFontSpec;
                applyFontSpec.SetPointSizeIncrement (-1);
                InteractiveSetFont (applyFontSpec);
                return;
            } break;
            case kFontSizeLarger_CmdID: {
                IncrementalFontSpecification applyFontSpec;
                applyFontSpec.SetPointSizeIncrement (1);
                InteractiveSetFont (applyFontSpec);
                return;
            } break;
            case kFontSizeOther_CmdID: {
                DistanceType oldSize = fCachedCurSelFontSpec.GetPointSize_Valid () ? fCachedCurSelFontSpec.GetPointSize () : 0;
                chosenFontSize       = GetDialogSupport ().PickOtherFontHeight (oldSize);
            } break;
        }
    }
    if (chosenFontSize != 0) {
        IncrementalFontSpecification applyFontSpec;
        applyFontSpec.SetPointSize (static_cast<unsigned short> (chosenFontSize));
        InteractiveSetFont (applyFontSpec);
    }
}
 
void WordProcessor::OnUpdateFontColorChangeCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    Require (enabler->GetCmdID () >= kBaseFontColor_CmdID and enabler->GetCmdID () <= kLastFontColor_CmdID);
    AssureCurSelFontCacheValid ();
    if (fCachedCurSelFontSpec.GetTextColor_Valid ()) {
        if (enabler->GetCmdID () == kFontColorOther_CmdID) {
            // should check all other predefined colors, but for now, just don't check it...
            enabler->SetChecked (GetDialogSupport ().FontColorToCmd (fCachedCurSelFontSpec.GetTextColor ()) == kFontColorOther_CmdID);
        }
        else {
            enabler->SetChecked (fCachedCurSelFontSpec.GetTextColor () == GetDialogSupport ().FontCmdToColor (enabler->GetCmdID ()));
        }
    }
    else {
        enabler->SetChecked (false);
    }
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnFontColorChangeCommand (CommandNumber cmdNum)
{
    Require (cmdNum >= kBaseFontColor_CmdID and cmdNum <= kLastFontColor_CmdID);
 
    AssureCurSelFontCacheValid ();
    IncrementalFontSpecification applyFontSpec;
    if (cmdNum == kFontColorOther_CmdID) {
        Color originalColor = GetDefaultFont ().GetTextColor ();
        if (fCachedCurSelFontSpec.GetTextColor_Valid ()) {
            originalColor = fCachedCurSelFontSpec.GetTextColor ();
        }
        Color chosenColor = originalColor;
        if (GetDialogSupport ().PickOtherFontColor (&chosenColor)) {
            applyFontSpec.SetTextColor (chosenColor);
        }
    }
    else {
        // Treat color selection like style selection. That is, if text is already red, and you select
        // Red, then treat that as 'turning off red' (ie go to black). Otherwise - just treat the command
        // as setting the whole wange to that color.
        Color chosenColor = GetDialogSupport ().FontCmdToColor (cmdNum);
        if (fCachedCurSelFontSpec.GetTextColor_Valid () and fCachedCurSelFontSpec.GetTextColor () == chosenColor) {
            applyFontSpec.SetTextColor (Color::kBlack);
        }
        else {
            applyFontSpec.SetTextColor (chosenColor);
        }
    }
    InteractiveSetFont (applyFontSpec);
}
 
void WordProcessor::OnUpdateInsertTableCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    // only allow insert table on empty selection (for now)... Maybe in the future - if there
    // is text in the selection - create a table smartly around it???? Looking for tabs etc??
    enabler->SetEnabled (GetSelectionStart () == GetSelectionEnd ());
}
 
void WordProcessor::OnInsertTableCommand ()
{
    size_t rows = 2; // 2x3 default row/col count....
    size_t cols = 3;
    if (GetDialogSupport ().AddNewTableDialog (&rows, &cols)) {
        Assert (rows > 0);
        Assert (cols > 0);
        Assert (rows < 1000); //  not strictly required - but would be rediculous...
        Assert (cols < 100);  //  ''
 
        InteractiveModeUpdater iuMode (*this);
 
        // force early failure in abouttoupdate if read-only... before we constrct any objects or bring up and dialogs...
        TextStore::SimpleUpdater updater1 (GetTextStore (), GetSelectionStart (), GetSelectionEnd ());
 
        BreakInGroupedCommands ();
        UndoableContextHelper context (*this, GetCommandNames ().fInsertTableCommandName, false);
        {
            // Put up dialog ROW/COL and then insert columns...
            WordProcessorTable* t = InsertTable (GetSelectionStart ()); // ignore return result cuz kept track of internally and automatically deleted...
            //tmphack - SHOULD come from dialog we launch in here to let user specify
            t->SetDimensions (rows, cols);
            {
                for (size_t r = 0; r < rows; ++r) {
                    for (size_t c = 0; c < cols; ++c) {
                        TWIPS targetWidth = TWIPS{0};
                        {
                            CoordinateType lhs = 0;
                            CoordinateType rhs = 0;
                            GetLayoutMargins (GetRowReferenceContainingPosition (t->GetStart ()), &lhs, &rhs);
                            Assert (lhs < rhs);
                            targetWidth = Led_CvtScreenPixelsToTWIPSH (rhs - lhs);
                            targetWidth = TWIPS ((targetWidth / 5) * 4); // just make it a bit smaller than total possible width
                        }
                        t->SetColumnWidth (r, c, TWIPS (static_cast<long> (targetWidth / cols)));
 
                        TextStore* ts = nullptr;
                        t->GetCellWordProcessorDatabases (r, c, &ts);
                    }
                }
            }
            TextStore::SimpleUpdater updater (GetTextStore (), t->GetStart (), t->GetEnd ());
            SetSelection (t->GetEnd (), t->GetEnd ());
        }
        context.CommandComplete ();
        BreakInGroupedCommands ();
    }
}
 
void WordProcessor::OnUpdateInsertURLCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    enabler->SetEnabled (GetSelectionStart () == GetSelectionEnd ()); // for now only support on empty selection
    // later revise so that if we do this to a non-empty selection, we grab that text and try to make
    // it into a URL???
}
 
void WordProcessor::OnInsertURLCommand ()
{
    InteractiveModeUpdater iuMode (*this);
    BreakInGroupedCommands ();
    SDKString title;
    SDKString url;
    if (GetDialogSupport ().ShowAddURLEmbeddingInfoDialog (&title, &url)) {
        UndoableContextHelper context (*this, GetCommandNames ().fInsertURLCommandName, false);
        {
            SimpleEmbeddedObjectStyleMarker* e = new StandardURLStyleMarker (Led_URLD (
                String::FromSDKString (url).AsNarrowSDKString ().c_str (), String::FromSDKString (title).AsNarrowSDKString ().c_str ()));
            AddEmbedding (e, GetTextStore (), GetSelectionStart (), GetStyleDatabase ().get ());
            SetSelection (e->GetEnd (), e->GetEnd ());
        }
        context.CommandComplete ();
    }
    BreakInGroupedCommands ();
}
 
void WordProcessor::OnUpdateInsertSymbolCommand ([[maybe_unused]] CommandUpdater* enabler)
{
    RequireNotNull (enabler);
#if qStroika_Foundation_Common_Platform_Windows
    enabler->SetEnabled (true);
#else
    Assert (false); //NYI
#endif
}
 
void WordProcessor::OnInsertSymbolCommand ()
{
#if qStroika_Foundation_Common_Platform_Windows
    (void)::ShellExecute (nullptr, Led_SDK_TCHAROF ("open"), Led_SDK_TCHAROF ("CHARMAP.EXE"), nullptr, Led_SDK_TCHAROF (""), SW_SHOWNORMAL);
#else
    Assert (false); //NYI
#endif
}
 
void WordProcessor::OnUpdateSelectedEmbeddingExtendedCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    SimpleEmbeddedObjectStyleMarker* embedding = GetSoleSelectedEmbedding ();
    if (enabler->GetCmdID () == kSelectedEmbeddingProperties_CmdID) {
        enabler->SetEnabled (embedding != nullptr);
        WordProcessorTable* t = GetActiveTable ();
        enabler->SetText (t == nullptr ? GetCommandNames ().fGenericEmbeddingPropertiesCommandName.c_str ()
                                       : GetCommandNames ().fTablePropertiesCommandName.c_str ());
    }
    else {
        using PrivateCmdNumber = SimpleEmbeddedObjectStyleMarker::PrivateCmdNumber;
        PrivateCmdNumber cmdNum =
            static_cast<PrivateCmdNumber> (enabler->GetCmdID () - kFirstPrivateEmbedding_CmdID + SimpleEmbeddedObjectStyleMarker::eMinPrivateCmdNum);
        enabler->SetEnabled (embedding != nullptr and embedding->IsCmdEnabled (cmdNum));
        if (embedding != nullptr) {
            enabler->SetText (embedding->GetCmdText (cmdNum).c_str ());
        }
    }
}
 
bool WordProcessor::OnSelectedEmbeddingExtendedCommand (CommandNumber cmdNum)
{
    Require (cmdNum >= kFirstSelectedEmbedding_CmdID and cmdNum <= kLastSelectedEmbedding_CmdID);
    SimpleEmbeddedObjectStyleMarker* embedding = GetSoleSelectedEmbedding ();
    if (embedding == nullptr) {
        return false;
    }
    if (cmdNum == kSelectedEmbeddingProperties_CmdID) {
        if (dynamic_cast<StandardURLStyleMarker*> (embedding) != nullptr) {
            StandardURLStyleMarker* e     = dynamic_cast<StandardURLStyleMarker*> (embedding);
            SDKString               title = String::FromNarrowSDKString (e->GetURLData ().GetTitle ()).AsSDKString ();
            SDKString               url   = String::FromNarrowSDKString (e->GetURLData ().GetURL ()).AsSDKString ();
            if (GetDialogSupport ().ShowURLEmbeddingInfoDialog (GetPrettyTypeName (embedding), &title, &url)) {
                // Change URL contents...
                {
                    TextStore::SimpleUpdater updater (GetTextStore (), e->GetStart (), e->GetEnd ());
                    e->SetURLData (Led_URLD{String::FromSDKString (url).AsNarrowSDKString ().c_str (),
                                            String::FromSDKString (title).AsNarrowSDKString ().c_str ()});
                }
            }
        }
        else if (dynamic_cast<WordProcessorTable*> (embedding) != nullptr) {
            OnEditTablePropertiesDialog ();
        }
        else {
            // unknown embedding...
            GetDialogSupport ().ShowSimpleEmbeddingInfoDialog (GetPrettyTypeName (embedding));
        }
    }
    else {
        using PrivateCmdNumber = SimpleEmbeddedObjectStyleMarker::PrivateCmdNumber;
        PrivateCmdNumber pCmdNum =
            static_cast<PrivateCmdNumber> (cmdNum - kFirstPrivateEmbedding_CmdID + SimpleEmbeddedObjectStyleMarker::eMinPrivateCmdNum);
        embedding->DoCommand (pCmdNum);
    }
    return true;
}
 
void WordProcessor::OnEditTablePropertiesDialog ()
{
    WordProcessorTable* t = GetActiveTable ();
    AssertNotNull (t);
 
    /*
     *  Fill in the selected cells/table properties, and then invoke the dialog.
     *  Then if the dialog returns TRUE, apply the changes.
     */
    DialogSupport::TableSelectionPropertiesInfo info;
    info.fTableBorderWidth = t->GetTableBorderWidth ();
    info.fTableBorderColor = t->GetTableBorderColor ();
    t->GetDefaultCellMargins (&info.fDefaultCellMargins.top, &info.fDefaultCellMargins.left, &info.fDefaultCellMargins.bottom,
                              &info.fDefaultCellMargins.right);
    info.fCellSpacing = t->GetCellSpacing ();
    {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        t->GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        info.fCellWidth_Common           = false;
        info.fCellBackgroundColor_Common = false;
        for (size_t r = rowSelStart; r < rowSelEnd; ++r) {
            for (size_t c = colSelStart; c < colSelEnd; ++c) {
                if (c < t->GetColumnCount (r)) {
                    TWIPS cellWidth  = t->GetColumnWidth (r, c);
                    Color cellBkgrnd = t->GetCellColor (r, c);
                    if (r == rowSelStart and c == colSelStart) {
                        info.fCellWidth_Common           = true;
                        info.fCellWidth                  = cellWidth;
                        info.fCellBackgroundColor_Common = true;
                        info.fCellBackgroundColor        = cellBkgrnd;
                    }
                    else {
                        if (info.fCellWidth_Common) {
                            if (info.fCellWidth != cellWidth) {
                                info.fCellWidth_Common = false;
                            }
                        }
                        if (info.fCellBackgroundColor_Common) {
                            if (info.fCellBackgroundColor != cellBkgrnd) {
                                info.fCellBackgroundColor_Common = false;
                            }
                        }
                    }
                }
            }
        }
    }
    if (GetDialogSupport ().EditTablePropertiesDialog (&info)) {
        UndoableContextHelper context (*this, GetCommandNames ().fChangeTablePropertiesCommandName, false);
        {
            t->SetTableBorderWidth (info.fTableBorderWidth);
            t->SetTableBorderColor (info.fTableBorderColor);
            t->SetDefaultCellMargins (info.fDefaultCellMargins.top, info.fDefaultCellMargins.left, info.fDefaultCellMargins.bottom,
                                      info.fDefaultCellMargins.right);
            t->SetCellSpacing (info.fCellSpacing);
            {
                size_t rowSelStart = 0;
                size_t rowSelEnd   = 0;
                size_t colSelStart = 0;
                size_t colSelEnd   = 0;
                t->GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
                for (size_t r = rowSelStart; r < rowSelEnd; ++r) {
                    for (size_t c = colSelStart; c < colSelEnd; ++c) {
                        if (c < t->GetColumnCount (r)) {
                            if (info.fCellWidth_Common) {
                                t->SetColumnWidth (r, c, info.fCellWidth);
                            }
                            if (info.fCellBackgroundColor_Common) {
                                t->SetCellColor (r, c, info.fCellBackgroundColor);
                            }
                        }
                    }
                }
            }
        }
        context.CommandComplete ();
    }
}
 
void WordProcessor::OnUpdateHideSelectionCommands (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    bool enabled = GetSelectionStart () != GetSelectionEnd ();
    if (enabled) {
        // check if range already had hidden etc - like GetContiguous for STYLE support....
        if (enabler->GetCmdID () == kHideSelection_CmdID) {
            enabled = not GetHidableTextDatabase ()->GetHidableRegionsContiguous (GetSelectionStart (), GetSelectionEnd (), true);
        }
        else if (enabler->GetCmdID () == kUnHideSelection_CmdID) {
            enabled = not GetHidableTextDatabase ()->GetHidableRegionsContiguous (GetSelectionStart (), GetSelectionEnd (), false);
        }
    }
    enabler->SetEnabled (enabled);
}
 
void WordProcessor::OnHideSelection ()
{
    InterectiveSetRegionHidable (true);
}
 
void WordProcessor::OnUnHideSelection ()
{
    InterectiveSetRegionHidable (false);
}
 
void WordProcessor::OnUpdateParagraphJustificationCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
 
    AssureCurSelFontCacheValid ();
 
    switch (enabler->GetCmdID ()) {
        case kJustifyLeft_CmdID: {
            enabler->SetChecked (fCachedCurSelJustificationUnique and (fCachedCurSelJustification == eLeftJustify));
        } break;
        case kJustifyCenter_CmdID: {
            enabler->SetChecked (fCachedCurSelJustificationUnique and (fCachedCurSelJustification == eCenterJustify));
        } break;
        case kJustifyRight_CmdID: {
            enabler->SetChecked (fCachedCurSelJustificationUnique and (fCachedCurSelJustification == eRightJustify));
        } break;
        case kJustifyFull_CmdID: {
            enabler->SetChecked (fCachedCurSelJustificationUnique and (fCachedCurSelJustification == eFullyJustify));
        } break;
    }
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnParagraphJustificationCommand (CommandNumber cmdNum)
{
    switch (cmdNum) {
        case kJustifyLeft_CmdID: {
            InteractiveSetJustification (eLeftJustify);
        } break;
        case kJustifyCenter_CmdID: {
            InteractiveSetJustification (eCenterJustify);
        } break;
        case kJustifyRight_CmdID: {
            InteractiveSetJustification (eRightJustify);
        } break;
        case kJustifyFull_CmdID: {
            InteractiveSetJustification (eFullyJustify);
        } break;
        default: {
            Assert (false); // shouldn't have been mapped to this function
        } break;
    }
}
 
void WordProcessor::OnUpdateParagraphSpacingChangeCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnParagraphSpacingChangeCommand ()
{
    TWIPS       spaceBefore = TWIPS{0};
    TWIPS       spaceAfter  = TWIPS{0};
    LineSpacing lineSpacing;
 
    bool spaceBeforeValid = GetSpaceBefore (GetSelectionStart (), GetSelectionEnd (), &spaceBefore);
    bool spaceAfterValid  = GetSpaceAfter (GetSelectionStart (), GetSelectionEnd (), &spaceAfter);
    bool lineSpacingValid = GetLineSpacing (GetSelectionStart (), GetSelectionEnd (), &lineSpacing);
 
    if (GetDialogSupport ().PickNewParagraphLineSpacing (&spaceBefore, &spaceBeforeValid, &spaceAfter, &spaceAfterValid, &lineSpacing, &lineSpacingValid)) {
        if (spaceBeforeValid) {
        }
        InteractiveSetParagraphSpacing (spaceBefore, spaceBeforeValid, spaceAfter, spaceAfterValid, lineSpacing, lineSpacingValid);
    }
}
 
void WordProcessor::OnUpdateParagraphIndentsChangeCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnParagraphIndentsChangeCommand ()
{
    TWIPS leftMargin  = TWIPS{0};
    TWIPS rightMargin = TWIPS{0};
    TWIPS firstIndent = TWIPS{0};
 
    // Should retrieve the 'isvalid' flags for margins separately so if we update one we aren't forced to update the other!
    bool leftMarginValid  = GetMargins (GetSelectionStart (), GetSelectionEnd (), &leftMargin, &rightMargin);
    bool rightMarginValid = leftMarginValid;
    bool firstIndentValid = GetFirstIndent (GetSelectionStart (), GetSelectionEnd (), &firstIndent);
 
    if (GetDialogSupport ().PickNewParagraphMarginsAndFirstIndent (&leftMargin, &leftMarginValid, &rightMargin, &rightMarginValid,
                                                                   &firstIndent, &firstIndentValid)) {
        // Similarly (as above - we should pass in a flag saying whether or not to change each of the given margins/etc. Maybe pass in by
        // pointer, and treat nullptr ptr as meaning no change?
        // for now just call if ANYTHING has changed
        InteractiveSetMarginsAndFirstIndent (leftMargin, rightMargin, firstIndent);
    }
}
 
void WordProcessor::OnUpdateListStyleChangeCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    ListStyle listStyle      = eListStyle_None;
    bool      listStyleValid = GetListStyle (GetSelectionStart (), GetSelectionEnd (), &listStyle);
    if (enabler->GetCmdID () == kListStyle_None_CmdID) {
        enabler->SetChecked (listStyleValid and listStyle == eListStyle_None);
    }
    else if (enabler->GetCmdID () == kListStyle_Bullet_CmdID) {
        enabler->SetChecked (listStyleValid and listStyle == eListStyle_Bullet);
    }
    else {
        Assert (false); // shouldn't have been mapped to this function
    }
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnListStyleChangeCommand (CommandNumber cmdNum)
{
    if (cmdNum == kListStyle_None_CmdID) {
        InteractiveSetListStyle (eListStyle_None);
    }
    else if (cmdNum == kListStyle_Bullet_CmdID) {
        InteractiveSetListStyle (eListStyle_Bullet);
    }
    else {
        Assert (false); // shouldn't have been mapped to this function
    }
}
 
void WordProcessor::OnUpdateIndentCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    ListStyle listStyle      = eListStyle_None;
    bool      listStyleValid = GetListStyle (GetSelectionStart (), GetSelectionEnd (), &listStyle);
    if (enabler->GetCmdID () == kIncreaseIndent_CmdID) {
        enabler->SetEnabled (listStyleValid and listStyle != eListStyle_None);
    }
    else if (enabler->GetCmdID () == kDecreaseIndent_CmdID) {
        enabler->SetEnabled (listStyleValid and listStyle != eListStyle_None);
    }
    else {
        Assert (false); // shouldn't have been mapped to this function
    }
}
 
void WordProcessor::OnIndentCommand (CommandNumber cmdNum)
{
    if (cmdNum == kIncreaseIndent_CmdID) {
        InteractiveDoIndentChange (true);
    }
    else if (cmdNum == kDecreaseIndent_CmdID) {
        InteractiveDoIndentChange (false);
    }
    else {
        Assert (false); // shouldn't have been mapped to this function
    }
}
 
void WordProcessor::OnUpdateShowHideGlyphCommand (CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    Require (enabler->GetCmdID () >= kFirstShowHideGlyph_CmdID);
    Require (enabler->GetCmdID () <= kLastShowHideGlyph_CmdID);
    // NB: we use an if/else skip-chain instead of switch statement so that X constants
    // can be set to magic numbers like zero - to indicate the commands will not be supported.
    if (enabler->GetCmdID () == kShowHideParagraphGlyphs_CmdID) {
        enabler->SetChecked (GetShowParagraphGlyphs ());
    }
    else if (enabler->GetCmdID () == kShowHideTabGlyphs_CmdID) {
        enabler->SetChecked (GetShowTabGlyphs ());
    }
    else if (enabler->GetCmdID () == kShowHideSpaceGlyphs_CmdID) {
        enabler->SetChecked (GetShowSpaceGlyphs ());
    }
    else {
        Assert (false); // shouldn't have been mapped to this function
    }
    enabler->SetEnabled (true);
}
 
void WordProcessor::OnShowHideGlyphCommand (CommandNumber cmdNum)
{
    Require (cmdNum >= kFirstShowHideGlyph_CmdID);
    Require (cmdNum <= kLastShowHideGlyph_CmdID);
    // NB: we use an if/else skip-chain instead of switch statement so that X constants
    // can be set to magic numbers like zero - to indicate the commands will not be supported.
    if (cmdNum == kShowHideParagraphGlyphs_CmdID) {
        SetShowParagraphGlyphs (not GetShowParagraphGlyphs ());
    }
    else if (cmdNum == kShowHideTabGlyphs_CmdID) {
        SetShowTabGlyphs (not GetShowTabGlyphs ());
    }
    else if (cmdNum == kShowHideSpaceGlyphs_CmdID) {
        SetShowSpaceGlyphs (not GetShowSpaceGlyphs ());
    }
    else {
        Assert (false); // shouldn't have been mapped to this function
    }
}
 
SDKString WordProcessor::GetPrettyTypeName (SimpleEmbeddedObjectStyleMarker* m)
{
    if (dynamic_cast<StandardDIBStyleMarker*> (m) != nullptr) {
        return GetCommandNames ().fEmbeddingTypeName_ImageDIB;
    }
    else if (dynamic_cast<StandardURLStyleMarker*> (m) != nullptr) {
        return GetCommandNames ().fEmbeddingTypeName_URL;
    }
#if qStroika_Foundation_Common_Platform_MacOS || qStroika_Foundation_Common_Platform_Windows
    else if (dynamic_cast<StandardMacPictureStyleMarker*> (m) != nullptr) {
        return GetCommandNames ().fEmbeddingTypeName_ImageMacPict;
    }
#endif
    else if (dynamic_cast<WordProcessorTable*> (m) != nullptr) {
        return GetCommandNames ().fEmbeddingTypeName_Table;
    }
    else {
        return GetCommandNames ().fEmbeddingTypeName_Unknown;
    }
}
 
SimpleEmbeddedObjectStyleMarker* WordProcessor::GetSoleSelectedEmbedding () const
{
    size_t selStart = GetSelectionStart ();
    size_t selEnd   = GetSelectionEnd ();
    Require (selStart <= selEnd);
    if (selEnd - selStart == 1) {
        vector<SimpleEmbeddedObjectStyleMarker*> embeddings = CollectAllEmbeddingMarkersInRange (selStart, selEnd);
        if (embeddings.size () == 1) {
            return (dynamic_cast<SimpleEmbeddedObjectStyleMarker*> (embeddings[0]));
        }
        else {
            return nullptr;
        }
    }
    else {
        return nullptr;
    }
}
 
/*
@METHOD:        WordProcessor::GetListLeader
@DESCRIPTION:
    <p>Return the string (computed often, as with roman numeral lists) which gets inserted to designate the
    list marker.</p>
*/
Led_tString WordProcessor::GetListLeader (size_t paragraphMarkerPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (paragraphMarkerPos);
    if (pi.GetListStyle () == eListStyle_None) {
        return Led_tString{};
    }
    else {
        const Led_tChar kBulletChar = 0x2022;
        // In a future release, pay attention to RTF \levelfollowN (0 tab, 1 space, 2 nothing)
        // For now, sample RTF docs with MSWord 2k appear to write out 0 (tab) by default.
        return Led_tString{&kBulletChar, 1} + LED_TCHAR_OF ("\t");
    }
}
 
/*
@METHOD:        WordProcessor::GetListLeaderLength
@DESCRIPTION:
    <p>Return the width (DistanceType) of the leader. Based on result from @'WordProcessor::GetListLeader'.</p>
*/
DistanceType WordProcessor::GetListLeaderLength (size_t paragraphMarkerPos) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
 
    ParagraphInfo pi       = fParagraphDatabase->GetParagraphInfo (paragraphMarkerPos);
    TWIPS         lhsTWIPS = pi.GetLeftMargin ();
    lhsTWIPS += pi.GetFirstIndent ();
 
    Tablet_Acquirer tablet_ (this);
    Tablet*         tablet = tablet_;
    CoordinateType  lhs    = tablet->CvtFromTWIPSH (lhsTWIPS);
    Led_tString     leader = GetListLeader (paragraphMarkerPos);
 
    size_t len = leader.length ();
    if (len == 0) {
        return 0;
    }
    else {
        Memory::StackBuffer<DistanceType> distanceResults{Memory::eUninitialized, len};
        FontSpecification                 nextCharsFontStyle = GetStyleInfo (paragraphMarkerPos);
        FontSpecification                 useBulletFont      = GetStaticDefaultFont ();
        useBulletFont.SetPointSize (max (static_cast<unsigned short> (14), nextCharsFontStyle.GetPointSize ()));
        MeasureSegmentWidth_ (useBulletFont, paragraphMarkerPos, paragraphMarkerPos + len, leader.c_str (), distanceResults.data ());
        (void)ResetTabStopsWithMargin (lhs, paragraphMarkerPos, leader.c_str (), len, distanceResults.data (), 0);
        DistanceType result = distanceResults[len - 1];
        return result;
    }
}
 
InteractiveReplaceCommand::SavedTextRep* WordProcessor::InteractiveUndoHelperMakeTextRep (size_t regionStart, size_t regionEnd, size_t selStart, size_t selEnd)
{
    using SavedTextRep = InteractiveReplaceCommand::SavedTextRep;
    if (regionStart == regionEnd) {
        return new EmptySelectionParagraphSavedTextRep (this, selStart, selEnd, regionStart);
    }
    else {
        SavedTextRep*       basicRep = inherited::InteractiveUndoHelperMakeTextRep (regionStart, regionEnd, selStart, selEnd);
        WordProcessorTable* aT       = GetActiveTable ();
        if (aT != nullptr) {
            return new WordProcessorTable::SavedTextRepWSel (basicRep, *aT, WordProcessorTable::SavedTextRepWSel::eWPAbove);
        }
        return basicRep;
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetFont
@DESCRIPTION:   <p>Override @'StandardStyledTextInteractor::InteractiveSetFont' to handle embedded tables.</p>
*/
void WordProcessor::InteractiveSetFont (const IncrementalFontSpecification& defaultFont)
{
    WordProcessorTable* aT = GetActiveTable ();
    if (aT != nullptr) {
        WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*aT, *this);
        aT->InteractiveSetFont (defaultFont);
        return;
    }
    inherited::InteractiveSetFont (defaultFont);
}
 
/*
@METHOD:        WordProcessor::InteractiveSetJustification
@DESCRIPTION:
*/
void WordProcessor::InteractiveSetJustification (Justification justification)
{
    Justification oldJustification;
    if (not GetJustification (GetSelectionStart (), GetSelectionEnd (), &oldJustification) or (oldJustification != justification)) {
        InteractiveWPHelper1<DoIt_SetJustification> (this, justification);
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetStandardTabStopList
@DESCRIPTION:
*/
void WordProcessor::InteractiveSetStandardTabStopList (StandardTabStopList tabStops)
{
    StandardTabStopList oldTabs;
    if (not GetStandardTabStopList (GetSelectionStart (), GetSelectionEnd (), &oldTabs) or (oldTabs != tabStops)) {
        InteractiveWPHelper1<DoIt_SetStandardTabStopList> (this, tabStops);
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetMargins
@DESCRIPTION:
*/
void WordProcessor::InteractiveSetMargins (TWIPS leftMargin, TWIPS rightMargin)
{
    TWIPS oldLeftMargin  = TWIPS{0};
    TWIPS oldRightMargin = TWIPS{0};
    if (not GetMargins (GetSelectionStart (), GetSelectionEnd (), &oldLeftMargin, &oldRightMargin) or
        ((oldLeftMargin != leftMargin) or (oldRightMargin != rightMargin))) {
        InteractiveWPHelper1<DoIt_SetMargins> (this, DoIt_SetMargins::Margins (leftMargin, rightMargin));
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetFirstIndent
@DESCRIPTION:
*/
void WordProcessor::InteractiveSetFirstIndent (TWIPS firstIndent)
{
    TWIPS oldFirstIndent = TWIPS{0};
    if (not GetFirstIndent (GetSelectionStart (), GetSelectionEnd (), &oldFirstIndent) or (oldFirstIndent != firstIndent)) {
        InteractiveWPHelper1<DoIt_SetFirstIndent> (this, firstIndent);
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetMarginsAndFirstIndent
@DESCRIPTION:   <p>Roughly equivalent to @'WordProcessor::InteractiveSetMargins' followed by @'WordProcessor::InteractiveSetFirstIndent'
    except that they are bundled together into one action, as far as UNDO is concerned.</p>
*/
void WordProcessor::InteractiveSetMarginsAndFirstIndent (TWIPS leftMargin, TWIPS rightMargin, TWIPS firstIndent)
{
    TWIPS oldLeftMargin  = TWIPS{0};
    TWIPS oldRightMargin = TWIPS{0};
    TWIPS oldFirstIndent = TWIPS{0};
    if (not GetMargins (GetSelectionStart (), GetSelectionEnd (), &oldLeftMargin, &oldRightMargin) or
        ((oldLeftMargin != leftMargin) or (oldRightMargin != rightMargin)) or
        not GetFirstIndent (GetSelectionStart (), GetSelectionEnd (), &oldFirstIndent) or (oldFirstIndent != firstIndent)) {
        InteractiveWPHelper1<DoIt_SetMarginsAndFirstIndent> (
            this, DoIt_SetMarginsAndFirstIndent::MarginsAndFirstIndent (leftMargin, rightMargin, firstIndent));
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetParagraphSpacing
@DESCRIPTION:
*/
void WordProcessor::InteractiveSetParagraphSpacing (TWIPS spaceBefore, bool spaceBeforeValid, TWIPS spaceAfter, bool spaceAfterValid,
                                                    LineSpacing lineSpacing, bool lineSpacingValid)
{
    /*
     *  If any of these things have changed - do the command.
     */
    TWIPS       oldSpaceBefore = TWIPS{0};
    TWIPS       oldSpaceAfter  = TWIPS{0};
    LineSpacing oldLineSpacing;
    if (not GetSpaceBefore (GetSelectionStart (), GetSelectionEnd (), &oldSpaceBefore) or (oldSpaceBefore != spaceBefore) or
        not GetSpaceAfter (GetSelectionStart (), GetSelectionEnd (), &oldSpaceAfter) or (oldSpaceAfter != spaceAfter) or
        not GetLineSpacing (GetSelectionStart (), GetSelectionEnd (), &oldLineSpacing) or (oldLineSpacing != lineSpacing)) {
        InteractiveWPHelper1<DoIt_SetParagraphSpacing> (
            this, DoIt_SetParagraphSpacing::AllSpacingArgs (spaceBefore, spaceBeforeValid, spaceAfter, spaceAfterValid, lineSpacing, lineSpacingValid));
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveSetListStyle
@DESCRIPTION:
*/
void WordProcessor::InteractiveSetListStyle (ListStyle listStyle)
{
    /*
     *  If any of these things have changed - do the command.
     */
    ListStyle oldListStyle = eListStyle_None;
    if (not GetListStyle (GetSelectionStart (), GetSelectionEnd (), &oldListStyle) or oldListStyle != listStyle) {
        InteractiveWPHelper1<DoIt_SetListStyle> (this, listStyle);
    }
}
 
/*
@METHOD:        WordProcessor::InteractiveDoIndentChange
@DESCRIPTION:
*/
void WordProcessor::InteractiveDoIndentChange (bool increase)
{
    InteractiveWPHelper1<DoIt_IndentUnIndentList> (this, increase);
}
 
/*
@METHOD:        WordProcessor::GetTabStopList
@DESCRIPTION:   <p>Override @'TextImager::GetTabStopList' - to return the tabstoplist associated with this paragraph.</p>
*/
const TabStopList& WordProcessor::GetTabStopList (size_t containingPos) const
{
    return fParagraphDatabase->GetParagraphInfo (containingPos).GetTabStopList ();
}
 
void WordProcessor::DrawBefore (const Led_Rect& subsetToDraw, bool printing)
{
    size_t winStart = GetMarkerPositionOfStartOfWindow ();
    size_t winEnd   = GetMarkerPositionOfEndOfWindow (); // note that this COULD cause lots of word-wrapping
    // and computation
 
    // Check the current window-display region has no unprocessed tables, and process any if needed
    vector<WordProcessorTable*> tables = GetTablesInRange (winStart, winEnd);
    for (auto i = tables.begin (); i != tables.end (); ++i) {
        WordProcessorTable* t = *i;
        if (t->fNeedLayout != WordProcessorTable::eDone) {
            WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*t, *this);
            t->PerformLayout ();
        }
    }
    inherited::DrawBefore (subsetToDraw, printing);
}
 
/*
@METHOD:        WordProcessor::DrawRowSegments
@DESCRIPTION:   <p>Override @'TextImager::DrawRowSegments' to support things like indents, and justification.</p>
*/
void WordProcessor::DrawRowSegments (Tablet* tablet, const Led_Rect& currentRowRect, const Led_Rect& invalidRowRect,
                                     const TextLayoutBlock& text, size_t rowStart, size_t rowEnd)
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
    RowReference  row = GetRowReferenceContainingPosition (rowStart);
    ParagraphInfo pi  = fParagraphDatabase->GetParagraphInfo (rowStart);
 
    Led_Rect adjustedDrawInto = currentRowRect;
    {
        CoordinateType lhsMargin = 0;
        GetLayoutMargins (row, &lhsMargin, nullptr);
        adjustedDrawInto += Led_Point (0, lhsMargin);
    }
 
    {
        if (row.GetSubRow () == 0) {
            ListStyle ls = pi.GetListStyle ();
            if (ls != eListStyle_None) {
                /*
                 *  For tables - ignore the list style - SPR#1394.
                 */
                bool allowLists = true;
                if (rowEnd - rowStart == 1) {
                    vector<WordProcessorTable*> tables = GetTablesInRange (rowStart, rowEnd);
                    if (tables.size () == 1) {
                        allowLists = false;
                    }
                }
                if (allowLists) {
                    // For now - treat ALL lists as bullet lists...
                    Led_Rect    xxx        = adjustedDrawInto;
                    Led_tString listLeader = GetListLeader (rowStart);
                    xxx.SetLeft (xxx.GetLeft () - GetListLeaderLength (rowStart));
                    FontSpecification nextCharsFontStyle = GetStyleInfo (rowStart);
                    FontSpecification useBulletFont      = GetStaticDefaultFont ();
                    useBulletFont.SetPointSize (max (static_cast<unsigned short> (14), nextCharsFontStyle.GetPointSize ()));
                    CoordinateType baseLine = xxx.GetTop () + MeasureSegmentBaseLine (rowStart, rowStart);
                    DrawSegment_ (tablet, useBulletFont, rowStart, rowStart + listLeader.length (),
                                  TextLayoutBlock_Basic (listLeader.c_str (), listLeader.c_str () + listLeader.length ()), xxx, baseLine, nullptr);
                }
            }
        }
    }
 
    switch (pi.GetJustification ()) {
        case eCenterJustify: {
            adjustedDrawInto.SetLeft (adjustedDrawInto.GetLeft () + CalcSpaceToEat (rowStart) / 2);
        } break;
        case eRightJustify: {
            adjustedDrawInto.SetLeft (adjustedDrawInto.GetLeft () + CalcSpaceToEat (rowStart));
        } break;
    }
    if (not adjustedDrawInto.IsEmpty ()) {
        inherited::DrawRowSegments (tablet, adjustedDrawInto, invalidRowRect, text, rowStart, rowEnd);
        if (GetShowParagraphGlyphs ()) {
            // check for the last row of a partitionelement, and if we hit it - patch the text and rowEnd guys..
            PartitionElementCacheInfo pmCacheInfo = GetPartitionElementCacheInfo (GetPartitionMarkerContainingPosition (rowStart));
            if (row.GetSubRow () + 1 == pmCacheInfo.GetRowCount () and rowEnd < GetEnd ()) {
                const Led_tChar   newline            = '\n';
                FontSpecification nextCharsFontStyle = GetStyleInfo (rowEnd);
                FontSpecification useFont            = GetStaticDefaultFont ();
                useFont.SetPointSize (max (static_cast<unsigned short> (14), nextCharsFontStyle.GetPointSize ()));
                useFont.SetTextColor (Color::kGray);
                Led_Rect     yyy          = adjustedDrawInto;
                DistanceType segmentWidth = CalcSegmentSize (rowStart, rowEnd);
                yyy.left += segmentWidth;
                CoordinateType baseLine = yyy.GetTop () + MeasureSegmentBaseLine (rowStart, rowStart);
                DrawSegment_ (tablet, useFont, rowEnd, rowEnd + 1, TextLayoutBlock_Basic (&newline, &newline + 1), yyy, baseLine, nullptr);
            }
        }
    }
}
 
/*
@METHOD:        WordProcessor::GetRowHilightRects
@DESCRIPTION:   <p>Override @'TextImager::GetRowHilightRects' to support tables.</p>
*/
vector<Led_Rect> WordProcessor::GetRowHilightRects (const TextLayoutBlock& text, size_t rowStart, size_t rowEnd, size_t hilightStart, size_t hilightEnd) const
{
    size_t len = rowEnd - rowStart;
    if (len == 1 and text.PeekAtRealText ()[0] == kEmbeddingSentinelChar) {
        vector<WordProcessorTable*> tables = GetTablesInRange (rowStart, rowEnd);
        Assert (tables.size () <= 1);
        if (not tables.empty ()) {
            WordProcessorTable*                        table = tables[0];
            WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*table, *const_cast<WordProcessor*> (this));
            return table->GetRowHilightRects ();
        }
    }
    return inherited::GetRowHilightRects (text, rowStart, rowEnd, hilightStart, hilightEnd);
}
 
void WordProcessor::DrawSegment (Tablet* tablet, size_t from, size_t to, const TextLayoutBlock& text, const Led_Rect& drawInto,
                                 const Led_Rect& invalidRect, CoordinateType useBaseLine, DistanceType* pixelsDrawn)
{
    DistanceType pixelsDrawn_;
    if (GetShowTabGlyphs ()) {
        if (pixelsDrawn == nullptr) {
            pixelsDrawn_ = 0;
            pixelsDrawn  = &pixelsDrawn_;
        }
    }
 
    inherited::DrawSegment (tablet, from, to, text, drawInto, invalidRect, useBaseLine, pixelsDrawn);
 
    // Find all tabs in the segment, and draw them
    if (GetShowTabGlyphs () and GetJustification (from) == eLeftJustify) {
        for (size_t i = from; i < to; ++i) {
            if (text.PeekAtVirtualText ()[i - from] == '\t') {
                // Then I need to find distance from last char-pos to this one to draw my glyph
                DistanceType beforeTabPos = drawInto.GetLeft () + CalcSegmentSize (from, i);
                AssertNotNull (pixelsDrawn);
                DistanceType afterTabPos = drawInto.GetLeft () + CalcSegmentSize (from, i + 1);
                Assert (beforeTabPos < afterTabPos);
                Led_Rect tabRect = drawInto;
                tabRect.SetLeft (beforeTabPos);
                tabRect.SetRight (afterTabPos);
                Assert (tabRect.GetLeft () < tabRect.GetRight ());
#if 1
                {
                    Color arrowColor = GetEffectiveDefaultTextColor (eDefaultTextColor);
                    // Draw a line down the middle (with a couple pixel sluff on either side)
                    Led_Rect arrowBody = tabRect;
                    arrowBody.left += 2;
                    arrowBody.right -= 2;
                    arrowBody.top += arrowBody.GetHeight () / 2;
                    arrowBody.bottom = arrowBody.top + 1;
                    arrowBody.bottom = min (arrowBody.bottom, drawInto.bottom); // just in case...
                    tablet->EraseBackground_SolidHelper (arrowBody, arrowColor);
 
                    // Create the arrow head. Make a list of points. Then create a region from those points, and fill it.
                    const CoordinateType kArrowHSize   = 8;
                    const CoordinateType kArrowVSize   = 8;
                    Led_Point            tip           = arrowBody.GetTopRight ();
                    CoordinateType       hTriangleBase = max (arrowBody.right - kArrowHSize, arrowBody.left);
                    Led_Point            topPt = Led_Point (max (arrowBody.GetTop () - kArrowVSize / 2, tabRect.top), hTriangleBase);
                    Led_Point            botPt = Led_Point (min (arrowBody.GetTop () + kArrowVSize / 2, tabRect.bottom), hTriangleBase);
#if qStroika_Foundation_Common_Platform_Windows
                    Brush            backgroundBrush (arrowColor.GetOSRep ());
                    GDI_Obj_Selector pen (tablet, ::GetStockObject (NULL_PEN));
                    GDI_Obj_Selector brush (tablet, backgroundBrush);
                    POINT            pts[3];
                    pts[0] = AsPOINT (tip);
                    pts[1] = AsPOINT (topPt);
                    pts[2] = AsPOINT (botPt);
                    Verify (::Polygon (*tablet, pts, static_cast<int> (Memory::NEltsOf (pts))));
#elif qStroika_Foundation_Common_Platform_MacOS
                    PolyHandle ph = ::OpenPoly ();
                    ::MoveTo (tip.h, tip.v);
                    ::LineTo (topPt.h, topPt.v);
                    ::LineTo (botPt.h, botPt.v);
                    ::LineTo (tip.h, tip.v);
                    ::ClosePoly ();
                    if (ph != nullptr) {
                        Assert (*tablet == Led_GetCurrentGDIPort ());
                        GDI_RGBForeColor (arrowColor.GetOSRep ());
                        ::FillPoly (ph, &Pen::kBlackPattern);
                        ::KillPoly (ph);
                    }
#else
//NYI - but not too serious - cuz looks pretty reasonable without arrow head - just the line...
#endif
                }
#else
                //TMPHACK SO WE CAN SEE WEVE GOT RIGHT AREA:
                tablet->EraseBackground_SolidHelper (tabRect, Color::kRed);
#endif
            }
        }
    }
}
 
DistanceType WordProcessor::MeasureSegmentHeight (size_t from, size_t to) const
{
    Tablet_Acquirer tablet_ (this);
    Tablet*         tablet = tablet_;
    DistanceType    d      = inherited::MeasureSegmentHeight (from, to);
 
    if (d == 0) {
        shared_ptr<HidableTextMarkerOwner> hdb = GetHidableTextDatabase ();
        if (hdb.get () != nullptr) {
            DiscontiguousRun<bool> regions = hdb->GetHidableRegions (from, to);
            if (not regions.empty ()) {
                if (not regions[0].fData) {
                    return 0;
                }
            }
        }
    }
 
    PartitionMarker* pm      = GetPartitionMarkerContainingPosition (from);
    size_t           pmStart = pm->GetStart ();
    size_t           pmEnd   = pm->GetEnd ();
 
    /*
     *  For tables - ignore the line spacing and row spacing parameters. Check stuff like pmStart/End to avoid
     *  expensive call to GetTablesInRange () except when needed. See SPR#1336.
     */
    if (pmEnd - pmStart == 1) {
        vector<WordProcessorTable*> tables = GetTablesInRange (pmStart, pmEnd);
        if (tables.size () == 1) {
            if constexpr (qStroika_Foundation_Debug_AssertionsChecked) {
                WordProcessorTable* t = tables[0];
                Assert (t->GetStart () == pmStart);
                Assert (t->GetEnd () == pmEnd);
            }
            return d;
        }
    }
 
    ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (from);
    {
        LineSpacing sl = pi.GetLineSpacing ();
        switch (sl.fRule) {
            case LineSpacing::eOnePointFiveSpace:
                d *= 3;
                d /= 2;
                break;
            case LineSpacing::eDoubleSpace:
                d *= 2;
                break;
            case LineSpacing::eAtLeastTWIPSSpacing:
                d = max (DistanceType (tablet->CvtFromTWIPSV (TWIPS (sl.fArg))), d);
                break;
            case LineSpacing::eExactTWIPSSpacing:
                d = tablet->CvtFromTWIPSV (TWIPS (sl.fArg));
                break;
            case LineSpacing::eExactLinesSpacing:
                d *= sl.fArg;
                d /= 20;
                break;
 
            default: // Treat as Single space
            case LineSpacing::eSingleSpace:
                break;
        }
    }
    {
        bool isStartOfPara = pmStart == from; // Not a great way to check - but hopefully good enough? LGP 2000/05/30
        if (isStartOfPara) {
            d += tablet->CvtFromTWIPSV (pi.GetSpaceBefore ());
        }
    }
    {
        bool isEndOfPara = pmEnd <= to + 1; // Not a great way to check - but hopefully good enough? LGP 2000/05/30
        if (isEndOfPara) {
            d += tablet->CvtFromTWIPSV (pi.GetSpaceAfter ());
        }
    }
    return d;
}
 
DistanceType WordProcessor::MeasureMinSegDescent (size_t from, size_t to) const
{
    /*
     *  See StyledTextImager::MeasureSegmentHeight () for something similar - that this code is paterned after.
     */
 
    Require (from <= to);
    if (from == to) { // HACK/TMP? SO WE GET AT LEAST ONE SUMMARY RECORD?? LGP 951018
        to = from + 1;
    }
 
    vector<StyleRunElement> outputSummary = SummarizeStyleMarkers (from, to);
 
    size_t outputSummaryLength = outputSummary.size ();
    Assert (outputSummaryLength != 0);
    DistanceType minHeightBelow = 0;
    size_t       indexIntoText  = 0;
    for (size_t i = 0; i < outputSummaryLength; ++i) {
        const StyleRunElement& re       = outputSummary[i];
        size_t                 reFrom   = indexIntoText + from;
        size_t                 reLength = re.fLength;
        size_t                 reTo     = reFrom + reLength;
        Assert (indexIntoText <= to - from);
        DistanceType itsBaseline;
        DistanceType itsHeight;
        if (re.fMarker == nullptr) {
            itsBaseline = MeasureSegmentBaseLine_ (GetDefaultFont (), reFrom, reTo);
            itsHeight   = MeasureSegmentHeight_ (GetDefaultFont (), reFrom, reTo);
        }
        else {
            itsBaseline = re.fMarker->MeasureSegmentBaseLine (this, re, reFrom, reTo);
            itsHeight   = re.fMarker->MeasureSegmentHeight (this, re, reFrom, reTo);
        }
        minHeightBelow = min (minHeightBelow, (itsHeight - itsBaseline));
        indexIntoText += reLength;
    }
    return minHeightBelow;
}
 
void WordProcessor::AdjustBestRowLength (size_t textStart, const Led_tChar* text, const Led_tChar* end, size_t* rowLength)
{
    RequireNotNull (text);
    RequireNotNull (end);
    Require (text < end);
    RequireNotNull (rowLength);
    Require (*rowLength > 0);
    inherited::AdjustBestRowLength (textStart, text, end, rowLength);
    for (const Led_tChar* cur = &text[0]; cur < end; cur = Led_NextChar (cur)) {
        if (*cur == kEmbeddingSentinelChar) {
            // Check if its inside a table - and if yes - then rowLength=1
            vector<WordProcessorTable*> tables = GetTablesInRange (textStart + cur - text, textStart + cur - text + 1);
            if (not tables.empty ()) {
                Assert (cur == text);
                size_t newBestRowLength = (cur - text) + 1;
                Assert (newBestRowLength <= *rowLength + 1); // Assure newBestRowLength is less than it would have been without the
                // softlinebreak character, EXCEPT if the softlinebreak char is already
                // at the spot we would have broken - then the row gets bigger by the
                // one softlinebreak char length...
                // LGP 2001-05-09 (see SPR707 test file-SimpleAlignDivTest.html)
                Assert (newBestRowLength >= 1);
                *rowLength = newBestRowLength;
                break;
            }
        }
        // SINCE THE WHOLE PM MUST BE A TABLE OR NOT IN THE PM AT ALL, WE CAN DO THIS...
        break;
    }
}
 
DistanceType WordProcessor::MeasureSegmentBaseLine (size_t from, size_t to) const
{
    /*
     *  The default algorithm will ask each display marker for its baseline - and that will
     *  return - basicly - the MAX of the asents of all the segments.
     */
    DistanceType d = inherited::MeasureSegmentBaseLine (from, to);
 
    if (d == 0) {
        shared_ptr<HidableTextMarkerOwner> hdb = GetHidableTextDatabase ();
        if (hdb.get () != nullptr) {
            DiscontiguousRun<bool> regions = hdb->GetHidableRegions (from, to);
            if (not regions.empty ()) {
                if (not regions[0].fData) {
                    return 0;
                }
            }
        }
    }
 
    PartitionMarker* pm      = GetPartitionMarkerContainingPosition (from);
    size_t           pmStart = pm->GetStart ();
    size_t           pmEnd   = pm->GetEnd ();
 
    /*
     *  For tables - ignore the line spacing and row spacing parameters. Check stuff like pmStart/End to avoid
     *  expensive call to GetTablesInRange () except when needed. See SPR#1336.
     */
    if (pmEnd - pmStart == 1) {
        vector<WordProcessorTable*> tables = GetTablesInRange (pmStart, pmEnd);
        if (tables.size () == 1) {
            if constexpr (qStroika_Foundation_Debug_AssertionsChecked) {
                WordProcessorTable* t = tables[0];
                Assert (t->GetStart () == pmStart);
                Assert (t->GetEnd () == pmEnd);
            }
            return d;
        }
    }
 
    /*
     *      Then - in one special case of line spacing - we can actually REDUCE the amount of line height.
     *  In that case - we will make a corresponding reduction in the baseline (so we trim the TOP of the
     *  text - not the bottom).
     *      The question is exactly how? Where do we steal the pixels from.
     *      Again - following what MSWord 2000 does - it seems to compute the MINIMAL decent for all the text in the region. And use that.
     *      Then - it takes what height it has been allowed (by the LineSpacing::eExactTWIPSSpacing or whatever) - and then computes
     *  the baseline based on the given height and the MINIMAL (rather than the normal maximal) decent.
     */
    ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (from);
    {
        LineSpacing sl = pi.GetLineSpacing ();
        switch (sl.fRule) {
            case LineSpacing::eExactTWIPSSpacing: {
                Tablet_Acquirer tablet_ (this);
                Tablet*         tablet           = tablet_;
                DistanceType    revisedSegHeight = tablet->CvtFromTWIPSV (TWIPS (sl.fArg));
                DistanceType    mhb              = MeasureMinSegDescent (from, to); // aka decent
                d                                = revisedSegHeight - mhb;
            } break;
            case LineSpacing::eExactLinesSpacing: {
                if (sl.fArg < 20) {
                    Tablet_Acquirer tablet_ (this);
                    DistanceType    normalSegHeight  = inherited::MeasureSegmentHeight (from, to);
                    DistanceType    revisedSegHeight = normalSegHeight * sl.fArg / 20;
                    DistanceType    mhb              = MeasureMinSegDescent (from, to); // aka decent
                    d                                = revisedSegHeight - mhb;
                }
            } break;
        }
    }
 
    /*
     *  Then - we must add in any SPACE - BEFORE.
     */
    bool isStartOfPara = pmStart == from; // Not a great way to check - but hopefully good enough? LGP 2000/05/30
    if (isStartOfPara) {
        TWIPS sb = pi.GetSpaceBefore ();
        if (sb != 0) {
            Tablet_Acquirer tablet_ (this);
            Tablet*         tablet = tablet_;
            d += tablet->CvtFromTWIPSV (sb);
        }
    }
    return d;
}
 
/*
@METHOD:        WordProcessor::SetShowParagraphGlyphs
@DESCRIPTION:   <p>The 'ShowParagraphGlyphs' property determines whether or not a glyph (image)
            is shown on the screen where the end of a paragraph (newline character) would be if it were visible.</p>
                <p>This defaults to <em>off</em></p>
                <p>See also @'WordProcessor::GetShowParagraphGlyphs'.</p>
*/
void WordProcessor::SetShowParagraphGlyphs (bool showParagraphGlyphs)
{
    if (fShowParagraphGlyphs != showParagraphGlyphs) {
        fShowParagraphGlyphs = showParagraphGlyphs;
        InvalidateAllCaches (); // Can change font metrics for some segments (as well as screen display)
        Refresh ();
    }
}
 
/*
@METHOD:        WordProcessor::SetShowTabGlyphs
@DESCRIPTION:   <p>The 'ShowTabGlyphs' property determines whether or not a glyph (image)
            is shown on the screen where the tab characters would be if they were visible.</p>
                <p>This defaults to <em>off</em></p>
                <p>See also @'WordProcessor::GetShowTabGlyphs'.</p>
*/
void WordProcessor::SetShowTabGlyphs (bool showTabGlyphs)
{
    if (fShowTabGlyphs != showTabGlyphs) {
        fShowTabGlyphs = showTabGlyphs;
        Refresh (); // just invalidates the screen display - but not the cached font metrics...
    }
}
 
/*
@METHOD:        WordProcessor::SetShowSpaceGlyphs
@DESCRIPTION:   <p>The 'ShowSpaceGlyphs' property determines whether or not a glyph (image)
            is shown on the screen where the space characters would be if they were visible.</p>
                <p>This defaults to <em>off</em></p>
                <p>See also @'WordProcessor::GetShowSpaceGlyphs'.</p>
*/
void WordProcessor::SetShowSpaceGlyphs (bool showSpaceGlyphs)
{
    if (fShowSpaceGlyphs != showSpaceGlyphs) {
        fShowSpaceGlyphs = showSpaceGlyphs;
        InvalidateAllCaches (); // Can change font metrics for some segments (as well as screen display)
        Refresh ();
    }
}
 
size_t WordProcessor::ComputeRelativePosition (size_t fromPos, CursorMovementDirection direction, CursorMovementUnit movementUnit)
{
    size_t result = inherited::ComputeRelativePosition (fromPos, direction, movementUnit);
 
    /*
     *  Quicky implementation to skip over hidable text when using arrow keys.
     *  Note sure this is right - esp about to-end/to-start stuff?? But seems to work
     *  halfway decently. -- LGP 2000-08-07
     */
    shared_ptr<HidableTextMarkerOwner> hdb = GetHidableTextDatabase ();
    if (hdb.get () == nullptr) {
    Again:
        if (direction == eCursorBack or direction == eCursorToStart) {
            DiscontiguousRun<bool> regions = hdb->GetHidableRegions (FindPreviousCharacter (result), result);
            if (not regions.empty ()) {
                //should walk list???
 
                if (not regions[0].fData) {
                    result = FindPreviousCharacter (result);
                    goto Again;
                }
            }
        }
        else {
            DiscontiguousRun<bool> regions = hdb->GetHidableRegions (result, FindNextCharacter (result));
            if (not regions.empty ()) {
                //should walk list???
 
                if (not regions[0].fData) {
                    result = FindNextCharacter (result);
                    goto Again;
                }
            }
        }
    }
 
    return result;
}
 
/*
@METHOD:        WordProcessor::ContainsMappedDisplayCharacters
@DESCRIPTION:   Override @'TextImager::ContainsMappedDisplayCharacters' to optionally map '\n' etc characters.
*/
bool WordProcessor::ContainsMappedDisplayCharacters (const Led_tChar* text, size_t nTChars) const
{
    if (fShowParagraphGlyphs and nTChars > 0 and text[nTChars - 1] == '\n') {
        return true;
    }
    if (fShowSpaceGlyphs and nTChars > 0 and ContainsMappedDisplayCharacters_HelperForChar (text, nTChars, ' ')) {
        return true;
    }
    return inherited::ContainsMappedDisplayCharacters (text, nTChars);
}
 
/*
@METHOD:        WordProcessor::ReplaceMappedDisplayCharacters
@DESCRIPTION:   Override @'TextImager::ContainsMappedDisplayCharacters' to optionally map '\n' etc characters.
*/
void WordProcessor::ReplaceMappedDisplayCharacters (const Led_tChar* srcText, Led_tChar* copyText, size_t nTChars) const
{
    inherited::ReplaceMappedDisplayCharacters (srcText, copyText, nTChars);
    if (fShowParagraphGlyphs and nTChars > 0 and srcText[nTChars - 1] == '\n') {
        // Windoze-specific char - whats equiv on Mac?
        const Led_tChar kReplacementChar = 0x00b6;
        copyText[nTChars - 1]            = kReplacementChar;
    }
    if (fShowSpaceGlyphs) {
        // NOT SURE WHAT CHAR (on any platform) to replace with. Maybe can do best with UNICODE?
        const Led_tChar kReplacementChar = 0x00b7;
        ReplaceMappedDisplayCharacters_HelperForChar (copyText, nTChars, ' ', kReplacementChar);
    }
}
 
/*
@METHOD:        WordProcessor::GetCharLocationRowRelative
@DESCRIPTION:   Override @'TextImager::GetCharLocationRowRelative' to adjust calculations for
    things like indents, and justification.
*/
Led_Rect WordProcessor::GetCharLocationRowRelative (size_t afterPosition, RowReference topRow, size_t maxRowsToCheck) const
{
    Led_Rect r = inherited::GetCharLocationRowRelative (afterPosition, topRow, maxRowsToCheck);
 
    {
        CoordinateType lhsMargin = 0;
        RowReference   row       = GetRowReferenceContainingPosition (afterPosition);
        GetLayoutMargins (row, &lhsMargin, nullptr);
        r.left += lhsMargin;
        r.right += lhsMargin;
    }
 
    Justification justification = GetJustification (afterPosition);
    if (justification == eCenterJustify or justification == eRightJustify) {
        switch (justification) {
            case eCenterJustify: {
                DistanceType d = CalcSpaceToEat (afterPosition) / 2;
                r.left += d;
                r.right += d;
            } break;
            case eRightJustify: {
                DistanceType d = CalcSpaceToEat (afterPosition);
                r.left += d;
                r.right += d;
            } break;
        }
    }
    return r;
}
 
/*
@METHOD:        WordProcessor::GetCharAtLocationRowRelative
@DESCRIPTION:   <p>Override @'TextImager::GetCharAtLocationRowRelative' to adjust calculations for
    things like indents, and justification.</p>
*/
size_t WordProcessor::GetCharAtLocationRowRelative (const Led_Point& where, RowReference topRow, size_t maxRowsToCheck) const
{
    // First find the right row. Justification etc will only effect where we are in the row.
    size_t       posInRow      = inherited::GetCharAtLocationRowRelative (where, topRow, maxRowsToCheck);
    RowReference row           = GetRowReferenceContainingPosition (posInRow);
    Led_Point    adjustedWhere = where;
    {
        CoordinateType lhsMargin = 0;
        GetLayoutMargins (row, &lhsMargin, nullptr);
        adjustedWhere.h -= lhsMargin;
    }
    Justification justification = GetJustification (posInRow);
    switch (justification) {
        case eCenterJustify: {
            adjustedWhere.h -= CalcSpaceToEat (posInRow) / 2;
        } break;
        case eRightJustify: {
            adjustedWhere.h -= CalcSpaceToEat (posInRow);
        } break;
    }
    return inherited::GetCharAtLocationRowRelative (adjustedWhere, topRow, maxRowsToCheck);
    Assert (false); /*NotReached*/
    return 0;
}
 
/*
@METHOD:        WordProcessor::ResetTabStops
@DESCRIPTION:   Override @'PartitioningTextImager::ResetTabStops' to adjust the tabstop computation to take
    into account the left hand side margin.
*/
size_t WordProcessor::ResetTabStops (size_t from, const Led_tChar* text, size_t nTChars, DistanceType* charLocations, size_t startSoFar) const
{
    CoordinateType lhsMargin = 0;
    {
        RowReference row = GetRowReferenceContainingPosition (from);
        GetLayoutMargins (row, &lhsMargin, nullptr);
    }
    return ResetTabStopsWithMargin (lhsMargin, from, text, nTChars, charLocations, startSoFar);
}
 
size_t WordProcessor::ResetTabStopsWithMargin (DistanceType lhsMargin, size_t from, const Led_tChar* text, size_t nTChars,
                                               DistanceType* charLocations, size_t startSoFar) const
{
    RequireNotNull (charLocations);
    size_t         lastTabIndex = 0;
    CoordinateType tabAdjust    = 0;
    DistanceType   widthAtStart = (startSoFar == 0 ? 0 : charLocations[startSoFar - 1]);
    for (size_t i = startSoFar; i < startSoFar + nTChars; ++i) {
        if (text[i] == '\t') {
            DistanceType widthSoFar = (i == 0 ? 0 : charLocations[i - 1]);
            tabAdjust               = widthAtStart +
                        GetTabStopList (from).ComputeTabStopAfterPosition (Tablet_Acquirer (this), widthSoFar - widthAtStart + lhsMargin) -
                        lhsMargin - charLocations[i];
            lastTabIndex = i;
        }
        charLocations[i] += tabAdjust;
    }
    return (lastTabIndex);
}
 
/*
@METHOD:        WordProcessor::GetLayoutMargins
@DESCRIPTION:   Override @'WordWrappedTextImager::GetLayoutMargins' to take into account paragraph info, like
    margins, etc.
*/
void WordProcessor::GetLayoutMargins (RowReference row, CoordinateType* lhs, CoordinateType* rhs) const
{
    if (fParagraphDatabase.get () == nullptr) {
        throw NoParagraphDatabaseAvailable ();
    }
 
    PartitionMarker* pm      = row.GetPartitionMarker ();
    size_t           pmStart = pm->GetStart ();
 
    Tablet_Acquirer tablet_ (this);
    Tablet*         tablet = tablet_;
 
    ParagraphInfo pi = fParagraphDatabase->GetParagraphInfo (pmStart);
    if (lhs != nullptr) {
        TWIPS lhsTWIPS = pi.GetLeftMargin ();
        if (row.GetSubRow () == 0) {
            lhsTWIPS += pi.GetFirstIndent ();
        }
        *lhs = tablet->CvtFromTWIPSH (lhsTWIPS);
        if (row.GetSubRow () == 0) {
            ListStyle ls = pi.GetListStyle ();
            if (ls != eListStyle_None) {
                /*
                 *  For tables - ignore the list style - SPR#1394.
                 */
                bool   allowLists = true;
                size_t pmEnd      = pm->GetEnd ();
                if (pmEnd - pmStart == 1) {
                    vector<WordProcessorTable*> tables = GetTablesInRange (pmStart, pmEnd);
                    if (tables.size () == 1) {
                        allowLists = false;
                    }
                }
                if (allowLists) {
                    *lhs += GetListLeaderLength (pmStart);
                }
            }
        }
    }
    if (rhs != nullptr) {
        *rhs = tablet->CvtFromTWIPSH (pi.GetRightMargin ());
    }
}
 
void WordProcessor::ExpandedFromAndToInPostReplace (size_t from, size_t newTo, size_t stableTypingRegionStart, size_t stableTypingRegionEnd,
                                                    size_t startPositionOfRowWhereReplaceBegins, size_t startPositionOfRowAfterReplaceEnds,
                                                    size_t* expandedFrom, size_t* expandedTo)
{
    Justification justification = GetJustification (from);
    if (justification != eLeftJustify) {
        from = GetStartOfRowContainingPosition (from);
    }
    inherited::ExpandedFromAndToInPostReplace (from, newTo, stableTypingRegionStart, stableTypingRegionEnd, startPositionOfRowWhereReplaceBegins,
                                               startPositionOfRowAfterReplaceEnds, expandedFrom, expandedTo);
}
 
void WordProcessor::PostReplace (PreReplaceInfo& preReplaceInfo)
{
    inherited::PostReplace (preReplaceInfo);
    UpdateMode updateMode = preReplaceInfo.GetUpdateMode ();
    if (updateMode != eNoUpdate) {
        if (preReplaceInfo.GetTo () + 2 >= GetEnd ()) {
            /*
             *  Normal invalidation mechanism only invalidates where text could be drawn. But we draw the bullet/list
             *  markers just outside of this region. If there are any such list attributes - assure we invalidated
             *  all those markers on the side. This only seems to come up when typing into a list (or deleting text from a list)
             *  at the end of the text buffer. -- LGP 2001-07-12 (SPR#0906)
             */
            ListStyle ls = eListStyle_None;
            if (not WordProcessor::GetListStyle (preReplaceInfo.GetFrom (), GetEnd (), &ls) or ls != eListStyle_None) {
                Refresh (updateMode);
            }
        }
    }
}
 
DistanceType WordProcessor::CalcSpaceToEat (size_t rowContainingCharPos) const
{
    size_t rowStart = GetStartOfRowContainingPosition (rowContainingCharPos);
    size_t rowEnd   = GetEndOfRowContainingPosition (rowStart);
    Assert (rowEnd == GetEndOfRowContainingPosition (rowContainingCharPos));
 
    {
        size_t                         lenOfText = rowEnd - rowStart;
        Memory::StackBuffer<Led_tChar> buf{Memory::eUninitialized, lenOfText};
        CopyOut (rowStart, lenOfText, buf.data ());
        // Throw away trailing space characters
        while (rowStart < rowEnd) {
            size_t i = rowEnd - rowStart - 1;
            if (Character{buf[i]}.IsWhitespace ()) {
                --rowEnd;
            }
            else {
                break;
            }
        }
    }
 
    DistanceType segmentWidth = CalcSegmentSize (rowStart, rowEnd);
    DistanceType layoutWidth;
    {
        CoordinateType lhsMargin = 0;
        CoordinateType rhsMargin = 0;
        GetLayoutMargins (GetRowReferenceContainingPosition (rowStart), &lhsMargin, &rhsMargin);
        Assert (lhsMargin < rhsMargin);
        layoutWidth = rhsMargin - lhsMargin;
    }
 
    //HACK WORKAROUND FOR SPR#0565
    if (layoutWidth < segmentWidth) {
        return 0;
    }
 
    Assert (layoutWidth >= segmentWidth); // is this always so? Maybe not with trailing whitespace???? Should that be ignored for center justification? Etc?
    DistanceType xtra = layoutWidth - segmentWidth;
    return (xtra);
}
 
/*
 ********************************************************************************
 ********************* WordProcessorFlavorPackageInternalizer *******************
 ********************************************************************************
 */
using WordProcessorFlavorPackageInternalizer = WordProcessor::WordProcessorFlavorPackageInternalizer;
 
WordProcessorFlavorPackageInternalizer::WordProcessorFlavorPackageInternalizer (TextStore& ts, const shared_ptr<AbstractStyleDatabaseRep>& styleDatabase,
                                                                                const shared_ptr<AbstractParagraphDatabaseRep>& paragraphDatabase,
                                                                                const shared_ptr<HidableTextMarkerOwner>& hidableTextDatabase)
    : FlavorPackageInternalizer (ts)
    , inherited (ts, styleDatabase)
    , fOverwriteTableMode (false)
    ,
#if !qStroika_Frameworks_Led_NestedTablesSupported
    fNoTablesAllowed (false)
    ,
#endif
    fParagraphDatabase (paragraphDatabase)
    , fHidableTextDatabase (hidableTextDatabase)
{
}
 
StandardStyledTextIOSinkStream* WordProcessorFlavorPackageInternalizer::mkStandardStyledTextIOSinkStream (size_t insertionStart)
{
    WordProcessorTextIOSinkStream* sinkStream =
        new WordProcessorTextIOSinkStream (PeekAtTextStore (), fStyleDatabase, fParagraphDatabase, fHidableTextDatabase, insertionStart);
    sinkStream->SetIgnoreLastParaAttributes (true);
    sinkStream->SetOverwriteTableMode (GetOverwriteTableMode ());
#if !qStroika_Frameworks_Led_NestedTablesSupported
    sinkStream->SetNoTablesAllowed (GetNoTablesAllowed ());
#endif
 
    return sinkStream;
}
 
/*
 ********************************************************************************
 **************************** WordProcessor::WPPartition ************************
 ********************************************************************************
 */
WordProcessor::WPPartition::WPPartition (TextStore& textStore, MarkerOwner& tableMarkerOwner)
    : inherited{textStore, eSpecialHackToDisableInit}
    , fTableMarkerOwner{tableMarkerOwner}
{
    FinalConstruct ();
    Invariant ();
}
 
vector<WordProcessorTable*> WordProcessor::WPPartition::GetTablesInRange (size_t from, size_t to) const
{
    if (to == static_cast<size_t> (-1)) {
        to = GetTextStore ().GetLength ();
    }
    Require (from <= to);
    Require (to <= GetTextStore ().GetLength () + 1);
    MarkersOfATypeMarkerSink2Vector<WordProcessorTable> result;
    GetTextStore ().CollectAllMarkersInRangeInto (from, to, &fTableMarkerOwner, result);
    return result.fResult;
}
 
WordProcessorTable* WordProcessor::GetActiveTable () const
{
    size_t selStart = 0;
    size_t selEnd   = 0;
    GetSelection (&selStart, &selEnd);
    if (selEnd - selStart == 1) {
        vector<WordProcessorTable*> tables = GetTablesInRange (selStart, selEnd);
        Assert (tables.size () <= 1);
        if (tables.size () == 1) {
            EnsureNotNull (tables[0]);
            return tables[0];
        }
    }
    return nullptr;
}
 
void WordProcessor::WPPartition::FinalConstruct ()
{
    // MUST FIX SO WE DO SOMETHING HERE (old dohandleupdate code maybe eliminated)
    inherited::FinalConstruct ();
    DoHandleUpdateForTableRangeCheck (0, GetTextStore ().GetLength ());
}
 
void WordProcessor::WPPartition::DidUpdateText (const UpdateInfo& updateInfo) noexcept
{
    // cuz random ordering of whether table DidUpdateText() gets called first or PartitionElt::DidUpdateText () - so we msut
    // do our checks HERE - to make sure size of table has been adjusted.
    {
        DoHandleUpdateForTableRangeCheck (updateInfo.fReplaceFrom, updateInfo.GetResultingRHS ());
    }
 
    inherited::DidUpdateText (updateInfo);
}
 
void WordProcessor::WPPartition::DoHandleUpdateForTableRangeCheck (size_t from, size_t to) noexcept
{
    TextStore& ts = GetTextStore ();
 
    // must go one forward/back to make sure we get new chars inserted BEFORE a table or just after one
    vector<WordProcessorTable*> tables = GetTablesInRange (ts.FindPreviousCharacter (from), ts.FindNextCharacter (to));
    for (auto i = tables.begin (); i != tables.end (); ++i) {
        WordProcessorTable* t = *i;
        if (t->GetLength () != 0) {
            size_t tableEnd = t->GetEnd ();
            // may need logic similar to that below
            // maybe try this:
            size_t           tableStart = t->GetStart ();
            PartitionMarker* pm         = GetPartitionMarkerContainingPosition (tableStart);
            /*
             *  Since Partition::Split always leaves 'pm' pointing to the BEGINNING of the range, its OK to do two splits in a row
             *  so long as we do the one further to the right first.
             */
            if (tableEnd < pm->GetEnd () and tableEnd > pm->GetStart ()) {
                Split (pm, tableEnd);
            }
            if (tableStart > pm->GetStart () and tableStart < pm->GetEnd ()) {
                Split (pm, tableStart);
            }
 
            // See if after insertion of that text this PM needs to be coalesed with the next
            bool coalesce = NeedToCoalesce (pm);
            if (coalesce) {
                Coalece (pm); // 'pm' is DELETED BY THIS SO DO NOTHING to it AFTERWARDS!!!
            }
            pm = pm->GetPrevious ();
            if (pm != nullptr) {
                coalesce = NeedToCoalesce (pm);
                if (coalesce) {
                    Coalece (pm); // 'pm' is DELETED BY THIS SO DO NOTHING to it AFTERWARDS!!!
                }
                pm = pm->GetPrevious ();
                if (pm != nullptr) {
                    coalesce = NeedToCoalesce (pm);
                    if (coalesce) {
                        Coalece (pm); // 'pm' is DELETED BY THIS SO DO NOTHING to it AFTERWARDS!!!
                    }
                }
            }
        }
    }
 
    PartitionMarker* pm = GetPartitionMarkerContainingPosition (from);
    // See if after insertion of that text this PM needs to be coalesed with the next
    bool coalesce = NeedToCoalesce (pm);
    if (coalesce) {
        Coalece (pm); // 'pm' is DELETED BY THIS SO DO NOTHING to it AFTERWARDS!!!
    }
    pm = pm->GetPrevious ();
    if (pm != nullptr) {
        coalesce = NeedToCoalesce (pm);
        if (coalesce) {
            Coalece (pm); // 'pm' is DELETED BY THIS SO DO NOTHING to it AFTERWARDS!!!
        }
        pm = pm->GetPrevious ();
        if (pm != nullptr) {
            coalesce = NeedToCoalesce (pm);
            if (coalesce) {
                Coalece (pm); // 'pm' is DELETED BY THIS SO DO NOTHING to it AFTERWARDS!!!
            }
        }
    }
}
 
bool WordProcessor::WPPartition::NeedToCoalesce (PartitionMarker* pm) noexcept
{
    RequireNotNull (pm);
 
    bool coalesce = inherited::NeedToCoalesce (pm);
    if (coalesce) {
        /*
         *  If default implementation said to coalese - it could have been for good reasons, or bad. One good reason would be
         *  an empty marker. Another would be if this marker didn't end with a table (and some other conditions were met).
         *  We just need to make sure it wasn't mistaken becasue the PM either IS the end of a table or comes just before  one.
         *  In those cases, we negate the decision of the default code.
         */
        if (pm->GetLength () != 0) {
            size_t end     = pm->GetEnd ();
            size_t trStart = end - 1;
            size_t trEnd   = end;
            if (pm->GetNext () != nullptr) {
                ++trEnd;
            }
 
            vector<WordProcessorTable*> tables = GetTablesInRange (trStart, trEnd);
            if (not tables.empty ()) {
                if (tables.size () == 2) {
                    // then we must split between the two and so NO need to coalese
                    return false;
                }
                else if (tables.size () == 1) {
                    WordProcessorTable* table = tables[0];
                    // If table contains this point - then coalese - otherwise don't
                    if (table->GetStart () == pm->GetEnd ()) {
                        return false;
                    }
                    else if (table->GetEnd () == pm->GetEnd ()) {
                        return false;
                    }
                }
            }
        }
    }
    return coalesce;
}
 
#if qStroika_Foundation_Debug_AssertionsChecked
void WordProcessor::WPPartition::Invariant_ () const
{
    Partition::Invariant_ (); //  Cannot call LineBasedPartition::Invariant_ () - AKA inherited::Invariant_ () because
    //  that assumes when a PM ends its cuz of a newline. BUT - it COULD be because of a
    //  table instead.
 
    /*
     *  Assure that for ALL PMs, there are no tables in the middle, and no newlines, and that the ends
     *  of  PMs are marked by either the EOB, or a newline or a table.
     */
    for (PartitionMarker* cur = GetFirstPartitionMarker (); cur != nullptr; cur = cur->GetNext ()) {
        AssertNotNull (cur);
        size_t start = cur->GetStart ();
        size_t end   = cur->GetEnd ();
        size_t len   = end - start;
 
        if (end > GetEnd ()) {
            --len; // Last partition extends past end of text
        }
        Memory::StackBuffer<Led_tChar> buf{Memory::eUninitialized, len};
        CopyOut (start, len, buf.data ());
        for (size_t i = 1; i < len; ++i) {
            Assert (buf[i - 1] != '\n');
            vector<WordProcessorTable*> tables = GetTablesInRange (start + i - 1, start + i);
            if (not tables.empty ()) {
                Assert (tables.size () == 1);
                WordProcessorTable* t = tables[0];
                if (t->GetLength () != 0) {
                    Assert (t->GetStart () == start);
                    Assert (t->GetLength () == len);
                }
            }
        }
        if (cur->GetNext () != nullptr) { // All but the last partition must be NL terminated...
            Assert (buf[len - 1] == '\n' or (not GetTablesInRange (start + len - 1, start + len).empty ()) or
                    (start + len + 1 <= GetEnd () and not GetTablesInRange (start + len, start + len + 1).empty ()));
        }
    }
    /*
     *  Assure that for ALL existing tables, their starts and ends correspond to PM start/ends.
     */
    vector<WordProcessorTable*> tables = GetTablesInRange (0, GetTextStore ().GetLength ());
    for (auto i = tables.begin (); i != tables.end (); ++i) {
        WordProcessorTable* t = *i;
        if (t->GetLength () != 0) {
            PartitionMarker* pm = GetPartitionMarkerContainingPosition (t->GetStart ());
            Assert (t->GetStart () == pm->GetStart ());
            Assert (t->GetEnd () == pm->GetEnd ());
        }
    }
}
#endif
 
/*
 ********************************************************************************
 ********************* WordProcessorFlavorPackageExternalizer *******************
 ********************************************************************************
 */
using WordProcessorFlavorPackageExternalizer = WordProcessor::WordProcessorFlavorPackageExternalizer;
 
WordProcessorFlavorPackageExternalizer::WordProcessorFlavorPackageExternalizer (TextStore& ts, const shared_ptr<AbstractStyleDatabaseRep>& styleDatabase,
                                                                                const shared_ptr<AbstractParagraphDatabaseRep>& paragraphDatabase,
                                                                                const shared_ptr<HidableTextMarkerOwner>& hidableTextDatabase)
    : FlavorPackageExternalizer (ts)
    , inherited (ts, styleDatabase)
    , fParagraphDatabase (paragraphDatabase)
    , fHidableTextDatabase (hidableTextDatabase)
{
}
 
StandardStyledTextIOSrcStream* WordProcessorFlavorPackageExternalizer::mkStandardStyledTextIOSrcStream (size_t selectionStart, size_t selectionEnd)
{
    WordProcessorTextIOSrcStream* stream = new WordProcessorTextIOSrcStream (PeekAtTextStore (), fStyleDatabase, fParagraphDatabase,
                                                                             fHidableTextDatabase, selectionStart, selectionEnd);
    stream->SetUseTableSelection (GetUseTableSelection ());
    return stream;
}
 
void WordProcessorTable::DrawSegment (const StyledTextImager* imager, const StyleRunElement& /*runElement*/, Tablet* tablet,
                                      [[maybe_unused]] size_t from, [[maybe_unused]] size_t to, [[maybe_unused]] const TextLayoutBlock& text,
                                      const Led_Rect& drawInto, const Led_Rect& invalidRect, CoordinateType /*useBaseLine*/, DistanceType* pixelsDrawn)
{
    RequireMember (const_cast<StyledTextImager*> (imager), WordProcessor);
    Assert (from + 1 == to);
    RequireNotNull (text.PeekAtVirtualText ());
    Require (text.PeekAtVirtualText ()[0] == kEmbeddingSentinelChar);
 
    using TemporarilyUseTablet = EmbeddedTableWordProcessor::TemporarilyUseTablet;
 
    WordProcessor& owningWP = *dynamic_cast<WordProcessor*> (const_cast<StyledTextImager*> (imager));
 
    WordProcessorTable::TemporarilySetOwningWP owningWPSetter (*this, owningWP);
 
    DistanceType bwv     = Led_CvtScreenPixelsFromTWIPSV (fBorderWidth);
    Led_Rect     rowRect = drawInto;
 
    size_t nRows = fRows.size ();
    for (size_t ri = 0; ri < nRows; ++ri) {
        // MUST FIX THIS FOR MULTI-ROW CELLS!!! -- maybe????
        // vertical merge cells will NOT be supported for Led 3.1 -- LGP 2003-04-17
        size_t nCols   = GetColumnCount (ri);
        rowRect.bottom = rowRect.top + fRows[ri].fHeight;
        for (size_t ci = 0; ci < nCols; ++ci) {
            if (GetCellFlags (ri, ci) == ePlainCell) {
                Led_Rect scrolledCBWR = TableCoordinates2Window (GetCellBounds (ri, ci));
                if (Intersect (scrolledCBWR, invalidRect)) {
                    Led_Rect scrolledEditorCBWR = TableCoordinates2Window (GetCellEditorBounds (ri, ci));
 
                    // SPR#1485: erase the cell margins as well as the cell editor rectangle...
                    // We can erase the whole rect - cuz we do it before we draw the cell editor portion itself...
                    if (scrolledCBWR != scrolledEditorCBWR) {
                        tablet->EraseBackground_SolidHelper (scrolledCBWR, GetCellColor (ri, ci));
                    }
 
                    TemporarilyAllocateCellWP wp (*this, owningWP, ri, ci, scrolledEditorCBWR);
                    TemporarilyUseTablet      tmpUseTablet (*wp, tablet, TemporarilyUseTablet::eDontDoTextMetricsChangedCall);
                    wp->Draw (scrolledEditorCBWR, false);
                    DrawCellBorders (tablet, ri, ci, scrolledCBWR);
                }
                else {
                    // If the table elements bottom is above the invalid region or
                    // the tables top is BELOW the invalid region, we can skip this entire row. If
                    // its BELOW - we can even skip any successive rows
                    if (scrolledCBWR.bottom < invalidRect.top) {
                        break;
                    }
                    if (scrolledCBWR.top > invalidRect.bottom) {
                        goto Done;
                    }
                }
            }
        }
        rowRect.top = rowRect.bottom + bwv;
    }
 
Done:
    DrawTableBorders (owningWP, tablet, drawInto);
 
    if (pixelsDrawn != nullptr) {
        *pixelsDrawn = fTotalWidth;
    }
}
 
void WordProcessorTable::MeasureSegmentWidth ([[maybe_unused]] const StyledTextImager* imager, const StyleRunElement& /*runElement*/,
                                              [[maybe_unused]] size_t from, [[maybe_unused]] size_t to,
                                              [[maybe_unused]] const Led_tChar* text, DistanceType* distanceResults) const
{
    RequireMember (const_cast<StyledTextImager*> (imager), WordProcessor);
    Assert (from + 1 == to);
    RequireNotNull (text);
    distanceResults[0] = fTotalWidth;
}
 
DistanceType WordProcessorTable::MeasureSegmentHeight ([[maybe_unused]] const StyledTextImager* imager, const StyleRunElement& /*runElement*/,
                                                       [[maybe_unused]] size_t from, [[maybe_unused]] size_t to) const
{
    RequireMember (const_cast<StyledTextImager*> (imager), WordProcessor);
    Assert (from + 1 == to);
    // don't return zero-height as that could cause problems... even if not layed out yet...
    // LGP 2003-03-17 - not sure - maybe its OK to return zero if not layed out yet??
    return fTotalHeight == 0 ? 1 : fTotalHeight;
}
 
/*
@METHOD:        WordProcessorTable::GetRowHilightRects
@DESCRIPTION:   <p>Provide table-specific selection hilight behavior (so only the selected cells
            or rows or columns are hilighted)</p>
*/
vector<Led_Rect> WordProcessorTable::GetRowHilightRects () const
{
    Led_Require_CurrentOwningWP ();
 
    vector<Led_Rect> result;
 
    size_t rowStart         = GetStart ();
    size_t rowEnd           = GetEnd ();
    size_t hilightStart     = fCurrentOwningWP->GetSelectionStart ();
    size_t hilightEnd       = fCurrentOwningWP->GetSelectionEnd ();
    bool   segmentHilighted = max (rowStart, hilightStart) < min (rowEnd, hilightEnd);
 
    if (segmentHilighted) {
        Led_Rect         tableRect    = fCurrentOwningWP->GetIntraRowTextWindowBoundingRect (rowStart, rowEnd);
        vector<Led_Rect> hilightRects = fCurrentOwningWP->TextImager::GetRowHilightRects (
            TextLayoutBlock_Basic{&kEmbeddingSentinelChar, &kEmbeddingSentinelChar + 1}, rowStart, rowEnd, hilightStart, hilightEnd);
 
        // If all the WHOLE table is hilighted, then display that selection as the entire table hilighted.
        // No need to walk through just the cells etc...
        if (rowStart != hilightStart or rowEnd != hilightEnd) {
            return hilightRects;
        }
 
        /*
         *  Add the hilight rect BEFORE and AFTER (if needed) the table - but leave out the
         *  table rect itself to handle separately.
         */
        for (auto i = hilightRects.begin (); i != hilightRects.end (); ++i) {
            if (tableRect != *i) {
                if (not(*i).IsEmpty ()) {
                    result.push_back (*i);
                }
            }
        }
 
        /*
         *  Add the actual table's hilight.
         */
        {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
 
            // If all the cells hilighted, then display that selection as the entire table hilighted.
            if (rowSelStart == 0 and rowSelEnd == GetRowCount () and colSelStart == 0 and colSelEnd == GetColumnCount ()) {
                return hilightRects;
            }
 
            if (rowSelEnd - rowSelStart == 1 and colSelEnd - colSelStart == 1 and GetIntraCellMode ()) {
                TemporarilyAllocateCellWithTablet wp (*const_cast<WordProcessorTable*> (this), rowSelStart, colSelStart);
                vector<Led_Rect> cellHilightRegions = wp->GetSelectionWindowRects (wp->GetSelectionStart (), wp->GetSelectionEnd ());
                for (auto i = cellHilightRegions.begin (); i != cellHilightRegions.end (); ++i) {
                    result.push_back (*i);
                }
            }
            else {
                for (size_t ri = rowSelStart; ri < rowSelEnd; ++ri) {
                    size_t thisRowEnd = min (colSelEnd, GetColumnCount (ri));
                    for (size_t ci = colSelStart; ci < thisRowEnd; ++ci) {
                        if (GetCellFlags (ri, ci) == ePlainCell) {
                            // doesn't include cell margins/borders...
                            Led_Rect wRelCellRect = TableCoordinates2Window (GetCellBounds (ri, ci));
                            if (not wRelCellRect.IsEmpty ()) {
                                result.push_back (wRelCellRect);
                            }
                        }
                    }
                }
            }
        }
    }
 
    if constexpr (qStroika_Foundation_Debug_AssertionsChecked) {
        // Make sure rectangles don't overlap with one another (can share an edge) -- SPR#1226
        for (auto orit = result.begin (); orit != result.end (); ++orit) {
            Ensure ((*orit).GetWidth () > 0);
            Ensure ((*orit).GetHeight () > 0);
            for (auto irit = orit + 1; irit != result.end (); ++irit) {
                Led_Rect hr = *irit;
                Ensure (hr.GetWidth () > 0);
                Ensure (hr.GetHeight () > 0);
                Ensure (not Intersect (hr, *orit));
            }
        }
    }
 
    return result;
}
 
/*
@METHOD:        WordProcessorTable::DrawTableBorders
@ACCESS:        protected
@DESCRIPTION:   <p></p>
*/
void WordProcessorTable::DrawTableBorders (WordProcessor& owningWP, Tablet* tablet, const Led_Rect& drawInto)
{
#if 0
    //Don't delete this code - cuz we MAY want to display (somehow) the border for the table as
    // a whole in some special color when it is SELECTED!
 
    // Also - this is REALLY needed - when we have spacing (and in the future we may have other stuff drawn to adorn the
    // table - like I said above - like a funny color for hilight state or something???
    return;
#endif
    DistanceType bwh = Led_CvtScreenPixelsFromTWIPSH (fBorderWidth);
    //DistanceType bwv = Led_CvtScreenPixelsFromTWIPSV (fBorderWidth);
 
    Led_Rect bounds = drawInto - Led_Point (0, owningWP.GetHScrollPos ());
    bounds.right    = bounds.left + fTotalWidth;
    bounds.bottom   = bounds.top + fTotalHeight;
    tablet->FrameRectangle (bounds, fBorderColor, bwh);
}
 
/*
@METHOD:        WordProcessorTable::DrawCellBorders
@ACCESS:        protected
@DESCRIPTION:   <p>Draw the borders on the given cell with bounds (in tablet drawing coordinates - corrected for scrolling
            and the location of the table of the given cell). Note it is assumed the cellBounds argument does NOT take
            into account space for the border itself. We draw the border just OUTSIDE the cell.</p>
*/
void WordProcessorTable::DrawCellBorders (Tablet* tablet, size_t /*row*/, size_t /*column*/, const Led_Rect& cellBounds)
{
    CoordinateType bw = Led_CvtScreenPixelsFromTWIPSH (fBorderWidth);
    // Draw outside of the frame of the cell.
    tablet->FrameRectangle (InsetRect (cellBounds, -bw, -bw), fBorderColor, bw);
}
 
/*
@METHOD:        WordProcessorTable::GetCellBounds
@ACCESS:        public
@DESCRIPTION:   <p>Retrieve the bounding rectangle for the given cell, NOT including its border.
            The rectange is relative to the table itself. Note that the border is drawn
            just outside the cell bounds.</p>
                <p>See also @'WordProcessorTable::GetCellEditorBounds'</p>
*/
Led_Rect WordProcessorTable::GetCellBounds (size_t row, size_t column) const
{
    Require (GetCellFlags (row, column) == ePlainCell);
    return GetCell (row, column).GetCachedBoundsRect ();
}
 
/*
@METHOD:        WordProcessorTable::GetCellEditorBounds
@ACCESS:        public
@DESCRIPTION:   <p>Similar to @'WordProcessorTable::GetCellBounds' but it takes into account the cell margin,
            and insets the cell bounds to return just where the embedded WP bounds lie.</p>
*/
Led_Rect WordProcessorTable::GetCellEditorBounds (size_t row, size_t column) const
{
    Require (GetCellFlags (row, column) == ePlainCell);
    Led_Rect   cellBounds     = GetCellBounds (row, column);
    Led_Rect   cellEditBounds = cellBounds;
    TWIPS_Rect defaultCellMarginTWIPS;
    GetDefaultCellMargins (&defaultCellMarginTWIPS.top, &defaultCellMarginTWIPS.left, &defaultCellMarginTWIPS.bottom,
                           &defaultCellMarginTWIPS.right);
    cellEditBounds.top += Led_CvtScreenPixelsFromTWIPSV (defaultCellMarginTWIPS.top);
    cellEditBounds.left += Led_CvtScreenPixelsFromTWIPSH (defaultCellMarginTWIPS.left);
    cellEditBounds.bottom -= Led_CvtScreenPixelsFromTWIPSV (defaultCellMarginTWIPS.bottom);
    cellEditBounds.right -= Led_CvtScreenPixelsFromTWIPSH (defaultCellMarginTWIPS.right);
    // now assure bounds not empty...
    cellEditBounds.bottom = max (cellEditBounds.bottom, cellEditBounds.top + 1);
    cellEditBounds.right  = max (cellEditBounds.right, cellEditBounds.left + 1);
    return cellEditBounds;
}
 
/*
@METHOD:        WordProcessorTable::GetClosestCell
@ACCESS:        public
@DESCRIPTION:   <p>Point 'p' must be relative to the table bounds itself.</p>
*/
void WordProcessorTable::GetClosestCell (const Led_Point& p, size_t* row, size_t* col) const
{
    RequireNotNull (row);
    RequireNotNull (col);
 
    Led_Size     border  = Led_Size (Led_CvtScreenPixelsFromTWIPSV (fBorderWidth), Led_CvtScreenPixelsFromTWIPSH (fBorderWidth));
    DistanceType spacing = Led_CvtScreenPixelsFromTWIPSV (GetCellSpacing ());
 
    // find row...
    size_t rowCount = GetRowCount ();
    Assert (rowCount > 0);
    CoordinateType top = spacing + border.v;
    size_t         ri  = 0;
    for (; ri < rowCount; ++ri) {
        DistanceType   h      = fRows[ri].fHeight;
        CoordinateType bottom = top + h;
        // Treat special case of above entire table as being row zero..
        if (p.v < bottom) {
            break;
        }
        top += h;
        top += spacing + border.v;
    }
    if (ri >= rowCount) { // if PAST end of table - then treat that as the last row
        ri = rowCount - 1;
    }
    *row = ri;
 
    // Now find the right column (cell)
    size_t colCount = GetColumnCount (ri);
    Assert (colCount > 0);
    size_t ci = 0;
    for (; ci < colCount; ++ci) {
        size_t rri = ri;
        size_t cci = ci;
        GetRealCell (&rri, &cci);
        Led_Rect bounds = GetCellBounds (rri, cci);
        // Treat special case of above entire table as being row zero..
        if (p.h < bounds.GetRight ()) {
            break;
        }
    }
    if (ci >= colCount) {
        ci = colCount - 1;
    }
    *col = ci;
}
 
Led_Point WordProcessorTable::TableCoordinates2Window (const Led_Point& p) const
{
    Led_Require_CurrentOwningWP ();
    Led_Point tableWROrigin = fCurrentOwningWP->GetCharWindowLocation (GetStart ()).GetTopLeft ();
    return p + tableWROrigin;
}
 
Led_Rect WordProcessorTable::TableCoordinates2Window (const Led_Rect& r) const
{
    return Led_Rect (TableCoordinates2Window (r.GetOrigin ()), r.GetSize ());
}
 
Led_Point WordProcessorTable::WindowCoordinates2Table (const Led_Point& p) const
{
    Led_Require_CurrentOwningWP ();
    Led_Point tableWROrigin = fCurrentOwningWP->GetCharWindowLocation (GetStart ()).GetTopLeft ();
    return p - tableWROrigin;
}
 
Led_Rect WordProcessorTable::WindowCoordinates2Table (const Led_Rect& r) const
{
    return Led_Rect (WindowCoordinates2Table (r.GetOrigin ()), r.GetSize ());
}
 
bool WordProcessorTable::GetCaretShownSituation () const
{
    if (GetIntraCellMode ()) {
        size_t selStart = 0;
        size_t selEnd   = 0;
        GetIntraCellSelection (&selStart, &selEnd);
        return selStart == selEnd;
    }
    return false;
}
 
/*
@METHOD:        WordProcessorTable::CalculateCaretRect
@DESCRIPTION:   <p></p>
*/
Led_Rect WordProcessorTable::CalculateCaretRect () const
{
    Led_Require_CurrentOwningWP ();
    if (GetIntraCellMode ()) {
        size_t selStart = 0;
        size_t selEnd   = 0;
        GetIntraCellSelection (&selStart, &selEnd);
        if (selStart == selEnd) {
            size_t row = 0;
            size_t col = 0;
            (void)GetIntraCellMode (&row, &col);
            TemporarilyAllocateCellWithTablet wp (*const_cast<WordProcessorTable*> (this), row, col);
            return wp->CalculateCaretRect ();
        }
    }
    return (Led_Rect (0, 0, 0, 0));
}
 
bool WordProcessorTable::OnTypedNormalCharacter (Led_tChar theChar, bool optionPressed, bool shiftPressed, bool commandPressed,
                                                 bool controlPressed, bool altKeyPressed)
{
    using InteractiveModeUpdater = WordProcessor::InteractiveModeUpdater;
    using UndoableContextHelper  = WordProcessor::UndoableContextHelper;
    Led_Require_CurrentOwningWP ();
 
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
 
    if (theChar == '\b') {
        // Treat a selection of the entire table and a hackspace as deleting the entire table...
        if (rowSelStart == 0 and rowSelEnd == GetRowCount () and colSelStart == 0 and colSelEnd == GetColumnCount () and not fIntraCellMode) {
            return false; // so will be handled by higher level - deleting the entire table.
        }
    }
 
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    AllowUpdateInfoPropagationContext AUIPC (*this);
    if (not fIntraCellMode) {
        // save all the cleared text for all the selected cells in one command object, but give it the
        // typingCommand name so it will be lumped with the typeing command generated by the below wp->OnTypedNormalCharacter ().
        UndoableContextHelper undoContext (*fCurrentOwningWP, TextInteractor::GetCommandNames ().fTypingCommandName, false);
        {
            (void)OnPerformCommand_ApplyToEachSelectedCell (TextInteractor::kClear_CmdID, false);
        }
        undoContext.CommandComplete ();
        SetIntraCellMode (rowSelStart, colSelStart);
    }
 
    Assert (fIntraCellMode);
    TemporarilyAllocateCellWithTablet wp (*this, rowSelStart, colSelStart);
    wp->OnTypedNormalCharacter (theChar, optionPressed, shiftPressed, commandPressed, controlPressed, altKeyPressed);
 
    return true; // handled
}
 
bool WordProcessorTable::DoSingleCharCursorEdit (TextInteractor::CursorMovementDirection direction,
                                                 TextInteractor::CursorMovementUnit movementUnit, TextInteractor::CursorMovementAction action,
                                                 TextInteractor::UpdateMode updateMode, bool scrollToSelection)
{
    size_t row = 0;
    size_t col = 0;
    if (GetIntraCellMode (&row, &col)) {
        // VERY PRELIMINARY!!!
        AllowUpdateInfoPropagationContext AUIPC (*this);
        TemporarilyAllocateCellWithTablet wp (*this, row, col);
        wp->DoSingleCharCursorEdit (direction, movementUnit, action, updateMode, scrollToSelection);
        return true; // handled
    }
    return false;
}
 
bool WordProcessorTable::OnUpdateCommand (TextInteractor::CommandUpdater* enabler)
{
    Led_Require_CurrentOwningWP ();
    RequireNotNull (enabler);
 
    size_t row = 0;
    size_t col = 0;
    if (GetIntraCellMode (&row, &col)) {
        if (fCurrentOwningWP->PassAlongCommandToIntraCellModeTableCell (enabler->GetCmdID ())) {
            TemporarilyAllocateCellWithTablet wp (*this, row, col);
            [[maybe_unused]] bool             result = wp->OnUpdateCommand (enabler);
            if (enabler->GetCmdID () == WordProcessor::kSelectedEmbeddingProperties_CmdID and not enabler->GetEnabled ()) {
                // SPR#1487: so default command handling will take care of it and we'll see the properties command
                return false;
            }
            return true; // if in a table cell - say the command was eaten here regardless- cut off other commands
        }
    }
 
    switch (enabler->GetCmdID ()) {
        case WordProcessor::kCut_CmdID: {
            OnUpdateCutCommand (enabler);
            return true;
        }
        case WordProcessor::kInsertTableRowAbove_CmdID: {
            OnUpdateInsertTableRowAboveCommand (enabler);
            return true;
        }
        case WordProcessor::kInsertTableRowBelow_CmdID: {
            OnUpdateInsertTableRowBelowCommand (enabler);
            return true;
        }
        case WordProcessor::kInsertTableColBefore_CmdID: {
            OnUpdateInsertTableColBeforeCommand (enabler);
            return true;
        }
        case WordProcessor::kInsertTableColAfter_CmdID: {
            OnUpdateInsertTableColAfterCommand (enabler);
            return true;
        }
        case WordProcessor::kRemoveTableColumns_CmdID: {
            OnUpdateRemoveTableColumnsCommand (enabler);
            return true;
        }
        case WordProcessor::kRemoveTableRows_CmdID: {
            OnUpdateRemoveTableRowsCommand (enabler);
            return true;
        }
        case WordProcessor::kSelectTableIntraCellAll_CmdID:
        case WordProcessor::kSelectTableCell_CmdID:
        case WordProcessor::kSelectTableRow_CmdID:
        case WordProcessor::kSelectTableColumn_CmdID:
        case WordProcessor::kSelectTable_CmdID: {
            OnUpdateSelectTablePartsCommand (enabler);
            return true;
        }
    }
 
    if (fCurrentOwningWP->PassAlongCommandToEachSelectedTableCell (enabler->GetCmdID ())) {
        return OnUpdateCommand_ApplyToEachSelectedCell (enabler);
    }
 
    return false;
}
 
bool WordProcessorTable::OnPerformCommand (TextInteractor::CommandNumber commandNumber)
{
    Led_Require_CurrentOwningWP ();
 
    AllowUpdateInfoPropagationContext AUIPC (*this);
 
    size_t row = 0;
    size_t col = 0;
    if (GetIntraCellMode (&row, &col)) {
        if (fCurrentOwningWP->PassAlongCommandToIntraCellModeTableCell (commandNumber)) {
            TemporarilyAllocateCellWithTablet wp (*this, row, col);
            return wp->OnPerformCommand (commandNumber);
        }
    }
 
    switch (commandNumber) {
        case WordProcessor::kCut_CmdID: {
            OnCutCommand ();
            return true;
        }
        case WordProcessor::kInsertTableRowAbove_CmdID: {
            OnInsertTableRowAboveCommand ();
            return true;
        }
        case WordProcessor::kInsertTableRowBelow_CmdID: {
            OnInsertTableRowBelowCommand ();
            return true;
        }
        case WordProcessor::kInsertTableColBefore_CmdID: {
            OnInsertTableColBeforeCommand ();
            return true;
        }
        case WordProcessor::kInsertTableColAfter_CmdID: {
            OnInsertTableColAfterCommand ();
            return true;
        }
        case WordProcessor::kRemoveTableColumns_CmdID: {
            OnRemoveTableColumnsCommand ();
            return true;
        }
        case WordProcessor::kRemoveTableRows_CmdID: {
            OnRemoveTableRowsCommand ();
            return true;
        }
        case WordProcessor::kSelectTableIntraCellAll_CmdID:
        case WordProcessor::kSelectTableCell_CmdID:
        case WordProcessor::kSelectTableRow_CmdID:
        case WordProcessor::kSelectTableColumn_CmdID:
        case WordProcessor::kSelectTable_CmdID: {
            OnPerformTablePartsCommand (commandNumber);
            return true;
        }
    }
 
    if (fCurrentOwningWP->PassAlongCommandToEachSelectedTableCell (commandNumber)) {
        return OnPerformCommand_ApplyToEachSelectedCell (commandNumber);
    }
 
    return false;
}
 
void WordProcessorTable::BreakInGroupedCommands ()
{
    Led_Require_CurrentOwningWP ();
    fCurrentOwningWP->BreakInGroupedCommands ();
}
 
bool WordProcessorTable::OnUpdateCommand_ApplyToEachSelectedCell (TextInteractor::CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    Led_Require_CurrentOwningWP ();
 
    bool   result      = false;
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
    for (size_t ri = rowSelStart; ri < rowSelEnd; ++ri) {
        size_t thisRowEnd = min (colSelEnd, GetColumnCount (ri));
        for (size_t ci = colSelStart; ci < thisRowEnd; ++ci) {
            TemporarilyAllocateCellWithTablet wp (*this, ri, ci);
            wp->SetSelection (0, wp->GetEnd (), TextInteractor::eNoUpdate);
            result = result or wp->OnUpdateCommand (enabler);
        }
    }
    return result;
}
 
bool WordProcessorTable::OnPerformCommand_ApplyToEachSelectedCell (TextInteractor::CommandNumber commandNumber, bool captureChangesForUndo)
{
    Led_Require_CurrentOwningWP ();
    if (captureChangesForUndo) {
        fCurrentOwningWP->BreakInGroupedCommands ();
    }
    bool   result      = false;
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
    for (size_t ri = rowSelStart; ri < rowSelEnd; ++ri) {
        size_t thisRowEnd = min (colSelEnd, GetColumnCount (ri));
        for (size_t ci = colSelStart; ci < thisRowEnd; ++ci) {
            TemporarilyAllocateCellWithTablet wp (*this, ri, ci, captureChangesForUndo);
            wp->SetSelection (0, wp->GetEnd (), TextInteractor::eNoUpdate);
            TextInteractor::SuppressCommandBreaksContext SCBC (*wp);
            wp->OnPerformCommand (commandNumber);
            result = true;
        }
    }
    if (captureChangesForUndo) {
        fCurrentOwningWP->BreakInGroupedCommands ();
    }
    return result;
}
 
void WordProcessorTable::OnUpdateCutCommand (TextInteractor::CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    Led_Require_CurrentOwningWP ();
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
    enabler->SetEnabled (rowSelStart != rowSelEnd and colSelStart != colSelEnd);
}
 
void WordProcessorTable::OnCutCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    Assert (fCurrentOwningWP->GetSelectionEnd () - fCurrentOwningWP->GetSelectionStart () == 1);
    fCurrentOwningWP->OnCopyCommand ();
    UndoableContextHelper undoContext (*fCurrentOwningWP, TextInteractor::GetCommandNames ().fCutCommandName, true);
    {
        (void)OnPerformCommand_ApplyToEachSelectedCell (TextInteractor::kClear_CmdID, false);
    }
    undoContext.CommandComplete ();
}
 
void WordProcessorTable::OnUpdateInsertTableRowAboveCommand (TextInteractor::CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    Led_Require_CurrentOwningWP ();
    enabler->SetEnabled (true);
}
 
void WordProcessorTable::OnInsertTableRowAboveCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    BreakInGroupedCommands ();
    UndoableContextHelper context (*fCurrentOwningWP, WordProcessor::GetCommandNames ().fInsertTableRowAboveCommandName, false);
    {
        // See our current row
        size_t curRow = 0;
        GetCellSelection (&curRow, nullptr, nullptr, nullptr);
 
        Assert (curRow <= GetRowCount ());
        InsertRow (curRow);
    }
    context.CommandComplete ();
    BreakInGroupedCommands ();
}
 
void WordProcessorTable::OnUpdateInsertTableRowBelowCommand (TextInteractor::CommandUpdater* enabler)
{
    RequireNotNull (enabler);
    Led_Require_CurrentOwningWP ();
    enabler->SetEnabled (true);
}
 
void WordProcessorTable::OnInsertTableRowBelowCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    BreakInGroupedCommands ();
    UndoableContextHelper context (*fCurrentOwningWP, WordProcessor::GetCommandNames ().fInsertTableRowAboveCommandName, false);
    {
        // See our current row
        size_t curRow = 0;
        GetCellSelection (nullptr, &curRow, nullptr, nullptr);
        Assert (curRow <= GetRowCount ());
        InsertRow (curRow);
    }
    context.CommandComplete ();
    BreakInGroupedCommands ();
}
 
void WordProcessorTable::OnUpdateInsertTableColBeforeCommand (TextInteractor::CommandUpdater* enabler)
{
    Led_Require_CurrentOwningWP ();
    RequireNotNull (enabler);
    enabler->SetEnabled (true);
}
 
void WordProcessorTable::OnInsertTableColBeforeCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    BreakInGroupedCommands ();
    UndoableContextHelper context (*fCurrentOwningWP, WordProcessor::GetCommandNames ().fInsertTableColBeforeCommandName, false);
    {
        size_t curCol = 0;
        GetCellSelection (nullptr, nullptr, &curCol, nullptr);
        Assert (curCol <= GetColumnCount ());
        InsertColumn (curCol);
    }
    context.CommandComplete ();
    BreakInGroupedCommands ();
}
 
void WordProcessorTable::OnUpdateInsertTableColAfterCommand (TextInteractor::CommandUpdater* enabler)
{
    Led_Require_CurrentOwningWP ();
    RequireNotNull (enabler);
    enabler->SetEnabled (true);
}
 
void WordProcessorTable::OnInsertTableColAfterCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    BreakInGroupedCommands ();
    UndoableContextHelper context (*fCurrentOwningWP, WordProcessor::GetCommandNames ().fInsertTableColAfterCommandName, false);
    {
        size_t curCol = 0;
        GetCellSelection (nullptr, nullptr, nullptr, &curCol);
        Assert (curCol <= GetColumnCount ());
        InsertColumn (curCol);
    }
    context.CommandComplete ();
    BreakInGroupedCommands ();
}
 
void WordProcessorTable::OnUpdateRemoveTableRowsCommand (TextInteractor::CommandUpdater* pCmdUI)
{
    Led_Require_CurrentOwningWP ();
    RequireNotNull (pCmdUI);
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
    pCmdUI->SetEnabled (colSelStart == 0 and colSelEnd == GetColumnCount (rowSelStart, rowSelEnd));
}
 
void WordProcessorTable::OnRemoveTableRowsCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    BreakInGroupedCommands ();
    UndoableContextHelper context (*fCurrentOwningWP, WordProcessor::GetCommandNames ().fRemoveTableRowsCommandName, false);
    {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        if (colSelStart == 0 and colSelEnd == GetColumnCount (rowSelStart, rowSelEnd)) {
            if (rowSelStart == 0 and rowSelEnd == GetRowCount ()) {
                fCurrentOwningWP->OnClearCommand (); // handled by TextInteractor (will delete whole table)
                return;                              // aborts command we'd started here...
            }
            size_t nRowsToDelete = rowSelEnd - rowSelStart;
            while (nRowsToDelete > 0) {
                DeleteRow (rowSelStart);
                --nRowsToDelete;
            }
        }
        else {
            fCurrentOwningWP->OnBadUserInput ();
        }
    }
    context.CommandComplete ();
}
 
void WordProcessorTable::OnUpdateRemoveTableColumnsCommand (TextInteractor::CommandUpdater* pCmdUI)
{
    Led_Require_CurrentOwningWP ();
    RequireNotNull (pCmdUI);
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
    pCmdUI->SetEnabled (rowSelStart == 0 and rowSelEnd == GetRowCount ());
}
 
void WordProcessorTable::OnRemoveTableColumnsCommand ()
{
    Led_Require_CurrentOwningWP ();
    AllowUpdateInfoPropagationContext AUIPC (*this);
    InteractiveModeUpdater            iuMode (*fCurrentOwningWP);
    BreakInGroupedCommands ();
    UndoableContextHelper context (*fCurrentOwningWP, WordProcessor::GetCommandNames ().fRemoveTableColumnsCommandName, false);
    {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        if (rowSelStart == 0 and rowSelEnd == GetRowCount ()) {
            if (colSelStart == 0 and colSelEnd == GetColumnCount ()) {
                fCurrentOwningWP->OnClearCommand (); // handled by TextInteractor (will delete whole table)
                return;                              // aborts command we'd started here...
            }
            size_t nColsToDelete = colSelEnd - colSelStart;
            while (nColsToDelete > 0) {
                DeleteColumn (colSelStart);
                --nColsToDelete;
            }
        }
        else {
            fCurrentOwningWP->OnBadUserInput ();
        }
    }
    context.CommandComplete ();
    BreakInGroupedCommands ();
}
 
void WordProcessorTable::OnUpdateSelectTablePartsCommand (TextInteractor::CommandUpdater* enabler)
{
    switch (enabler->GetCmdID ()) {
        case WordProcessor::kSelectTableIntraCellAll_CmdID: {
            enabler->SetEnabled (GetIntraCellMode ());
        } break;
        case WordProcessor::kSelectTableCell_CmdID: {
            enabler->SetEnabled (GetIntraCellMode ());
        } break;
        case WordProcessor::kSelectTableRow_CmdID: {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
            size_t maxColSelEnd = GetColumnCount (rowSelStart, rowSelEnd);
            enabler->SetEnabled (colSelStart != 0 or colSelEnd != maxColSelEnd);
        } break;
        case WordProcessor::kSelectTableColumn_CmdID: {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
            enabler->SetEnabled (rowSelStart != 0 or rowSelEnd != GetRowCount ());
        } break;
        case WordProcessor::kSelectTable_CmdID: {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
            enabler->SetEnabled (rowSelStart != 0 or colSelStart != 0 or rowSelEnd != GetRowCount () or colSelEnd != GetColumnCount ());
        } break;
    }
}
 
void WordProcessorTable::OnPerformTablePartsCommand (TextInteractor::CommandNumber commandNumber)
{
    switch (commandNumber) {
        case WordProcessor::kSelectTableIntraCellAll_CmdID: {
            size_t row = 0;
            size_t col = 0;
            if (GetIntraCellMode (&row, &col)) {
                TemporarilyAllocateCellWithTablet wp (*this, row, col);
                wp->OnPerformCommand (TextInteractor::kSelectAll_CmdID);
            }
            else {
                Led_BeepNotify ();
            }
        } break;
        case WordProcessor::kSelectTableCell_CmdID: {
            UnSetIntraCellMode ();
        } break;
        case WordProcessor::kSelectTableRow_CmdID: {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
            colSelStart = 0;
            colSelEnd   = GetColumnCount (rowSelStart, rowSelEnd);
            SetCellSelection (rowSelStart, rowSelEnd, colSelStart, colSelEnd);
        } break;
        case WordProcessor::kSelectTableColumn_CmdID: {
            size_t rowSelStart = 0;
            size_t rowSelEnd   = 0;
            size_t colSelStart = 0;
            size_t colSelEnd   = 0;
            GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
            rowSelStart = 0;
            rowSelEnd   = GetRowCount ();
            SetCellSelection (rowSelStart, rowSelEnd, colSelStart, colSelEnd);
        } break;
        case WordProcessor::kSelectTable_CmdID: {
            SetCellSelection (0, GetRowCount (), 0, GetColumnCount ());
        } break;
    }
}
 
void WordProcessorTable::AssureCurSelFontCacheValid (IncrementalFontSpecification* curSelFontSpec)
{
    RequireNotNull (curSelFontSpec);
    {
        size_t row = 0;
        size_t col = 0;
        if (GetIntraCellMode (&row, &col)) {
            TemporarilyAllocateCellWithTablet wp (*this, row, col);
            *curSelFontSpec = wp->GetCurSelFontSpec ();
            return;
        }
    }
 
    size_t rowSelStart = 0;
    size_t rowSelEnd   = 0;
    size_t colSelStart = 0;
    size_t colSelEnd   = 0;
    GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
    for (size_t ri = rowSelStart; ri < rowSelEnd; ++ri) {
        size_t thisRowEnd = min (colSelEnd, GetColumnCount (ri));
        for (size_t ci = colSelStart; ci < thisRowEnd; ++ci) {
            TemporarilyAllocateCellWithTablet wp (*this, ri, ci);
            wp->SetSelection (0, wp->GetEnd (), TextInteractor::eNoUpdate);
            IncrementalFontSpecification iSpec = wp->GetCurSelFontSpec ();
            if (ri == rowSelStart and ci == colSelStart) {
                *curSelFontSpec = iSpec;
            }
            else {
                *curSelFontSpec = Intersection (*curSelFontSpec, iSpec);
            }
        }
    }
}
 
/*
@METHOD:        WordProcessorTable::InteractiveSetFont
@DESCRIPTION:   <p>Apply the given font specification to the selectable table cells.</p>
*/
void WordProcessorTable::InteractiveSetFont (const IncrementalFontSpecification& defaultFont)
{
    Led_Require_CurrentOwningWP ();
 
    {
        // Must fix to handle UNDO support...
        size_t row = 0;
        size_t col = 0;
        if (GetIntraCellMode (&row, &col)) {
            TemporarilyAllocateCellWithTablet wp (*this, row, col);
            wp->InteractiveSetFont (defaultFont);
            return;
        }
    }
 
    AllowUpdateInfoPropagationContext AUIPC (*this);
 
    fCurrentOwningWP->BreakInGroupedCommands ();
    UndoableContextHelper undoContext (*fCurrentOwningWP, StandardStyledTextInteractor::GetCommandNames ().fFontChangeCommandName, false);
    {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        for (size_t ri = rowSelStart; ri < rowSelEnd; ++ri) {
            size_t thisRowEnd = min (colSelEnd, GetColumnCount (ri));
            for (size_t ci = colSelStart; ci < thisRowEnd; ++ci) {
                TemporarilyAllocateCellWithTablet wp (*this, ri, ci);
                wp->SetStyleInfo (0, wp->GetEnd (), defaultFont);
            }
        }
    }
    undoContext.CommandComplete ();
}
 
void WordProcessorTable::Write ([[maybe_unused]] SinkStream& sink)
{
    //  sink.write (fData, fLength);
}
 
void WordProcessorTable::ExternalizeFlavors ([[maybe_unused]] WriterFlavorPackage& flavorPackage)
{
    // save done another way - AS RTF - not sure why this is never called - but
    // probably lose the whole SimpleEmbedding guy for tables - and just handle directly what
    // is done through them now...
    //  flavorPackage.AddFlavorData (fFormat, fLength, fData);
}
 
const char* WordProcessorTable::GetTag () const
{
    //tmphack
    return "table";
    //  return fEmbeddingTag;
}
 
/*
@METHOD:        WordProcessorTable::ProcessSimpleClick
@DESCRIPTION:   <p></p>
*/
bool WordProcessorTable::ProcessSimpleClick (Led_Point clickedAt, unsigned clickCount, bool extendSelection)
{
#if 0
    DbgTrace ("ENTERING WordProcessorTable::ProcessSimpleClick (this= 0x%x, clickedAt=(%d,%d), clickCount=%d, rowSelStart=%d, rowSelEnd=%d, colSelStart=%d, colSelEnd=%d, intraCellMode=%d intraCellStart=%d, intraCellEnd=%d)\n",
              this, clickedAt.v, clickedAt.h, clickCount, fRowSelStart, fRowSelEnd, fColSelStart, fColSelEnd, fIntraCellMode, fIntraSelStart, fIntraSelStart
             );
#endif
    Led_Require_CurrentOwningWP ();
 
    size_t clickRow = 0;
    size_t clickCol = 0;
    GetClosestCell (clickedAt, &clickRow, &clickCol);
 
    fTrackingAnchor_Row = clickRow;
    fTrackingAnchor_Col = clickCol;
 
    bool forceSelectAllCells = false;
    if (extendSelection) {
        size_t selStart     = fCurrentOwningWP->GetSelectionStart ();
        size_t selEnd       = fCurrentOwningWP->GetSelectionEnd ();
        selStart            = min (selStart, GetStart ());
        selEnd              = max (selEnd, GetEnd ());
        forceSelectAllCells = (selEnd - selStart != 1);
        fCurrentOwningWP->SetSelection (selStart, selEnd);
    }
    else {
        fCurrentOwningWP->SetSelection (GetStart (), GetEnd ());
    }
 
    if (forceSelectAllCells) {
        SetCellSelection (0, GetRowCount (), 0, GetColumnCount ());
    }
    else if (extendSelection) {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        rowSelStart = min (rowSelStart, clickRow);
        rowSelEnd   = max (rowSelEnd, clickRow + 1);
        colSelStart = min (colSelStart, clickCol);
        colSelEnd   = max (colSelEnd, clickCol + 1);
        SetCellSelection (rowSelStart, rowSelEnd, colSelStart, colSelEnd);
    }
    else {
        SetCellSelection (clickRow, clickRow + 1, clickCol, clickCol + 1);
    }
 
    {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        if (rowSelEnd - rowSelStart == 1 and colSelEnd - colSelStart == 1) {
            Led_Rect cellBounds       = GetCellBounds (rowSelStart, colSelStart);
            Led_Rect cellEditorBounds = GetCellEditorBounds (rowSelStart, colSelStart);
 
            // Only if we click inside the margins do we treat this as intra-cell activation. Otherwise, the user
            // just selects the entire cell.
            if (cellEditorBounds.Contains (clickedAt)) {
                SetIntraCellMode ();
 
                // pass along click to embedded WP
                TemporarilyAllocateCellWithTablet wp (*this, rowSelStart, colSelStart);
                wp->SetCurClickCount (fCurrentOwningWP->GetCurClickCount (), Time::GetTickCount ());
                Assert (fCurrentOwningWP->GetCurClickCount () == clickCount);
                wp->ProcessSimpleClick (TableCoordinates2Window (clickedAt), clickCount, extendSelection, &fIntraCellDragAnchor);
            }
            else {
                UnSetIntraCellMode ();
            }
        }
    }
#if 0
    DbgTrace ("EXITING WordProcessorTable::ProcessSimpleClick (this= 0x%x, rowSelStart=%d, rowSelEnd=%d, colSelStart=%d, colSelEnd=%d, intraCellMode=%d intraCellStart=%d, intraCellEnd=%d)\n",
              this, fRowSelStart, fRowSelEnd, fColSelStart, fColSelEnd, fIntraCellMode, fIntraSelStart, fIntraSelStart
             );
#endif
    return true;
}
 
void WordProcessorTable::WhileSimpleMouseTracking (Led_Point newMousePos)
{
#if 0
    DbgTrace ("ENTERING WordProcessorTable::WhileSimpleMouseTracking (this= 0x%x, rowSelStart=%d, rowSelEnd=%d, colSelStart=%d, colSelEnd=%d, intraCellMode=%d intraCellStart=%d, intraCellEnd=%d)\n",
              this, fRowSelStart, fRowSelEnd, fColSelStart, fColSelEnd, fIntraCellMode, fIntraSelStart, fIntraSelStart
             );
#endif
    Led_Require_CurrentOwningWP ();
 
    if (fCurrentOwningWP->GetSelectionEnd () - fCurrentOwningWP->GetSelectionStart () == 1) {
        /*
         *  If dragging WITHIN a table - then EXTEND the selection to include the area selected.
         */
        size_t clickRow = 0;
        size_t clickCol = 0;
        GetClosestCell (newMousePos, &clickRow, &clickCol);
 
        size_t rowSelStart = min (fTrackingAnchor_Row, clickRow);
        size_t rowSelEnd   = max (fTrackingAnchor_Row + 1, clickRow + 1);
        size_t colSelStart = min (fTrackingAnchor_Col, clickCol);
        size_t colSelEnd   = max (fTrackingAnchor_Col + 1, clickCol + 1);
        SetCellSelection (rowSelStart, rowSelEnd, colSelStart, colSelEnd);
    }
    else if (fCurrentOwningWP->GetSelectionEnd () - fCurrentOwningWP->GetSelectionStart () > 1) {
        SetCellSelection (0, GetRowCount (), 0, GetColumnCount ());
    }
 
    {
        size_t rowSelStart = 0;
        size_t rowSelEnd   = 0;
        size_t colSelStart = 0;
        size_t colSelEnd   = 0;
        GetCellSelection (&rowSelStart, &rowSelEnd, &colSelStart, &colSelEnd);
        if (rowSelEnd - rowSelStart == 1 and colSelEnd - colSelStart == 1) {
            Led_Rect cellBounds       = GetCellBounds (rowSelStart, colSelStart);
            Led_Rect cellEditorBounds = GetCellEditorBounds (rowSelStart, colSelStart);
 
            // Only if we click inside the margins do we treat this as intra-cell activation. Otherwise, the user
            // just selects the entire cell.
            if (cellEditorBounds.Contains (newMousePos)) {
                if (fTrackingAnchor_Row == rowSelStart and rowSelStart + 1 == rowSelEnd and fTrackingAnchor_Col == colSelStart and
                    colSelStart + 1 == colSelEnd) {
                    // Don't reset to IntraCell mode when tracking if the selected cell is other than the original
                    // clicked in one. The fIntraCellDragAnchor value would be invalid, and the UI wouldn't make
                    // much sense anyhow...
                    SetIntraCellMode ();
                }
                // pass along click to embedded WP
                TemporarilyAllocateCellWithTablet wp (*this, rowSelStart, colSelStart);
                wp->SetCurClickCount (fCurrentOwningWP->GetCurClickCount (), Time::GetTickCount ());
                wp->WhileSimpleMouseTracking (TableCoordinates2Window (newMousePos), fIntraCellDragAnchor);
            }
        }
    }
#if 0
    DbgTrace ("EXITING WordProcessorTable::WhileSimpleMouseTracking (this= 0x%x, rowSelStart=%d, rowSelEnd=%d, colSelStart=%d, colSelEnd=%d, intraCellMode=%d intraCellStart=%d, intraCellEnd=%d)\n",
              this, fRowSelStart, fRowSelEnd, fColSelStart, fColSelEnd, fIntraCellMode, fIntraSelStart, fIntraSelStart
             );
#endif
}
 
/*
@METHOD:        WordProcessorTable::GetRealCell
@DESCRIPTION:   <p>Take the given row/column and modify them in place to assure they refer to the appropriate REAL cell.
            If they refer to a merge-cell, refer back to the owning REAL cell. </p>
*/
void WordProcessorTable::GetRealCell (size_t* row, size_t* column) const
{
    RequireNotNull (row);
    RequireNotNull (column);
    size_t r = *row;
    size_t c = *column;
    for (;;) {
        CellMergeFlags flags = GetCell (r, c).GetCellMergeFlags ();
        if (flags == ePlainCell) {
            *row    = r;
            *column = c;
            return;
        }
        else {
#if qStroika_Foundation_Debug_AssertionsChecked
            bool changed = false;
#endif
            if (flags & eMergeCellLeft) {
                Assert (c > 0);
                --c;
#if qStroika_Foundation_Debug_AssertionsChecked
                changed = true;
#endif
            }
            if (flags & eMergeCellUp) {
                Assert (r > 0);
                --r;
#if qStroika_Foundation_Debug_AssertionsChecked
                changed = true;
#endif
            }
#if qStroika_Foundation_Debug_AssertionsChecked
            Assert (changed);
#endif
        }
    }
}
 
const WordProcessorTable::Cell& WordProcessorTable::GetRealCell (size_t row, size_t column) const
{
    GetRealCell (&row, &column);
    return GetCell (row, column);
}
 
bool WordProcessorTable::CanMergeCells (size_t fromRow, size_t fromCol, [[maybe_unused]] size_t toRow, [[maybe_unused]] size_t toCol)
{
    Require (fromRow <= toRow);
    Require (fromCol <= toCol);
    Require (toRow <= GetRowCount ());
    Require (toCol <= GetColumnCount ());
    // for now - our only requirements are that the region to merge is square (and this doesn't need to be tested
    // for because of my API), and that the top-left is a plain cell, and not already merged into something else.
    return GetCellFlags (fromRow, fromCol) == ePlainCell;
}
 
/*
@METHOD:        WordProcessorTable::MergeCells
@ACCESS:        public
@DESCRIPTION:   <p>Merge all the cells in the given range. The row positions bound a range of cells, so for example,
            if <code>toCol-fromCol==2</code> then 2 columns are being merged, and if <code>toRow-fromRow==1</code>
            then we are operating on a single row (all thats really fully implemented at this time - Led 3.1a4).
            </p>
                <p>Note - though the low-level support for merge-cells is mostly in place - I found it was not needed
            to implement most of the table functionality I wanted for 3.1. I was going to use it to handle different
            width columns - but since I've now revised the code to directly support having different width columns
            (and different numbers of columns) per row, its no longer needed. At some point in the future - this will
            probably be more fully supported.
            </p>
*/
void WordProcessorTable::MergeCells (size_t fromRow, size_t fromCol, size_t toRow, size_t toCol)
{
    Require (fromRow <= toRow);
    Require (fromCol <= toCol);
    Require (toRow <= GetRowCount ());
    Require (toCol <= GetColumnCount ());
    Require (CanMergeCells (fromRow, fromCol, toRow, toCol));
    bool madeChange = false;
    for (size_t r = fromRow; r < toRow; ++r) {
        for (size_t c = fromCol; c < toCol; ++c) {
            // All but the first cell get merged (into the first)
            if (not(r == fromRow and c == fromCol)) {
                fRows[r].fCells[c] =
                    Cell (*this, static_cast<CellMergeFlags> (((r > fromRow) ? eMergeCellUp : 0) | ((c > fromCol) ? eMergeCellLeft : 0)));
                madeChange = true;
            }
        }
    }
    if (madeChange) {
        InvalidateLayout ();
    }
}
 
void WordProcessorTable::UnMergeCells (size_t fromRow, size_t fromCol, size_t toRow, size_t toCol)
{
    Require (fromRow <= toRow);
    Require (fromCol <= toCol);
    Require (toRow < GetRowCount ());
    Require (toCol < GetColumnCount ());
    bool madeChange = false;
    for (size_t r = fromRow; r < toRow; ++r) {
        for (size_t c = fromCol; c < toCol; ++c) {
            // don't overwrite the cell object (losing all its data) if its already a plain cell)
            if (GetCellFlags (r, c) != ePlainCell) {
                fRows[r].fCells[c] = Cell (*this, ePlainCell);
                madeChange         = true;
            }
        }
    }
    if (madeChange) {
        InvalidateLayout ();
    }
}
 
/*
@METHOD:        WordProcessorTable::SetCellSelection
@DESCRIPTION:   <p>See @'WordProcessorTable::GetCellSelection'.</p>
*/
void WordProcessorTable::SetCellSelection (size_t rowSelStart, size_t rowSelEnd, size_t colSelStart, size_t colSelEnd)
{
    Ensure (rowSelStart <= rowSelEnd);
    Ensure (rowSelEnd <= GetRowCount ());
    Ensure (colSelStart <= colSelEnd);
    Ensure (colSelEnd <= GetColumnCount ());
    bool changed = (fRowSelStart != rowSelStart) or (fRowSelEnd != rowSelEnd) or (fColSelStart != colSelStart) or (fColSelEnd != colSelEnd);
    if (changed) {
        fRowSelStart   = rowSelStart;
        fRowSelEnd     = rowSelEnd;
        fColSelStart   = colSelStart;
        fColSelEnd     = colSelEnd;
        fIntraCellMode = false;
        InvalidateIntraCellContextInfo ();
        if (fCurrentOwningWP != nullptr) {
            fCurrentOwningWP->fCachedCurSelFontSpecValid = false;
            fCurrentOwningWP->Refresh (GetStart (), GetEnd ());
        }
    }
#if 0
    DbgTrace ("WordProcessorTable::SetCellSelection (table=0x%x, tickCount=%f, rs=%d, re=%d, cs=%d, ce=%d, changed=%d)\n",
              this, Time::GetTickCount (), rowSelStart, rowSelEnd, colSelStart, colSelEnd, changed
             );
#endif
}
 
void WordProcessorTable::SetIntraCellMode ()
{
    Require (fRowSelEnd - fRowSelStart == 1);
    Require (fColSelEnd - fColSelStart == 1);
    if (not fIntraCellMode) {
        TextStore* ts = nullptr;
        GetCellWordProcessorDatabases (fRowSelStart, fColSelStart, &ts);
        AssertNotNull (ts);
        SetIntraCellSelection (0, ts->GetLength ());
        fIntraCellMode = true;
        if (fCurrentOwningWP != nullptr) {
            fCurrentOwningWP->Refresh (GetStart (), GetEnd ());
        }
    }
}
 
void WordProcessorTable::SetIntraCellMode (size_t row, size_t col)
{
    if (not fIntraCellMode) {
        SetCellSelection (row, row + 1, col, col + 1);
        SetIntraCellMode ();
    }
}
 
void WordProcessorTable::UnSetIntraCellMode ()
{
    if (fIntraCellMode) {
        fIntraCellMode = false;
        if (fCurrentOwningWP != nullptr) {
            fCurrentOwningWP->Refresh (GetStart (), GetEnd ());
        }
    }
}
 
void WordProcessorTable::SetIntraCellSelection (size_t selStart, size_t selEnd)
{
    if (fIntraSelStart != selStart or fIntraSelEnd != selEnd) {
#if 0
        DbgTrace ("WordProcessorTable::SetIntraCellSelection (selStart = %d, selEnd = %d)- oldSel=(%d,%d), tickcount=%f\n", selStart, selEnd, fIntraSelStart, fIntraSelEnd, Time::GetTickCount ());
#endif
        if (fCurrentOwningWP != nullptr) {
            fCurrentOwningWP->fCachedCurSelFontSpecValid = false;
        }
        fIntraSelStart = selStart;
        fIntraSelEnd   = selEnd;
    }
}
 
/*
@METHOD:        WordProcessorTable::ConstructEmbeddedTableWordProcessor
@ACCESS:        protected
@DESCRIPTION:   <p>Called internally by the @'WordProcessorTable' code to instantiate mini embedded
            word processor objects (@'EmbeddedTableWordProcessor') to be in each cell. Objects created
            with this method should be released with a call to
            @'WordProcessorTable::ReleaseEmbeddedTableWordProcessor'.</p>
*/
WordProcessorTable::EmbeddedTableWordProcessor* WordProcessorTable::ConstructEmbeddedTableWordProcessor (WordProcessor& forWordProcessor,
                                                                                                         size_t forRow, size_t forColumn,
                                                                                                         const Led_Rect& cellWindowRect,
                                                                                                         bool captureChangesForUndo)
{
    size_t cellModeRow            = 0;
    size_t cellModeCol            = 0;
    bool   activeFocusedCell      = GetIntraCellMode (&cellModeRow, &cellModeCol) and cellModeRow == forRow and cellModeCol == forColumn;
    EmbeddedTableWordProcessor* e = new EmbeddedTableWordProcessor (forWordProcessor, *this, forRow, forColumn, activeFocusedCell);
    try {
        TextStore*                               ts = nullptr;
        shared_ptr<AbstractStyleDatabaseRep>     styleDatabase;
        shared_ptr<AbstractParagraphDatabaseRep> paragraphDatabase;
        shared_ptr<HidableTextMarkerOwner>       hidableTextDatabase;
        GetCellWordProcessorDatabases (forRow, forColumn, &ts, &styleDatabase, &paragraphDatabase, &hidableTextDatabase);
        e->SetStyleDatabase (styleDatabase);
        e->SetParagraphDatabase (paragraphDatabase);
        e->SetHidableTextDatabase (hidableTextDatabase);
        e->SpecifyTextStore (ts);
        e->SetWindowRect (cellWindowRect);
        e->SetDefaultTextColor (WordProcessor::eDefaultBackgroundColor, GetCellColor (forRow, forColumn));
        if (captureChangesForUndo) {
            e->SetCommandHandler (forWordProcessor.GetCommandHandler ());
        }
 
        if (activeFocusedCell) {
            using TemporarilyUseTablet = EmbeddedTableWordProcessor::TemporarilyUseTablet;
 
            AssertNotNull (fCurrentOwningWP);
            WordProcessor::Tablet_Acquirer tablet (fCurrentOwningWP);
            TemporarilyUseTablet           tmpUseTablet (*e, tablet, TemporarilyUseTablet::eDontDoTextMetricsChangedCall);
 
            e->SetSelectionShown (true, TextInteractor::eNoUpdate); // set TRUE so stuff that changes the selection does the proper invalidation
            e->RestoreMiscActiveFocusInfo ();
        }
    }
    catch (...) {
        e->SpecifyTextStore (nullptr);
        delete e;
    }
    return e;
}
 
/*
@METHOD:        WordProcessorTable::ReleaseEmbeddedTableWordProcessor
@ACCESS:        protected
@DESCRIPTION:   <p>Release word @'WordProcessorTable::EmbeddedTableWordProcessor' objects
            allocated with @'WordProcessorTable::ConstructEmbeddedTableWordProcessor'.
            This may not neccesarily DELETE them as they could
            be cached (for example - if they are the currently active cell, and are blinking the caret etc...</p>
*/
void WordProcessorTable::ReleaseEmbeddedTableWordProcessor (EmbeddedTableWordProcessor* e)
{
    RequireNotNull (e);
    e->SaveMiscActiveFocusInfo ();
    e->SetCommandHandler (nullptr);
    e->SpecifyTextStore (nullptr);
    delete e;
}
 
/*
@METHOD:        WordProcessorTable::PerformLayout
@ACCESS:        protected
@DESCRIPTION:   <p></p>
*/
void WordProcessorTable::PerformLayout ()
{
    Require (fNeedLayout != eDone);
 
    if (fCurrentOwningWP != nullptr) {
        TextStore&               ts = GetOwner ()->GetTextStore ();
        TextStore::SimpleUpdater updater (ts, GetStart (), GetEnd (), false);
 
        Led_Size     border  = Led_Size (Led_CvtScreenPixelsFromTWIPSV (fBorderWidth), Led_CvtScreenPixelsFromTWIPSH (fBorderWidth));
        DistanceType spacing = Led_CvtScreenPixelsFromTWIPSV (GetCellSpacing ());
        Led_Rect     defaultCellMargin;
        {
            TWIPS_Rect defaultCellMarginTWIPS;
            GetDefaultCellMargins (&defaultCellMarginTWIPS.top, &defaultCellMarginTWIPS.left, &defaultCellMarginTWIPS.bottom,
                                   &defaultCellMarginTWIPS.right);
            defaultCellMargin.top    = Led_CvtScreenPixelsFromTWIPSV (defaultCellMarginTWIPS.top);
            defaultCellMargin.left   = Led_CvtScreenPixelsFromTWIPSH (defaultCellMarginTWIPS.left);
            defaultCellMargin.bottom = Led_CvtScreenPixelsFromTWIPSV (defaultCellMarginTWIPS.bottom);
            defaultCellMargin.right  = Led_CvtScreenPixelsFromTWIPSH (defaultCellMarginTWIPS.right);
        }
 
        // Need to be more careful her about updating the row heights records. We COULD not  be able to do this, and then we want to set a flag
        // saying to re-layout when we are RE-associated with a word-processor object (temporarily)
 
        size_t rows = GetRowCount ();
 
        Tablet_Acquirer tablet (fCurrentOwningWP);
 
        DistanceType maxTableWidth = 0;
 
        DistanceType runningHeight = 0;
        for (size_t r = 0; r < rows; ++r) {
            /*
             *  Compute REAL (non-merge) cells widths.
             */
            size_t                            cols = GetColumnCount (r);
            Memory::StackBuffer<DistanceType> realCellWidths{cols}; // cell widths for this row - only for REAL (plain - non-merge) cells
            DistanceType                      rowWidth = 0;
            {
                size_t lastRealCellIdx = 0;
                for (size_t c = 0; c < cols; ++c) {
                    DistanceType thisColWidth = Led_CvtScreenPixelsFromTWIPSH (GetColumnWidth (r, c));
                    if (GetCellFlags (r, c) == ePlainCell) {
                        realCellWidths[c] = thisColWidth;
                        lastRealCellIdx   = c;
                        rowWidth += thisColWidth;
                    }
                    else {
                        // and ... if its a 'merge left' cell - then add this width to the width of the REAL rect
                        realCellWidths[lastRealCellIdx] += thisColWidth;
                    }
                }
            }
 
            /*
             *  Compute their row (cell) heights.
             */
            DistanceType rowHeight = 0;
            for (size_t c = 0; c < cols; ++c) {
                if (GetCellFlags (r, c) == ePlainCell) {
                    using TemporarilyUseTablet = EmbeddedTableWordProcessor::TemporarilyUseTablet;
 
                    DistanceType              totalCellMargin = defaultCellMargin.left + defaultCellMargin.right;
                    DistanceType              wpWidth = (totalCellMargin < realCellWidths[c]) ? realCellWidths[c] - totalCellMargin : 1;
                    TemporarilyAllocateCellWP wp (*this, *fCurrentOwningWP, r, c, Led_Rect (0, 0, 1000, wpWidth));
                    TemporarilyUseTablet      tmpUseTablet (*wp, tablet, TemporarilyUseTablet::eDontDoTextMetricsChangedCall);
                    rowHeight = max (rowHeight, wp->GetDesiredHeight ());
                }
            }
            /*
             *  Note - since cell width is usaully pre-specified - we don't let the margin determine that.
             *  But - since we're COMPUTING the appropriate cell HEIGHT - we must add in the top/bottom cell margins.
             */
            rowHeight += defaultCellMargin.top + defaultCellMargin.bottom;
            rowHeight        = max (rowHeight, DistanceType (5)); // assure some min height
            fRows[r].fHeight = rowHeight;
            runningHeight += rowHeight;
 
            DistanceType rowWidthWithSpacingNBorders = rowWidth + static_cast<DistanceType> ((cols + 1) * (spacing + border.h));
            maxTableWidth                            = max (maxTableWidth, rowWidthWithSpacingNBorders);
 
            /*
             *  Store away the resulting cell rectangles (again - only for REAL - non-merge cells).
             */
            {
                DistanceType runningWidth    = 0; // not including spacing - cuz that added separately...
                size_t       lastRealCellIdx = 0;
                for (size_t c = 0; c < cols; ++c) {
                    if (GetCellFlags (r, c) == ePlainCell) {
                        Cell     cell     = GetCell (r, c);
                        Led_Rect cellRect = Led_Rect (runningHeight - rowHeight, runningWidth, rowHeight, realCellWidths[c]);
 
                        cellRect +=
                            Led_Point (static_cast<CoordinateType> ((r + 1) * border.v), static_cast<CoordinateType> ((c + 1) * border.h));
 
                        // add in cell spacing
                        cellRect += Led_Point (static_cast<CoordinateType> ((r + 1) * spacing), static_cast<CoordinateType> ((c + 1) * spacing));
 
                        cell.SetCachedBoundsRect (cellRect);
                        lastRealCellIdx = c;
                        runningWidth += realCellWidths[c];
                    }
                }
            }
        }
 
        {
            DistanceType totalHeight = 0;
            for (auto i = fRows.begin (); i != fRows.end (); ++i) {
                totalHeight += (*i).fHeight;
            }
            fTotalHeight = totalHeight + static_cast<DistanceType> ((spacing + border.v) * (fRows.size () + 1));
        }
 
        fTotalWidth = maxTableWidth;
 
        fNeedLayout = eDone;
    }
}
 
#endif
 
/*
@METHOD:        WordProcessorTable::GetDimensions
@DESCRIPTION:   <p>Return the number of rows and columns in the given table. Pointer parameters CAN be null,
            and that value is just not returned.</p>
*/
void WordProcessorTable::GetDimensions (size_t* rows, size_t* columns) const
{
    if (rows != nullptr) {
        *rows = fRows.size ();
    }
    if (columns != nullptr) {
        size_t maxCols = 0;
        for (size_t ri = 0; ri < fRows.size (); ++ri) {
            maxCols = max (maxCols, fRows[ri].fCells.size ());
        }
        *columns = maxCols;
    }
}
 
/*
@METHOD:        WordProcessorTable::SetDimensions
@DESCRIPTION:   <p>Specifies the number of rows and columns desired. If rows or columns need to be created, they will be
            appended. If rows/columns need to be destroyed - they will be desroyed from the end (right/bottom). If you need
            more specific control, then call @'WordProcessorTable::InsertRow', @'WordProcessorTable::DeleteRow',
            @'WordProcessorTable::InsertColumn', or @'WordProcessorTable::DeleteColumn' directly.</p>
*/
void WordProcessorTable::SetDimensions (size_t rows, size_t columns)
{
    size_t oldRows    = 0;
    size_t oldColumns = 0;
    GetDimensions (&oldRows, &oldColumns);
 
    // delete first
    while (oldRows > rows) {
        DeleteRow (oldRows - 1);
        --oldRows;
    }
    while (oldColumns > columns) {
        DeleteColumn (oldColumns - 1);
        --oldColumns;
    }
 
    // then append any needed rows/columns
    while (oldRows < rows) {
        InsertRow (oldRows);
        ++oldRows;
    }
    while (oldColumns < columns) {
        InsertColumn (oldColumns);
        ++oldColumns;
    }
    if constexpr (qStroika_Foundation_Debug_AssertionsChecked) {
        GetDimensions (&oldRows, &oldColumns);
        Assert (oldRows == rows);
        Assert (oldColumns == columns);
    }
}
 
/*
@METHOD:        WordProcessorTable::SetDimensionsAtLeast
@DESCRIPTION:   <p>Calls @'WordProcessorTable::GetDimensions' and
            @'WordProcessorTable::SetDimensions' to assure
            there are <em>at least</em> the given number of rows and columns.</p>
*/
void WordProcessorTable::SetDimensionsAtLeast (size_t rows, size_t columns)
{
    size_t r = 0;
    size_t c = 0;
    GetDimensions (&r, &c);
    r = max (rows, r);
    c = max (columns, c);
    SetDimensions (r, c);
}
 
/*
@METHOD:        WordProcessorTable::InsertRow
@DESCRIPTION:   <p>Insert a new blank row at the given 'at' offset. Must be
            between 0 and the current number of rows (inclusive). Get the
            number of columns and the size of those columns from the adjacent
            row, but copying a maximum of 'maxRowCopyCount' columns.</p>
*/
void WordProcessorTable::InsertRow (size_t at, size_t maxRowCopyCount)
{
    Require (at <= GetRowCount ());
    Require (maxRowCopyCount >= 1);
#if qStroika_Frameworks_Led_SupportGDI
 
    TextStore&               ts = GetOwner ()->GetTextStore ();
    TextStore::SimpleUpdater updater (ts, GetStart (), GetEnd ());
#endif
    RowInfo newRow;
 
    // Copy row count and row width from adjoining row. COULD be smarter about this - taking a HINT as
    // to whether to copy from LHS or RHS - but this is pretty reasonable...
    size_t rowToCopy = at > 0 ? at - 1 : at;
    size_t colCount  = 0;
    if (rowToCopy < GetRowCount ()) {
        colCount = GetColumnCount (rowToCopy);
    }
    colCount = min (colCount, maxRowCopyCount);
 
    for (size_t c = 0; c < colCount; ++c) {
        Cell cell (*this, ePlainCell);
        cell.SetCellXWidth (GetColumnWidth (rowToCopy, c));
        newRow.fCells.push_back (cell);
    }
 
    fRows.insert (fRows.begin () + at, newRow);
#if qStroika_Frameworks_Led_SupportGDI
 
    InvalidateIntraCellContextInfo ();
    InvalidateLayout ();
#endif
}
 
/*
@METHOD:        WordProcessorTable::DeleteRow
@DESCRIPTION:   <p>Delete the given row at the given 'at' offset.</p>
*/
void WordProcessorTable::DeleteRow (size_t at)
{
    Require (at < GetRowCount ());
#if qStroika_Frameworks_Led_SupportGDI
 
    TextStore&               ts = GetOwner ()->GetTextStore ();
    TextStore::SimpleUpdater updater (ts, GetStart (), GetEnd ());
#endif
 
    fRows.erase (fRows.begin () + at);
#if qStroika_Frameworks_Led_SupportGDI
    InvalidateIntraCellContextInfo ();
    InvalidateLayout ();
    ReValidateSelection ();
#endif
}
 
/*
@METHOD:        WordProcessorTable::InsertColumn
@DESCRIPTION:   <p>Insert a new blank column at the given 'at' offset. Must be between
            0 and the current number of columns (inclusive).</p>
*/
void WordProcessorTable::InsertColumn (size_t at)
{
    Require (at <= GetColumnCount ());
#if qStroika_Frameworks_Led_SupportGDI
    TextStore&               ts = GetOwner ()->GetTextStore ();
    TextStore::SimpleUpdater updater (ts, GetStart (), GetEnd ());
    TWIPS                    newColWidth = Led_CvtScreenPixelsToTWIPSH (100);
#else
    TWIPS newColWidth = TWIPS (100);
#endif
 
    // Grab default size for new column from first row/prev (or next) col
    if (fRows.size () > 0) {
        size_t nColsInRow = GetColumnCount (0);
        //size_t useCol     = at;
        if (at == nColsInRow and at > 0) {
            newColWidth = GetColumnWidth (0, at - 1);
        }
        else if (at < nColsInRow) {
            newColWidth = GetColumnWidth (0, at);
        }
    }
 
    vector<Cell> newCol;
    for (size_t r = 0; r < fRows.size (); ++r) {
        Cell cell (*this, ePlainCell);
        cell.SetCellXWidth (newColWidth);
        newCol.push_back (cell);
    }
 
    size_t rowCount = fRows.size ();
    for (size_t ri = 0; ri < rowCount; ++ri) {
        vector<Cell>& rowCells = fRows[ri].fCells;
        rowCells.insert (rowCells.begin () + at, newCol[ri]);
    }
#if qStroika_Frameworks_Led_SupportGDI
 
    InvalidateIntraCellContextInfo ();
    InvalidateLayout ();
#endif
}
 
/*
@METHOD:        WordProcessorTable::DeleteColumn
@DESCRIPTION:   <p>Delete the given column at the given 'at' offset.</p>
*/
void WordProcessorTable::DeleteColumn (size_t at)
{
    Require (at < GetColumnCount ());
    // BUT - allow for the fact that some rows may have fewer columns than GetColumnCount ()...
 
#if qStroika_Frameworks_Led_SupportGDI
    TextStore&               ts = GetOwner ()->GetTextStore ();
    TextStore::SimpleUpdater updater (ts, GetStart (), GetEnd ());
#endif
 
    size_t rowCount = fRows.size ();
    for (size_t ri = 0; ri < rowCount; ++ri) {
        vector<Cell>& rowCells = fRows[ri].fCells;
        if (at < rowCells.size ()) {
            rowCells.erase (rowCells.begin () + at);
        }
    }
#if qStroika_Frameworks_Led_SupportGDI
    InvalidateIntraCellContextInfo ();
    InvalidateLayout ();
    ReValidateSelection ();
#endif
}
#if qStroika_Frameworks_Led_SupportGDI
 
/*
@METHOD:        WordProcessorTable::ReValidateSelection
@ACCESS:        protected
@DESCRIPTION:   <p>Called internally when something happens that could invalidate the selection. Assure its
            still valid.</p>
*/
void WordProcessorTable::ReValidateSelection ()
{
    size_t rowCount = GetRowCount ();
 
    size_t rowSelStart = fRowSelStart; // Cannot call GetCellSelection () cuz it asserts selection valid
    size_t rowSelEnd   = fRowSelEnd;
    size_t colSelStart = fColSelStart;
    size_t colSelEnd   = fColSelEnd;
 
    if (rowSelStart >= rowCount) {
        rowSelStart = 0;
        rowSelEnd   = 0;
    }
    if (rowSelEnd > rowCount) {
        rowSelEnd = rowCount;
    }
    size_t colCount = GetColumnCount (rowSelStart, rowSelEnd);
    if (colSelStart >= colCount) {
        colSelStart = 0;
        colSelEnd   = 0;
    }
    if (colSelEnd >= colCount) {
        colSelEnd = colCount;
    }
    SetCellSelection (rowSelStart, rowSelEnd, colSelStart, colSelEnd);
}
 
/*
 ********************************************************************************
 ************************** EmbeddedTableWordProcessor **************************
 ********************************************************************************
 */
 
/*
@METHOD:        WordProcessorTable::EmbeddedTableWordProcessor::EmbeddedTableWordProcessor
@DESCRIPTION:   <p></p>
*/
WordProcessorTable::EmbeddedTableWordProcessor::EmbeddedTableWordProcessor (WordProcessor& owningWordProcessor, WordProcessorTable& owningTable,
                                                                            size_t tRow, size_t tCol, bool activeEditCell)
    : inherited ()
    , fOwningWordProcessor (owningWordProcessor)
    , fOwningTable (owningTable)
    , fTableRow (tRow)
    , fTableColumn (tCol)
    , fUpdateTablet (nullptr)
    , fDesiredHeight (0)
    , fDesiredHeightValid (false)
    , fActiveEditCell (activeEditCell)
    , fSuppressRefreshCalls (false)
{
    SetImageUsingOffscreenBitmaps (false);
}
 
WordProcessorTable& WordProcessorTable::EmbeddedTableWordProcessor::GetOwningTable () const
{
    return fOwningTable;
}
 
WordProcessor& WordProcessorTable::EmbeddedTableWordProcessor::GetOwningWordProcessor () const
{
    return fOwningWordProcessor;
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::SaveMiscActiveFocusInfo ()
{
    if (fActiveEditCell) {
        fOwningTable.SetIntraCellSelection (GetSelectionStart (), GetSelectionEnd ());
        fOwningTable.SaveIntraCellContextInfo (fLeftSideOfSelectionInteresting, GetEmptySelectionStyle ());
    }
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::RestoreMiscActiveFocusInfo ()
{
    if (fActiveEditCell) {
        DisableRefreshContext                DFR (*this);
        SuppressCellUpdatePropagationContext SCUP (fOwningTable);
 
        FontSpecification emptySelFont;
        bool              leftSideOfSelectionInteresting = false;
        if (fOwningTable.RestoreIntraCellContextInfo (&leftSideOfSelectionInteresting, &emptySelFont)) {
            size_t intraCellSelStart = 0;
            size_t intraCellSelEnd   = 0;
            fOwningTable.GetIntraCellSelection (&intraCellSelStart, &intraCellSelEnd);
            SetSelection (intraCellSelStart, intraCellSelEnd, TextInteractor::eNoUpdate);
            fLeftSideOfSelectionInteresting = leftSideOfSelectionInteresting;
            SetEmptySelectionStyle (emptySelFont);
        }
        else {
            SetEmptySelectionStyle ();
        }
    }
}
 
#if !qStroika_Frameworks_Led_NestedTablesSupported
void WordProcessorTable::EmbeddedTableWordProcessor::HookInternalizerChanged ()
{
    inherited::HookInternalizerChanged ();
    WordProcessorFlavorPackageInternalizer* internalizerRep =
        dynamic_cast<WordProcessorFlavorPackageInternalizer*> (static_cast<FlavorPackageInternalizer*> (GetInternalizer ().get ()));
    AssertNotNull (internalizerRep);
    internalizerRep->SetNoTablesAllowed (true);
}
#endif
 
bool WordProcessorTable::EmbeddedTableWordProcessor::OnCopyCommand_Before ()
{
    return fOwningWordProcessor.OnCopyCommand_Before ();
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::OnCopyCommand_After ()
{
    fOwningWordProcessor.OnCopyCommand_After ();
}
 
bool WordProcessorTable::EmbeddedTableWordProcessor::OnPasteCommand_Before ()
{
    return fOwningWordProcessor.OnPasteCommand_Before ();
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::OnPasteCommand_After ()
{
    fOwningWordProcessor.OnPasteCommand_After ();
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::DrawRowHilight (Tablet* /*tablet*/, const Led_Rect& /*currentRowRect*/, const Led_Rect& /*invalidRowRect*/,
                                                                     const TextLayoutBlock& /*text*/, size_t /*rowStart*/, size_t /*rowEnd*/
)
{
    // Do nothing... - taken care if via owning WordProcessorTable and OVERRIDE of GetRowHilightRects
}
 
Tablet* WordProcessorTable::EmbeddedTableWordProcessor::AcquireTablet () const
{
    if (fUpdateTablet != nullptr) {
        return fUpdateTablet;
    }
    Assert (false); // we shouldn't need this anymore - get rid... LGP 2003-03-18
                    //tmphack - probably needs to be slightly differnet
    return fOwningWordProcessor.AcquireTablet ();
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::ReleaseTablet (Tablet* tablet) const
{
    if (tablet == fUpdateTablet) {
        return;
    }
    Assert (false); // we shouldn't need this anymore - get rid... LGP 2003-03-18
                    //tmphack - probably needs to be slightly differnet
    fOwningWordProcessor.ReleaseTablet (tablet);
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::RefreshWindowRect_ (const Led_Rect& windowRectArea, UpdateMode updateMode) const
{
    if (not fSuppressRefreshCalls) {
        // See SPR#1455- really never a need to do IMMEDIATE update and for these embedded WP's can get into a
        // deadly embrace. This may not be the BEST solution to that deadly embrace, but it appears to be a
        // safe and adequate one... LGP 2003-05-01
        UpdateMode useUpdateMode = (updateMode == eImmediateUpdate) ? eDelayedUpdate : updateMode;
        fOwningWordProcessor.RefreshWindowRect_ (windowRectArea, useUpdateMode);
    }
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::UpdateWindowRect_ (const Led_Rect& /*windowRectArea*/) const
{
    throw CannotUpdateNow ();
}
 
bool WordProcessorTable::EmbeddedTableWordProcessor::QueryInputKeyStrokesPending () const
{
    return true; // a bit of a hack to encourage display code to do a refresh instead of an Update () call
    // (which would be OK - but it generates a needless exception) - LGP 2003-05-02
    //return fOwningWordProcessor.QueryInputKeyStrokesPending ();
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::SetDefaultUpdateMode (UpdateMode defaultUpdateMode)
{
    if (defaultUpdateMode == eImmediateUpdate) {
        defaultUpdateMode = eDelayedUpdate;
    }
    inherited::SetDefaultUpdateMode (defaultUpdateMode);
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::GetLayoutMargins (RowReference row, CoordinateType* lhs, CoordinateType* rhs) const
{
    if (rhs != nullptr) {
        inherited::GetLayoutMargins (row, lhs, nullptr);
    }
 
    // MAYBE replace this logic with changing the LHS/RHS according to the cell padding (or what is the term?)
    // Anyhow - this hack should work MUCH better than the current display!
 
    // Make the layout width of each line (paragraph) equal to the windowrect. Ie, wrap to the
    // edge of the window. NB: because of this choice, we must 'InvalidateAllCaches' when the
    // WindowRect changes in our SetWindowRect() OVERRIDE.
    if (rhs != nullptr) {
        *rhs = (max (CoordinateType (GetWindowRect ().GetWidth ()), CoordinateType (1)));
    }
}
 
void WordProcessorTable::EmbeddedTableWordProcessor::PostInteractiveUndoPostHelper (InteractiveReplaceCommand::SavedTextRep** beforeRep,
                                                                                    InteractiveReplaceCommand::SavedTextRep** afterRep,
                                                                                    size_t startOfInsert, const SDKString& cmdName)
{
    RequireNotNull (beforeRep);
    RequireNotNull (afterRep);
    CommandHandler* ch = GetCommandHandler ();
    RequireNotNull (ch);
    try {
        if (*beforeRep != nullptr and *afterRep != nullptr) {
            // We are careful to set things to nullptr at each stage to prevent double
            // deletes in the event of a badly timed exception
            InteractiveReplaceCommand* cmd =
                new TableCMD (fOwningTable.GetStart (), fTableRow, fTableColumn, *beforeRep, *afterRep, startOfInsert, cmdName);
            *beforeRep = nullptr;
            *afterRep  = nullptr;
            ch->Post (cmd);
        }
    }
    catch (...) {
        delete *beforeRep;
        *beforeRep = nullptr;
        delete *afterRep;
        *afterRep = nullptr;
        throw; // safe at this point to throw - but perhaps better to silently eat the throw?
    }
}
 
InteractiveReplaceCommand::SavedTextRep*
WordProcessorTable::EmbeddedTableWordProcessor::InteractiveUndoHelperMakeTextRep (size_t regionStart, size_t regionEnd, size_t selStart, size_t selEnd)
{
    InteractiveReplaceCommand::SavedTextRep* tableStateRep = inherited::InteractiveUndoHelperMakeTextRep (regionStart, regionEnd, selStart, selEnd);
    return new SavedTextRepWSel (tableStateRep, fOwningTable, SavedTextRepWSel::eWPDirect);
}
 
DistanceType WordProcessorTable::EmbeddedTableWordProcessor::GetDesiredHeight () const
{
    if (not fDesiredHeightValid) {
        RowReference startingRow = GetRowReferenceContainingPosition (0);
        RowReference endingRow   = GetRowReferenceContainingPosition (GetEnd ());
        /*
        *   Always take one more row than they asked for, since they will expect if you start and end on a given row - you'll get
        *   the height of that row.
        */
        fDesiredHeightValid = true;
        fDesiredHeight      = GetHeightOfRows (startingRow, CountRowDifference (startingRow, endingRow) + 1);
    }
    return fDesiredHeight;
}
 
/*
 ********************************************************************************
 ****************** WordProcessorTable::SavedTextRepWSel **********************
 ********************************************************************************
 */
WordProcessorTable::SavedTextRepWSel::SavedTextRepWSel (SavedTextRep* delegateTo, WordProcessorTable& table, WPRelativeFlag wPRelativeFlag)
    : inherited (table.GetStart (), table.GetEnd ())
    , fWPRelativeFlag (wPRelativeFlag)
    , fRealRep (delegateTo)
    , fRowSelStart (0)
    , fRowSelEnd (0)
    , fColSelStart (0)
    , fColSelEnd (0)
    , fIntraCellMode (false)
    , fIntraCellSelStart (0)
    , fIntraCellSelEnd (0)
{
    RequireNotNull (delegateTo);
    table.GetCellSelection (&fRowSelStart, &fRowSelEnd, &fColSelStart, &fColSelEnd);
    fIntraCellMode = table.GetIntraCellMode ();
    if (fIntraCellMode) {
        table.GetIntraCellSelection (&fIntraCellSelStart, &fIntraCellSelEnd);
    }
}
 
size_t WordProcessorTable::SavedTextRepWSel::GetLength () const
{
    return fRealRep->GetLength ();
}
 
void WordProcessorTable::SavedTextRepWSel::InsertSelf (TextInteractor* interactor, size_t at, size_t nBytesToOverwrite)
{
    fRealRep->InsertSelf (interactor, at, nBytesToOverwrite);
}
 
void WordProcessorTable::SavedTextRepWSel::ApplySelection (TextInteractor* interactor)
{
    fRealRep->ApplySelection (interactor);
 
    WordProcessorTable* aT = nullptr;
    if (fWPRelativeFlag == eWPDirect) {
        EmbeddedTableWordProcessor* wp = dynamic_cast<EmbeddedTableWordProcessor*> (interactor);
        aT                             = &wp->GetOwningTable ();
    }
    else {
        WordProcessor* wp = dynamic_cast<WordProcessor*> (interactor);
        AssertNotNull (wp);
        aT = wp->GetActiveTable (); // above fRealRep->ApplySelection should have selected just the right table...
    }
    AssertNotNull (aT);
 
    AssertNotNull (aT);
    aT->SetCellSelection (fRowSelStart, fRowSelEnd, fColSelStart, fColSelEnd);
    if (fIntraCellMode) {
        aT->SetIntraCellMode ();
        aT->SetIntraCellSelection (fIntraCellSelStart, fIntraCellSelEnd);
    }
    else {
        aT->UnSetIntraCellMode ();
    }
}
 
/*
 ********************************************************************************
 ************************ EmptySelectionParagraphSavedTextRep *******************
 ********************************************************************************
 */
using EmptySelectionParagraphSavedTextRep = WordProcessor::EmptySelectionParagraphSavedTextRep;
 
EmptySelectionParagraphSavedTextRep::EmptySelectionParagraphSavedTextRep (WordProcessor* interactor, size_t selStart, size_t selEnd, size_t at)
    : inherited (interactor, selStart, selEnd)
    , fSavedStyleInfo (interactor->GetParagraphDatabase ()->GetParagraphInfo (at))
{
}
 
void EmptySelectionParagraphSavedTextRep::InsertSelf (TextInteractor* interactor, size_t at, size_t nBytesToOverwrite)
{
    inherited::InsertSelf (interactor, at, nBytesToOverwrite);
    WordProcessor* wp = dynamic_cast<WordProcessor*> (interactor);
    RequireNotNull (wp);
    wp->GetParagraphDatabase ()->SetParagraphInfo (at, 1, IncrementalParagraphInfo (fSavedStyleInfo));
}
#endif