Resolves: tdf#124984 organize basic macro new added module doesn't show up

Change-Id: I422131ab203eba62ed5cf6fb2e19e23325b43f6e
Reviewed-on: https://gerrit.libreoffice.org/71433
Tested-by: Jenkins
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
Tested-by: Caolán McNamara <caolanm@redhat.com>

basctl/source/basicide/bastype2.cxx

@@ -1351,10 +1351,11 @@ void SbTreeListBox::AddEntry(
     const OUString& rImage,
     const weld::TreeIter* pParent,
     bool bChildrenOnDemand,
-    std::unique_ptr<Entry>&& rUserData)
+    std::unique_ptr<Entry>&& rUserData,
+    weld::TreeIter* pRet)
 {
     OUString sId(OUString::number(reinterpret_cast<sal_uInt64>(rUserData.release())));
-    m_xControl->insert(pParent, -1, &rText, &sId, nullptr, nullptr, &rImage, bChildrenOnDemand, nullptr);
+    m_xControl->insert(pParent, -1, &rText, &sId, nullptr, nullptr, &rImage, bChildrenOnDemand, pRet);
 }
 
 void SbTreeListBox::SetEntryBitmaps(const weld::TreeIter& rIter, const OUString& rImage)

basctl/source/basicide/moduldlg.cxx

@@ -1116,8 +1116,8 @@ SbModule* createModImpl(weld::Window* pWin, const ScriptDocument& rDocument,
                     bool bEntry = rBasicBox.FindEntry(aModName, OBJ_TYPE_MODULE, *xEntry);
                     if (!bEntry)
                     {
-                        rBasicBox.AddEntry(aModName, RID_BMP_MODULE, xEntry.get(), false,
-                                           std::make_unique<Entry>(OBJ_TYPE_MODULE));
+                        rBasicBox.AddEntry(aModName, RID_BMP_MODULE, xSubRootEntry.get(), false,
+                                           std::make_unique<Entry>(OBJ_TYPE_MODULE), xEntry.get());
                     }
                     rBasicBox.set_cursor(*xEntry);
                     rBasicBox.select(*xEntry);

basctl/source/inc/bastype2.hxx

@@ -300,7 +300,9 @@ public:
     static ItemType ConvertType (EntryType eType);
     bool            IsValidEntry(weld::TreeIter& rEntry);
     void AddEntry(const OUString& rText, const OUString& rImage,
-                  const weld::TreeIter* pIter, bool bChildrenOnDemand, std::unique_ptr<Entry>&& rUserData);
+                  const weld::TreeIter* pParent, bool bChildrenOnDemand,
+                  std::unique_ptr<Entry>&& rUserData,
+                  weld::TreeIter* pRet = nullptr);
 
     void connect_changed(const Link<weld::TreeView&, void>& rLink) { m_xControl->connect_changed(rLink); }
     std::unique_ptr<weld::TreeIter> make_iterator(const weld::TreeIter* pIter = nullptr) const { return m_xControl->make_iterator(pIter); }