The Trunk: ST80-topa.189.mcz

Tobias Pape uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-topa.189.mcz

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

Name: ST80-topa.189
Author: topa
Time: 20 October 2015, 10:44:13.911 am
UUID: 33441d36-5afd-43db-9708-dbbe07425792
Ancestors: ST80-topa.188

React to deprecations, renames, and missing methods

=============== Diff against ST80-topa.188 ===============

Item was added:
+ ----- Method: Controller>>closeAndUnscheduleNoTerminate (in category 'as yet unclassified') -----
+ closeAndUnscheduleNoTerminate
+ !

Item was changed:
  ----- Method: Debugger>>mvcResumeProcess: (in category '*ST80-opening') -----
  mvcResumeProcess: aTopView
 
  aTopView erase.
  savedCursor
+ ifNotNil: [Cursor currentCursor: savedCursor].
- ifNotNil: [Sensor currentCursor: savedCursor].
  interruptedProcess isTerminated ifFalse: [
  ScheduledControllers activeControllerNoTerminate: interruptedController andProcess: interruptedProcess].
  "if old process was terminated, just terminate current one"
  interruptedProcess := nil. "Before delete, so release doesn't terminate it"
  aTopView controller closeAndUnscheduleNoErase.
  Smalltalk installLowSpaceWatcher. "restart low space handler"
  Processor terminateActive
  !

Item was changed:
  ----- Method: ParagraphEditor>>browseClassFromIt (in category 'menu messages') -----
  browseClassFromIt
  "Launch a browser for the class indicated by the current selection.
  If multiple classes matching the selection exist, let the user choose among them."
  | aClass |
  self
  lineSelectAndEmptyCheck: [^ self].
+ aClass := UIManager default
+ classFromPattern: self selection string
- aClass := Utilities
- classFromPattern: (self selection string copyWithoutAll: CharacterSet separators)
  withCaption: 'choose a class to browse...'.
  aClass
  ifNil: [^ view flash].
  self
  terminateAndInitializeAround:
  [| aBrow |
  aBrow := SystemBrowser default new.
  aBrow setClass: aClass selector: nil.
  aBrow class
  openBrowserView: (aBrow openEditString: nil) label: 'System Browser'].!

Item was changed:
  ----- Method: PluggableButtonView>>getModelState (in category 'private') -----
  getModelState
  "Answer the result of sending the receiver's model the getStateSelector message."
 
+ (model isNil or: [getStateSelector isNil])
- getStateSelector == nil
  ifTrue: [^ false]
  ifFalse: [^ model perform: getStateSelector].
  !

Item was changed:
  ----- Method: ScreenController>>configureFonts (in category 'menu messages') -----
  configureFonts
+ | aMenu result |
+ aMenu := CustomMenu fromArray: #(
+ ('default text font...'  chooseSystemFont)
+ ('list font'  chooseListFont)
+ ('flaps font'  chooseFlapsFont)
+ ('menu font'  chooseMenuFont)
+ ('window-title font'  chooseWindowTitleFont)
+ ('code font'  chooseCodeFont)
+ -
+ ('restore default font choices'  restoreDefaultFonts)).
+ aMenu title: 'Standard System Fonts'.
+
+ (result := aMenu startUp) ifNotNil:
+ [Preferences perform: result].!
- Preferences presentMvcFontConfigurationMenu!

Item was changed:
  ----- Method: View>>setDefaultBackgroundColor (in category 'initialize-release') -----
  setDefaultBackgroundColor
+ "Obtain the background color from the receiver's model.
+ The preferences make sure whether this is a colorful or uniform
+ look."
- "Obtain the background color from the receiver's model, unless the #uniformWindowColors preference is set to true, in which case obtain it from generic Object; and install it as the receiver's background color.  5/1/96 sw"
 
+ self backgroundColor: model defaultBackgroundColor!
- | colorToUse |
- colorToUse := Preferences uniformWindowColors
- ifTrue:
- [Object new defaultBackgroundColor]
- ifFalse:
- [model defaultBackgroundColor].
- self backgroundColor: colorToUse!