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

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

Name: MorphicExtras-mt.184
Author: mt
Time: 24 August 2016, 10:53:41.897003 am
UUID: 79677d6b-d106-2443-aa77-d7440477a793
Ancestors: MorphicExtras-mt.183

Remove use of ColorTheme.

=============== Diff against MorphicExtras-mt.183 ===============

Item was changed:
  ----- Method: AlignmentMorphBob1>>fancyText:font:color: (in category 'as yet unclassified') -----
  fancyText: aString font: aFont color: aColor 
  	| answer tm col |
+ 	col := Preferences menuAppearance3d
- 	col := ColorTheme current dialog3DTitles
  				ifTrue: [aColor]
  				ifFalse: [aColor negated].
  	tm := TextMorph new.
  	tm beAllFont: aFont;
  		 color: col;
  		 contents: aString.
  	answer := self inAColumn: {tm}.
+ 	Preferences menuAppearance3d
- 	ColorTheme current dialog3DTitles
  		ifTrue: [""
  			tm addDropShadow.
  			tm shadowPoint: 5 @ 5 + tm bounds center].
  	tm lock.
  	^ answer!

Item was changed:
  ----- Method: GeePrinterDialogMorph>>cancelButton (in category 'as yet unclassified') -----
  cancelButton
  	^ self
  		buttonNamed: 'Cancel'
  		action: #doCancel
+ 		color: Color lightRed
- 		color: ColorTheme current cancelColor
  		help: 'Cancel this printing operation.'!

Item was changed:
  ----- Method: Morph>>dismissButton (in category '*MorphicExtras-menus') -----
  dismissButton
  	"Answer a button whose action would be to dismiss the receiver, and whose action is to send #delete to the receiver"
  
  	| aButton |
  	aButton := SimpleButtonMorph new.
  	aButton
  		target: self topRendererOrSelf;
+ 		color: Color lightRed;
+ 		borderColor: Color lightRed muchDarker;
- 		color: ColorTheme current cancelColor;
- 		borderColor: ColorTheme current cancelColor muchDarker;
  		borderWidth: 1;
  		label: 'X' font: Preferences standardButtonFont;
  		actionSelector: #delete;
  		setBalloonText: 'dismiss' translated.
  	^ aButton!

Item was changed:
  ----- Method: ObjectsTool>>initializeToStandAlone (in category 'initialization') -----
  initializeToStandAlone
  	"Initialize the receiver so that it can live as a stand-alone morph"
  	| buttonPane aBin aColor heights tabsPane |
  	self basicInitialize.
  
  	self layoutInset: 0;
  		layoutPolicy: ProportionalLayout new;
  		useRoundedCorners;
  		hResizing: #rigid;
  		vResizing: #rigid;
  		extent: (self minimumWidth @ self minimumHeight).
  
  	"mode buttons"
  	buttonPane := self paneForTabs: self modeTabs.
+ 	buttonPane color: (Color r: 1 g: 0.85 b: 0.975).
- 	buttonPane color: ColorTheme current dialogColor.
  	buttonPane
  		vResizing: #shrinkWrap;
  		setNameTo: 'ButtonPane';
  		addMorphFront: self dismissButton;
  		addMorphBack: self helpButton;
  		color: (aColor := buttonPane color) darker;
  		layoutInset: 5;
  		wrapDirection: nil;
  		width: self width;
  		layoutChanged; fullBounds.
  
  	"Place holder for a tabs or text pane"
  	tabsPane := Morph new.
  	tabsPane
+ 		color: (Color r: 1 g: 0.85 b: 0.975);
- 		color: ColorTheme current dialogColor;
  		setNameTo: 'TabPane';
  		hResizing: #spaceFill.
  
  	heights := { buttonPane height. 40 }.
  
  	buttonPane vResizing: #spaceFill.
  	self
  		addMorph: buttonPane
  		fullFrame: (LayoutFrame
  				fractions: (0 @ 0 corner: 1 @ 0)
  				offsets: (0 @ 0 corner: 0 @ heights first)).
  
  	self
  		addMorph: tabsPane
  		fullFrame: (LayoutFrame
  				fractions: (0 @ 0 corner: 1 @ 0)
  				offsets: (0 @ heights first corner: 0 @ (heights first + heights second))).
  
  	aBin := (PartsBin newPartsBinWithOrientation: #leftToRight from: #())
  		listDirection: #leftToRight;
  		wrapDirection: #topToBottom;
  		color: aColor lighter lighter;
  		setNameTo: 'Parts';
  		dropEnabled: false;
  		vResizing: #spaceFill;
  		yourself.
  
  	self
  		addMorph: aBin
  		fullFrame: (LayoutFrame
  				fractions: (0 @ 0 corner: 1 @ 1)
  				offsets: (0 @ (heights first + heights second) corner: 0 @ 0)).
  
  	self
+ 		borderWidth: 1;
+ 		borderColor: (Color r: 0.9 g: 0.801 b: 0.2);
+ 		color: (Color r: 1 g: 0.85 b: 0.975);
- 		borderWidth: ColorTheme current dialogBorderWidth;
- 		borderColor: ColorTheme current dialogBorderColor;
- 		color: ColorTheme current dialogColor;
  		setNameTo: 'Objects' translated;
  		showCategories.
  !

Item was changed:
  ----- Method: ObjectsTool>>paneForTabs: (in category 'tabs') -----
  paneForTabs: tabList 
  	"Answer a pane bearing tabs for the given list"
  	| aPane |
  	tabList do: [:t |
  			t color: Color transparent.
  			t borderWidth: 1;
  				borderColor: Color black].
  
  	aPane := AlignmentMorph newRow
+ 				color: (Color r: 1 g: 0.85 b: 0.975);
- 				color: ColorTheme current dialogColor;
  				listDirection: #leftToRight;
  				wrapDirection: #topToBottom;
  				vResizing: #spaceFill;
  				hResizing: #spaceFill;
  				cellInset: 6;
  				layoutInset: 4;
  				listCentering: #center;
  				listSpacing: #equal;
  				addAllMorphs: tabList;
  				yourself.
  
  	aPane width: self layoutBounds width.
  
  	^ aPane!