Squeak-dev November 2017

squeak-dev@lists.squeakfoundation.org

38 participants
198 discussions

The Trunk: MorphicExtras-dtl.217.mcz
by commits＠source.squeak.org 21 Nov '17

21 Nov '17

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-dtl.217.mcz ==================== Summary ==================== Name: MorphicExtras-dtl.217 Author: dtl Time: 20 November 2017, 7:32:14.452843 pm UUID: b1677477-d4b1-4725-8506-e6d910979d16 Ancestors: MorphicExtras-dtl.216 Fix opening TabbedPalette from the objects catalog. A TabbedPalette is a morph that does not know its world, so use Project current world rather than #world. Also use Project current world in TabbedPalette class>>authoringPrototype. =============== Diff against MorphicExtras-dtl.216 =============== Item was changed: ----- Method: TabbedPalette class>>authoringPrototype (in category 'scripting') ----- authoringPrototype | aTabbedPalette aBook aTab | aTabbedPalette := self new markAsPartsDonor. aTabbedPalette pageSize: 200 @ 300. aTabbedPalette tabsMorph highlightColor: Color red regularColor: Color blue. aTabbedPalette addMenuTab. aBook := BookMorph new setNameTo: 'one'; pageSize: aTabbedPalette pageSize. aBook color: Color blue muchLighter. aBook removeEverything; insertPage; showPageControls. + aBook currentPage addMorphBack: (Project current world drawingClass withForm: ScriptingSystem squeakyMouseForm). - aBook currentPage addMorphBack: (self world drawingClass withForm: ScriptingSystem squeakyMouseForm). aTab := aTabbedPalette addTabForBook: aBook. aBook := BookMorph new setNameTo: 'two'; pageSize: aTabbedPalette pageSize. aBook color: Color red muchLighter. aBook removeEverything; insertPage; showPageControls. aBook currentPage addMorphBack: CurveMorph authoringPrototype. aTabbedPalette addTabForBook: aBook. aTabbedPalette selectTab: aTab. aTabbedPalette beSticky. aTabbedPalette tabsMorph hResizing: #spaceFill. ^ aTabbedPalette! Item was changed: ----- Method: TabbedPalette>>addMenuTab (in category 'palette menu') ----- addMenuTab "Add the menu tab. This is ancient code, not much in the spirit of anything current" | aMenu aTab aGraphic sk | aMenu := MenuMorph new defaultTarget: self. aMenu stayUp: true. "aMenu add: 'clear' translated action: #showNoPalette." aMenu add: 'sort tabs' translated action: #sortTabs:. aMenu add: 'choose new colors for tabs' translated action: #recolorTabs. aMenu setProperty: #paletteMenu toValue: true. "aMenu add: 'make me the Standard palette' translated action: #becomeStandardPalette." aTab := self addTabForBook: aMenu withBalloonText: 'a menu of palette-related controls' translated. aTab highlightColor: tabsMorph highlightColor; regularColor: tabsMorph regularColor. tabsMorph laySubpartsOutInOneRow; layoutChanged. aGraphic := ScriptingSystem formAtKey: 'TinyMenu'. aGraphic ifNotNil: [aTab removeAllMorphs. + aTab addMorph: (sk := Project current world drawingClass withForm: aGraphic). - aTab addMorph: (sk := self world drawingClass withForm: aGraphic). sk position: aTab position. sk lock. aTab fitContents]. self layoutChanged!

1 0

Ned's Zip Viewer
by Chris Cunningham 20 Nov '17

20 Nov '17

also from the objects morph/menu. If you look at this in the object tab, there is this long line outside of the window. That is the multi list headers. The morph itself is really, really small. The buttons are single letter buttons - if you drag it bigger, it actually has real labels on them. Maybe something changed in the initial/minimum size? -cbc

1 0

The Trunk: Kernel-dtl.1124.mcz
by commits＠source.squeak.org 20 Nov '17

20 Nov '17

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1124.mcz ==================== Summary ==================== Name: Kernel-dtl.1124 Author: dtl Time: 18 November 2017, 5:44:53.215977 pm UUID: 290e3cd7-ffe5-442e-9095-0217cc0b8be3 Ancestors: Kernel-dtl.1123 UndefinedObject>>suspend was presumably implemented for debugging process scheduling issues a long time ago. It serves no useful purpose now, and is dangerous because it will hang the image if evaluated. Remove it. =============== Diff against Kernel-dtl.1123 =============== Item was removed: - ----- Method: UndefinedObject>>suspend (in category 'dependents access') ----- - suspend - "Kills off processes that didn't terminate properly" - "Display reverse; reverse." "<-- So we can catch the suspend bug" - Processor terminateActive!

3 4

The Trunk: 60Deprecated-dtl.8.mcz
by commits＠source.squeak.org 20 Nov '17

