Text menu

      if (!TMarsPresenter::gTextSubMenuItem) {
          //  Text menu
          TMenu* textMenu = new TMenu();
          textMenu->SetControlLayout( MControl::kTopToBottom );
          TTextMenu* textMenuCreator = new TTextMenu((TTextView*)fCanvasView->GetEditableTextView());
          textMenuCreator->AddTextMenus(*textMenu);
          
          TMarsPresenter::gTextSubMenuItem = new TSubMenuItem (textMenu, 
                          new TTextLabel(*TDeleterFor<TStandardText>(CopyLocalizedText(theArchive, "Text"))));
      }