The Trunk: MorphicExtras-mt.173.mcz

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

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

Name: MorphicExtras-mt.173
Author: mt
Time: 7 May 2016, 9:56:36.895081 am
UUID: d2624879-5ddf-cf49-ae01-1803a570628b
Ancestors: MorphicExtras-tfel.172

Update fullscreen on/off calls to use DisplayScreen.

=============== Diff against MorphicExtras-tfel.172 ===============

Item was changed:
  ----- Method: ProjectNavigationMorph>>checkForRebuild (in category 'as yet unclassified') -----
  checkForRebuild
  | lastScreenMode flapsSuppressed |
 
+ lastScreenMode := DisplayScreen displayIsFullScreen.
- lastScreenMode := Project current lastScreenModeSelected.
  flapsSuppressed := Project current flapsSuppressed.
  ((self valueOfProperty: #currentNavigatorVersion) = self currentNavigatorVersion
  and: [lastScreenMode = self inFullScreenMode
  and: [flapsSuppressed = self inFlapsSuppressedMode
  and: [(self valueOfProperty: #includeSoundControlInNavigator) =
  Preferences includeSoundControlInNavigator]]]) ifFalse: [
  self
  setProperty: #includeSoundControlInNavigator
  toValue: Preferences includeSoundControlInNavigator.
  self setProperty: #flapsSuppressedMode toValue: flapsSuppressed.
  self setProperty: #showingFullScreenMode toValue: lastScreenMode.
  self setProperty: #currentNavigatorVersion toValue: self currentNavigatorVersion.
  self removeAllMorphs.
  self addButtons.
  ].
  !

Item was changed:
  ----- Method: ProjectNavigationMorph>>fullScreenOff (in category 'the actions') -----
  fullScreenOff
 
  self setProperty: #showingFullScreenMode toValue: false.
+ DisplayScreen fullScreenOff.
- Project current fullScreenOff.
  self removeProperty: #currentNavigatorVersion.
  mouseInside := false.
  !

Item was changed:
  ----- Method: ProjectNavigationMorph>>fullScreenOn (in category 'the actions') -----
  fullScreenOn
 
  self setProperty: #showingFullScreenMode toValue: true.
+ DisplayScreen fullScreenOn.
- Project current fullScreenOn.
  self removeProperty: #currentNavigatorVersion.
  mouseInside := false.
  !