On Mon, Apr 23, 2012 at 8:01 PM, Christian Caldeiro <christian.caldeiro@googlemail.com> wrote:

Hi,

First of all, congratulations for the new 1.4 release.

I��m not new to Smalltalk but I am to Pharo��s UI. All I did until now in Pharo was using it as server (Seaside).

I saw some applications done with Pharo that show a menu bar at the very top of its main window (lets say, above Pharo��s logo). I��m wandering how to do that. All samples I saw (and correct me if I��m wrong) first create a new window (ie a StandardWindow) and then add the menubar and menu to it.

Any sample I can look at?

Something like that ?

|dock|

dock := DockingBarMorph new

adhereToTop;

openInWorld.

dock

addMorph: ( PluggableButtonMorph new

label: 'Hello';

model: [UIManager inform: 'Hello Pharo !'];��

actionSelector: #value);

addMorph: ( PluggableButtonMorph new

label: 'Close';

model: [dock delete];��

actionSelector: #value);

addMorph: ( MenuItemMorph new

contents: 'A menu';

subMenu: (MenuMorph new��

add: 'Hello' target: [UIManager inform: 'Hello from menu'] action: #value;

add: 'Goodbye' target: [dock delete] action: #value;

yourself)).

Laurent Laffont -��@lolgzs

Blog:��http://magaloma.blogspot.com/

Developer group:��http://www.cara74.org

Pharo Smalltalk Screencasts:��http://www.pharocasts.com/
Pharo web deployment:��http://www.alpha.smallharbour.org��

��

Thanks

Christian