https://bugs.documentfoundation.org/show_bug.cgi?id=87884

--- Comment #9 from Volker Lenhardt <volker.lenha...@uni-due.de> ---
I was wrong. This is the part of my code showing one tab page (of two), with
one button control within:

  oTabContainerModel =
oDialogModel.CreateInstance("com.sun.star.awt.tab.UnoControlTabPageContainerModel")

  With oTabContainerModel
    .Name = "Tab"
    .PositionX = 6
    .PositionY = 10
    .Width = 145
    .Height = 100
    .TabIndex = 2
    .Border = 1
    .BackgroundColor =  RGB(255, 255, 255)
  End With

  oDialogModel.insertByName("tab", oTabContainerModel)
  oTabPage1 = CreateUnoService("com.sun.star.awt.tab.UnoControlTabPage")

  args = Array(1)
  oTabPageModel1 =
oDialogModel.createInstance("com.sun.star.awt.tab.UnoControlTabPageModel")
  oTabPageModel1.initialize(args)
  oTabPageModel1.Title = "Page 1"
  oTabPageModel1.Name = "Tab1"

  oTabPage1.setModel(oTabPageModel1)
  oTabContainerModel.insertByIndex(0, oTabPageModel1)

  oButton1 = CreateUnoService("com.sun.star.awt.UnoControlButton")

  oButtonModel1 =
oTabPageModel1.createInstance("com.sun.star.awt.UnoControlButtonModel")
  With oButtonModel1
    .PositionX = 10
    .PositionY = 10
    .Width = 30
    .Height = 15
    .Label = "Button 1"
  End With

  oButton1.setModel(oButtonModel1)
  oTabPage1.addControl("Tab 1", oButton1)
  Print oTabPage1.Controls(0).Model.Label  ' shows "Button 1"

The tab pages are displayed, but not the buttons, even though they are there in
the tab pages.

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to