[squeak-dev] The Trunk: MorphicExtras-dtl.75.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 10 16:31:44 UTC 2010


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.
  !




More information about the Squeak-dev mailing list