Squeak-dev November 2015

squeak-dev@lists.squeakfoundation.org

40 participants
251 discussions

Re: [squeak-dev] The Trunk: MorphicExtras-kfr.167.mcz
by Tobias Pape 20 Nov '15

20 Nov '15

Hi Karl, On 19.11.2015, at 19:55, commits(a)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]! > >

3 2

Welcome new core developer Patrick Rein
by David T. Lewis 20 Nov '15

20 Nov '15

On recommendation from Marcel Taeumel and with the unanimous approval of the Squeak Oversight Board at yesterdays board meeting, Patrick Rein (author initials pre) has been added to the core-dev group. Patrick has indicated his interest in contributing to trunk based on three years working with large numbers of HPI students with many bug fixes and suggestions. An example is his recent updates explained at http://lists.squeakfoundation.org/pipermail/squeak-dev/2015-November/186674…. As always, the Squeak development process is described in https://squeakboard.wordpress.com/2009/07/02/a-new-community-development-mo… Welcome and thank you to Patrick!

3 2

Daily Commit Log
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-November/009177.h… Name: Tools-mt.654 Ancestors: Tools-ul.653 Makes hierarchy in class list more visible by using two instead of one space for each level. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009178.h… Name: Morphic-mt.1047 Ancestors: Morphic-mt.1046 Makes intent/outdent via TAB resp. SHIFT+TAB more robust and fixes some bugs like replacing whitespace-only selections with tabs or indenting a block where the selection starts before the first character in a line. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009179.h… Name: MorphicExtras-kfr.167 Ancestors: MorphicExtras-mt.166 ProgressMorph and ProgressBarMorph are not used as widgets. Moved to MorphicExtras-Obsolete ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-November/009180.h… Name: Morphic-kfr.1048 Ancestors: Morphic-mt.1047 ProgressMorph and ProgressBarMorph are not used as widgets. Moved to MorphicExtras-Obsolete =============================================

1 0

Raspberry PI & omxplayer from Squeak
by Jon Hylands 19 Nov '15

19 Nov '15

Hi, I've been playing around with Squeak 5.0 on a pi 2 (with the 7" LCD touchscreen), and one of the things I'd like to be able to do is run (and control) omxplayer from within Squeak. I did the same thing with Python, using this library: https://github.com/willprice/python-omxplayer-wrapper/tree/develop/omxplayer However, I don't really need all the fancy controls - what I really want is a way to launch it, and then a way to kill it. I'll be streaming live MJPEG video from a webcam, so there is no concept of pause/stop/etc. I need to kill it because I want the ability to choose one of a couple different video streams. I tried using OSProcess, but it gives me the pid of the shell script that launches the application, and not the application itself. I could certainly hack something using ps and grep, but I would prefer if there were a better way to do it. Any ideas? Thanks, Jon

5 9

