[Pkg] The Trunk: ST80-topa.189.mcz

[commits at source.squeak.org]

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!