The Trunk: MorphicExtras-dtl.75.mcz

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-dtl.75.mcz

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

Name: MorphicExtras-dtl.75
Author: dtl
Time: 10 February 2010, 11:29:22.13 am
UUID: 649e0ec5-d1c8-458a-9443-234236d7be67
Ancestors: MorphicExtras-dtl.74

Remove MVC dependencies from ProjectNavigationMorph.
Move #fullScreenOn and #fullScreenOff from MVC ScreenController to Project

=============== Diff against MorphicExtras-dtl.74 ===============

Item was changed:
  ----- Method: ProjectNavigationMorph>>checkForRebuild (in category 'as yet unclassified') -----
  checkForRebuild
  | lastScreenMode flapsSuppressed |
 
+ lastScreenMode := Project current lastScreenModeSelected.
- lastScreenMode := ScreenController lastScreenModeSelected ifNil: [false].
  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.
+ Project current fullScreenOff.
- ScreenController new fullScreenOff.
  self removeProperty: #currentNavigatorVersion.
  mouseInside := false.
  !

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