20 Nov '17

David T. Lewis uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-dtl.8.mcz ==================== Summary ==================== Name: 60Deprecated-dtl.8 Author: dtl Time: 20 November 2017, 11:04:58.602687 am UUID: f7039fea-1e69-407d-8672-330f60f7eac6 Ancestors: 60Deprecated-mt.7 UndefinedObject>>suspend was removed in Kernel-dtl.1124. Move it to 60Deprecated to adhere to normal deprecation procedures. =============== Diff against 60Deprecated-mt.7 =============== Item was added: + ----- Method: UndefinedObject>>suspend (in category '*60Deprecated') ----- + suspend + "Kills off processes that didn't terminate properly" + "Display reverse; reverse." "<-- So we can catch the suspend bug" + Processor terminateActive!

1 0

The Trunk: Morphic-dtl.1369.mcz
by commits＠source.squeak.org 20 Nov '17

20 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1369.mcz ==================== Summary ==================== Name: Morphic-dtl.1369 Author: dtl Time: 20 November 2017, 8:37:22.350027 am UUID: 31d4ec2b-70bb-4e81-8d00-cb186a2fb85c Ancestors: Morphic-dtl.1368 Replace references to World with project current world. Note: These two method were updated previously but one each reference to World was missed. =============== Diff against Morphic-dtl.1368 =============== Item was changed: ----- Method: MorphicProject>>storeSegment (in category 'file in/out') ----- storeSegment "Store my project out on the disk as an ImageSegment. Keep the outPointers in memory. Name it <project name>.seg. *** Caller must be holding (Project alInstances) to keep subprojects from going out. ***" + | currentWorld is sizeHint | + currentWorld := Project current world. + (currentWorld == world) ifTrue: [^ false]. - | is sizeHint | - (Project current world == world) ifTrue: [^ false]. "self inform: 'Can''t send the current world out'." world isInMemory ifFalse: [^ false]. "already done" world ifNil: [^ false]. world presenter ifNil: [^ false]. ScrapBook default emptyScrapBook. + currentWorld checkCurrentHandForObjectToPaste. - World checkCurrentHandForObjectToPaste. world releaseSqueakPages. sizeHint := self projectParameters at: #segmentSize ifAbsent: [0]. is := ImageSegment copyFromRootsLocalFileFor: {world presenter. world} "world, and all Players" sizeHint: sizeHint. is state = #tooBig ifTrue: [^ false]. is segment size < 2000 ifTrue: ["debugging" Transcript show: self name, ' only ', is segment size printString, 'bytes in Segment.'; cr]. self projectParameters at: #segmentSize put: is segment size. is extract; writeToFile: self name. ^ true! Item was changed: ----- Method: MorphicProject>>storeSegmentNoFile (in category 'file in/out') ----- storeSegmentNoFile "For testing. Make an ImageSegment. Keep the outPointers in memory. Also useful if you want to enumerate the objects in the segment afterwards (allObjectsDo:)" + | is currentWorld | + currentWorld := Project current world. + (currentWorld == world) ifTrue: [^ self]. " inform: 'Can''t send the current world out'." - | is | - (Project current world == world) ifTrue: [^ self]. " inform: 'Can''t send the current world out'." world isInMemory ifFalse: [^ self]. "already done" world ifNil: [^ self]. world presenter ifNil: [^ self]. "Do this on project enter" + currentWorld flapTabs do: [:ft | ft referent adaptToWorld: World]. - World flapTabs do: [:ft | ft referent adaptToWorld: World]. "Hack to keep the Menu flap from pointing at my project" "Preferences setPreference: #useGlobalFlaps toValue: false." "Utilities globalFlapTabsIfAny do: [:aFlapTab | Utilities removeFlapTab: aFlapTab keepInList: false]. Utilities clobberFlapTabList. " "project world deleteAllFlapArtifacts." "self currentWorld deleteAllFlapArtifacts. " ScrapBook default emptyScrapBook. + currentWorld checkCurrentHandForObjectToPaste2. - World checkCurrentHandForObjectToPaste2. is := ImageSegment copyFromRootsLocalFileFor: {world presenter. world} "world, and all Players" sizeHint: 0. is segment size < 800 ifTrue: ["debugging" Transcript show: self name, ' did not get enough objects'; cr. ^ Beeper beep]. is extract. "is instVarAt: 2 put: is segment clone." "different memory"!

1 0

The Trunk: SUnitGUI-tpr.69.mcz
by commits＠source.squeak.org 20 Nov '17

20 Nov '17

