The Trunk: MorphicExtras-cmm.97.mcz

Chris Muller uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-cmm.97.mcz

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

Name: MorphicExtras-cmm.97
Author: cmm
Time: 9 December 2010, 4:32:15.746 pm
UUID: eab66c63-0712-4bbd-ad8c-e91cc4efc75d
Ancestors: MorphicExtras-ul.96

- When viewing a BookMorph in full-screen mode, don't show the docking bar, and center the navigation controls at the bottom of the screen.
- Honor the new color-picker preference when setting color of BookMorph pages.

=============== Diff against MorphicExtras-ul.96 ===============

Item was changed:
  ----- Method: BookMorph>>exitFullScreen (in category 'other') -----
  exitFullScreen
-
  | floater |
+ self isInFullScreenMode ifFalse: [ ^ self ].
+ self
+ setProperty: #fullScreenMode
+ toValue: false.
+ (self hasProperty: #showWorldMainDockingBarWhenNotFullScreen) ifTrue:
+ [ MorphicProject current showWorldMainDockingBar: (self valueOfProperty: #showWorldMainDockingBarWhenNotFullScreen).
+ self removeProperty: #showWorldMainDockingBarWhenNotFullScreen ].
+ floater := self
+ valueOfProperty: #floatingPageControls
+ ifAbsent: [  ].
+ floater ifNotNil:
+ [ floater delete.
+ self removeProperty: #floatingPageControls ].
+ self position: 0 @ 0.
+ self adjustCurrentPageForFullScreen!
-
- self isInFullScreenMode ifFalse: [^self].
- self setProperty: #fullScreenMode toValue: false.
- floater := self valueOfProperty: #floatingPageControls ifAbsent: [nil].
- floater ifNotNil: [
- floater delete.
- self removeProperty: #floatingPageControls.
- ].
- self position: 0@0.
- self adjustCurrentPageForFullScreen.
- !

Item was changed:
  ----- Method: BookMorph>>goFullScreen (in category 'other') -----
  goFullScreen
-
  | floater |
+ self isInFullScreenMode ifTrue: [ ^ self ].
+ self
+ setProperty: #fullScreenMode
+ toValue: true.
+ self
+ setProperty: #showWorldMainDockingBarWhenNotFullScreen
+ toValue: Project current showWorldMainDockingBar.
+ Project current showWorldMainDockingBar: false.
-
- self isInFullScreenMode ifTrue: [^self].
- self setProperty: #fullScreenMode toValue: true.
  self position: (currentPage topLeft - self topLeft) negated.
  self adjustCurrentPageForFullScreen.
  floater := self buildFloatingPageControls.
+ self
+ setProperty: #floatingPageControls
+ toValue: floater.
+ floater openInWorld!
- self setProperty: #floatingPageControls toValue: floater.
- floater openInWorld.
- !

Item was changed:
  ----- Method: BookMorph>>setPageColor (in category 'menu') -----
  setPageColor
  "Get a color from the user, then set all the pages to that color"
+ self currentPage ifNil: [ ^ self ].
+ NewColorPickerMorph useIt
+ ifTrue:
+ [ (NewColorPickerMorph
+ on: self
+ originalColor: self currentPage color
+ setColorSelector: #setAllPagesColor:) openNear: self fullBoundsInWorld ]
+ ifFalse:
+ [ ColorPickerMorph new
+ choseModalityFromPreference ;
+ sourceHand: self activeHand ;
+ target: self ;
+ selector: #setAllPagesColor: ;
+ originalColor: self currentPage color ;
+
+ putUpFor: self
+ near: self fullBoundsInWorld ]!
-
- self currentPage ifNil: [^ self].
- ColorPickerMorph new
- choseModalityFromPreference;
- sourceHand: self activeHand;
- target: self;
- selector: #setAllPagesColor:;
- originalColor: self currentPage color;
- putUpFor: self near: self fullBoundsInWorld!

Item was changed:
  ----- Method: FloatingBookControlsMorph>>step (in category 'stepping and presenter') -----
  step
 
  owner == self world ifFalse: [^ self].
  owner addMorphInLayer: self.
+ self position: (owner bottomCenter) - ((self width//2)@self height)
  !