Squeak-dev January 2015

squeak-dev@lists.squeakfoundation.org

38 participants
201 discussions

The Trunk: Compiler-topa.292.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-topa.292.mcz ==================== Summary ==================== Name: Compiler-topa.292 Author: topa Time: 24 January 2015, 3:21:01.295 pm UUID: 96d2c928-fd32-4327-b74a-55e09df39549 Ancestors: Compiler-eem.291 Fix super-send DoIts in the debugger. =============== Diff against Compiler-eem.291 =============== Item was changed: ----- Method: Compiler>>evaluate:in:to:notifying:ifFail: (in category 'public access') ----- evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock "Compiles the sourceStream into a parse tree, then generates code into a method. If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). If aRequestor is not nil, then it will receive a notify:at: message before the attempt to evaluate is aborted. Finally, the compiled method is invoked from here via withArgs:executeMethod:, hence the system no longer creates Doit method litter on errors." | theClass | + theClass := aContext ifNil: [receiver class] ifNotNil: [:ctx | ctx methodClass]. - theClass := ((aContext == nil ifTrue: [receiver] ifFalse: [aContext receiver]) class). ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver class: theClass environment: theClass environment requestor: aRequestor) ifFail: failBlock!

1 0

The Trunk: Compression-dtl.47.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

