MenuBar Styling

[ashimo]

サンプルコードではないですが
MenuBarとSubMenuへのスキン適用はこんな感じでできました

Code:

{curl 8.0 applet}
{value
    {def menu-skin = {ShadedSkinSpec "khaki", "gold",
                         border-color = "tan",
                         rollover-border-color = "crimson",
                         margin-spec = {OffsetSpec 3pt, 3pt},
                         corner-radius = 8px
                     }
    }
    {let menu-bar:MenuBar = {MenuBar
                                skin = menu-skin,
                                {SubMenu label = "File",
                                    skin = menu-skin,
                                    {SubMenu label = "New",
                                        skin = menu-skin,
                                        {MenuAction label = "Curl"},
                                        {MenuAction label = "Text"},
                                        {MenuAction label = "Close"}
                                    }
                                },
                                {SubMenu label = "Edit",
                                    skin = menu-skin,
                                    {MenuAction label = "Cut"},
                                    {MenuAction label = "Paste"}
                                }
                            }
    }
    menu-bar
}