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 ] ] ].! |
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 |
And what happens to the old one?
Best, Marcel |
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. > |
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. >> > > |
Free forum by Nabble | Edit this page |