The Trunk: Tools-fbs.477.mcz

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]!