The Trunk: Services-Base-dtl.63.mcz

David T. Lewis uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-dtl.63.mcz

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

Name: Services-Base-dtl.63
Author: dtl
Time: 24 November 2017, 6:09:46.207676 pm
UUID: 5d6623aa-6db1-45f3-9e1a-2bf881e75ccf
Ancestors: Services-Base-ul.62

Remove unnecessary references to global World.

=============== Diff against Services-Base-ul.62 ===============

Item was changed:
  ----- Method: Requestor>>getMethodBody (in category 'requests') -----
  getMethodBody
+ | m world |
- | m |
  m := FillInTheBlankMorph new.
  m setQuery: 'Please enter the full body of the method you want to define'
  initialAnswer:  self class sourceCodeTemplate
  answerExtent: 500@250
  acceptOnCR: false.
+ world := Project current world.
+ world addMorph: m centeredNear: world activeHand position.
- World addMorph: m centeredNear: World activeHand position.
  ^ m getUserResponse.!

Item was changed:
  ----- Method: Requestor>>getSelection (in category 'requests') -----
  getSelection
  "Sorry to feedle with fillInTheBlankMorph innards, but I had to"
+ | text m world |
- | text m |
  text := (MethodReference class: self getClass selector: self getSelector) sourceCode.
  m := FillInTheBlankMorph new.
  m setQuery: 'Highlight a part of the source code, and accept' initialAnswer: text
  answerExtent: 500@250
  acceptOnCR: true.
+ world := Project current world.
+ world addMorph: m centeredNear: world activeHand position.
- World addMorph: m centeredNear: World activeHand position.
  m getUserResponse.
  ^ m selection!

Item was changed:
  ----- Method: ServiceAction>>execute (in category 'executing') -----
  execute
+ ^ action valueWithRequestor: Project current world focusedRequestor!
- ^ action valueWithRequestor: World focusedRequestor!

Item was changed:
  ----- Method: ServiceAction>>executeCondition (in category 'executing') -----
  executeCondition
+ ^ [condition valueWithRequestor: Project current world focusedRequestor]
- ^ [condition valueWithRequestor: World focusedRequestor]
  on: Error
  do: [false]!