basctl/source/inc/bastype2.hxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #pragma once
  21
  22 #include <sal/config.h>
  23
  24 #include <memory>
  25
  26 #include "doceventnotifier.hxx"
  27
  28 #include <vcl/weld.hxx>
  29 #include "sbxitem.hxx"
  30 #include <o3tl/typed_flags_set.hxx>
  31
  32 class SbModule;
  33 class SbxVariable;
  34
  35 enum class BrowseMode
  36 {
  37     Modules  = 0x01,
  38     Subs     = 0x02,
  39     Dialogs  = 0x04,
  40     All      = Modules | Subs | Dialogs,
  41 };
  42 namespace o3tl {
  43     template<> struct typed_flags<BrowseMode> : is_typed_flags<BrowseMode, 0x7> {};
  44 }
  45
  46 namespace basctl
  47 {
  48 using namespace ::com::sun::star::uno;
  49
  50 enum EntryType
  51 {
  52     OBJ_TYPE_UNKNOWN,
  53     OBJ_TYPE_DOCUMENT,
  54     OBJ_TYPE_LIBRARY,
  55     OBJ_TYPE_MODULE,
  56     OBJ_TYPE_DIALOG,
  57     OBJ_TYPE_METHOD,
  58     OBJ_TYPE_DOCUMENT_OBJECTS,
  59     OBJ_TYPE_USERFORMS,
  60     OBJ_TYPE_NORMAL_MODULES,
  61     OBJ_TYPE_CLASS_MODULES
  62 };
  63
  64 class Entry
  65 {
  66 private:
  67     EntryType m_eType;
  68
  69 public:
  70     explicit Entry(EntryType eType)
  71         : m_eType(eType)
  72     {
  73     }
  74
  75     virtual ~Entry();
  76
  77     Entry(Entry const &) = default;
  78     Entry(Entry &&) = default;
  79     Entry & operator =(Entry const &) = default;
  80     Entry & operator =(Entry &&) = default;
  81
  82     EntryType GetType () const { return m_eType; }
  83 };
  84
  85 class DocumentEntry : public Entry
  86 {
  87 private:
  88     ScriptDocument      m_aDocument;
  89     LibraryLocation     m_eLocation;
  90
  91 public:
  92     DocumentEntry (
  93         ScriptDocument const& rDocument,
  94         LibraryLocation eLocation,
  95         EntryType eType = OBJ_TYPE_DOCUMENT
  96     );
  97     virtual ~DocumentEntry () override;
  98
  99     ScriptDocument const& GetDocument() const { return m_aDocument; }
 100     LibraryLocation GetLocation() const { return m_eLocation; }
 101 };
 102
 103 class LibEntry : public DocumentEntry
 104 {
 105 private:
 106     OUString m_aLibName;
 107
 108 public:
 109     LibEntry (
 110         ScriptDocument const& rDocument,
 111         LibraryLocation eLocation,
 112         OUString       const& rLibName
 113     );
 114     virtual ~LibEntry () override;
 115
 116     OUString const& GetLibName () const { return m_aLibName; }
 117 };
 118
 119 class EntryDescriptor
 120 {
 121     ScriptDocument   m_aDocument;
 122     LibraryLocation  m_eLocation;
 123     OUString         m_aLibName;
 124     OUString         m_aLibSubName;  // for vba entry:  Document Objects, Class Modules, Forms and Normal Modules
 125     OUString         m_aName;
 126     OUString         m_aMethodName;
 127     EntryType        m_eType;
 128
 129 public:
 130     EntryDescriptor ();
 131     EntryDescriptor (
 132         ScriptDocument const& rDocument,
 133         LibraryLocation eLocation,
 134         OUString      const& rLibName,
 135         OUString      const& rLibSubName,
 136         OUString      const& rName,
 137         EntryType eType
 138     );
 139     EntryDescriptor (
 140         ScriptDocument const& rDocument,
 141         LibraryLocation eLocation,
 142         OUString      const& rLibName,
 143         OUString      const& rLibSubName,
 144         OUString      const& rName,
 145         OUString      const& rMethodName,
 146         EntryType eType
 147     );
 148
 149     ScriptDocument const&   GetDocument()   const { return m_aDocument; }
 150     LibraryLocation         GetLocation()   const { return m_eLocation; }
 151
 152     const OUString&         GetLibName()    const { return m_aLibName; }
 153     const OUString&         GetLibSubName() const { return m_aLibSubName; }
 154     const OUString&         GetName()       const { return m_aName; }
 155     const OUString&         GetMethodName() const { return m_aMethodName; }
 156     void                    SetMethodName( const OUString& aMethodName ) { m_aMethodName = aMethodName; }
 157
 158     EntryType               GetType() const { return m_eType; }
 159     void                    SetType( EntryType eType ) { m_eType = eType; }
 160 };
 161
 162
 163 /*
 164     Classification of types and pointers in the Entries:
 165
 166     OBJ_TYPE_DOCUMENT        DocumentEntry
 167     OBJ_TYPE_LIBRARY         Entry
 168     OBJ_TYPE_MODULE          Entry
 169     OBJ_TYPE_DIALOG          Entry
 170     OBJ_TYPE_METHOD          Entry
 171
 172 */
 173
 174 class SbTreeListBox : public DocumentEventListener
 175 {
 176 private:
 177     std::unique_ptr<weld::TreeView> m_xControl;
 178     std::unique_ptr<weld::TreeIter> m_xScratchIter;
 179     weld::Window* m_pTopLevel;
 180     bool m_bFreezeOnFirstAddRemove;
 181     BrowseMode nMode;
 182     DocumentEventNotifier m_aNotifier;
 183     void            SetEntryBitmaps(const weld::TreeIter& rIter, const OUString& rImage);
 184
 185 protected:
 186     DECL_LINK(RequestingChildrenHdl, const weld::TreeIter&, bool);
 187     DECL_LINK(OpenCurrentHdl, weld::TreeView&, bool);
 188     void                    ImpCreateLibEntries(const weld::TreeIter& rShellRootEntry, const ScriptDocument& rDocument, LibraryLocation eLocation);
 189     void                    ImpCreateLibSubEntries(const weld::TreeIter& rLibRootEntry, const ScriptDocument& rDocument, const OUString& rLibName);
 190     void                    ImpCreateLibSubEntriesInVBAMode(const weld::TreeIter& rLibRootEntry, const ScriptDocument& rDocument, const OUString& rLibName );
 191     void                    ImpCreateLibSubSubEntriesInVBAMode(const weld::TreeIter& rLibRootEntry, const ScriptDocument& rDocument, const OUString& rLibName);
 192     bool                    ImpFindEntry(weld::TreeIter& rIter, const OUString& rText);
 193
 194     // DocumentEventListener
 195     virtual void onDocumentCreated( const ScriptDocument& _rDocument ) override;
 196     virtual void onDocumentOpened( const ScriptDocument& _rDocument ) override;
 197     virtual void onDocumentSave( const ScriptDocument& _rDocument ) override;
 198     virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ) override;
 199     virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ) override;
 200     virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ) override;
 201     virtual void onDocumentClosed( const ScriptDocument& _rDocument ) override;
 202     virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ) override;
 203     virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ) override;
 204
 205 public:
 206     SbTreeListBox(std::unique_ptr<weld::TreeView> xControl, weld::Window* pTopLevel);
 207     virtual ~SbTreeListBox() override;
 208
 209     void            ScanEntry( const ScriptDocument& rDocument, LibraryLocation eLocation );
 210     void            ScanAllEntries();
 211     void            UpdateEntries();
 212
 213     bool            IsEntryProtected(const weld::TreeIter* pEntry);
 214
 215     void            SetMode( BrowseMode nM ) { nMode = nM; }
 216     BrowseMode      GetMode() const { return nMode; }
 217
 218     SbModule*       FindModule(const weld::TreeIter* pEntry);
 219     SbxVariable*    FindVariable(const weld::TreeIter* pEntry);
 220     bool            FindRootEntry(const ScriptDocument& rDocument, LibraryLocation eLocation, weld::TreeIter& rIter);
 221     bool            FindEntry(const OUString& rText, EntryType eType, weld::TreeIter& rIter);
 222     EntryDescriptor GetEntryDescriptor(const weld::TreeIter* pEntry);
 223
 224     static ItemType ConvertType (EntryType eType);
 225     bool            IsValidEntry(weld::TreeIter& rEntry);
 226     void AddEntry(const OUString& rText, const OUString& rImage,
 227                   const weld::TreeIter* pParent, bool bChildrenOnDemand,
 228                   std::unique_ptr<Entry>&& rUserData,
 229                   weld::TreeIter* pRet = nullptr);
 230
 231     void connect_changed(const Link<weld::TreeView&, void>& rLink) { m_xControl->connect_changed(rLink); }
 232     std::unique_ptr<weld::TreeIter> make_iterator(const weld::TreeIter* pIter = nullptr) const { return m_xControl->make_iterator(pIter); }
 233     void copy_iterator(const weld::TreeIter& rSource, weld::TreeIter& rDest) const { m_xControl->copy_iterator(rSource, rDest); }
 234     bool get_selected(weld::TreeIter* pIter) const { return m_xControl->get_selected(pIter); }
 235     void select(const weld::TreeIter& rIter) { m_xControl->select(rIter); }
 236     void unselect(const weld::TreeIter& rIter) { m_xControl->unselect(rIter); }
 237     void remove(const weld::TreeIter& rIter) { m_xControl->remove(rIter); }
 238     bool get_cursor(weld::TreeIter* pIter) const { return m_xControl->get_cursor(pIter); }
 239     void set_cursor(const weld::TreeIter& rIter) { m_xControl->set_cursor(rIter); }
 240     OUString get_text(const weld::TreeIter& rIter) const { return m_xControl->get_text(rIter); }
 241     void set_text(const weld::TreeIter& rIter, const OUString& rText) { m_xControl->set_text(rIter, rText); }
 242     OUString get_id(const weld::TreeIter& rIter) const { return m_xControl->get_id(rIter); }
 243     bool get_iter_first(weld::TreeIter& rIter) const { return m_xControl->get_iter_first(rIter); }
 244     bool iter_next_sibling(weld::TreeIter& rIter) const { return m_xControl->iter_next_sibling(rIter); }
 245     bool iter_children(weld::TreeIter& rIter) const { return m_xControl->iter_children(rIter); }
 246     bool iter_parent(weld::TreeIter& rIter) const { return m_xControl->iter_parent(rIter); }
 247     int get_iter_depth(const weld::TreeIter& rIter) const { return m_xControl->get_iter_depth(rIter); }
 248     bool get_row_expanded(const weld::TreeIter& rIter) const { return m_xControl->get_row_expanded(rIter); }
 249     void expand_row(const weld::TreeIter& rIter) { m_xControl->expand_row(rIter); }
 250     void set_size_request(int nWidth, int nHeight) { m_xControl->set_size_request(nWidth, nHeight); }
 251     float get_approximate_digit_width() const { return m_xControl->get_approximate_digit_width(); }
 252     int get_height_rows(int nRows) const { return m_xControl->get_height_rows(nRows); }
 253     int get_iter_index_in_parent(const weld::TreeIter& rIter) const { return m_xControl->get_iter_index_in_parent(rIter); }
 254     void connect_editing(const Link<const weld::TreeIter&, bool>& rStartLink,
 255                          const Link<const std::pair<const weld::TreeIter&, OUString>&, bool>& rEndLink)
 256     {
 257         m_xControl->connect_editing(rStartLink, rEndLink);
 258     }
 259
 260     void make_sorted() { m_xControl->make_sorted(); };
 261
 262     void            RemoveEntry(const weld::TreeIter& rIter);
 263     void            RemoveEntry(const ScriptDocument&);
 264
 265     OUString        GetRootEntryName(const ScriptDocument& rDocument, LibraryLocation eLocation) const;
 266     static OUString GetRootEntryBitmaps(const ScriptDocument& rDocument);
 267
 268     void            SetCurrentEntry (EntryDescriptor const &);
 269
 270     weld::TreeView& get_widget() { return *m_xControl; }
 271
 272 private:
 273     LibraryType     GetLibraryType() const;
 274 };
 275
 276 } // namespace basctl
 277
 278 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */