etoys-dev October 2011

etoys-dev@lists.squeakfoundation.org

18 participants
75 discussions

Problem installing Etoys-To-Go on Ubuntu Server 11.10
by Steve Thomas 17 Oct '11

17 Oct '11

When I downloaded Etoys To Go from squeakland and tried to run it didn't work. This was because *uname -m* returned *x86_64* but the only directory for Linux was *i686* Made the simple change shown below and it worked fine. #!/bin/bash # File: etoys.sh (Etoys-To-Go version) # Author: Bert Freudenberg # Description: Script to run etoys.image on the Squeak VM binary, # using default directories relative to the installation itself APP=`dirname "$0"` APP=`cd "$APP";pwd` TOP=`dirname "$APP"` OS=`uname -s` #CPU=`uname -m` CPU="i686" BIN="$APP/Contents/$OS-$CPU" VM="$BIN/etoys" Not sure if we can simply change to check if Linux and skip the CPU naming issues, but it worked in this case. Also when I tried to install Etoys from Ubuntu software Center it installed 3.0 from Ubuntu 10.x and 4.0 from 11.10. Stephen

2 2

Etoys: MorphicExtras-kfr.46.mcz
by commits＠source.squeak.org 17 Oct '11

17 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.46.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.46 Author: kfr Time: 17 October 2011, 11:25:47 am UUID: 2f97846a-ee5e-b64a-96ef-e36c6e98d9dc Ancestors: MorphicExtras-kfr.45 Try to get more stable reults. CameraPlugin fail sometimes to turn off the camera and restart it. =============== Diff against MorphicExtras-kfr.45 =============== Item was changed: ----- Method: WebCamMorph>>off (in category 'accessing') ----- off + self stopStepping. - CameraInterface closeCamera: camNum. camIsOn := false. self updateDisplay. + CameraInterface closeCamera: camNum. - self stopStepping. + + ! Item was changed: ----- Method: WebCamMorph>>on (in category 'accessing') ----- on (CameraInterface cameraIsOpen: camNum) ifTrue: [ ^camIsOn := true.]. (CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) + ifNil: [^false]. - ifNil: ["this fails sometimes"]. (Delay forSeconds: 1) wait. displayForm := Form extent: frameExtent depth:32. camIsOn := true. self startStepping. ! Item was changed: ----- Method: WebCamMorph>>step (in category 'stepping and presenter') ----- step | | self updateDisplay. + + ! - !

1 0

Etoys: MorphicExtras-kfr.45.mcz
by commits＠source.squeak.org 15 Oct '11

15 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.45.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.45 Author: kfr Time: 15 October 2011, 12:38:37 pm UUID: db7889bc-50b5-4048-a659-a51f5d5b85d7 Ancestors: MorphicExtras-kfr.44 Changes to use #getvalueFromCostume: in Player. outOfWorld: and inToWorld: creates some issues where the WecCameMorph starts stepping after being moved and dropped. Not solved yet... =============== Diff against MorphicExtras-kfr.44 =============== Item was changed: ----- Method: CameraInterface class>>cameraIsAvailable (in category 'camera ops') ----- cameraIsAvailable "Answer true if at least one camera is available." + ^(self cameraName: 1) notNil - | enableCamera | - enableCamera := false. - ^ enableCamera and: [(self cameraName: 1) notNil] ! Item was changed: ----- Method: Player>>getUseFrameSize (in category '*MorphicExtras-WebCam') ----- getUseFrameSize + ^ self getValueFromCostume: #getUseFrameSize. - ^ costume getUseFrameSize. ! Item was changed: ----- Method: Player>>getWebCamIsOn (in category '*MorphicExtras-WebCam') ----- getWebCamIsOn + ^ self getValueFromCostume: #getWebCamIsOn! - ^ costume getWebCamIsOn! Item was changed: ----- Method: Player>>getWebCamResolution (in category '*MorphicExtras-WebCam') ----- getWebCamResolution + ^ self getValueFromCostume: #getWebCamResolution! - ^ costume getWebCamResolution! Item was changed: ----- Method: Player>>setWebCamIsOn: (in category '*MorphicExtras-WebCam') ----- setWebCamIsOn: aBoolean + self setCostumeSlot: #setWebCamIsOn: toValue: aBoolean! - costume setWebCamIsOn: aBoolean! Item was changed: ----- Method: WebCamMorph>>initialize (in category 'initialization') ----- initialize super initialize. camNum := 1. camIsOn := false. captureDelayMs := 0. "stepTime" useFrameSize := false. resolution := #'medium'. frameExtent := self class resolutionFor: resolution. displayForm := Form extent: frameExtent depth:32. self extent: frameExtent. self on. ! Item was changed: ----- Method: WebCamMorph>>off (in category 'accessing') ----- off CameraInterface closeCamera: camNum. camIsOn := false. + self updateDisplay. self stopStepping. + - self updateDisplay ! Item was changed: ----- Method: WebCamMorph>>on (in category 'accessing') ----- on (CameraInterface cameraIsOpen: camNum) + ifTrue: [ ^camIsOn := true.]. - ifTrue: [^ false]. (CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) + ifNil: ["this fails sometimes"]. - ifNil: [^ false]. (Delay forSeconds: 1) wait. displayForm := Form extent: frameExtent depth:32. camIsOn := true. self startStepping. + ! - ^ true! Item was changed: ----- Method: WebCamMorph>>step (in category 'stepping and presenter') ----- step + | | + self updateDisplay. + ! - self updateDisplay! Item was changed: ----- Method: WebCamMorph>>updateDisplay (in category 'stepping and presenter') ----- updateDisplay + camIsOn - self getWebCamIsOn ifFalse: [displayForm getCanvas drawString: 'Camera is off' at: 5 @ 2 font: Preferences windowTitleFont color: Color white. ] + ifTrue:[self nextFrame]. - ifTrue:[self nextFrame]. self changed.!

1 0

Etoys Inbox: CSV-Richo.7.mcz
by commits＠source.squeak.org 15 Oct '11

15 Oct '11

A new version of CSV was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/CSV-Richo.7.mcz ==================== Summary ==================== Name: CSV-Richo.7 Author: Richo Time: 14 October 2011, 7:55:47 pm UUID: 35dbec59-1a50-4d42-9695-5a05cb54d17d Ancestors: CSV-Damir.6 Added CSV package from "http://www.squeaksource.com/CSV". Used by Skeleton. ==================== Snapshot ==================== SystemOrganization addCategory: #CSV! TestCase subclass: #CSVParserTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'CSV'! ----- Method: CSVParserTest>>removeBlanks: (in category 'utils') ----- removeBlanks: aString ^ (aString copyWithoutAll: String crlf, Character space asString, Character tab asString )! ----- Method: CSVParserTest>>testComaIsDefaultDelimiter (in category 'tests') ----- testComaIsDefaultDelimiter | csv csvParser | csv := 'Luke,Skywalker,"Young Jedi"'. csvParser := CSVParser onString: csv. self assert: {'Luke'. 'Skywalker'. 'Young Jedi'} asOrderedCollection equals: csvParser rows first.! ----- Method: CSVParserTest>>testToJSON (in category 'tests') ----- testToJSON |csv parser actualJSON expectedJSON| csv := String streamContents: [:aStream| aStream nextPutAll: 'firsname, lastname, description'; cr; nextPutAll: 'Luke,Skywalker,"Young Jedi"'; cr; nextPutAll: 'Obiwan, Kenobi,"Jedi Master"'. ]. expectedJSON := '[{fname: "Luke", lname: "Skywalker", activity: "Young Jedi"}, {fname: "Obiwan", lname: "Kenobi", activity: "Jedi Master"}]'. parser := CSVParser onString: csv. actualJSON := parser asJSONWithHeader: #(fname lname activity). self assert: (self removeBlanks: expectedJSON) equals: (self removeBlanks: actualJSON) ! ----- Method: CSVParserTest>>testWithSemiColonDelimiter (in category 'tests') ----- testWithSemiColonDelimiter | csv csvParser | csv := 'Luke;Skywalker;"Young Jedi"'. csvParser := CSVParser onString: csv. csvParser useDelimiter: $;. self assert: {'Luke'. 'Skywalker'. 'Young Jedi'} asOrderedCollection equals: csvParser rows first.! Object subclass: #CSVParser instanceVariableNames: 'stream delimiter' classVariableNames: '' poolDictionaries: '' category: 'CSV'! ----- Method: CSVParser class>>on: (in category 'initialize-release') ----- on: aStream ^ self new initializeWithStream: aStream! ----- Method: CSVParser class>>onString: (in category 'initialize-release') ----- onString: aString ^ self on: aString readStream! ----- Method: CSVParser class>>parse: (in category 'initialize-release') ----- parse: aStream ^ (self on: aStream) rows! ----- Method: CSVParser class>>parseString: (in category 'initialize-release') ----- parseString: aString ^ self parse: aString readStream! ----- Method: CSVParser>>asJSONWithHeader: (in category 'converting') ----- asJSONWithHeader: aCollectionOfString |rows| rows := self rows copyWithoutIndex: 1. ^ String streamContents: [:aStream| aStream nextPutAll: '['; cr. rows do: [:row | aStream nextPutAll: ' {'. aCollectionOfString do: [:property| aStream nextPutAll: (' {1}: "{2}"' format: {property asString. row removeAt:1}) ] separatedBy: [aStream nextPutAll: ','; cr]. aStream nextPutAll: ' }'. ] separatedBy: [aStream nextPutAll: ','; cr]. aStream nextPutAll: ']'. ]. ! ----- Method: CSVParser>>atEndOfLine (in category 'testing') ----- atEndOfLine ^ stream atEnd or: [stream peek = Character cr] or: [stream peek = Character lf]! ----- Method: CSVParser>>initialize (in category 'as yet unclassified') ----- initialize delimiter := $,! ----- Method: CSVParser>>initializeWithStream: (in category 'initialization') ----- initializeWithStream: aStream stream := aStream! ----- Method: CSVParser>>nextInLine (in category 'parsing') ----- nextInLine | next | next := stream next. (next = Character cr or: [next = Character lf]) ifTrue: [stream skip: -1. next := nil]. ^ next! ----- Method: CSVParser>>nextQuotedValue (in category 'parsing') ----- nextQuotedValue ^ String streamContents: [:s | s nextPutAll: (stream upTo: $"). self nextInLine = $" ifTrue: [s nextPut: $". s nextPutAll: self nextQuotedValue]]! ----- Method: CSVParser>>nextRow (in category 'parsing') ----- nextRow | row | row := OrderedCollection new. stream skipSeparators. [self atEndOfLine] whileFalse: [row add: self nextValue]. stream skip: -1. stream next = $, ifTrue: [row add: '']. ^ row! ----- Method: CSVParser>>nextValue (in category 'parsing') ----- nextValue | next | stream peek = $" ifTrue: [stream next. ^ self nextQuotedValue]. ^ String streamContents: [:s | [(next := self nextInLine) notNil and: [next ~= delimiter]] whileTrue: [s nextPut: next]]! ----- Method: CSVParser>>rows (in category 'accessing') ----- rows ^ Array streamContents: [:s | self rowsDo: [:ea | s nextPut: ea]]! ----- Method: CSVParser>>rowsDo: (in category 'enumerating') ----- rowsDo: aBlock | row | [stream atEnd] whileFalse: [row := self nextRow. row isEmpty ifFalse: [aBlock value: row]]! ----- Method: CSVParser>>useDelimiter: (in category 'accessing') ----- useDelimiter: aCharacter delimiter := aCharacter.!

