[etoys-dev] Etoys Inbox: Connectors-tfel.205.mcz

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[etoys-dev] Etoys Inbox: Connectors-tfel.205.mcz

commits-2
A new version of Connectors was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Connectors-tfel.205.mcz

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

Name: Connectors-tfel.205
Author: tfel
Time: 3 August 2016, 9:20:08.126422 am
UUID: 7b679725-7e77-aa45-8c34-778482c39a5a
Ancestors: Connectors-tfel.204

replace EmptyArray

=============== Diff against Connectors-kfr.201 ===============

Item was changed:
  ----- Method: Morph>>connectedConstraints (in category '*connectors-queries') -----
  connectedConstraints
  "Answer the constraints that have me as an input"
  | retval ccs |
+ ccs _ self valueOfProperty: #connectedConstraints ifAbsent: [ ^ #() ].
- ccs _ self valueOfProperty: #connectedConstraints ifAbsent: [ ^EmptyArray ].
  retval _ IdentitySet new: ccs size.
  ccs do: [ :ea | ea notNil ifTrue: [ retval add: ea ]].
  retval isEmpty ifTrue: [ self removeProperty: #connectedConstraints ].
  ^retval!

Item was changed:
  ----- Method: Morph>>connectedMorphs (in category '*connectors-queries') -----
  connectedMorphs
  "Answer all the morphs I am connected to (empty unless I'm a connector)"
+ ^ #()!
- ^EmptyArray!

Item was removed:
- ----- Method: Morph>>isSelectionMorph (in category '*connectors-testing') -----
- isSelectionMorph
- ^false!

Item was added:
+ ----- Method: NCAttachmentPointAdjusterWindow>>windowColorToUse (in category 'as yet unclassified') -----
+ windowColorToUse
+
+ ^ self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]!

Item was changed:
  ----- Method: NCConstraintMorph>>initialize (in category 'initialization') -----
  initialize
  super initialize.
+ inputs _ #().
- inputs _ EmptyArray.
  dieWithInput _ false.
  self lastTargetPoint: 0@0.
  self
  stepTime: self minimumStepTime;
  color: Color red;
  extent: 10@10;
  connectToNearestAttachmentPoint.
  !

Item was changed:
  ----- Method: NCConstraintMorph>>lastTargetPoint (in category 'accessing') -----
  lastTargetPoint
+ ^lastTarget ifNil: [ lastTarget _ 0@0 ]!
- ^lastTarget ifNil: [ lastTarget_ 0@0 ]!

Item was added:
+ ----- Method: NCGlyphEditor>>windowColorToUse (in category 'as yet unclassified') -----
+ windowColorToUse
+
+ ^ self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]!

Item was removed:
- ----- Method: ObjectPropertiesMorph>>rebuild (in category '*connectors-visual properties') -----
- rebuild
- "Rebuild the contents of the property sheet."
-
- | buttons |
- self removeAllMorphs.
- self addARow: {
- self lockedString: ('Properties for {1}' translated format: {myTarget topRendererOrSelf externalName}).
- }.
- " self addARow: {
- self inAColumn: {
- self paneForCornerRoundingToggle.
- self paneForStickinessToggle.
- self paneForLockedToggle.
- }.
- }."
-
- self addARow: {
- self paneForMainColorPicker },
- (simplePanel
- ifFalse:[{self paneFor2ndGradientColorPicker}]
- ifTrue:[{}]).
- simplePanel ifFalse:[
- (myTarget isMorph and: [myTarget isWorldMorph]) ifFalse:
- [self addARow: {
- self paneForBorderColorPicker.
- self paneForShadowColorPicker}]].
-
- buttons _ OrderedCollection new.
- buttons addAll: {
- self
- buttonNamed: 'Accept' translated action: #doAccept color: color lighter
- help: 'keep changes made and close panel' translated.
- self
- buttonNamed: 'Cancel' translated action: #doCancel color: color lighter
- help: 'cancel changes made and close panel' translated.
- }.
- simplePanel ifTrue:[buttons addAll:{self
- buttonNamed: 'More controls' translated action: #toggleSimplePanel color: color lighter help: 'add controls for gradient and border to the panel' translated}]
- ifFalse:[buttons addAll:{self
- buttonNamed: 'Fewer controls' translated action: #toggleSimplePanel color: color lighter help: 'show only color picker for solid color' translated}].
- self addOptionalButtonsTo: buttons.
- self addARow: buttons.
-
- thingsToRevert _ Dictionary new.
- thingsToRevert at: #fillStyle: put: myTarget fillStyle.
- myTarget isSystemWindow ifTrue: [
- thingsToRevert at: #setWindowColor: put: myTarget paneColorToUse
- ].
- thingsToRevert at: #hasDropShadow: put: myTarget hasDropShadow.
- thingsToRevert at: #shadowColor: put: myTarget shadowColor.
- (myTarget respondsTo: #borderColor:) ifTrue: [
- thingsToRevert at: #borderColor: put: myTarget borderColor.
- ].
-
- thingsToRevert at: #borderWidth: put: myTarget borderWidth.
- thingsToRevert at: #cornerStyle: put: myTarget cornerStyle.
- thingsToRevert at: #sticky: put: myTarget isSticky.
- thingsToRevert at: #lock: put: myTarget isLocked.
- !

Item was removed:
- ----- Method: SelectionMorph>>isSelectionMorph (in category '*connectors-testing') -----
- isSelectionMorph
- ^true!

Item was removed:
- ----- Method: TextMorph class>>boldAuthoringPrototype (in category '*connectors-text-parts bin') -----
- boldAuthoringPrototype
- "TextMorph boldAuthoringPrototype openInHand"
- | text style index baseFont textMorph |
- text := Text fromString: 'Text' translated.
- baseFont _ Preferences standardEToysFont.
- style _ baseFont textStyle.
- index _ style fontIndexOfPointSize: 24.
- text addAttribute: (TextFontChange fontNumber: index).
- textMorph := self new
- contentsWrapped: text;
- setTextStyle: style;
- margins: 0@0;
- yourself.
- "Too ugly dirty hack"
- textMorph wrapFlag: false.
- textMorph fit.
- textMorph usePango ifTrue: [textMorph wrapFlag: true].
- ^ textMorph
- !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev