The Trunk: Compiler-mt.324.mcz

Marcel Taeumel uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-mt.324.mcz

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

Name: Compiler-mt.324
Author: mt
Time: 31 July 2016, 11:10:04.90449 am
UUID: f8b4e0ae-171c-8541-ae32-656183633ad6
Ancestors: Compiler-eem.323

*** Widget Refactorings and UI Themes (Part 5 of 11) ***

Some fixes and refactorings for dialogs including added support for UI theming.

=============== Diff against Compiler-eem.323 ===============

Item was changed:
  ----- Method: UndefinedVariable>>openMenuIn: (in category 'as yet unclassified') -----
  openMenuIn: aBlock
- | labels caption index |
- labels := #('yes' 'no').
- caption := name, ' appears to be
- undefined at this point.
- Proceed anyway?'.
 
+ ^ self resume: (UIManager default
+ confirm: name asText allBold, ' appears to be undefined at this point.\Proceed anyway?' withCRs
+ title: 'Undefined Variable').!
- index := aBlock value: labels value: #() value: caption.
- ^ self resume: index = 1!

Item was changed:
  ----- Method: UnknownSelector>>openMenuIn: (in category 'as yet unclassified') -----
  openMenuIn: aBlock
  | alternatives labels lines caption choice |
  alternatives := Symbol possibleSelectorsFor: name.
  labels := Array streamContents:
+ [:s | s nextPut: name; nextPutAll: alternatives].
- [:s | s nextPut: name; nextPutAll: alternatives; nextPut: 'cancel'].
  lines := {1. alternatives size + 1}.
  caption := 'Unknown selector, please\confirm, correct, or cancel' withCRs.
 
  choice := aBlock value: labels value: lines value: caption.
+
+ choice = 0 ifTrue: [^ self resume: nil].
+ choice = 1 ifTrue: [^ self resume: name asSymbol].
- choice = 0 ifTrue: [self resume: nil].
- choice = 1 ifTrue: [self resume: name asSymbol].
- choice = labels size ifTrue: [self resume: nil].
  self resume: (alternatives at: choice - 1)!

Item was changed:
  ----- Method: UnusedVariable>>openMenuIn: (in category 'as yet unclassified') -----
  openMenuIn: aBlock
+
+ self resume: (UIManager default
+ confirm: name asText allBold, ' appears to be unused in this method.\Remove it from the code?' withCRs
+ title: 'Unused Variable').!
- | index |
- index := aBlock value: #('yes' 'no')
- value: #()
- value: name, ' appears to be\unused in this method.\OK to remove it?' withCRs.
- self resume: index = 1!