Description

Displays only WYSIWYG view, keeping the article tree display as-is.

Syntax

Code

  <ShellCommand(CanExecute:="Ena_HasCurrentArticle")> _

  Public Sub WysOnly()

    If Ted.GetActiveArticle.TestToggleTreePanel Then  ' tree is displayed

      Ted.SetDesignerLayout(7, Nothing)

    Else                                              ' tree is not displayed

      Ted.SetDesignerLayout(3, Nothing)

    End If

  End Sub