The Trunk: Morphic-kfr.1048.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1048.mcz ==================== Summary ==================== Name: Morphic-kfr.1048 Author: kfr Time: 19 November 2015, 9:00:00.723 pm UUID: 63b86f93-377e-4fb1-a338-3968d13dce13 Ancestors: Morphic-mt.1047 ProgressMorph and ProgressBarMorph are not used as widgets. Moved to MorphicExtras-Obsolete =============== Diff against Morphic-mt.1047 =============== Item was removed: - BorderedMorph subclass: #ProgressBarMorph - instanceVariableNames: 'value progressColor lastValue' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Widgets'! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: ProgressBarMorph>>initialize (in category 'initialization') ----- - initialize - super initialize. - progressColor := Color green. - self value: (ValueHolder new contents: 0.0). - lastValue := 0.0! Item was removed: - ----- Method: ProgressBarMorph>>progressColor (in category 'accessing') ----- - progressColor - ^progressColor! Item was removed: - ----- Method: ProgressBarMorph>>progressColor: (in category 'accessing') ----- - progressColor: aColor - progressColor = aColor - ifFalse: - [progressColor := aColor. - self changed]! Item was removed: - ----- Method: ProgressBarMorph>>update: (in category 'updating') ----- - update: aSymbol - aSymbol == #contents - ifTrue: - [lastValue := value contents. - self changed]! Item was removed: - ----- Method: ProgressBarMorph>>value (in category 'accessing') ----- - value - ^value! Item was removed: - ----- Method: ProgressBarMorph>>value: (in category 'accessing') ----- - value: aModel - value ifNotNil: [value removeDependent: self]. - value := aModel. - value ifNotNil: [value addDependent: self]! Item was removed: - RectangleMorph subclass: #ProgressMorph - instanceVariableNames: 'labelMorph subLabelMorph progress' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Widgets'! Item was removed: - ----- 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 removed: - ----- Method: ProgressMorph class>>label: (in category 'instance creation') ----- - label: aString - ^self new label: aString! Item was removed: - ----- Method: ProgressMorph>>done (in category 'accessing') ----- - done - ^self progress value contents! Item was removed: - ----- Method: ProgressMorph>>done: (in category 'accessing') ----- - done: amountDone - self progress value contents: ((amountDone min: 1.0) max: 0.0). - self currentWorld displayWorld! Item was removed: - ----- Method: ProgressMorph>>fontOfPointSize: (in category 'private') ----- - fontOfPointSize: size - ^ (TextConstants at: Preferences standardEToysFont familyName ifAbsent: [TextStyle default]) fontOfPointSize: size! Item was removed: - ----- Method: ProgressMorph>>incrDone: (in category 'accessing') ----- - incrDone: incrDone - self done: self done + incrDone! Item was removed: - ----- Method: ProgressMorph>>initLabelMorph (in category 'initialization') ----- - initLabelMorph - ^ labelMorph := StringMorph contents: '' font: (self fontOfPointSize: 14)! Item was removed: - ----- 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 removed: - ----- Method: ProgressMorph>>initSubLabelMorph (in category 'initialization') ----- - initSubLabelMorph - ^ subLabelMorph := StringMorph contents: '' font: (self fontOfPointSize: 12)! Item was removed: - ----- Method: ProgressMorph>>initialize (in category 'initialization') ----- - initialize - super initialize. - self setupMorphs! Item was removed: - ----- Method: ProgressMorph>>label (in category 'accessing') ----- - label - ^self labelMorph contents! Item was removed: - ----- Method: ProgressMorph>>label: (in category 'accessing') ----- - label: aString - self labelMorph contents: aString. - self currentWorld displayWorld! Item was removed: - ----- Method: ProgressMorph>>labelMorph (in category 'private') ----- - labelMorph - ^labelMorph ifNil: [self initLabelMorph]! Item was removed: - ----- Method: ProgressMorph>>progress (in category 'accessing') ----- - progress - ^progress ifNil: [self initProgressMorph]! Item was removed: - ----- 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 removed: - ----- Method: ProgressMorph>>subLabel (in category 'accessing') ----- - subLabel - ^self subLabelMorph contents! Item was removed: - ----- Method: ProgressMorph>>subLabel: (in category 'accessing') ----- - subLabel: aString - self subLabelMorph contents: aString. - self currentWorld displayWorld! Item was removed: - ----- Method: ProgressMorph>>subLabelMorph (in category 'private') ----- - subLabelMorph - ^subLabelMorph ifNil: [self initSubLabelMorph]!

1 0

The Trunk: MorphicExtras-kfr.167.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

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 =============== 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]!

1 0

Undo and 5.0
by Tobias Pape 19 Nov '15

19 Nov '15

Hi all, now that we have a non-broken (ie, working) text-undo in trunk, we surely should backport it to 4.6/5.0. It is broken there[1] and we should fix that bug. Are there any reasons not to? Best regards -Tobias [1]: (and already annoying newcomers in our courses)

6 11

Bitmap DejaVu sans punktuation mark sizes
by karl ramberg 19 Nov '15

19 Nov '15

I really like the Bitmap DejaVu sans font. I have basically all text displayed in size 9. That size i very readable and give I get enough text on screen to get a good workflow. But I constantly miss punctuation because a full stop is like one pixel. And colon and semicolon are also very small. To add to that there is very tight kerning around the punctuation marks. It's easy to miss and it causes mild grief on my part. With the high resolution of today's monitors I think a bigger size of these punctuation marks would be good. Any thoughts ? Karl

4 8

The Inbox: Tools-mt.655.mcz
by commits＠source.squeak.org 19 Nov '15

19 Nov '15

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-mt.655.mcz ==================== Summary ==================== Name: Tools-mt.655 Author: mt Time: 19 November 2015, 11:53:37.869 am UUID: 11fda559-e378-4046-a5f1-a2b1396c81ce Ancestors: Tools-mt.654 Adds a convenient way for "printf-debugging". You can send #observe to any object in any situation. Transcript will show the printString, the location of the call, and the current time stamp. =============== Diff against Tools-mt.654 =============== Item was added: + ----- Method: Object>>observe (in category '*Tools-Debugger') ----- + observe + + Transcript dependents + detect: [:e | e isTextView] + "ifFound: [:e | e activate]" + ifNone: [Transcript open]. + + Transcript showln: ('[{1}] [{2} {3}] {4}' format: { + Time now print24. + thisContext sender method methodClass. + thisContext sender method selector. + self printString}).!

1 0

Re: The Inbox: Tools-mt.655.mcz
by marcel.taeumel 19 Nov '15

19 Nov '15

What do you think? <http://forum.world.st/file/n4861901/observe.png> The idea came from a colleague and remembering Chris' usage of #inspect and his complaint about Object >> #inspect not return the object anymore but the inspector's tool window, this might be a nice addition. myObject observe isDoing observe someCrazy observe stuff observe. Best, Marcel -- View this message in context: http://forum.world.st/The-Inbox-Tools-mt-655-mcz-tp4861900p4861901.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
26
Older →

Jump to page: