[Pkg] The Trunk: Tools-fbs.477.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 2 19:43:42 UTC 2013


Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.477.mcz

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

Name: Tools-fbs.477
Author: fbs
Time: 2 July 2013, 8:43:03.913 pm
UUID: e1e06342-faa6-ad4e-9562-be1a71871fe9
Ancestors: Tools-fbs.476

Move Tools' MVC extensions to a separate package, ST80Tools. This makes Tools independent of MVC, at the cost of requiring an extra package to reload/unload MVC.

=============== Diff against Tools-fbs.476 ===============

Item was changed:
  ----- Method: Browser>>dragFromClassList: (in category 'drag and drop') -----
  dragFromClassList: index 
  	"Drag a class from the browser"
  	| name envt |
  	(name := self classList at: index) ifNil: [ ^ nil ].
  	(envt := self selectedEnvironment) ifNil: [ ^ nil ].
+ 	"To maintain our current place in the list, try select the next class."
+ 	(self classList size = 1) ifTrue: [self selectClassNamed: self classList first].
+ 	(self classList size > 2) ifTrue: [ | currClassName classNames |
+ 		currClassName :=  self selectedClassName.
+ 		classNames := self classList.
+ 		self selectClassNamed: (currClassName = classNames last
+ 			ifTrue: [self classList before: currClassName]
+ 			ifFalse: [self classList after: currClassName])].
  	^ envt
  		at: name withBlanksTrimmed asSymbol
  		ifAbsent: [  ]!

Item was removed:
- ----- Method: ParagraphEditor>>browseChangeSetsWithSelector (in category '*Tools') -----
- browseChangeSetsWithSelector
- 	"Determine which, if any, change sets have at least one change for the selected selector, independent of class"
- 
- 	| aSelector |
- 	self lineSelectAndEmptyCheck: [^ self].
- 	(aSelector := self selectedSelector) == nil ifTrue: [^ view flash].
- 	self terminateAndInitializeAround: [ChangeSorter browseChangeSetsWithSelector: aSelector]!

Item was removed:
- ----- Method: ParagraphEditor>>browseItHere (in category '*Tools') -----
- browseItHere
- 	"Retarget the receiver's window to look at the selected class, if appropriate.  3/1/96 sw"
- 	| aSymbol b |
- 	(((b := model) isKindOf: Browser) and: [b couldBrowseAnyClass])
- 		ifFalse: [^ view flash].
- 	model okToChange ifFalse: [^ view flash].
- 	self selectionInterval isEmpty ifTrue: [self selectWord].
- 	(aSymbol := self selectedSymbol) ifNil: [^ view flash].
- 
- 	self terminateAndInitializeAround:
- 		[| foundClass |
- 		foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]).
- 			foundClass ifNil: [^ view flash].
- 			(foundClass isKindOf: Class)
- 				ifTrue:
- 					[model selectSystemCategory: foundClass category.
- 		model classListIndex: (model classList indexOf: foundClass name)]]!

Item was removed:
- ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') -----
- debug: aCompiledMethod receiver: anObject in: evalContext
- 
- 	| guineaPig debugger context |
- 	guineaPig := [
- 		aCompiledMethod
- 			valueWithReceiver: anObject
- 			 arguments: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) ] newProcess.
- 	context := guineaPig suspendedContext.
- 	debugger := Debugger new
- 		process: guineaPig
- 		controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess])
- 				ifTrue: [ScheduledControllers activeController]
- 				ifFalse: [nil])
- 		context: context.
- 	debugger openFullNoSuspendLabel: 'Debug it'.
- 	[debugger interruptedContext method == aCompiledMethod]
- 		whileFalse: [debugger send]!

Item was removed:
- ----- Method: ParagraphEditor>>debugIt (in category '*Tools') -----
- debugIt
- 
- 	| method receiver context |
- 	(model respondsTo: #doItReceiver) 
- 		ifTrue: 
- 			[receiver := model doItReceiver.
- 			context := model doItContext]
- 		ifFalse:
- 			[receiver := context := nil].
- 	self lineSelectAndEmptyCheck: [^self].
- 	method := self compileSelectionFor: receiver in: context.
- 	method notNil ifTrue:
- 		[self debug: method receiver: receiver in: context].!

Item was removed:
- ----- Method: ScreenController>>browseRecentLog (in category '*Tools') -----
- browseRecentLog
- 	"Open a changelist browser on changes submitted since the last snapshot.  1/17/96 sw"
- 
- 	ChangeList browseRecentLog!

Item was removed:
- ----- Method: ScreenController>>chooseDirtyBrowser (in category '*Tools') -----
- chooseDirtyBrowser
- 	"Put up a list of browsers with unsubmitted edits and activate the one selected by the user, if any."
- 	"ScheduledControllers screenController chooseDirtyBrowser"
- 
- 	ScheduledControllers findWindowSatisfying:
- 		[:c | (c model isKindOf: Browser) and: [c model canDiscardEdits not]].
-  !

Item was removed:
- ----- Method: ScreenController>>openChangeManager (in category '*Tools') -----
- openChangeManager
- 	"Open a dual change sorter.  For looking at two change sets at once."
- 	DualChangeSorter new open!

Item was removed:
- ----- Method: ScreenController>>openFile (in category '*Tools') -----
- openFile
- 	FileList openFileDirectly!

Item was removed:
- ----- Method: ScreenController>>openFileList (in category '*Tools') -----
- openFileList
- 	"Create and schedule a FileList view for specifying files to access."
- 
- 	FileList open!

Item was removed:
- ----- Method: ScreenController>>openPackageBrowser (in category '*Tools') -----
- openPackageBrowser 
- 	"Create and schedule a Browser view for browsing code."
- 
- 	PackagePaneBrowser openBrowser!

Item was removed:
- ----- Method: ScreenController>>openSelectorBrowser (in category '*Tools') -----
- openSelectorBrowser
- 	"Create and schedule a selector fragment window."
- 
- 	SelectorBrowser new open!

Item was removed:
- ----- Method: ScreenController>>openSimpleChangeSorter (in category '*Tools') -----
- openSimpleChangeSorter
- 	ChangeSorter new open!

Item was removed:
- ----- Method: StringHolderView>>canHaveUnacceptedEdits (in category '*Tools-multi-window support') -----
- canHaveUnacceptedEdits
- 	"Answer if the receiver is an object that can hold unaccepted edits (such as a text editor widget)"
- 
- 	^true!

Item was removed:
- ----- Method: StringHolderView>>unacceptedEditState (in category '*Tools-multi-window support') -----
- unacceptedEditState
- 	^hasUnacceptedEdits ifTrue: [displayContents text]!

Item was removed:
- ----- Method: StringHolderView>>unacceptedEditState: (in category '*Tools-multi-window support') -----
- unacceptedEditState: stateOrNil
- 	(hasUnacceptedEdits := stateOrNil notNil) ifTrue:
- 		[self editString: stateOrNil]!



More information about the Packages mailing list