[squeak-dev] The Trunk: MorphicExtras-mt.173.mcz

commits at source.squeak.org commits at source.squeak.org
Sat May 7 07:57:48 UTC 2016


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



More information about the Squeak-dev mailing list