[prev in list] [next in list] [prev in thread] [next in thread] 

List:       squeak-dev
Subject:    [squeak-dev] The Trunk: Tools-eem.850.mcz
From:       commits () source ! squeak ! org
Date:       2019-06-26 0:18:08
Message-ID: E1hfvda-0006pE-OK () andreas
[Download RAW message or body]

Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.850.mcz

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

Name: Tools-eem.850
Author: eem
Time: 25 June 2019, 5:18:05.566171 pm
UUID: b7d094a0-96cf-431e-b190-f211f020265f
Ancestors: Tools-mt.849

Add a 'select all before' option for the change list.  Very useful in the scenario \
where one updates the system, saves some packages, does some work, and then gets a \
crash.  On restart one opens the change list on recent changes.  Then reload any \
saved packages and/or update teh system.  Then locate the first change where one \
started working, select all changes before this, delete, and now the change list \
contains only one's new work.  Save and then work through restoring one's changes.

=============== Diff against Tools-mt.849 ===============

Item was changed:
  ----- Method: ChangeList>>mainChangeListMenu: (in category 'menu actions') -----
  mainChangeListMenu: aMenu
  	"Fill aMenu up so that it comprises the primary changelist-browser menu"
  	<changeListMenu>
  
  	aMenu addTitle: 'change list'.
  	aMenu addStayUpItemSpecial.
  
  	aMenu addList: #(
  
  	('fileIn selections'							fileInSelections						'import the selected items into \
the image')  ('fileOut selections...'						fileOutSelections						'create a new file \
                containing the selected items')
  	-
  	('compare to current'						compareToCurrentVersion			'open a separate window which \
shows the text differences between the on-file version and the in-image version.' )  \
('toggle diffing (D)'							toggleDiffing						'start or stop showing diffs in the \
                code pane.')
  	-
  	('select conflicts with any changeset'		selectAllConflicts					'select methods in \
the file which also occur in any change-set in the system')  ('select conflicts with \
current changeset'	selectConflicts						'select methods in the file which also occur \
in the current change-set')  ('select conflicts \
with...'						selectConflictsWith					'allows you to designate a file or change-set \
                against which to check for code conflicts.')
  	-
  	('select unchanged definitions'				selectUnchangedDefinitions			'select class \
definitions, class comments and methods in the file whose in-image versions are the \
same as their in-file counterparts' )  ('select unchanged \
methods'					selectUnchangedMethods				'select methods in the file whose in-image \
versions are the same as their in-file counterparts' )  ('select new \
methods'						selectNewMethods					'select methods in the file that do not current \
occur in the image')  ('select methods for this \
class'				selectMethodsForThisClass			'select all methods in the file that belong to \
the currently-selected class')  ('select methods for extant \
classes'			selectMethodsForExtantClasses		'select all methods in the file that belong \
to a class that exists in the image')  ('select changes with contents \
matching'		selectContentsMatching				'select all changes in the file whose text \
includes a pattern')  
  	-
  	('select all (a)'								selectAll								'select all the items in the list')
  	('deselect all'								deselectAll							'deselect all the items in the list')
  	('invert selections'							invertSelections						'select every item that is not \
currently selected, and deselect every item that *is* currently selected') + \
('select all before'							selectAllBefore							'select every item before the \
                current selection')
  	-
  	('browse all versions of single selection'			browseVersions		'open a version \
browser showing the versions of the currently selected method')  ('browse all \
versions of selections'			browseAllVersionsOfSelections		'open a version browser \
showing all the versions of all the selected methods')  ('browse current versions of \
selections'		browseCurrentVersionsOfSelections	'open a message-list browser showing \
the current (in-image) counterparts of the selected methods')  ('destroy current \
methods of selections'		destroyCurrentCodeOfSelections		'remove (*destroy*) the \
                in-image counterparts of all selected methods')
  	-
  	('remove doIts'								removeDoIts							'remove all items that are doIts rather \
than methods')  ('remove older versions'						removeOlderMethodVersions			'remove all \
but the most recent versions of methods in the list')  ('remove up-to-date \
versions'				removeExistingMethodVersions		'remove all items whose code is the same \
as the counterpart in-image code')  ('remove selected \
items'						removeSelections					'remove the selected items from the change-list')  \
('remove unselected items'					removeNonSelections					'remove all the items not \
currently selected from the change-list')).  
  	^ aMenu
  
  !

Item was added:
+ ----- Method: ChangeList>>selectAllBefore (in category 'menu actions') -----
+ selectAllBefore
+ 	listIndex <= 1 ifTrue:
+ 		[Project current beep.
+ 		 ^self changed: #flash].
+ 	listSelections atAll: (1 to: listIndex - 1) put: true.
+ 	self changed: #allSelections!


[prev in list] [next in list] [prev in thread] [next in thread]