The Trunk: MorphicExtras-mt.184.mcz

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!