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!