1 0

Etoys Inbox: Skeleton-Richo.1.mcz
by commits＠source.squeak.org 15 Oct '11

15 Oct '11

Spam detection software, running on the system "europa.mgmt.inetu.net", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.1.mcz ==================== Summary ==================== Name: Skeleton-Richo.1 Author: Richo Time: 14 October 2011, 7:52:01 pm UUID: 1e40d535-a560-e247-ba6b-7e2cda5b8ba3 Ancestors: [...] Content analysis details: (7.4 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 3.5 BAYES_99 BODY: Bayesian spam probability is 99 to 100% [score: 1.0000] 0.0 MISSING_MID Missing Message-Id: header 1.2 INVALID_DATE Invalid Date: header (not RFC 2822) 1.0 DATE_IN_PAST_12_24 Date: is 12 to 24 hours before Received: date 1.7 TVD_FUZZY_SYMBOL BODY: TVD_FUZZY_SYMBOL 1.0 FUZZY_AMBIEN BODY: Attempt to obfuscate words in spam 0.8 SARE_OBFU_PART_INA BODY: obfusciation of word containing ina 3.8 TVD_STOCK1 BODY: TVD_STOCK1 0.1 RDNS_NONE Delivered to trusted network by a host with no rDNS -5.7 AWL AWL: From: address is in the auto white-list

1 0

Etoys: Files-Richo.2.mcz
by commits＠source.squeak.org 15 Oct '11

15 Oct '11

Ricardo Moran uploaded a new version of Files to project Etoys: http://source.squeak.org/etoys/Files-Richo.2.mcz ==================== Summary ==================== Name: Files-Richo.2 Author: Richo Time: 14 October 2011, 7:45:37 pm UUID: 4b4a91a3-f143-ed49-862b-b7b624a1241b Ancestors: Files-bf.1 Added two useful methods to FileStream class: #fileNamed:do: and #forceNewFileNamed:do: (taken from Squeak) =============== Diff against Files-bf.1 =============== Item was added: + ----- Method: FileStream class>>fileNamed:do: (in category 'instance creation') ----- + fileNamed: fileName do: aBlock + "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' + + Returns the result of aBlock." + + ^self detectFile: (self fileNamed: fileName) do: aBlock! Item was added: + ----- Method: FileStream class>>forceNewFileNamed:do: (in category 'instance creation') ----- + forceNewFileNamed: fileName do: aBlock + "Avi Bryant says, ''This idiom is quite common in other languages that make heavy use of closures (i.e. Lisp (with-file 'foo' (f) ...) and Ruby (File.open('foo'){|f|...})). It's time Squeak had it, too.'' + + Returns the result of aBlock." + + ^self detectFile: (self forceNewFileNamed: fileName) do: aBlock!

1 0

Etoys: MorphicExtras-kfr.44.mcz
by commits＠source.squeak.org 14 Oct '11

14 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.44.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.44 Author: kfr Time: 14 October 2011, 8:34:30 pm UUID: 2921617e-75ad-3046-b951-ab694f79cc32 Ancestors: MorphicExtras-kfr.43 Add menu on off toggle =============== Diff against MorphicExtras-kfr.43 =============== Item was added: + ----- Method: WebCamMorph>>addCustomMenuItems:hand: (in category 'menu') ----- + addCustomMenuItems: aMenu hand: aHandMorph + | item | + super addCustomMenuItems: aMenu hand: aHandMorph. + item := (camIsOn == true) + ifTrue: ['turn camera off' translated] + ifFalse: ['turn camera on' translated]. + aMenu + add: item translated + target: self + action: #toggleCameraOnOff. + + + + + ! Item was added: + ----- Method: WebCamMorph>>toggleCameraOnOff (in category 'menu') ----- + toggleCameraOnOff + camIsOn + ifTrue:[self off] + ifFalse:[self on]!

1 0

Etoys: VideoForSqueak-kfr.2.mcz
by commits＠source.squeak.org 14 Oct '11

14 Oct '11

Karl Ramberg uploaded a new version of VideoForSqueak to project Etoys: http://source.squeak.org/etoys/VideoForSqueak-kfr.2.mcz ==================== Summary ==================== Name: VideoForSqueak-kfr.2 Author: kfr Time: 14 October 2011, 7:48:05 pm UUID: fffc9911-90df-a64e-95f3-95bff4ada1af Ancestors: VideoForSqueak-bf.1 Hide for now. Use new Camera with Scratch plugin instead. =============== Diff against VideoForSqueak-bf.1 =============== Item was changed: ----- Method: VideoMorph class>>descriptionForPartsBin (in category 'parts bin') ----- descriptionForPartsBin ^ self + partName: 'VideoCamera' translatedNoop + categories: {} - partName: 'Camera' translatedNoop - categories: {'Multimedia' translatedNoop} documentation: 'A player for video devices like cameras, video capturers, etc.' translatedNoop !

1 0

Etoys: MorphicExtras-kfr.43.mcz
by commits＠source.squeak.org 14 Oct '11

14 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.43.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.43 Author: kfr Time: 14 October 2011, 7:46:25 pm UUID: 1f0527c7-2f1c-5844-9b52-38ebf3c05f67 Ancestors: MorphicExtras-kfr.42 Fix ObjectsTool entry. Renamed morph to player. =============== Diff against MorphicExtras-kfr.42 =============== Item was changed: ----- Method: WebCamMorph class>>additionsToViewerCategories (in category 'scripting') ----- additionsToViewerCategories "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." ^ #( (#'camera' ( (slot resolution '160x120, 320x240 or 640x480' WebCamResolution readWrite Player getWebCamResolution Player setWebCamResolution:) (slot cameraIsOn 'Whether the camera is on/off' Boolean readWrite Player getWebCamIsOn Player setWebCamIsOn:) + (slot useFrameSize 'Resize the player to match the cameras frame size' - (slot useFrameSize 'Resize the morph to match the cameras frame size' Boolean readWrite Player getUseFrameSize Player setUseFrameSize:) + (slot lastFrame 'A player with the last frame' Player readOnly Player getLastFrame unused unused) - (slot lastFrame 'A morph with the last frame' Player readOnly Player getLastFrame unused unused) (slot graphic 'The picture currently being worn' Graphic readOnly Player getVideoGraphic unused unused) )) ) ! Item was changed: ----- Method: WebCamMorph class>>descriptionForPartsBin (in category 'parts bin') ----- descriptionForPartsBin ^ self + partName: 'Camera' translatedNoop - partName: 'WebCam' translatedNoop categories: {'Multimedia' translatedNoop} + documentation: 'Web camera player.' translatedNoop - documentation: 'WebCam player.' translatedNoop sampleImageForm: self icon!

1 0

Etoys: MorphicExtras-kfr.42.mcz
by commits＠source.squeak.org 14 Oct '11

14 Oct '11

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys: http://source.squeak.org/etoys/MorphicExtras-kfr.42.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.42 Author: kfr Time: 14 October 2011, 7:21:17 pm UUID: dd83d85e-46aa-ef41-8aaf-415813c4882d Ancestors: MorphicExtras-kfr.41 Some more fixes. Leaving project camera is turned off. entering its turned on again (if it was previously left on). Renamed category =============== Diff against MorphicExtras-kfr.41 =============== Item was changed: ----- Method: WebCamMorph class>>additionsToViewerCategories (in category 'scripting') ----- additionsToViewerCategories "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories." ^ #( + (#'camera' ( - (#'camera settings' ( (slot resolution '160x120, 320x240 or 640x480' WebCamResolution readWrite Player getWebCamResolution Player setWebCamResolution:) (slot cameraIsOn 'Whether the camera is on/off' Boolean readWrite Player getWebCamIsOn Player setWebCamIsOn:) (slot useFrameSize 'Resize the morph to match the cameras frame size' Boolean readWrite Player getUseFrameSize Player setUseFrameSize:) (slot lastFrame 'A morph with the last frame' Player readOnly Player getLastFrame unused unused) (slot graphic 'The picture currently being worn' Graphic readOnly Player getVideoGraphic unused unused) )) ) ! Item was added: + ----- Method: WebCamMorph>>intoWorld: (in category 'initialization') ----- + intoWorld: aWorld + + super intoWorld: aWorld. + camIsOn ifTrue: [self on] + ifFalse:[self off]. + self removeActionsForEvent: #aboutToEnterWorld. + aWorld + when: #aboutToLeaveWorld + send: #outOfWorld: + to: self + with: aWorld.! Item was changed: ----- Method: WebCamMorph>>nextFrame (in category 'stepping and presenter') ----- nextFrame + CameraInterface getFrameForCamera: camNum into: displayForm bits. ! Item was changed: ----- Method: WebCamMorph>>on (in category 'accessing') ----- on + - camIsOn - ifTrue: [^ true]. - "Avoid more than one WebCamMorph per - Camera " (CameraInterface cameraIsOpen: camNum) ifTrue: [^ false]. (CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) ifNil: [^ false]. (Delay forSeconds: 1) wait. + displayForm := Form extent: frameExtent depth:32. - "why?" camIsOn := true. self startStepping. ^ true! Item was added: + ----- Method: WebCamMorph>>outOfWorld: (in category 'initialization') ----- + outOfWorld: aWorld + + super outOfWorld: aWorld. + camIsOn ifTrue: [self off. camIsOn := true]. + aWorld + when: #aboutToEnterWorld + send: #intoWorld: + to: self + with: aWorld.! Item was changed: ----- Method: WebCamMorph>>updateDisplay (in category 'stepping and presenter') ----- updateDisplay self getWebCamIsOn ifFalse: [displayForm getCanvas drawString: 'Camera is off' at: 5 @ 2 font: Preferences windowTitleFont color: Color white. ] ifTrue:[self nextFrame]. self changed.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev October 2011