tim Rowledge uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-tpr.69.mcz ==================== Summary ==================== Name: SUnitGUI-tpr.69 Author: tpr Time: 19 November 2017, 3:37:59.182697 pm UUID: d152c829-9818-4d11-ac05-d325d65a4c80 Ancestors: SUnitGUI-tpr.68 Drop the use of the abominable instVarAt* =============== Diff against SUnitGUI-tpr.68 =============== Item was changed: ----- Method: TestRunner>>runErrors (in category 'actions') ----- runErrors + self result resetErrors. - self result instVarNamed: 'errors' put: OrderedCollection new. self runSuite: self suiteErrors.! Item was changed: ----- Method: TestRunner>>runFailures (in category 'actions') ----- runFailures + self result resetFailures. - self result instVarNamed: 'failures' put: Set new. self runSuite: self suiteFailures.!

1 0

The Trunk: SUnit-tpr.111.mcz
by commits＠source.squeak.org 20 Nov '17

20 Nov '17

tim Rowledge uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-tpr.111.mcz ==================== Summary ==================== Name: SUnit-tpr.111 Author: tpr Time: 19 November 2017, 3:34:08.562731 pm UUID: baceabbf-0a9c-447c-9e41-e832bb103264 Ancestors: SUnit-tpr.110 Provide a clean way to reset the error and failures lists for retrying the problematic test. I hate usage of instVarAt* =============== Diff against SUnit-tpr.110 =============== Item was added: + ----- Method: TestResult>>resetErrors (in category 'initialization') ----- + resetErrors + "clear the errors list ready to re-run those tests" + + errors := OrderedCollection new! Item was added: + ----- Method: TestResult>>resetFailures (in category 'initialization') ----- + resetFailures + "clear the failures list ready to re-run those tests" + + failures := Set new!

1 0

Fun with Animations
by Marcel Taeumel 19 Nov '17

19 Nov '17

Hi, there. I just updated my Animations framework to support composite animations: https://github.com/hpi-swa/animations [https://github.com/hpi-swa/animations] Here are some examples using 1000 morphs: https://giphy.com/gifs/l2QDRTpwNsQ2NDSY8 [https://giphy.com/gifs/l2QDRTpwNsQ2NDSY8] https://giphy.com/gifs/xUOxf2c1ULKebDK6Ag [https://giphy.com/gifs/xUOxf2c1ULKebDK6Ag] ...gets kind of slow with 10000 morphs: https://giphy.com/gifs/3ohs7ONYSvpugDDRF6 [https://giphy.com/gifs/3ohs7ONYSvpugDDRF6] Use Squeak 5.1 or 6.0alpha (trunk). Works in 4.5, 4.6, and 5.0, too: https://travis-ci.org/hpi-swa/animations [https://travis-ci.org/hpi-swa/animations] Best, Marcel

3 3

Re: [squeak-dev] [Pharo-dev] nil suspend
by Nicolas Cellier 18 Nov '17

18 Nov '17

It sounds like a left over... no time stamp in Squeak, so it must be old. Display reverse; reverse means we wanted to catch when such oddity was necessary. (I would do it differently with an Exception and a MessageTally like I already exhibited several times) The fact that reverse; reverse was commented is more difficult to interpret... Is it really necessary? I removed the method in a Squeak image, and so fare nothing wrong happened, but it does not prove anything. The best is to ask in Squeak lists, maybe someone can remember... Or carefully analyze all senders of suspend... 2017-11-18 22:36 GMT+01:00 Aliaksei Syrel <alex.syrel(a)gmail.com>: > Hi, > > I was looking at nil (already funny) and found a very interesting method: > > suspend > "Kills off processes that didn't terminate properly" > "Display reverse; reverse." "<-- So we can catch the suspend bug" > Processor terminateActive > > It means that the following code is probably the shortest way to kill your > image (save first!) > > nil suspend > > It terminates a UI process if evaluated from anywhere using CMD+d :D > > Cheers, > Alex >

3 2

Has anyone gotten squeak running on an Amazon ec2 system?
by Chris Cunnington 18 Nov '17

18 Nov '17

> I'm trying to get Squeak running headless on an Amazon ec2 system. Deploying Squeak is basically always the same. I don’t think AWS would change that in any way. EC2 is not an operating system. It's just a cradle for whatever OS you choose. [1] Squeak is only run headless in a Linux server, so you choose a flavour of Linux, say Ubuntu 16.04 LTS. > Has anyone done this? Why would it be any different than running on any given Linux? > If so, what version of Squeak? Any version you want. Just make sure the vm and the image are compatible. For example: /usr/local/lib/squeak/3.10-4/squeak -vm-display-null -vm-sound-null Squeak3.10-7159-basic.image& The “headless” part comes from the flags between the vm and the image name. Reading the Squeak man page would help. Also, stick with official releases of Squeak. Ad hoc matching of the vm to the image has become confusing in the last four years. I could do it, but it’d be pretty tedious. Chris [1] http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EC2_GetStarted.html <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EC2_GetStarted.html>

2 1

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

Jump to page: