[squeak-dev] The Trunk: MorphicExtras-pre.239.mcz
karl ramberg
karlramberg at gmail.com
Sat Jun 9 09:19:16 UTC 2018
Also the ObjectsTool breaks if you rescale it with the halo. It does not
shrink down to fit bounds.
Best,
Karl
On Sat, Jun 9, 2018 at 12:38 AM Chris Muller <asqueaker at gmail.com> wrote:
> I was noticing that pink thing, too, and wanting to go even further.
> Would you mind if we used UserInterfaceTheme for the colors?
> On Fri, Jun 8, 2018 at 10:02 AM <commits at source.squeak.org> wrote:
> >
> > Patrick Rein uploaded a new version of MorphicExtras to project The
> Trunk:
> > http://source.squeak.org/trunk/MorphicExtras-pre.239.mcz
> >
> > ==================== Summary ====================
> >
> > Name: MorphicExtras-pre.239
> > Author: pre
> > Time: 8 June 2018, 5:01:33.701586 pm
> > UUID: d0190a6c-3ee5-824f-8bda-fee68d823a6a
> > Ancestors: MorphicExtras-pre.238
> >
> > Minor refactoring of objects tool. This moves a objects tool method from
> Morph into the ObjectsTool. Other very minor style fixes.
> >
> > =============== Diff against MorphicExtras-pre.238 ===============
> >
> > Item was changed:
> > ----- Method: BorderedMorph>>basicInitialize (in category
> '*MorphicExtras-initialization') -----
> > basicInitialize
> > "Do basic generic initialization of the instance variables"
> > +
> > super basicInitialize.
> > - ""
> > self borderInitialize!
> >
> > Item was removed:
> > - ----- Method: Morph>>highlightOnlySubmorph: (in category
> '*MorphicExtras-accessing') -----
> > - highlightOnlySubmorph: aMorph
> > - "Distinguish only aMorph with border highlighting (2-pixel wide
> red); make all my other submorphs have one-pixel-black highlighting. This
> is a rather special-purpose and hard-coded highlighting regime, of course.
> Later, if someone cared to do it, we could parameterize the widths and
> colors via properties, or some such."
> > -
> > - self submorphs do:
> > - [:m |
> > - m == aMorph
> > - ifTrue: [m borderWidth: 1; borderColor:
> Color red. m firstSubmorph color: Color red]
> > - ifFalse: [m borderWidth: 1; borderColor:
> Color black. m firstSubmorph color: Color black]
> > - ].
> > - !
> >
> > Item was added:
> > + ----- Method: ObjectsTool>>buttonActiveColor (in category 'constants')
> -----
> > + buttonActiveColor
> > +
> > + ^ Color white!
> >
> > Item was added:
> > + ----- Method: ObjectsTool>>buttonColor (in category 'constants') -----
> > + buttonColor
> > +
> > + ^ Color black!
> >
> > Item was added:
> > + ----- Method: ObjectsTool>>highlightOnlySubmorph:in: (in category
> 'tabs') -----
> > + highlightOnlySubmorph: aMorph in: anotherMorph
> > + "Distinguish only aMorph with border highlighting (2-pixel wide
> red); make all my other submorphs have one-pixel-black highlighting. This
> is a rather special-purpose and hard-coded highlighting regime, of course.
> Later, if someone cared to do it, we could parameterize the widths and
> colors via properties, or some such."
> > +
> > + anotherMorph submorphs do: [:m | | color |
> > + color := m == aMorph ifTrue: [self buttonActiveColor]
> ifFalse: [self buttonColor].
> > + m
> > + borderWidth: 1;
> > + borderColor: color.
> > + m firstSubmorph color: color]
> > + !
> >
> > Item was changed:
> > ----- Method: ObjectsTool>>installQuads:fromButton: (in category
> 'alphabetic') -----
> > installQuads: quads fromButton: aButton
> > "Install items in the bottom pane that correspond to the given
> set of quads, as triggered from the given button"
> >
> > | aPartsBin sortedQuads oldResizing |
> > aPartsBin := self partsBin.
> > oldResizing := aPartsBin vResizing.
> > aPartsBin removeAllMorphs.
> > sortedQuads := ((PartsBin translatedQuads: quads)
> > select: [ :each | Smalltalk hasClassNamed: each first ])
> > sort: [ :a :b | a third < b third ].
> > aPartsBin listDirection: #leftToRight quadList: sortedQuads.
> > + aButton ifNotNil: [self highlightOnlySubmorph: aButton in: self
> tabsPane].
> > - aButton ifNotNil: [self tabsPane highlightOnlySubmorph: aButton].
> > aPartsBin vResizing: oldResizing.
> > aPartsBin layoutChanged; fullBounds.
> > self isFlap ifFalse: [ self minimizePartsBinSize ].!
> >
> > Item was changed:
> > ----- Method: ObjectsTool>>tweakAppearanceAfterModeShift (in category
> 'initialization') -----
> > tweakAppearanceAfterModeShift
> > "After the receiver has been put into a given mode, make an
> initial selection of category, if appropriate, and highlight the mode
> button."
> > +
> > -
> > self buttonPane submorphs do:
> > [:aButton |
> > | aColor |
> > "aButton borderWidth: 1."
> > aColor := (aButton valueOfProperty: #modeSymbol)
> = modeSymbol
> > + ifTrue: [self buttonActiveColor]
> > + ifFalse: [self buttonColor].
> > - ifTrue: [Color red]
> > - ifFalse: [Color black].
> >
> > aButton firstSubmorph color: aColor.
> > + aButton borderColor: aColor].!
> > - aButton borderColor: aColor.
> > - ].!
> >
> >
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20180609/ce40eaf5/attachment.html>
More information about the Squeak-dev
mailing list
|