The Trunk: Morphic-mt.1405.mcz

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

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

Name: Morphic-mt.1405
Author: mt
Time: 29 March 2018, 2:34:02.381957 pm
UUID: afa48519-1b10-634d-8ffc-40ae0f4db608
Ancestors: Morphic-mt.1404

Make use of new #dyed: message in forms to dye forms.

=============== Diff against Morphic-mt.1404 ===============

Item was changed:
  ----- Method: MenuItemMorph class>>defaultSubMenuMarker (in category 'defaults') -----
  defaultSubMenuMarker
 
+ ^ MenuIcons subMenuMarker dyed: ((UserInterfaceTheme current get: #textColor for: self) ifNil: [Color black]).!
- ^ MenuIcons subMenuMarkerColorized: ((UserInterfaceTheme current get: #textColor for: self) ifNil: [Color black]).!

Item was changed:
  ----- Method: MenuItemMorph>>offImage (in category 'private') -----
  offImage
  "Return the form to be used for indicating an '<off>' marker"
 
+ ^ MenuIcons checkBoxOff dyed: (self userInterfaceTheme textColor ifNil: [Color black])!
- ^ MenuIcons checkBoxOffColorized: (self userInterfaceTheme textColor ifNil: [Color black])!

Item was changed:
  ----- Method: MenuItemMorph>>onImage (in category 'private') -----
  onImage
  "Return the form to be used for indicating an '<on>' marker"
 
+ ^ MenuIcons checkBoxOn dyed: (self userInterfaceTheme textColor ifNil: [Color black])!
- ^ MenuIcons checkBoxOnColorized: (self userInterfaceTheme textColor ifNil: [Color black])!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>squeakMenuOn: (in category 'construction') -----
  squeakMenuOn: aDockingBar
  "Private - fill the given docking bar"
 
  aDockingBar addItem: [ :item |
  item
  contents: '';
+ icon: (MenuIcons squeakLogoIcon dyed:
- icon: (MenuIcons squeakLogoIconColorized:
  (self userInterfaceTheme logoColor ifNil: [Color black]));
+ selectedIcon: (MenuIcons squeakLogoIcon dyed:
- selectedIcon: (MenuIcons squeakLogoIconColorized:
  (self userInterfaceTheme selectionLogoColor ifNil: [Color white]));
  addSubMenu: [ :menu |
  self
  aboutMenuItemOn: menu;
  updateMenuItemOn: menu.
  menu addLine.
  self
  saveMenuItemOn: menu;
  saveAsMenuItemOn: menu;
  saveAsNewVersionMenuItemOn: menu.
  menu addLine.
  self
  saveAndQuitMenuItemOn: menu;
  quitMenuItemOn: menu ] ]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') -----
  toggleFullScreenOn: aDockingBar
 
  | toggleMorph onIcon offIcon box bgColor |
+ offIcon := MenuIcons fullscreenWireframeIcon dyed:
- offIcon := MenuIcons fullscreenWireframeIconColorized:
  (self userInterfaceTheme logoColor ifNil: [Color black]).
+ onIcon := MenuIcons fullscreenWireframeIcon dyed:
- onIcon := MenuIcons fullscreenWireframeIconColorized:
  (self userInterfaceTheme selectionLogoColor ifNil: [Color white]).
  bgColor := (UserInterfaceTheme current get: #selectionColor for: #DockingBarItemMorph) ifNil: [Color blue].
 
  toggleMorph := offIcon asMorph.
 
  box := Morph new
  color: Color transparent;
  hResizing: #shrinkWrap;
  vResizing: #spaceFill;
  listCentering: #center;
  width: toggleMorph width;
  changeTableLayout;
 
  borderWidth: 1;
  borderColor: Color transparent;
  balloonText: 'toggle full screen mode' translated;
  addMorph: toggleMorph.
 
  toggleMorph setToAdhereToEdge: #rightCenter.
 
  box
  on: #mouseUp
  send: #value
  to:
  [ DisplayScreen toggleFullScreen.
  "toggleMorph image: MenuIcons smallFullscreenOffIcon" ] ;
 
  on: #mouseEnter
  send: #value
  to: [
  toggleMorph image: onIcon.
  box color: bgColor; borderColor: bgColor];
 
  on: #mouseLeave
  send: #value
  to: [
  toggleMorph image: offIcon.
  box color: Color transparent; borderColor: Color transparent].
 
  aDockingBar addMorphBack: box!

Item was changed:
  ----- Method: ThreePhaseButtonMorph class>>checkBox (in category 'instance creation') -----
  checkBox
  "Answer a button pre-initialized with checkbox images."
  | f |
  ^self new
+ onImage: (f := MenuIcons checkBoxOn dyed: Color red);
+ pressedImage: (MenuIcons checkBoxPressed dyed: Color black);
+ offImage: (MenuIcons checkBoxOff dyed: Color black);
- onImage: (f := MenuIcons checkBoxOnColorized: Color red);
- pressedImage: (MenuIcons checkBoxPressedColorized: Color black);
- offImage: (MenuIcons checkBoxOffColorized: Color black);
  extent: f extent + (2@0);
  setDefaultParameters;
  yourself
  !

Item was changed:
  ----- Method: ThreePhaseButtonMorph class>>radioButton (in category 'instance creation') -----
  radioButton
  "Answer a button pre-initialized with radiobutton images."
  | f |
  ^self new
+ onImage: (f := MenuIcons radioButtonOn dyed: Color black);
+ pressedImage: (MenuIcons radioButtonPressed dyed: Color black);
+ offImage: (MenuIcons radioButtonOff dyed: Color black);
- onImage: (f := MenuIcons radioButtonOnColorized: Color black);
- pressedImage: (MenuIcons radioButtonPressedColorized: Color black);
- offImage: (MenuIcons radioButtonOffColorized: Color black);
  extent: f extent + (2@0);
  setDefaultParameters;
  yourself
  !