<div dir="ltr">Not sure if it is to be deprecated, so I played it safe.<div>Maybe some somewhere depends on it....</div><div><br></div><div>Best,</div><div>Karl</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Nov 19, 2015 at 9:00 PM, Tobias Pape <span dir="ltr"><<a href="mailto:Das.Linux@gmx.de" target="_blank">Das.Linux@gmx.de</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi Karl,<br>
<span class=""><br>
On 19.11.2015, at 19:55, <a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a> wrote:<br>
<br>
> Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk:<br>
> <a href="http://source.squeak.org/trunk/MorphicExtras-kfr.167.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/MorphicExtras-kfr.167.mcz</a><br>
><br>
> ==================== Summary ====================<br>
><br>
> Name: MorphicExtras-kfr.167<br>
> Author: kfr<br>
> Time: 19 November 2015, 8:55:15.765 pm<br>
> UUID: d101e159-825d-4c86-a582-8bd22029b3bf<br>
> Ancestors: MorphicExtras-mt.166<br>
><br>
> ProgressMorph and ProgressBarMorph are not used as widgets. Moved to MorphicExtras-Obsolete<br>
<br>
</span>is that meant as a deprecation?<br>
If so, I'd suggest putting them into 51Deprecated-MorphicExtras.<br>
<br>
Best regards<br>
<span class="HOEnZb"><font color="#888888"> -Tobias<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
><br>
> =============== Diff against MorphicExtras-mt.166 ===============<br>
><br>
> Item was added:<br>
> + BorderedMorph subclass: #ProgressBarMorph<br>
> + instanceVariableNames: 'value progressColor lastValue'<br>
> + classVariableNames: ''<br>
> + poolDictionaries: ''<br>
> + category: 'MorphicExtras-Obsolete'!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>addCustomMenuItems:hand: (in category 'menu') -----<br>
> + addCustomMenuItems: aCustomMenu hand: aHandMorph<br>
> + super addCustomMenuItems: aCustomMenu hand: aHandMorph.<br>
> + aCustomMenu addList: {<br>
> + {'progress color...' translated. #changeProgressColor:}.<br>
> + {'progress value...' translated. #changeProgressValue:}.<br>
> + }!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>changeProgressColor: (in category 'menu') -----<br>
> + changeProgressColor: evt<br>
> + | aHand |<br>
> + aHand := evt ifNotNil: [evt hand] ifNil: [self primaryHand].<br>
> + self changeColorTarget: self selector: #progressColor: originalColor: self progressColor hand: aHand.!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>changeProgressValue: (in category 'menu') -----<br>
> + changeProgressValue: evt<br>
> + | answer |<br>
> + answer := UIManager default<br>
> + request: 'Enter new value (0 - 1.0)'<br>
> + initialAnswer: self value contents asString.<br>
> + answer isEmptyOrNil ifTrue: [^ self].<br>
> + self value contents: answer asNumber!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>drawOn: (in category 'drawing') -----<br>
> + drawOn: aCanvas<br>
> + | width inner |<br>
> + super drawOn: aCanvas.<br>
> + inner := self innerBounds.<br>
> + width := (inner width * lastValue) truncated min: inner width.<br>
> + aCanvas fillRectangle: (inner origin extent: width @ inner height) color: progressColor.!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>initialize (in category 'initialization') -----<br>
> + initialize<br>
> + super initialize.<br>
> + progressColor := Color green.<br>
> + self value: (ValueHolder new contents: 0.0).<br>
> + lastValue := 0.0!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>progressColor (in category 'accessing') -----<br>
> + progressColor<br>
> + ^progressColor!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>progressColor: (in category 'accessing') -----<br>
> + progressColor: aColor<br>
> + progressColor = aColor<br>
> + ifFalse:<br>
> + [progressColor := aColor.<br>
> + self changed]!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>update: (in category 'updating') -----<br>
> + update: aSymbol<br>
> + aSymbol == #contents<br>
> + ifTrue:<br>
> + [lastValue := value contents.<br>
> + self changed]!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>value (in category 'accessing') -----<br>
> + value<br>
> + ^value!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressBarMorph>>value: (in category 'accessing') -----<br>
> + value: aModel<br>
> + value ifNotNil: [value removeDependent: self].<br>
> + value := aModel.<br>
> + value ifNotNil: [value addDependent: self]!<br>
><br>
> Item was added:<br>
> + RectangleMorph subclass: #ProgressMorph<br>
> + instanceVariableNames: 'labelMorph subLabelMorph progress'<br>
> + classVariableNames: ''<br>
> + poolDictionaries: ''<br>
> + category: 'MorphicExtras-Obsolete'!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph class>>example (in category 'example') -----<br>
> + example<br>
> + "ProgressMorph example"<br>
> +<br>
> + | progress |<br>
> + progress := ProgressMorph label: 'Test progress'.<br>
> + progress subLabel: 'this is the subheading'.<br>
> + progress openInWorld.<br>
> + [10 timesRepeat:<br>
> + [(Delay forMilliseconds: 200) wait.<br>
> + progress incrDone: 0.1].<br>
> + progress delete] fork!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph class>>label: (in category 'instance creation') -----<br>
> + label: aString<br>
> + ^self new label: aString!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>done (in category 'accessing') -----<br>
> + done<br>
> + ^self progress value contents!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>done: (in category 'accessing') -----<br>
> + done: amountDone<br>
> + self progress value contents: ((amountDone min: 1.0) max: 0.0).<br>
> + self currentWorld displayWorld!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>fontOfPointSize: (in category 'private') -----<br>
> + fontOfPointSize: size<br>
> + ^ (TextConstants at: Preferences standardEToysFont familyName ifAbsent: [TextStyle default]) fontOfPointSize: size!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>incrDone: (in category 'accessing') -----<br>
> + incrDone: incrDone<br>
> + self done: self done + incrDone!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>initLabelMorph (in category 'initialization') -----<br>
> + initLabelMorph<br>
> + ^ labelMorph := StringMorph contents: '' font: (self fontOfPointSize: 14)!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>initProgressMorph (in category 'initialization') -----<br>
> + initProgressMorph<br>
> + progress := ProgressBarMorph new.<br>
> + progress borderWidth: 1.<br>
> + progress color: Color white.<br>
> + progress progressColor: Color gray.<br>
> + progress extent: 200 @ 15.<br>
> + !<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>initSubLabelMorph (in category 'initialization') -----<br>
> + initSubLabelMorph<br>
> + ^ subLabelMorph := StringMorph contents: '' font: (self fontOfPointSize: 12)!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>initialize (in category 'initialization') -----<br>
> + initialize<br>
> + super initialize.<br>
> + self setupMorphs!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>label (in category 'accessing') -----<br>
> + label<br>
> + ^self labelMorph contents!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>label: (in category 'accessing') -----<br>
> + label: aString<br>
> + self labelMorph contents: aString.<br>
> + self currentWorld displayWorld!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>labelMorph (in category 'private') -----<br>
> + labelMorph<br>
> + ^labelMorph ifNil: [self initLabelMorph]!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>progress (in category 'accessing') -----<br>
> + progress<br>
> + ^progress ifNil: [self initProgressMorph]!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>setupMorphs (in category 'initialization') -----<br>
> + setupMorphs<br>
> + | |<br>
> + self initProgressMorph.<br>
> + self<br>
> + layoutPolicy: TableLayout new;<br>
> + listDirection: #topToBottom;<br>
> + cellPositioning: #topCenter;<br>
> + listCentering: #center;<br>
> + hResizing: #shrinkWrap;<br>
> + vResizing: #shrinkWrap;<br>
> + color: Color transparent.<br>
> +<br>
> + self addMorphBack: self labelMorph.<br>
> + self addMorphBack: self subLabelMorph.<br>
> + self addMorphBack: self progress.<br>
> +<br>
> + self borderWidth: 2.<br>
> + self borderColor: Color black.<br>
> +<br>
> + self color: Color veryLightGray.<br>
> + self align: self fullBounds center with: Display boundingBox center<br>
> + !<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>subLabel (in category 'accessing') -----<br>
> + subLabel<br>
> + ^self subLabelMorph contents!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>subLabel: (in category 'accessing') -----<br>
> + subLabel: aString<br>
> + self subLabelMorph contents: aString.<br>
> + self currentWorld displayWorld!<br>
><br>
> Item was added:<br>
> + ----- Method: ProgressMorph>>subLabelMorph (in category 'private') -----<br>
> + subLabelMorph<br>
> + ^subLabelMorph ifNil: [self initSubLabelMorph]!<br>
><br>
><br>
<br>
<br>
</div></div></blockquote></div><br></div>