Tim Felgentreff uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-tfel.162.mcz
==================== Summary ====================
Name: Files-tfel.162
Author: tfel
Time: 2 August 2016, 9:58:45.471368 am
UUID: 24364428-4ff5-ee49-931d-e71b61a634a4
Ancestors: Files-cmm.161, Files-Richo.2
merge from Squeakland Etoys image
=============== Diff against Files-cmm.161 ===============
Item was changed:
----- Method: FileStream class>>serviceFileIn (in category 'file reader services') -----
serviceFileIn
"Answer a service for filing in an entire file"
^ SimpleServiceEntry
provider: self
+ label: 'fileIn entire file' translatedNoop
- label: 'fileIn entire file'
selector: #fileIn:
+ description: 'file in the entire contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format' translatedNoop
+ buttonLabel: 'filein' translatedNoop!
- description: 'file in the entire contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format'
- buttonLabel: 'filein'!
Item was changed:
----- Method: FileStream class>>serviceRemoveLineFeeds (in category 'file reader services') -----
serviceRemoveLineFeeds
"Answer a service for removing linefeeds from a file"
^ FileModifyingSimpleServiceEntry
provider: self
+ label: 'remove line feeds' translatedNoop
- label: 'remove line feeds'
selector: #removeLineFeeds:
+ description: 'remove line feeds in file' translatedNoop
+ buttonLabel: 'remove lfs' translatedNoop!
- description: 'remove line feeds in file'
- buttonLabel: 'remove lfs'!
Item was changed:
----- Method: MacFileDirectory class>>maxFileNameLength (in category 'platform specific') -----
maxFileNameLength
+ ^ 32-1!
- ^31!
Item was changed:
----- Method: RemoteString>>string:onFileNumber: (in category 'private') -----
string: aString onFileNumber: fileNumber
"Store this as my string if source files exist."
| theFile |
(SourceFiles at: fileNumber) == nil ifFalse:
+ [theFile _ SourceFiles at: fileNumber.
+ theFile isReadOnly ifTrue: [^ nil].
- [theFile := SourceFiles at: fileNumber.
theFile setToEnd; cr.
self string: aString onFileNumber: fileNumber toFile: theFile]!
Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-jl.222.mcz
==================== Summary ====================
Name: EToys-jl.222
Author: jl
Time: 31 August 2016, 1:32:30.460376 pm
UUID: e71a0d5f-8d2c-0f42-a000-d248ad8b871d
Ancestors: EToys-tfel.221
tfel fixed reduceOnStack
=============== Diff against EToys-tfel.221 ===============
Item was changed:
----- Method: EToyExpressionTransformer2>>reduceOnStack (in category 'all') -----
reduceOnStack
| list left sel right m |
list := stack removeLast: 3.
left := list at: 1.
sel := list at: 2.
+ self flag: #tfel.
+ sel isSymbol ifFalse: [sel := sel key].
right := list at: 3.
m := MessageNode new
receiver: left
+ selector: sel
- selector: sel key
arguments: (Array with: right)
precedence: (sel precedence)
from: encoder
sourceRange: nil.
stack addLast: m.
!
Tim Felgentreff uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-tfel.47.mcz
==================== Summary ====================
Name: Nebraska-tfel.47
Author: tfel
Time: 31 August 2016, 11:50:24.726793 am
UUID: a1098db7-626c-db4e-91a1-8966f1e3b9bb
Ancestors: Nebraska-tfel.46
workaround. at least the PartsBin should work
=============== Diff against Nebraska-tfel.46 ===============
Item was changed:
----- Method: NebraskaFridgeMorph>>groupToggleButton (in category 'as yet unclassified') -----
groupToggleButton
+ self flag: #todo.
-
^(self inAColumn: {
(ThreePhaseButtonMorph checkBox)
target: self;
actionSelector: #toggleChoice:;
arguments: {'group'};
+ "getSelector: #getChoice:;"
- getSelector: #getChoice:;
setBalloonText: 'Changes between group mode and individuals' translated;
step
}) hResizing: #shrinkWrap
!
Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-tfel.195.mcz
==================== Summary ====================
Name: MorphicExtras-tfel.195
Author: tfel
Time: 31 August 2016, 11:49:55.843793 am
UUID: f9f29860-1341-e745-b3d4-9446283a1c8c
Ancestors: MorphicExtras-tfel.194
Show the FrameRateMorph in the supplies tab
=============== Diff against MorphicExtras-tfel.194 ===============
Item was changed:
----- Method: FrameRateMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl |
+ cl registerQuad: {
+ #FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop.
+ 'An indicator of how fast your system is running' translatedNoop}
+ forFlapNamed: 'Widgets'.
+ cl registerQuad: {
+ #FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop.
+ 'An indicator of how fast your system is running' translatedNoop}
+ forFlapNamed: 'Supplies']!
- ifPresent: [:cl | cl registerQuad: {#FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop. 'An indicator of how fast your system is running' translatedNoop}
- forFlapNamed: 'Widgets']!