Hello Squeakers,

pilfering from TestRunner's openAsMorph (squeak 3.6) I want to build
some UI, which by now only has one PluggableButtonMorph button.

As I want to change this button's label later on I made it an instance
variable of my application instead of a temp in my apps openAsMorph.

Problem is: the button ignores the setting of the colour and comes up
with Color transparent, though it accepts a new colour from from a workspace.

Some Code:
In a workspace:
app := FilesSynchronizedApp new
app openAsMorph
app firstPathButton color: app firstPathButtonColor.

This changes my button's color to green but it should be green already
as openAsMorph below already does this.

openAsMorph
        "FilesSynchronizedApp new openAsMorph"
        "stolen from TestRunner"
        "=== create my instvars ==="
        self fileTrees: (DualFiletree new).
        "=== build the parts ... ==="
        (self uiWindow: (SystemWindow labelled: self windowLabel)).
        self uiWindow model: self fileTrees.
        self firstPathButton: (PluggableButtonMorph
                                on: self
                                getState: nil
                                action: #getFirstPath
                                label: #firstPathButtonLabel).
                                
"================ the following line is ignored Why??? =============="

        self firstPathButton color: self firstPathButtonColor.
        self firstPathButton onColor: self firstPathButtonColor offColor: self firstPathButtonColor.


        "=== assemble the whole ... ==="
        uiWindow addMorph: self firstPathButton frame: (0.0 @ 0.0 extent: 1.0 @ 0.2).

        "=== open it ... ==="
        uiWindow openInWorldExtent: 400 @ 200.
"        self refreshWindow.  don't have this method yet"
        ^ uiWindow                


Best regards,

Herbert                          mailto:herbertkoenig at gmx.net