The Inbox: Morphic-tfel.390.mcz

A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-tfel.390.mcz

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

Name: Morphic-tfel.390
Author: tfel
Time: 25 March 2010, 11:14:55.843 pm
UUID: 51168667-c3e6-4655-96f1-fc79d409501e
Ancestors: Morphic-laza.389, Morphic-tfel.389

Changes to World menu
        * Dark title font
        * No more 3 shadows on drag
        * SystemWindowButtons for Pin+Close
        * Rounded corners
       
Changes to SystemWindows
        * Smaller default title font

=============== Diff against Morphic-tfel.389 ===============

Item was added:
+ ----- Method: SystemWindowButton>>unlock (in category 'accessing') -----
+ unlock
+ self restoreImage.
+ super unlock!

Item was added:
+ ----- Method: SystemWindowButton>>lock (in category 'accessing') -----
+ lock
+ self passivate.
+ super lock!

Item was changed:
  ----- Method: SystemWindow>>passivate (in category 'top window') -----
  passivate
  "Make me unable to respond to mouse and keyboard"
 
  label ifNotNil: [label color: Color darkGray].
  self setStripeColorsFrom: self paneColorToUse.
  model modelSleep.
 
- "Control boxes remain active, except in novice mode"
  self submorphsDo: [:m |
  m == labelArea ifFalse:
  [m lock]].
+
+ "Control boxes remain active, except in novice mode"
+ labelArea
+ ifNotNil: [
+ labelArea submorphsDo: [:m |
+ (Preferences noviceMode not and: [m == closeBox or: [m == collapseBox]]) ifFalse: [m lock]]]
- labelArea ifNotNil:
- [labelArea submorphsDo: [:m |
- m == label
- ifTrue: [m lock]
- ifFalse: [
- Preferences noviceMode
- ifTrue: [m lock; hide]
- ifFalse: [
- (m == closeBox or: [m == collapseBox])
- ifFalse: [m lock; hide]]]]]
  ifNil: "i.e. label area is nil, so we're titleless"
  [self adjustBorderUponDeactivationWhenLabeless].
  !

Item was changed:
  ----- Method: SystemWindow>>addLabel (in category 'label') -----
  addLabel
 
  (labelArea isNil or: [label isNil]) ifTrue: [^ self].
  labelArea
  addMorphBack: (Morph new extent: self class borderWidth @ 0);
  addMorphBack: label.
  label on: #startDrag send: #startDragFromLabel: to: self.
+ label on: #click send: #activate to: self.
  self class clickOnLabelToEdit
  ifTrue: [label on: #mouseUp send: #relabel to: self].
  self class doubleClickOnLabelToExpand
  ifTrue: [label on: #doubleClick send: #expandBoxHit to: self].!

Item was changed:
  ----- Method: SystemWindow>>addLabelArea (in category 'initialization') -----
  addLabelArea
 
+ labelArea ifNotNil: [labelArea abandon].
  labelArea := (AlignmentMorph newSpacer: Color transparent)
  vResizing: #spaceFill;
  layoutPolicy: ProportionalLayout new.
  self addMorph: labelArea.!

Item was added:
+ ----- Method: SystemWindowButton>>passivate (in category 'visual properties') -----
+ passivate
+
+ self firstSubmorph form: (self firstSubmorph form dimmed)
+ !

Item was changed:
  (PackageInfo named: 'Morphic') postscript: 'DockingBarMorph allInstances do: #delete.
+ TheWorldMainDockingBar updateInstances.
- TheWorldMainDockingBar updateInstances
  MenuMorph initializeImages.
+ Preferences setPreference: #roundedMenuCorners toValue: true.
+ Preferences setWindowTitleFontTo: (StrikeFont familyName: ''DejaVuSans'' pointSize: 10 emphasized: 1).
+ SystemWindow withAllSubclasses do: [:c | c allInstances do: [:w | w initializeLabelArea]]'!
- Preferences setPreference: #roundedMenuCorners toValue: true.'!

Item was changed:
  ----- Method: SystemWindow class>>boxExtent (in category 'preferences') -----
  boxExtent
  "answer the extent to use in all the buttons"
 
  ^ (Preferences alternativeWindowBoxesLook
  ifTrue: [18 @ 18]
+ ifFalse: [16 @ 16])!
- ifFalse: [14 @ 14])!