[squeak-dev] The Trunk: MorphicExtras-hjh.202.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 15 02:14:40 UTC 2017
David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-hjh.202.mcz
==================== Summary ====================
Name: MorphicExtras-hjh.202
Author: hjh
Time: 24 January 2017, 9:18:04.266965 pm
UUID: 790dbeec-ba66-4070-b51f-a0225aef4a9f
Ancestors: MorphicExtras-cmm.201
Maintain aspect ratio in thumbnail display of imported graphic
=============== Diff against MorphicExtras-cmm.201 ===============
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 at 0)
+ offsets: (8 @ 72 corner: 108 @ 172)).
+ self addMorph: formDisplayMorph.
- self addMorph: formDisplayMorph
- fullFrame: (LayoutFrame fractions: (0 @ 0 extent: 0 at 0)
- offsets: (8 @ 72 corner: 108 @ 172)).
self minimumExtent: 116 at 180.
target ifNotNil:
[(anIndex := formChoices indexOf: target form ifAbsent: [])
ifNotNil: [currentIndex := anIndex]].
self updateThumbnail!
More information about the Squeak-dev
mailing list
|