Squeak-dev March 2018

squeak-dev@lists.squeakfoundation.org

53 participants
146 discussions

upThrough:
by Eliot Miranda 10 Mar '18

10 Mar '18

Hi All, when and why did upThrough: get deleted from the ReadStream hierarchy? Are there strong reasons against reinstating it? This is extremely useful :-( _,,,^..^,,,_ best, Eliot

2 2

Examples or tools to generate Makefiles?
by H. Hirzel 10 Mar '18

10 Mar '18

Hello A follow up question on the note of Sean: Are there tools, libraries, examples how to generate Makefiles [1] in Squeak in a user friendly way? There is no wiki entry on this but this would be a good topic for an entry. --Hannes [1] https://en.wikipedia.org/wiki/Makefile A makefile is a file containing a set of directives used with the make build automation tool.

1 0

The Trunk: Compiler-eem.374.mcz
by commits＠source.squeak.org 10 Mar '18

10 Mar '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.374.mcz ==================== Summary ==================== Name: Compiler-eem.374 Author: eem Time: 9 March 2018, 5:26:54.927757 pm UUID: 346de92b-2782-45ad-b91b-fc790654a88f Ancestors: Compiler-eem.373 Make reindexingLiteralsDo: more robust when literals get added during blocks and are used in an outer scope after use in a block. c.f. Compiler-eem.369 =============== Diff against Compiler-eem.373 =============== Item was changed: ----- Method: BytecodeEncoder>>reindexingLiteralsDo: (in category 'code generation') ----- reindexingLiteralsDo: aBlock + "Reset any and all literals so that they will be given new indices in + the literalStream during aBlock (which will be used to generate a + nested block method). Afterwards restore those same literals to + their original state, and reset any and all new literals added during + aBlock so that they will be given new indices if used subsequently." | savedNodes saveBlock | savedNodes := IdentityDictionary new. + saveBlock := [:node| + savedNodes at: node put: node shallowCopy. + node resetForBlockGeneration]. - saveBlock := [:node| savedNodes at: node put: node shallowCopy. node resetForBlockGeneration]. litSet do: saveBlock. litIndSet do: saveBlock. selectorSet do: saveBlock. ^aBlock ensure: [| restoreBlock | + restoreBlock := [:node| + savedNodes + at: node + ifPresent: [:copy| node resetFromCopy: copy] + ifAbsent: [node resetForBlockGeneration]]. - restoreBlock := [:node| node resetFromCopy: (savedNodes at: node)]. litSet do: restoreBlock. litIndSet do: restoreBlock. + selectorSet do: restoreBlock]! - selectorSet do: [:node| node resetFromCopy: (savedNodes at: node ifAbsent: [node])]]!

1 0

[Documentation] Where is the most recent home page of OSProcess?
by H. Hirzel 10 Mar '18

10 Mar '18

Hello Where is the home page of the OSProcess package? The following one http://wiki.squeak.org/squeak/708 is easily found on the wiki but it was last updated in 2008. Does it still apply or is there a newer one? Regards Hannes

3 9

The Trunk: Kernel-eem.1158.mcz
by commits＠source.squeak.org 10 Mar '18

10 Mar '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1158.mcz ==================== Summary ==================== Name: Kernel-eem.1158 Author: eem Time: 9 March 2018, 5:15:51.802392 pm UUID: 4bef21b3-d2da-4b76-a6e0-c9ee189d478a Ancestors: Kernel-ul.1157 Provide more efficient implementation(s) of at:ifPresent:ifAbsent: given impending use in the Compiler. =============== Diff against Kernel-ul.1157 =============== Item was added: + ----- Method: MethodDictionary>>at:ifPresent:ifAbsent: (in category 'accessing') ----- + at: key ifPresent: oneArgBlock ifAbsent: absentBlock + "Lookup the given key in the receiver. If it is present, answer the + value of evaluating the oneArgBlock with the value associated + with the key, otherwise answer the value of absentBlock." + ^(array at: (self scanFor: key)) + ifNil: [absentBlock value] + ifNotNil: [:method| oneArgBlock value: method]!

1 0

Wish list for FunSqueak X.y
by Edgar De Cleene 08 Mar '18

08 Mar '18

We need agree on old and new stuff and try to get into just knew about this https://github.com/pavel-krivanek/terminal <https://github.com/pavel-krivanek/terminal> New stuff people wish to have (if possible) ? Edgar @morplenauta

5 6

The Inbox: EToys-tpr.321.mcz
by commits＠source.squeak.org 08 Mar '18

08 Mar '18

tim Rowledge uploaded a new version of EToys to project The Inbox: http://source.squeak.org/inbox/EToys-tpr.321.mcz ==================== Summary ==================== Name: EToys-tpr.321 Author: tpr Time: 6 March 2018, 12:47:26.51527 pm UUID: 082ac20c-c54a-4c29-b5a1-af5f91ca4418 Ancestors: EToys-dtl.320 Change CrosticPanel & FileInput to use the new file dialogues instead of the nasty old StandardFileMenu. Submitted to inbox because EToys is not my world and it may be important to others to do sometihng different. =============== Diff against EToys-dtl.320 =============== Item was changed: ----- Method: CrosticPanel>>openFile (in category 'menu') ----- openFile + | fileName crostic file | + + fileName := FileChooserDialog openOn: FileDirectory default suffixList: { 'crostic' } label: 'Select a Crostic file...' translated. + fileName ifNil: [^nil]. + + file := FileStream readOnlyFileNamed: fileName. - | stdFileMenuResult crostic file | - stdFileMenuResult := (StandardFileMenu new pattern: '*.crostic'; - oldFileFrom: FileDirectory default) startUpWithCaption: 'Select a Crostic File...' translated. - stdFileMenuResult - ifNil: [^ nil]. - file := stdFileMenuResult directory readOnlyFileNamed: stdFileMenuResult name. crostic := CrosticPanel newFromFile: file. file close. (self isClean or: [self confirm: 'Is it OK to discard this crostic?' translated]) ifTrue: [self world addMorphFront: (crostic position: self position). self delete] ifFalse: [self world addMorphFront: crostic]! Item was changed: ----- Method: FileInput>>browse (in category 'accessing') ----- browse + | fileName | + fileName := (FileChooserDialog openOn: self directory) ifNil: [^nil]. - | file | - file := (StandardFileMenu oldFileFrom: self directory) ifNil: [^nil]. - file directory isNil ifTrue: [^ nil]. + textMorph setText: fileName; - textMorph setText: (file directory pathName, FileDirectory slash, file name); hasUnacceptedEdits: true; accept!

5 6

Chronology-Core-pre.9 snapshot missing and thus preventing MC 'check all packages for changes' from working
by tim Rowledge 07 Mar '18

07 Mar '18

Subject pretty much says it all. Stack here - Error: Missing snapshot: Chronology-Core-pre.9 7 March 2018 11:28:02.37292 am VM: unix - Smalltalk Image: Squeak6.0alpha [latest update: #17785] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/pi/Squeak Trusted Dir /home/pi/Squeak/secure Untrusted Dir /home/pi/Squeak/My Squeak MCDiffyVersion>>baseSnapshot Receiver: a MCDiffyVersion(Chronology-Core-mt.11) Arguments and temporary variables: baseVersion: nil Receiver's instance variables: package: a MCPackage(Chronology-Core) info: a MCVersionInfo(Chronology-Core-mt.11) snapshot: nil dependencies: #() base: a MCVersionInfo(Chronology-Core-pre.9) patch: a MCPatch MCDiffyVersion>>snapshot Receiver: a MCDiffyVersion(Chronology-Core-mt.11) Arguments and temporary variables: Receiver's instance variables: package: a MCPackage(Chronology-Core) info: a MCVersionInfo(Chronology-Core-mt.11) snapshot: nil dependencies: #() base: a MCVersionInfo(Chronology-Core-pre.9) patch: a MCPatch MCWorkingCopy>>findSnapshotWithVersionInfo: Receiver: a MCWorkingCopy(Chronology-Core) Arguments and temporary variables: aVersionInfo: a MCVersionInfo(Chronology-Core-mt.11) aVersion: a MCDiffyVersion(Chronology-Core-mt.11) Receiver's instance variables: package: a MCPackage(Chronology-Core) modified: false versionInfo: nil ancestry: a MCWorkingAncestry counter: nil repositoryGroup: a MCRepositoryGroup requiredPackages: an OrderedCollection() environment: nil MCWorkingCopy>>checkModified Receiver: a MCWorkingCopy(Chronology-Core) Arguments and temporary variables: cleanSnapshot: nil currentSnapshot: nil modification: nil Receiver's instance variables: package: a MCPackage(Chronology-Core) modified: false versionInfo: nil ancestry: a MCWorkingAncestry counter: nil repositoryGroup: a MCRepositoryGroup requiredPackages: an OrderedCollection() environment: nil [] in MCWorkingCopy class>>checkModified: Receiver: MCWorkingCopy Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: MCPackageManager methodDict: a MethodDictionary(#adopt:->(MCWorkingCopy>>#adopt: "a CompiledMethod...etc... format: 65544 instanceVariables: #('versionInfo' 'ancestry' 'counter' 'repositoryGroup' 'requ...etc... organization: ('accessing' ancestors ancestry clearRequiredPackages currentVersionInfo...etc... subclasses: nil name: #MCWorkingCopy classPool: nil sharedPools: nil environment: Smalltalk category: #'Monticello-Versioning' registry: a Dictionary(a MCPackage(39Deprecated)->a MCWorkingCopy(39Deprecated)...etc... [] in [] in Array(Collection)>>do:displayingProgress:every: Receiver: {a MCWorkingCopy(Help-Squeak-Project) . a MCWorkingCopy(ST80) . a MCWorkingCopy(MorphicExt...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: {a MCWorkingCopy(Help-Squeak-Project) . a MCWorkingCopy(ST80) . a MCWorkingCopy(MorphicExt...etc... Array(SequenceableCollection)>>do: Receiver: {a MCWorkingCopy(Help-Squeak-Project) . a MCWorkingCopy(ST80) . a MCWorkingCopy(MorphicExt...etc... Arguments and temporary variables: aBlock: [closure] in [] in Array(Collection)>>do:displayingProgress:every: index: 67 indexLimiT: 88 Receiver's instance variables: {a MCWorkingCopy(Help-Squeak-Project) . a MCWorkingCopy(ST80) . a MCWorkingCopy(MorphicExt...etc... [] in Array(Collection)>>do:displayingProgress:every: Receiver: {a MCWorkingCopy(Help-Squeak-Project) . a MCWorkingCopy(ST80) . a MCWorkingCopy(MorphicExt...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: {a MCWorkingCopy(Help-Squeak-Project) . a MCWorkingCopy(ST80) . a MCWorkingCopy(MorphicExt...etc... [] in [] in MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: <<error during printing> Receiver's instance variables: builderClass: MorphicToolBuilder BlockClosure>>on:do: Receiver: [closure] in [] in MorphicUIManager>>displayProgress:at:from:to:during: Arguments and temporary variables: exceptionOrExceptionSet: ProgressNotification handlerAction: [closure] in [] in MorphicUIManager>>displayProgress:at:from:to:during:...etc... handlerActive: true Receiver's instance variables: outerContext: [] in MorphicUIManager>>displayProgress:at:from:to:during: startpc: 86 numArgs: 0 [] in MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: <<error during printing> Receiver's instance variables: builderClass: MorphicToolBuilder BlockClosure>>ensure: Receiver: [closure] in MorphicUIManager>>displayProgress:at:from:to:during: Arguments and temporary variables: aBlock: [closure] in MorphicUIManager>>displayProgress:at:from:to:during: complete: nil returnValue: nil Receiver's instance variables: outerContext: MorphicUIManager>>displayProgress:at:from:to:during: startpc: 79 numArgs: 0 MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: titleString: '' aPoint: 960@508 minVal: 0 maxVal: 88 workBlock: [closure] in Array(Collection)>>do:displayingProgress:every: progress: [closure] in SystemProgressMorph>>position:label:min:max: result: #(nil) Receiver's instance variables: builderClass: MorphicToolBuilder ProgressInitiationException>>defaultResumeValue Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [closure] in Array(Collection)>>do:displayingProgress:every: maxVal: 88 minVal: 0 aPoint: 960@508 progressTitle: '' ProgressInitiationException(Exception)>>resume Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [closure] in Array(Collection)>>do:displayingProgress:every: maxVal: 88 minVal: 0 aPoint: 960@508 progressTitle: '' ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [closure] in Array(Collection)>>do:displayingProgress:every: maxVal: 88 minVal: 0 aPoint: 960@508 progressTitle: '' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException: Receiver's instance variables: nil ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [closure] in Array(Collection)>>do:displayingProgress:every: maxVal: 88 minVal: 0 aPoint: 960@508 progressTitle: '' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException: Arguments and temporary variables: argString: '' argPoint: 960@508 argMinVal: 0 argMaxVal: 88 argWorkBlock: [closure] in Array(Collection)>>do:displayingProgress:every: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [closure] in Array(Collection)>>do:displayingProgress:every: maxVal: 88 minVal: 0 aPoint: 960@508 progressTitle: '' --- The full stack --- MCDiffyVersion>>baseSnapshot MCDiffyVersion>>snapshot MCWorkingCopy>>findSnapshotWithVersionInfo: MCWorkingCopy>>checkModified [] in MCWorkingCopy class>>checkModified: [] in [] in Array(Collection)>>do:displayingProgress:every: Array(SequenceableCollection)>>do: [] in Array(Collection)>>do:displayingProgress:every: [] in [] in MorphicUIManager>>displayProgress:at:from:to:during: BlockClosure>>on:do: [] in MorphicUIManager>>displayProgress:at:from:to:during: BlockClosure>>ensure: MorphicUIManager>>displayProgress:at:from:to:during: ProgressInitiationException>>defaultResumeValue ProgressInitiationException(Exception)>>resume ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: ByteString(String)>>displayProgressFrom:to:during: Array(Collection)>>do:displayingProgress:every: Array(Collection)>>do:displayingProgress: MCWorkingCopy class>>checkModified: MCWorkingCopyBrowser>>checkAllPackages MCWorkingCopyBrowser(MCTool)>>perform:orSendTo: [] in MenuItemMorph>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: MenuItemMorph>>invokeWithEvent: MenuItemMorph>>mouseUp: MenuItemMorph>>handleMouseUp: MouseButtonEvent>>sentTo: MenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuItemMorph(Morph)>>processEvent:using: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: MenuMorph(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>doProcessingForFocusEvent:with: MorphicEventDispatcher>>dispatchFocusEventFully:with: MenuMorph>>processFocusEvent:using: MenuMorph(Morph)>>processFocusEvent: [] in [] in [] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>ensure: MouseButtonEvent(MorphicEvent)>>becomeActiveDuring: [] in [] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>ensure: HandMorph>>becomeActiveDuring: [] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>ensure: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: -- and more not shown -- tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: EFB: Emulate Five-volt Battery mode

1 0

The Trunk: EToys-topa.321.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-topa.321.mcz ==================== Summary ==================== Name: EToys-topa.321 Author: topa Time: 7 March 2018, 10:53:58.251975 pm UUID: bacbe828-aeb2-45bf-976b-82e85e8f5872 Ancestors: EToys-dtl.320 Format changed on Cog =============== Diff against EToys-dtl.320 =============== Item was changed: ----- Method: SmalltalkImage>>macVmMajorMinorBuildVersion (in category '*Etoys-Squeakland-system attribute') ----- macVmMajorMinorBuildVersion "SmalltalkImage current macVmMajorMinorBuildVersion" | aString rawTokens versionPart versionTokens versionArray | aString := self vmVersion. aString ifNil: [^ #(0 0 0)]. + rawTokens := ((aString copyAfterLast: $]) - rawTokens := ((aString copyAfter: $]) findTokens: $ ). versionPart := rawTokens detect: [:each | each includes: $.] ifNone: [^#(0 0 0)]. versionTokens := versionPart findTokens: $.. versionArray := #(0 0 0) collectWithIndex: [:each :index | (versionTokens at: index ifAbsent:['']) initialIntegerOrNil ifNil: [each]]. ^versionArray!

1 0

The Trunk: Tools-topa.799.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.799.mcz ==================== Summary ==================== Name: Tools-topa.799 Author: topa Time: 7 March 2018, 10:49:48.272623 pm UUID: e81a8f85-40fe-4345-8ce5-24bbe57f6fef Ancestors: Tools-tpr.798 Slight improvement to tim's improvement =============== Diff against Tools-tpr.798 =============== Item was changed: ----- Method: ChangeSorter>>fileIntoNewChangeSet (in category 'changeSet menu') ----- fileIntoNewChangeSet "Obtain a file designation from the user, and file its contents into a new change set whose name is a function of the filename. Show the new set and leave the current changeSet unaltered." - | aNewChangeSet stream fileName | self okToChange ifFalse: [^ self]. ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. - fileName := (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNil: [^nil]. - stream := FileStream oldFileNamed: fileName. - stream ifNil: [^ self]. + (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNotNil: + [:fileName | + FileStream oldFileNamed: fileName do: + [:stream | | localName | + localName := FileDirectory localNameFor: fileName. + (self class newChangesFromStream: stream named: localName) + ifNotNil: [:aNewChangeSet | self showChangeSet: aNewChangeSet]]].! - aNewChangeSet := self class - newChangesFromStream: stream - named: (FileDirectory localNameFor:fileName). - aNewChangeSet - ifNotNil: [self showChangeSet: aNewChangeSet]! Item was changed: ----- Method: FileList class>>openFileDirectly (in category 'instance creation') ----- openFileDirectly + (FileChooserDialog openOn: FileDirectory default) ifNotNil: + [:fileName | self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]! - | fileName | - (fileName :=FileChooserDialog openOn: FileDirectory default) ifNotNil: - [self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]!

1 0

← Newer
1
...
9
10
11
12
13
14
15
Older →

Jump to page: