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" <[email protected]>
To: <[email protected]>
Sent: Thursday, July 08, 2010 12:36 PM
Subject: [Pharo-project] 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
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
