[squeak-dev] The Trunk: MorphicExtras-kfr.167.mcz

karl ramberg karlramberg at gmail.com
Thu Nov 19 20:03:33 UTC 2015


Not sure if it is to be deprecated, so I played it safe.
Maybe some somewhere depends on it....

Best,
Karl

On Thu, Nov 19, 2015 at 9:00 PM, Tobias Pape <Das.Linux at gmx.de> wrote:

> Hi Karl,
>
> On 19.11.2015, at 19:55, commits at source.squeak.org wrote:
>
> > Karl Ramberg uploaded a new version of MorphicExtras to project The
> Trunk:
> > http://source.squeak.org/trunk/MorphicExtras-kfr.167.mcz
> >
> > ==================== Summary ====================
> >
> > Name: MorphicExtras-kfr.167
> > Author: kfr
> > Time: 19 November 2015, 8:55:15.765 pm
> > UUID: d101e159-825d-4c86-a582-8bd22029b3bf
> > Ancestors: MorphicExtras-mt.166
> >
> > ProgressMorph and ProgressBarMorph are not used as widgets. Moved to
> MorphicExtras-Obsolete
>
> is that meant as a deprecation?
> If so, I'd suggest putting them into 51Deprecated-MorphicExtras.
>
> Best regards
>         -Tobias
>
> >
> > =============== Diff against MorphicExtras-mt.166 ===============
> >
> > Item was added:
> > + BorderedMorph subclass: #ProgressBarMorph
> > +     instanceVariableNames: 'value progressColor lastValue'
> > +     classVariableNames: ''
> > +     poolDictionaries: ''
> > +     category: 'MorphicExtras-Obsolete'!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>addCustomMenuItems:hand: (in category
> 'menu') -----
> > + addCustomMenuItems: aCustomMenu hand: aHandMorph
> > +     super addCustomMenuItems: aCustomMenu hand: aHandMorph.
> > +     aCustomMenu addList: {
> > +             {'progress color...' translated. #changeProgressColor:}.
> > +             {'progress value...' translated. #changeProgressValue:}.
> > +             }!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>changeProgressColor: (in category
> 'menu') -----
> > + changeProgressColor: evt
> > +     | aHand |
> > +     aHand := evt ifNotNil: [evt hand] ifNil: [self primaryHand].
> > +     self changeColorTarget: self selector: #progressColor:
> originalColor: self progressColor hand: aHand.!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>changeProgressValue: (in category
> 'menu') -----
> > + changeProgressValue: evt
> > +     | answer |
> > +     answer := UIManager default
> > +             request: 'Enter new value (0 - 1.0)'
> > +             initialAnswer: self value contents asString.
> > +     answer isEmptyOrNil ifTrue: [^ self].
> > +     self value contents: answer asNumber!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>drawOn: (in category 'drawing') -----
> > + drawOn: aCanvas
> > +     | width inner |
> > +     super drawOn: aCanvas.
> > +     inner := self innerBounds.
> > +     width := (inner width * lastValue) truncated min: inner width.
> > +     aCanvas fillRectangle: (inner origin extent: width @ inner height)
> color: progressColor.!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>initialize (in category
> 'initialization') -----
> > + initialize
> > +     super initialize.
> > +     progressColor := Color green.
> > +     self value: (ValueHolder new contents: 0.0).
> > +     lastValue := 0.0!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>progressColor (in category
> 'accessing') -----
> > + progressColor
> > +     ^progressColor!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>progressColor: (in category
> 'accessing') -----
> > + progressColor: aColor
> > +     progressColor = aColor
> > +             ifFalse:
> > +                     [progressColor := aColor.
> > +                     self changed]!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>update: (in category 'updating') -----
> > + update: aSymbol
> > +     aSymbol == #contents
> > +             ifTrue:
> > +                     [lastValue := value contents.
> > +                     self changed]!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>value (in category 'accessing') -----
> > + value
> > +     ^value!
> >
> > Item was added:
> > + ----- Method: ProgressBarMorph>>value: (in category 'accessing') -----
> > + value: aModel
> > +     value ifNotNil: [value removeDependent: self].
> > +     value := aModel.
> > +     value ifNotNil: [value addDependent: self]!
> >
> > Item was added:
> > + RectangleMorph subclass: #ProgressMorph
> > +     instanceVariableNames: 'labelMorph subLabelMorph progress'
> > +     classVariableNames: ''
> > +     poolDictionaries: ''
> > +     category: 'MorphicExtras-Obsolete'!
> >
> > Item was added:
> > + ----- Method: ProgressMorph class>>example (in category 'example')
> -----
> > + example
> > +     "ProgressMorph example"
> > +
> > +     | progress |
> > +     progress := ProgressMorph label: 'Test progress'.
> > +     progress subLabel: 'this is the subheading'.
> > +     progress openInWorld.
> > +     [10 timesRepeat:
> > +             [(Delay forMilliseconds: 200) wait.
> > +             progress incrDone: 0.1].
> > +     progress delete] fork!
> >
> > Item was added:
> > + ----- Method: ProgressMorph class>>label: (in category 'instance
> creation') -----
> > + label: aString
> > +     ^self new label: aString!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>done (in category 'accessing') -----
> > + done
> > +     ^self progress value contents!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>done: (in category 'accessing') -----
> > + done: amountDone
> > +     self progress value contents: ((amountDone min: 1.0) max: 0.0).
> > +     self currentWorld displayWorld!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>fontOfPointSize: (in category 'private')
> -----
> > + fontOfPointSize: size
> > +     ^ (TextConstants at: Preferences standardEToysFont familyName
> ifAbsent: [TextStyle default]) fontOfPointSize: size!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>incrDone: (in category 'accessing') -----
> > + incrDone: incrDone
> > +     self done: self done + incrDone!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>initLabelMorph (in category
> 'initialization') -----
> > + initLabelMorph
> > +     ^ labelMorph := StringMorph contents: '' font: (self
> fontOfPointSize: 14)!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>initProgressMorph (in category
> 'initialization') -----
> > + initProgressMorph
> > +     progress := ProgressBarMorph new.
> > +     progress borderWidth: 1.
> > +     progress color: Color white.
> > +     progress progressColor: Color gray.
> > +     progress extent: 200 @ 15.
> > + !
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>initSubLabelMorph (in category
> 'initialization') -----
> > + initSubLabelMorph
> > +     ^ subLabelMorph := StringMorph contents: '' font: (self
> fontOfPointSize: 12)!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>initialize (in category 'initialization')
> -----
> > + initialize
> > +     super initialize.
> > +     self setupMorphs!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>label (in category 'accessing') -----
> > + label
> > +     ^self labelMorph contents!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>label: (in category 'accessing') -----
> > + label: aString
> > +     self labelMorph contents: aString.
> > +     self currentWorld displayWorld!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>labelMorph (in category 'private') -----
> > + labelMorph
> > +     ^labelMorph ifNil: [self initLabelMorph]!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>progress (in category 'accessing') -----
> > + progress
> > +     ^progress ifNil: [self initProgressMorph]!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>setupMorphs (in category
> 'initialization') -----
> > + setupMorphs
> > +     |  |
> > +     self initProgressMorph.
> > +     self
> > +             layoutPolicy: TableLayout new;
> > +             listDirection: #topToBottom;
> > +             cellPositioning: #topCenter;
> > +             listCentering: #center;
> > +             hResizing: #shrinkWrap;
> > +             vResizing: #shrinkWrap;
> > +             color: Color transparent.
> > +
> > +     self addMorphBack: self labelMorph.
> > +     self addMorphBack: self subLabelMorph.
> > +     self addMorphBack: self progress.
> > +
> > +     self borderWidth: 2.
> > +     self borderColor: Color black.
> > +
> > +     self color: Color veryLightGray.
> > +     self align: self fullBounds center with: Display boundingBox center
> > + !
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>subLabel (in category 'accessing') -----
> > + subLabel
> > +     ^self subLabelMorph contents!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>subLabel: (in category 'accessing') -----
> > + subLabel: aString
> > +     self subLabelMorph contents: aString.
> > +     self currentWorld displayWorld!
> >
> > Item was added:
> > + ----- Method: ProgressMorph>>subLabelMorph (in category 'private')
> -----
> > + subLabelMorph
> > +     ^subLabelMorph ifNil: [self initSubLabelMorph]!
> >
> >
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20151119/49cfd55d/attachment.htm


More information about the Squeak-dev mailing list