Etoys: Connectors-kfr.193.mcz

Karl Ramberg uploaded a new version of Connectors to project Etoys:
http://source.squeak.org/etoys/Connectors-kfr.193.mcz

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

Name: Connectors-kfr.193
Author: kfr
Time: 28 August 2011, 1:27:25 am
UUID: 4df7457d-fd24-f440-8242-c9ceb7c932fa
Ancestors: Connectors-kfr.192

http://tracker.squeakland.org/browse/SQ-977

=============== Diff against Connectors-kfr.192 ===============

Item was changed:
  ----- Method: NCAAConnectorMorph class>>supplementaryPartsDescriptions (in category 'new-morph participation') -----
  supplementaryPartsDescriptions
  | descriptions |
  "PartsBin clearThumbnailCache; cacheAllThumbnails"
  descriptions _ OrderedCollection new.
  descriptions addAll: {
  DescriptionForPartsBin
  formalName: 'Connector' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A basic Connector' translatedNoop
  globalReceiverSymbol: #NCAAConnectorMorph
  nativitySelector: #newStandAlone.
 
  DescriptionForPartsBin
  formalName: 'ConnectorArrow' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A basic Connector with an arrowhead' translatedNoop
  globalReceiverSymbol: #NCAAConnectorMorph
  nativitySelector: #newWithArrow.
 
  DescriptionForPartsBin
  formalName: 'Curvy Connector' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A basic Connector that bends smoothly' translatedNoop
  globalReceiverSymbol: #NCAAConnectorMorph
  nativitySelector: #newCurvyConnector.
 
  DescriptionForPartsBin
  formalName: 'Curvy ConnectorArrow' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A basic smooth Connector with an arrowhead' translatedNoop
  globalReceiverSymbol: #NCAAConnectorMorph
  nativitySelector: #newCurvyArrow.
  }.
 
  (Flaps respondsTo: #newNCPartsBinFlap) ifTrue: [
  descriptions add: (
  (DescriptionForPartsBin
  formalName: 'Button Flap' translatedNoop
  categoryList: {'Connectors' translatedNoop}
+ documentation: 'A blank button flap' translatedNoop
- documentation: 'A blank buttton flap' translatedNoop
  globalReceiverSymbol: #Flaps
  nativitySelector: #newNCPartsBinFlap)
  sampleImageForm: self buttonFlapImage; yourself) ].
 
  (Flaps respondsTo: #newConnectorsFlap) ifTrue: [
  descriptions add: (
  (DescriptionForPartsBin
  formalName: 'Connectors Flap' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A pre-loaded Connectors flap' translatedNoop
  globalReceiverSymbol: #Flaps
  nativitySelector: #newConnectorsFlap)
  sampleImageForm: self connectorsFlapImage; yourself) ].
 
  Smalltalk at: #NCMakerButton ifPresent: [ :ncmb |
  descriptions addAll: {
  DescriptionForPartsBin
  formalName: 'Connector Button' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A Maker Button with a Connector loaded' translatedNoop
  globalReceiverSymbol: #NCAAConnectorMorph
  nativitySelector: #newMakerButton.
  DescriptionForPartsBin
  formalName: 'Random Connectors' translatedNoop
  categoryList: {'Connectors' translatedNoop}
  documentation: 'A button that makes fancy Connectors at random' translatedNoop
  globalReceiverSymbol: #NCAAConnectorMorph
  nativitySelector: #newRandomButton.
  }
  ].
  ^descriptions
  !

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