[squeak-dev] The Inbox: Morphic-tfel.390.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Mar 25 22:29:59 UTC 2010
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])!
More information about the Squeak-dev
mailing list
|