[squeak-dev] The Inbox: MorphicExtras-hjh.202.mcz
H. Hirzel
hannes.hirzel at gmail.com
Tue Jan 24 20:44:52 UTC 2017
Unfortunately not a good fix. It gives an emergency evaluator.
How should a fix look like ....?
On 1/24/17, H. Hirzel <hannes.hirzel at gmail.com> wrote:
> On Tue, 24 Jan 2017 20:18:19 0000, commits at source.squeak.org
> <commits at source.squeak.org> wrote:
>> A new version of MorphicExtras was added to project The Inbox:
>> http://source.squeak.org/inbox/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
|