add some borders here

Change-Id: Ica1f2872759366120b9329f168f18788a8e239b3

2 files changed, 9 insertions, 5 deletions

diff --git a/basctl/source/basicide/bastype2.cxx b/basctl/source/basicide/bastype2.cxx
index cb4997faa32d..b353853f54fe 100644
--- a/basctl/source/basicide/bastype2.cxx
+++ b/basctl/source/basicide/bastype2.cxx
@@ -193,8 +193,8 @@ TreeListBox::TreeListBox (Window* pParent, ResId const& rRes)
     Init();
 }
 
-TreeListBox::TreeListBox (Window* pParent)
-    : SvTreeListBox(pParent, WB_TABSTOP)
+TreeListBox::TreeListBox (Window* pParent, WinBits nStyle)
+    : SvTreeListBox(pParent, nStyle)
     , m_aNotifier( *this )
 {
     Init();
@@ -207,9 +207,13 @@ void TreeListBox::Init()
     nMode = 0xFF;   // everything
 }
 
-extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeTreeListBox(Window *pParent, VclBuilder::stringmap &)
+extern "C" SAL_DLLPUBLIC_EXPORT Window* SAL_CALL makeTreeListBox(Window *pParent, VclBuilder::stringmap &rMap)
 {
-    return new TreeListBox(pParent);
+    WinBits nWinBits = WB_TABSTOP;
+    OString sBorder = VclBuilder::extractCustomProperty(rMap);
+    if (!sBorder.isEmpty())
+       nWinBits |= WB_BORDER;
+    return new TreeListBox(pParent, nWinBits);
 }
 
 TreeListBox::~TreeListBox ()
diff --git a/basctl/source/basicide/bastype2.hxx b/basctl/source/basicide/bastype2.hxx
index 0484ea5b1852..90cc273e40dc 100644
--- a/basctl/source/basicide/bastype2.hxx
+++ b/basctl/source/basicide/bastype2.hxx
@@ -206,7 +206,7 @@ protected:
 
 public:
     TreeListBox(Window* pParent, const ResId& rRes);
-    TreeListBox(Window* pParent);
+    TreeListBox(Window* pParent, WinBits nStyle);
     ~TreeListBox();
 
     void            ScanEntry( const ScriptDocument& rDocument, LibraryLocation eLocation );