Polymorph question - white background on tab group

|window tabs contentMorph |
window := StandardWindow new model: self.
window title: 'Test'.
tabs := TabGroupMorph new.
tabs addPage: EllipseMorph new label: 'Page 1'.
tabs addPage: RectangleMorph new label: 'Page 2'.
tabs selectedPageIndex: 1.
window
  addMorph: tabs
  fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@0 corner: 0 @ 0)).
window openInWorld.
^window


Why is the tab background still white and not aligned
with the parent panes color?
       
--
GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Because the #initialColorInSystemWindow returns white...

Guess it would be better to override like GroupBoxMorph ;-)

Workaround for now, put the tab group in a panel:

|window panel tabs contentMorph |
window := StandardWindow new model: self.
window title: 'Test'.
panel := PanelMorph new changeTableLayout.
tabs := TabGroupMorph new hResizing: #spaceFill; vResizing: #spaceFill.
tabs addPage: EllipseMorph new label: 'Page 1'.
tabs addPage: RectangleMorph new label: 'Page 2'.
tabs selectedPageIndex: 1.
panel addMorph: tabs.
window
  addMorph: panel
  fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@0 corner:
0 @ 0)).
window openInWorld.
^window


Regards, Gary

----- Original Message -----
From: "Torsten Bergmann" <[hidden email]>
To: <[hidden email]>
Sent: Thursday, July 08, 2010 12:36 PM
Subject: [Pharo-project] Polymorph question - white background on tab group



_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project