David T. Lewis uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-dtl.47.mcz ==================== Summary ==================== Name: Compression-dtl.47 Author: dtl Time: 23 January 2015, 7:31:41.423 pm UUID: 4694513c-b90e-4953-accc-31b7d6c09432 Ancestors: Compression-bf.46 ZipDirectoryMember>>localFileName should use host file system semantics to test for file directory path, it should not assume that unix conventions apply. This hopefully fixes the problem identified by Tim Oesterreich on squeak-dev: [BUG] ERROR: File not in Directory: [...] while trying to create a SAR-archive on Windows =============== Diff against Compression-bf.46 =============== Item was changed: ----- Method: ZipDirectoryMember>>localFileName: (in category 'accessing') ----- localFileName: aString + | dir entry parent fsPath | - | dir entry parent | super localFileName: aString. fileName last = $/ ifFalse: [ fileName := fileName, '/' ]. parent := FileDirectory default. + aString last = parent pathNameDelimiter + ifTrue: [fsPath := parent fullNameFor: aString] + ifFalse: [fsPath := parent fullNameFor: aString, parent slash]. + (parent directoryExists: fsPath) ifTrue: [ + dir := FileDirectory on: fsPath. - (parent directoryExists: fileName) ifTrue: [ - dir := FileDirectory on: (parent fullNameFor: fileName). entry := dir directoryEntry. self setLastModFileDateTimeFrom: entry modificationTime ] !

1 0

[BUG] ERROR: File not in Directory: [...] while trying to create a SAR-archive on Windows
by Tim Oesterreich 24 Jan '15

24 Jan '15

Hello all, |package folder| "Name of the Monticello-package that should be archived" package := 'SWAProject'. "Name of the resources folder in Contents/Resources/" folder := 'SWA-Resources'. zip := ZipArchive new. mczStream := RWBinaryOrTextStream on: (String new: 10000). workingCopy := MCWorkingCopy forPackage: (MCPackage new name: package). version := workingCopy newVersion fileOutOn: mczStream. (zip addString: mczStream contents as: package, '.mcz') desiredCompressionLevel: 0. zip addTree: Smalltalk imagePath match: [:e | e fullName startsWith: Smalltalk imagePath , FileDirectory slash , folder]. zip addString: 'self fileInMonticelloZipVersionNamed: ''' , package, '.mcz''. (self membersMatching: ''' , folder , FileDirectory slash , '*.*'') do: [ :f | self extractMember: f].' as: 'install/preamble'. zip writeToFileNamed: package , '.sar'. This code should create a SAR-Archive from a Monticello-Package including all resources in the specified folder However it throws the error "File not in Directory: SWA-Resources#" on a Windows-System, while working fine on a Mac. It seems like there is an issue with the handling of platform-dependent directory seperators (\ on Windows, / on UNIX). Best -Tim

4 7

The Inbox: Compression-dtl.47.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

David T. Lewis uploaded a new version of Compression to project The Inbox: http://source.squeak.org/inbox/Compression-dtl.47.mcz ==================== Summary ==================== Name: Compression-dtl.47 Author: dtl Time: 23 January 2015, 7:31:41.423 pm UUID: 4694513c-b90e-4953-accc-31b7d6c09432 Ancestors: Compression-bf.46 ZipDirectoryMember>>localFileName should use host file system semantics to test for file directory path, it should not assume that unix conventions apply. This hopefully fixes the problem identified by Tim Oesterreich on squeak-dev: [BUG] ERROR: File not in Directory: [...] while trying to create a SAR-archive on Windows =============== Diff against Compression-bf.46 =============== Item was changed: ----- Method: ZipDirectoryMember>>localFileName: (in category 'accessing') ----- localFileName: aString + | dir entry parent fsPath | - | dir entry parent | super localFileName: aString. fileName last = $/ ifFalse: [ fileName := fileName, '/' ]. parent := FileDirectory default. + aString last = parent pathNameDelimiter + ifTrue: [fsPath := parent fullNameFor: aString] + ifFalse: [fsPath := parent fullNameFor: aString, parent slash]. + (parent directoryExists: fsPath) ifTrue: [ + dir := FileDirectory on: fsPath. - (parent directoryExists: fileName) ifTrue: [ - dir := FileDirectory on: (parent fullNameFor: fileName). entry := dir directoryEntry. self setLastModFileDateTimeFrom: entry modificationTime ] !

1 0

Manual shrink-wrapping to submorphs
by Marcel Taeumel 23 Jan '15

23 Jan '15

Hi, there! As this does not work because the quasi-global coordinate system interferes: self bounds: self submorphBounds. How about adding a new method #shrinkWrap to morphs: shrinkWrap "Change bounds to match submorphBounds." self submorphBounds in: [:newBounds | | deltaPosition | deltaPosition := newBounds topLeft - self topLeft. self submorphsDo: [:morph | morph topLeft: morph topLeft - deltaPosition]. self topLeft: self topLeft + deltaPosition; extent: newBounds extent]. Best, Marcel -- View this message in context: http://forum.world.st/Manual-shrink-wrapping-to-submorphs-tp4801162.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

BabyIDE now works in Squeak 4.5
by Trygve Reenskaug 22 Jan '15

22 Jan '15

Hi all, DCI is a programming paradigm with strong separation of concerns * Classes are used for coding system state - what the system *is*. * DCI Contexts are used for coding system behavior - what the system *does*. The DCI separation of concerns enhances code readability, supports testing, and simplifies system extension. BabyIDE is an IDE that supports the DCI separation of concerns by viewing the code in practically independent projections. BabyIDE with a number of examples is now ready for downloading into a Squeak 4.5 image: 1. WorldMenu > open... > SqueakMap Categories. 2. Select "Development tools" > BBAllInOne > (1.4) 3. Click "Install" Example programs can be run from WorldMenu > open... > BB5bBank etc. The sources for an example can be edited in BabyIDE, e.g.: WorldMenu > open... > BB1: IDE>BB5bBank BabyIDE with its DCI infrastructure is a non-intrusive addition to Squeak; everything works as before and programming can be done in the usual manner (if desired). DCI home page: http://fulloo.info/. Description of the examples: http://fulloo.info/Examples/SqueakExamples DCI mailing list: object-composition(a)googlegroups.com Enjoy --Trygve -- Trygve Reenskaug mailto: trygver(a)ifi.uio.no <mailto:%20trygver@ifi.uio.no> Morgedalsvn. 5A http://folk.uio.no/trygver/ N-0378 Oslo http://fullOO.info Norway Tel: (+47) 22 49 57 27 Save our in-boxes!/http://emailcharter.org//

2 2

Re: [squeak-dev] Squeak on a mouse?
by Casey Ransberger 22 Jan '15

22 Jan '15

Thanks for the link, Jecel. I'm particularly impressed that it's a few hundred words of Forth (I'm assuming he must mean word definitions. 600 actual total words seems unlikely to me; it would be cool to get clarification.) Still though, that's not a lot for a functioning GUI. > On Jan 21, 2015, at 9:24 AM, "Jecel Assumpcao Jr." <jecel(a)merlintec.com> wrote: > > Casey, > >> http://mybroadband.co.za/news/gadgets/117096-your-entire-pc-in-a-mouse.html > > That is a nice idea, but just to remind people of older implementations > I would like to point out the late Jef Fox's computer in a mouse from > 2000: > > http://www.ultratechnology.com/scope.htm > > The F21 processor was created from Jef by Chuck Moore and ran Forth > natively. In this demo, the whole computer was inside the mouse and the > cable coming out of it was the video cable you connected to a monitor. > > -- Jecel > >

2 1

The Trunk: Environments-topa.56.mcz
by commits＠source.squeak.org 22 Jan '15

22 Jan '15

Tobias Pape uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-topa.56.mcz ==================== Summary ==================== Name: Environments-topa.56 Author: topa Time: 22 January 2015, 12:48:30.677 am UUID: e5cad590-2869-4f02-84ac-482952779d06 Ancestors: Environments-topa.55 Provide more Dictionary protocol for exisiting users of Smalltalk globals. =============== Diff against Environments-topa.55 =============== Item was added: + ----- Method: Environment>>associationsDo: (in category 'emulating') ----- + associationsDo: aBlock + "Evaluate aBlock for each of the receiver's elements (key/value associations)." + + declarations associationsDo: aBlock! Item was changed: ----- Method: Environment>>do: (in category 'emulating') ----- do: aBlock "Evaluate aBlock for each of the receiver's values." + self valuesDo: aBlock! - declarations valuesDo: aBlock! Item was added: + ----- Method: Environment>>keysAndValuesDo: (in category 'emulating') ----- + keysAndValuesDo: aBlock + ^self associationsDo: [:assoc | + aBlock value: assoc key value: assoc value].! Item was added: + ----- Method: Environment>>valuesDo: (in category 'emulating') ----- + valuesDo: aBlock + "Evaluate aBlock for each of the receiver's values." + + declarations valuesDo: aBlock!

1 0

Context status 2015-01-16
by Craig Latta 22 Jan '15

22 Jan '15

Hoi all-- Context[1] is the umbrella project for Naiad (a distributed module system for all Smalltalks[2]), Spoon (a minimal object memory that provides the starting point for Naiad), and Lightning (a remote-messaging framework which performs live serialization, used by Naiad for moving methods and other objects between systems). I intend for it to be a future release of Squeak, and a launcher and module system for all the other Smalltalks. I'm writing Context apps for cloud computing, web services, and distributed computation. Commits b7676ba2cc and later of the Context git repo[3] have: - Support for installable object memories as git submodule repos. - Submodule repos for memories for each of the known Smalltalk dialects, with Naiad support pre-loaded. I'm currently working on the submodules for Squeak[4] and Pharo[5]. - A web-browser-based console for launching and managing object memories. - A WebDAV-based virtual filesystem that enables Smalltalk to appear as a network-attached storage device, and mappings of the system to that filesystem that make Smalltalk accessible from external text editors (e.g., for editing code, managing processes and object memories). - Remote code and process browsers. Live discussion at [6]. Mailing list at [7]. The newsgroup is gmane.comp.lang.smalltalk.squeak.context. Thanks for checking it out! -C [1] http://thiscontext.com [2] http://thiscontext.com/a-detailed-naiad-description [3] https://github.com/ccrraaiigg/context [4] https://github.com/ccrraaiigg/3EAD9A45-F65F-445F-89C1-4CA0A9D5C2F8 [5] https://github.com/ccrraaiigg/CFE10A14-D883-4ACE-990A-0DDA86AA362B [6] http://squeak.slack.com [7] mailto:context@lists.squeakfoundation.org -- Craig Latta netjam.org +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

4 10

renaming a class causes invalid super pointer CompiledMethod..!
by Chris Muller 21 Jan '15

21 Jan '15

I did a minor class-hierarchy refactoring today which resulted in a an invalid super pointer, resulting in a confusing image lock up due to tight recursion. The script, below, demonstrates the issue in trunk: Object compile: 'test ^''Hello from Object'''. (Object subclass: #MyClass instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Test') compile: 'test ^ super halt test, ''my super call lands on myself!'''. (Smalltalk classNamed: #MyClass) rename: 'MyNewAbstraction'. ((Smalltalk classNamed: #MyNewAbstraction) subclass: #MyClass instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Test'). (Smalltalk classNamed: #MyNewAbstraction) new test But an existing method in the original MyClass had a call to super which now lands in itself, resulting in a tight recursion. The same script without creating the new subclass results in an instant VM crash (both interpreter 2357 and cog 3205): Object compile: 'test ^''Hello from Object'''. (Object subclass: #MyClass instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Test') compile: 'test ^ super halt test, ''my super call lands on itself!'''. (Smalltalk classNamed: #MyClass) rename: 'MyNewAbstraction'. (Smalltalk classNamed: #MyNewAbstraction) new test I even tried recompiling my entire class hierarchy which was renamed, but it didn't help. How can this be? I _KNOW_ I've used rename class many times in the past... A regression? I went all the way back to 4.2. The above script doesn't crash the VM in 4.2 or 4.3. Squeak 4.4 and 4.5 and trunk all crash by the above script. All of those images (4.2 -- trunk) had the problem with the super pointer back to itself..

7 19

← Newer
1
...
5
6
7
8
9
10
11
...
21
Older →

Jump to page: