Quick menubar tweak

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Quick menubar tweak

Pavel Krivanek-3
In the current menu bar in Pharo 7 I miss launcher icons. This is a quick ad-hoc tweak how to add them:



MenubarMorph reset.

World menubar submorphs second delete.

World menubar addMorph: (SimpleButtonMorph new 
label: '|';
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.

World menubar addMorph: (IconicButton new 
target: [ Smalltalk saveSession ]; 
helpText: 'Save image';
labelGraphic: (self iconNamed: #smallSave); 
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.

World menubar addMorph: (SimpleButtonMorph new 
label: '|';
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.

World menubar addMorph: (IconicButton new 
target: [ IceTipRepositoriesBrowser  new openWithSpec ]; 
helpText: 'Iceberg';
labelGraphic: (IceTipRepositoriesBrowser icon); 
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.
World menubar addMorph: (IconicButton new 
target: [ Smalltalk tools openTestRunner ]; 
helpText: 'Test runner';
labelGraphic: ( self iconNamed: #testRunnerIcon); 
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.

World menubar addMorph: (IconicButton new 
target: [ Smalltalk tools openWorkspace  ]; 
helpText: 'Playground';
labelGraphic: ( Smalltalk tools workspace taskbarIcon); 
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.
World menubar addMorph: (IconicButton new 
target: [ Smalltalk tools browser open ]; 
helpText: 'System browser';
labelGraphic: (self iconNamed: #nautilus); 
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.

World menubar addMorph: (SimpleButtonMorph new 
label: '|';
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself) after: World menubar submorphs first.

World menubar addMorphBack: (SimpleButtonMorph new 
label: '|';
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself).

World menubar addMorphBack: (IconicButton new 
target: [ self inform: 'hello world' ]; 
helpText: 'custom action';
labelGraphic: (self iconNamed: #glamorousGo); 
actionSelector: #value; color: Color transparent; borderWidth: 0; yourself).

Reply | Threaded
Open this post in threaded view
|

Re: Quick menubar tweak

CyrilFerlicot
On 05/06/2018 13:41, Pavel Krivanek wrote:

> In the current menu bar in Pharo 7 I miss launcher icons. This is a
> quick ad-hoc tweak how to add them:
>
>
>
> MenubarMorph reset.
>
> World menubar submorphs second delete.
>
> World menubar addMorph: (SimpleButtonMorph new 
> label: '|';
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
>
> World menubar addMorph: (IconicButton new 
> target: [ Smalltalk saveSession ]; 
> helpText: 'Save image';
> labelGraphic: (self iconNamed: #smallSave); 
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
>
> World menubar addMorph: (SimpleButtonMorph new 
> label: '|';
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
>
> World menubar addMorph: (IconicButton new 
> target: [ IceTipRepositoriesBrowser  new openWithSpec ]; 
> helpText: 'Iceberg';
> labelGraphic: (IceTipRepositoriesBrowser icon); 
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
> World menubar addMorph: (IconicButton new 
> target: [ Smalltalk tools openTestRunner ]; 
> helpText: 'Test runner';
> labelGraphic: ( self iconNamed: #testRunnerIcon); 
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
>
> World menubar addMorph: (IconicButton new 
> target: [ Smalltalk tools openWorkspace  ]; 
> helpText: 'Playground';
> labelGraphic: ( Smalltalk tools workspace taskbarIcon); 
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
> World menubar addMorph: (IconicButton new 
> target: [ Smalltalk tools browser open ]; 
> helpText: 'System browser';
> labelGraphic: (self iconNamed: #nautilus); 
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
>
> World menubar addMorph: (SimpleButtonMorph new 
> label: '|';
> actionSelector: #value; color: Color transparent; borderWidth: 0;
> yourself) after: World menubar submorphs first.
>
> World menubar addMorphBack: (SimpleButtonMorph new 
> label: '|';
> actionSelector: #value; color: Color transparent; borderWidth: 0; yourself).
>
> World menubar addMorphBack: (IconicButton new 
> target: [ self inform: 'hello world' ]; 
> helpText: 'custom action';
> labelGraphic: (self iconNamed: #glamorousGo); 
> actionSelector: #value; color: Color transparent; borderWidth: 0; yourself).
>

Hi,

I just created a PR to ease the creation of separators:

https://github.com/pharo-project/pharo/pull/1486

GIF displaying the result is visible on this issue.

--
Cyril Ferlicot
https://ferlicot.fr