The Trunk: Morphic-mt.770.mcz

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

The Trunk: Morphic-mt.770.mcz

commits-2
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.770.mcz

==================== Summary ====================

Name: Morphic-mt.770
Author: mt
Time: 6 March 2015, 8:44:10.825 am
UUID: c8483e78-e2d0-9747-9517-7b4b51ae1b6d
Ancestors: Morphic-mt.769

Convenience items added to "Windows" menu in world main docking bar to close multiple or all windows at once.

Idea: Clean up the whole world and start a new task with few clicks.

=============== Diff against Morphic-mt.769 ===============

Item was added:
+ ----- Method: TheWorldMainDockingBar>>closeAllWindows (in category 'submenu - windows') -----
+ closeAllWindows
+ self allVisibleWindows do: [:each |
+ each model canDiscardEdits ifTrue: [each delete]]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>closeAllWindowsButWorkspaces (in category 'submenu - windows') -----
+ closeAllWindowsButWorkspaces
+
+ (UserDialogBoxMorph
+ confirm: 'There might be unsaved changes.\Do you really want to close all windows\that are no workspaces?' withCRs
+ title: 'Only keep workspaces') ifTrue: [
+ self allVisibleWindows
+ reject: [:each | each model isKindOf: Workspace]
+ thenDo: [:each | [each delete] valueSupplyingAnswer: true]].!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>closeAllWindowsUnsafe (in category 'submenu - windows') -----
+ closeAllWindowsUnsafe
+
+ (UserDialogBoxMorph
+ confirm: 'There might be unsaved changes.\Do you really want to close all windows?' withCRs
+ title: 'Close All Windows') ifTrue: [
+ self allVisibleWindows do: [:each | [each delete] valueSupplyingAnswer: true]].!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') -----
  listWindowsOn: menu
 
  | windows |
  windows := SortedCollection sortBlock: [:winA :winB |
  winA model name = winB model name
  ifTrue: [winA label < winB label]
  ifFalse: [winA model name < winB model name]].
  windows addAll: self allVisibleWindows.
  windows ifEmpty: [
  menu addItem: [ :item |
  item
  contents: 'No Windows' translated;
  isEnabled: false ] ].
  windows do: [ :each |
  menu addItem: [ :item |
  item
  contents: (self windowMenuItemLabelFor: each);
  icon: (self colorIcon: each model defaultBackgroundColor);
  target: each;
  selector: #comeToFront;
  subMenuUpdater: self
  selector: #windowMenuFor:on:
  arguments: { each };
+ action: [ each activateAndForceLabelToShow; expand ] ] ].
+ menu
+ addLine;
+ add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe;
+ add: 'Close all windows w/o changes' target: self selector: #closeAllWindows;
+ add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!
- action: [ each activateAndForceLabelToShow; expand ] ] ].!


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Morphic-mt.770.mcz

Herbert König
Hi,

Am 06.03.2015 um 07:44 schrieb [hidden email]:
>
> Idea: Clean up the whole world and start a new task with few clicks.
>
>
In this case I usually open a new Project :-)

Cheers,

Herbert

Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Morphic-mt.770.mcz

marcel.taeumel (old)
And what happens to the old one?

Best,
Marcel
Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Morphic-mt.770.mcz

Herbert König
It stays open with all the tools in the state I left them. Usually I
have one Squeak project for each aspect of the software I work on. Later
I delete the entire project.

Some projects are just for (grapical) documentation or brainstorming.

BTW this is no objection to your change. Different people, different
styles of work.

Cheers,

Herbert

Am 06.03.2015 um 13:15 schrieb Marcel Taeumel:

> And what happens to the old one?
>
> Best,
> Marcel
>
>
>
> --
> View this message in context: http://forum.world.st/The-Trunk-Morphic-mt-770-mcz-tp4809874p4809967.html
> Sent from the Squeak - Dev mailing list archive at Nabble.com.
>


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Morphic-mt.770.mcz

Chris Muller-3
This is a very good function to have.  I use this function for years
to clean up the desktop so I can deploy a development image as a
"production"-use image.  I don't know if you reused the code which is
attached to the "windows..." submenu of the World menu or not, I hope
so..  :)

On Fri, Mar 6, 2015 at 6:40 AM, Herbert König <[hidden email]> wrote:

> It stays open with all the tools in the state I left them. Usually I have
> one Squeak project for each aspect of the software I work on. Later I delete
> the entire project.
>
> Some projects are just for (grapical) documentation or brainstorming.
>
> BTW this is no objection to your change. Different people, different styles
> of work.
>
> Cheers,
>
> Herbert
>
> Am 06.03.2015 um 13:15 schrieb Marcel Taeumel:
>
>> And what happens to the old one?
>>
>> Best,
>> Marcel
>>
>>
>>
>> --
>> View this message in context:
>> http://forum.world.st/The-Trunk-Morphic-mt-770-mcz-tp4809874p4809967.html
>> Sent from the Squeak - Dev mailing list archive at Nabble.com.
>>
>
>