The Trunk: MorphicExtras-dtl.204.mcz

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

The Trunk: MorphicExtras-dtl.204.mcz

commits-2
David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-dtl.204.mcz

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

Name: MorphicExtras-dtl.204
Author: dtl
Time: 14 March 2017, 10:16:50.397965 pm
UUID: 7c2e53a7-51da-4f94-9483-073363d7d779
Ancestors: MorphicExtras-ul.203, MorphicExtras-hjh.202

Merge MorphicExtras-hjh.202

=============== Diff against MorphicExtras-ul.203 ===============

Item was changed:
  ----- Method: GraphicalDictionaryMenu>>initializeFor:fromDictionary: (in category 'initialization') -----
  initializeFor: aTarget fromDictionary: aDictionary
  "Initialize me for a target and a dictionary."
 
  | anIndex aButton |
  self baseDictionary: aDictionary.
  target := aTarget.
  coexistWithOriginal := true.
  self extent: 210 @ 210.
  self clipSubmorphs: true.
  self layoutPolicy: ProportionalLayout new.
  aButton := (IconicButton new)
  borderWidth: 0;
  labelGraphic: (ScriptingSystem formAtKey: 'TinyMenu');
  color: Color transparent;
  actWhen: #buttonDown;
  actionSelector: #showMenu;
  target: self;
  setBalloonText: 'menu'.
  self addMorph: aButton
  fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0)
  offsets: (-50 @ 6 extent: aButton extent)).
  aButton := (SimpleButtonMorph new)
  target: self;
  borderColor: Color black;
  label: 'Prev';
  actionSelector: #downArrowHit;
  actWhen: #whilePressed;
  setBalloonText: 'show previous picture';
  yourself.
  self addMorph: aButton
  fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0)
  offsets: (-24 @ 4 extent: aButton extent)).
  aButton := (SimpleButtonMorph new)
  target: self;
  borderColor: Color black;
  label: 'Next';
  actionSelector: #upArrowHit;
  actWhen: #whilePressed;
  setBalloonText: 'show next pictutre'.
  self addMorph: aButton
  fullFrame: (LayoutFrame fractions: (0.5 @ 0 extent: 0 @ 0)
  offsets: (24 @ 4 extent: aButton extent)).
  self addMorph: ((UpdatingStringMorph new)
  contents: ' ';
  target: self;
  putSelector: #renameGraphicTo:;
  getSelector: #truncatedNameOfGraphic;
  useStringFormat;
  setBalloonText: 'The name of the current graphic';
  yourself)
  fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0)
  offsets: (10 @ 40 corner: -10 @ 60)).
  self addMorph: ((Morph new)
  extent: 100 @ 4;
  color: Color black)
  fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 1 @ 0)
  offsets: (0 @ 60 corner: 0 @ 64)).
  formDisplayMorph := (Thumbnail new)
  extent: 100 @ 100;
  useInterpolation: true;
  maxWidth: 3000 minHeight: 100;
  yourself.
+ formDisplayMorph layoutFrame:
+ (LayoutFrame fractions: (0 @ 0 extent: 0@0)
+ offsets: (8 @ 72 corner:  108 @ 172)).
+ self addMorph: formDisplayMorph.
- self addMorph: formDisplayMorph
- fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 0@0)
- offsets: (8 @ 72 corner:  108 @ 172)).
  self minimumExtent: 116@180.
  target ifNotNil:
  [(anIndex := formChoices indexOf: target form ifAbsent: [])
  ifNotNil: [currentIndex := anIndex]].
  self updateThumbnail!