Squeak-dev June 2017

squeak-dev@lists.squeakfoundation.org

36 participants
130 discussions

The Trunk: System-eem.952.mcz
by commits＠source.squeak.org 29 Jun '17

29 Jun '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.952.mcz ==================== Summary ==================== Name: System-eem.952 Author: eem Time: 8 June 2017, 10:19:20.182777 am UUID: 2d764b04-5c3e-4cfc-98c1-d96bc5a92ac7 Ancestors: System-eem.951 Add an "open window at pointer" preference. Harvested from Terf. =============== Diff against System-eem.951 =============== Item was changed: Object subclass: #RealEstateAgent instanceVariableNames: '' + classVariableNames: 'PlaceWindowsAtPointer ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins' - classVariableNames: 'ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins' poolDictionaries: '' category: 'System-Support'! !RealEstateAgent commentStamp: '<historical>' prior: 0! Responsible for real-estate management on the screen, which is to say, controlling where new windows appear, with what sizes, etc. 5/20/96 sw! Item was added: + ----- Method: RealEstateAgent class>>initialFrameAtPointerFor:initialExtent:world: (in category 'framing - private') ----- + initialFrameAtPointerFor: aView initialExtent: scaledExtent world: aWorld + ^(aWorld cursorPoint - (50@10) "puts use with the mouse ptr just to the right of the menu button" + extent: scaledExtent) + translatedAndSquishedToBeWithin: (self maximumUsableAreaInWorld: aWorld)! Item was changed: ----- Method: RealEstateAgent class>>initialFrameFor:initialExtent:world: (in category 'framing') ----- initialFrameFor: aView initialExtent: initialExtent world: aWorld - | scaledExtent | scaledExtent := (initialExtent * self scaleFactor) rounded. + self placeWindowsAtPointer ifTrue: + [^self initialFrameAtPointerFor: aView initialExtent: scaledExtent world: aWorld]. + ^ Preferences reverseWindowStagger ifTrue: [self strictlyStaggeredInitialFrameFor: aView initialExtent: scaledExtent world: aWorld] ifFalse: [self normalInitialFrameFor: aView initialExtent: scaledExtent world: aWorld]! Item was added: + ----- Method: RealEstateAgent class>>placeWindowsAtPointer (in category 'preferences') ----- + placeWindowsAtPointer + "Value of the place-windows-at-pointer preference." + <preference: 'Place Windows At Pointer' + category: 'windows' + description: 'When true, place new windows near the mouse pointer' + type: #Boolean> + ^PlaceWindowsAtPointer ifNil: [false]! Item was added: + ----- Method: RealEstateAgent class>>placeWindowsAtPointer: (in category 'preferences') ----- + placeWindowsAtPointer: aBool + "Value of the place-windows-at-pointer preference." + PlaceWindowsAtPointer := aBool!

3 2

Re: [squeak-dev] [Pharo-users] Planet squeak and friends
by Bruce O'Neel 28 Jun '17

28 Jun '17

Hi, Thanks, I'll move it to longer than 6 months.Â I was trying to follow Stephane's idea of nothing out of date :-) I'd love to add Â [http://pharo.org/web/news](http://pharo.org/web/news) but the RSS feed does not work.Â Could someone go kick it so that it works please? Thanks. bruce

2 1

Re: [squeak-dev] [Pharo-users] Planet squeak and friends
by Bruce O'Neel 28 Jun '17

28 Jun '17

Hi, Thanks for all of the help to find more blogs.Â I've added all of the ones below that have been updated in the last year.Â Keep in mind though that the most recent run cut off at the end of May because we had enough posts by then. We'll have an updated planet.squeak.org tonight once I get home. cheers bruce

1 0

The Trunk: System-pre.956.mcz
by commits＠source.squeak.org 28 Jun '17

28 Jun '17

Patrick Rein uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-pre.956.mcz ==================== Summary ==================== Name: System-pre.956 Author: pre Time: 28 June 2017, 11:03:30.410481 am UUID: 7afdd78a-da8d-9c43-a291-f04048ca49c6 Ancestors: System-eem.955 Improves on the description of the garbage collect utility call. =============== Diff against System-eem.955 =============== Item was changed: ----- Method: Utilities class>>garbageCollectAndReport (in category 'miscellaneous') ----- garbageCollectAndReport "Do a garbage collection, and report results to the user." | reportString | reportString := String streamContents: [:aStream | + aStream + nextPutAll: 'The following amounts of memory are still available:' translated; + cr. aStream nextPutAll: Smalltalk bytesLeftString. Smalltalk at: #Command ifPresent: [:cmdClass | | cc | (cc := cmdClass instanceCount) > 0 ifTrue: + [aStream + cr; + nextPutAll: '(note: there are '; + print: cc; + nextPutAll: ' undo record(s) present in your'; + cr; + nextPutAll: 'system; purging them may free up more space.)']]]. - [aStream cr; nextPutAll: - ('(note: there are ', cc printString, - ' undo record(s) present in your - system; purging them may free up more space.)')]]]. self inform: reportString !

1 0

The Trunk: System-eem.955.mcz
by commits＠source.squeak.org 28 Jun '17

28 Jun '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.955.mcz ==================== Summary ==================== Name: System-eem.955 Author: eem Time: 27 June 2017, 6:07:12.882121 pm UUID: da5503a6-f9c7-4332-8cce-2ac9dfd50b43 Ancestors: System-eem.954 Have bytesLeft answer the result it claims to (Spur changed the p[rmitive to answer the largest free chunk; needed for the allocation failure followed by growth and retry logic). Update bytesLeft string to include the largest free chunk info. Comment garbageCollect properly. Fix a comment typo. Nuke unused methods in SuystemDictionary that are in SmalltalkImage. =============== Diff against System-eem.954 =============== Item was changed: ----- Method: SmalltalkImage>>bytesLeft (in category 'memory space') ----- bytesLeft "Answer the number of bytes of space available. Does a full garbage collection." + self garbageCollect. + ^self bytesLeft: true! - ^ self garbageCollect - ! Item was changed: ----- Method: SmalltalkImage>>bytesLeft: (in category 'memory space') ----- bytesLeft: aBool + "Return the amount of available space. If aBool is true, include possibly available swap space. + If aBool is false, include possibly available physical memory. For a report on the largest free + block currently available within Squeak memory but not counting extra memory use #primBytesLeft." - "Return the amount of available space. If aBool is true, include possibly available swap space. If aBool is false, include possibly available physical memory. For a report on the largest free block currently availabe within Squeak memory but not counting extra memory use #primBytesLeft." <primitive: 112> ^self primBytesLeft! Item was changed: ----- Method: SmalltalkImage>>bytesLeftString (in category 'memory space') ----- bytesLeftString + "Answer a string describing the amount of memory available." + "Smalltalk bytesLeftString" + | largestFree availInternal availPhysical availTotal | + largestFree := self garbageCollect. - "Return a string describing the amount of memory available" - | availInternal availPhysical availTotal | - self garbageCollect. availInternal := self primBytesLeft. availPhysical := self bytesLeft: false. availTotal := self bytesLeft: true. (availTotal > (availInternal + 10000)) "compensate for mini allocations inbetween" ifFalse:[^availInternal asStringWithCommas, ' bytes available']. + ^String streamContents: + [:s| + {availInternal. availPhysical. largestFree. availTotal} + with: #('old space' 'physical' 'largest free chunk' 'total') + do: [:value :name| + s nextPutAll: value asStringWithCommas; nextPutAll: ' bytes ('; nextPutAll: name; nextPutAll: ') '; cr]]! - ^String streamContents:[:s| - s nextPutAll: availInternal asStringWithCommas, ' bytes (internal) '; cr. - s nextPutAll: availPhysical asStringWithCommas, ' bytes (physical) '; cr. - s nextPutAll: availTotal asStringWithCommas, ' bytes (total) '].! Item was changed: ----- Method: SmalltalkImage>>garbageCollect (in category 'memory space') ----- garbageCollect + "Reclaims all garbage and answers the number of bytes of available space in the largest free chunk." - "Primitive. Reclaims all garbage and answers the number of bytes of available space." Object flushDependents. EventManager flushEvents. ^self primitiveGarbageCollect! Item was removed: - ----- Method: SystemDictionary>>growMemoryByAtLeast: (in category 'memory space') ----- - growMemoryByAtLeast: numBytes - "Grow memory by at least the requested number of bytes. - Primitive. Fail if no memory is available. Essential. - N.B. In Spur, the heap is composed of segments. Growing memory adds a new - segment; it does not extend existing segments. Growth is by at least that - established by SmalltalkImage current vmParameterAt: 25, which defaults to 16Mb." - <primitive: 180> - ^(numBytes isInteger and: [numBytes > 0]) - ifTrue: [OutOfMemory signal] - ifFalse: [self primitiveFailed]! Item was removed: - ----- Method: SystemDictionary>>maxIdentityHash (in category 'system attributes') ----- - maxIdentityHash - "Answer the maximum identityHash value supported by the VM." - <primitive: 176> - ^self primitiveFailed! Item was removed: - ----- Method: SystemDictionary>>setGCParameters (in category 'snapshot and quit') ----- - setGCParameters - "Adjust the VM's default GC parameters to avoid too much tenuring. - Maybe this should be left to the VM?" - - | proportion edenSize survivorSize averageObjectSize numObjects | - proportion := 0.9. "tenure when 90% of pastSpace is full" - edenSize := SmalltalkImage current vmParameterAt: 44. - survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" - averageObjectSize := 8 * self wordSize. "a good approximation" - numObjects := (proportion * survivorSize / averageObjectSize) rounded. - SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"!

1 0

Empty Packages
by Eliot Miranda 28 Jun '17

28 Jun '17

Hi All, the following trunk packages are now empty: Exceptions - empty FlexibleVocabularies - empty ScriptLoader - empty Occasionally they give rise to a "Saving An Empty Version" error from Monticello. Should we not nuke them? _,,,^..^,,,_ best, Eliot

1 0

Empty Packages
by Eliot Miranda 28 Jun '17

28 Jun '17

Hi All, -- _,,,^..^,,,_ best, Eliot

1 0

Re: [squeak-dev] ENC: How to draw a 2D line
by Jakob Reschke 26 Jun '17

26 Jun '17

All morphs are freely positionable in the world and can be stacked like the windows themselves (which are morphs, too). So you could create/draw a morph with the necessary dimensions and place it such that it overlaps with the windows as desired. (LineMorph from: 100@100 to: 200@300 color: Color yellow width: 5) openInWorld window1 := ToolBuilder open: Browser new. window2 := ToolBuilder open: Workspace new. line := LineMorph from: (window1 findDeeplyA: SystemWindowButton) center to: (window2 findDeeplyA: TextMorph) positionInWorld color: Color red width: 3. line openInWorld. 2017-06-26 21:28 GMT+02:00 Kjell Godo <squeaklist(a)gmail.com>: > > is there a way to draw lines over top of all the open windows? > like a line from inside of one window to inside of another window? > like arrows from a help window to graphical elements in some other windows? > > On Sat, Jun 24, 2017 at 06:00 Jakob Reschke <jakob.reschke(a)student.hpi.de> > wrote: >> >> Hi Lorenzo, >> >> Are you familiar with browsing existing code in Squeak already? If >> not, I advise you have a look at the Squeak by Example book: >> https://hal.inria.fr/inria-00441576/file/SBE.pdf >> It also contains a chapter on drawing your own morphs. >> >> Otherwise you probably want to have a look at the classes Canvas and >> Form. A Form contains pixels and a Canvas can be used to draw things >> like points, lines, and other images to a graphical medium. A >> FormCanvas (a subclass of Canvas) can be used to draw on a Form. To >> display a Form in the world you can use an ImageMorph. >> >> The following creates a 32-Bit Form of 200x200 pixels, draws two lines >> on it and attaches the image to the mouse cursor (hand). >> >> form := Form extent: 200@200 depth: 32. >> canvas := FormCanvas on: form. >> canvas line: 0@0 to: 200@200 color: Color red. >> canvas line: 200@0 to: 0@200 color: Color blue. >> morph := ImageMorph new. >> morph image: form. >> morph openInHand. >> >> You can then draw further stuff with the canvas and the morph will be >> updated accordingly. >> >> Does this help you? >> >> Best regards, >> Jakob >> >> 2017-06-23 22:43 GMT+02:00 Lorenzo Berendsen >> <lorenzoberendsen(a)hotmail.com>: >> > Hi All, >> > >> > >> > >> > I am trying to draw a simples 2D Line in months. >> > >> > I can’t understand what to do. >> > >> > >> > >> > Could someone help me with this? >> > >> > I have C, Pascal, VBA background, but none of these knowledge is helping >> > me… >> > >> > >> > >> > Regards, >> > >> > Lorenzo. >> >

1 0

Re: [squeak-dev] ENC: How to draw a 2D line
by Jakob Reschke 26 Jun '17

26 Jun '17

Hi Lorenzo, Are you familiar with browsing existing code in Squeak already? If not, I advise you have a look at the Squeak by Example book: https://hal.inria.fr/inria-00441576/file/SBE.pdf It also contains a chapter on drawing your own morphs. Otherwise you probably want to have a look at the classes Canvas and Form. A Form contains pixels and a Canvas can be used to draw things like points, lines, and other images to a graphical medium. A FormCanvas (a subclass of Canvas) can be used to draw on a Form. To display a Form in the world you can use an ImageMorph. The following creates a 32-Bit Form of 200x200 pixels, draws two lines on it and attaches the image to the mouse cursor (hand). form := Form extent: 200@200 depth: 32. canvas := FormCanvas on: form. canvas line: 0@0 to: 200@200 color: Color red. canvas line: 200@0 to: 0@200 color: Color blue. morph := ImageMorph new. morph image: form. morph openInHand. You can then draw further stuff with the canvas and the morph will be updated accordingly. Does this help you? Best regards, Jakob 2017-06-23 22:43 GMT+02:00 Lorenzo Berendsen <lorenzoberendsen(a)hotmail.com>: > Hi All, > > > > I am trying to draw a simples 2D Line in months. > > I can’t understand what to do. > > > > Could someone help me with this? > > I have C, Pascal, VBA background, but none of these knowledge is helping me… > > > > Regards, > > Lorenzo.

2 1

Planet squeak and friends
by Bruce O'Neel 26 Jun '17

26 Jun '17

Hi, This now seems to work though there are a few points: * [http://pharo.org/news/atom.xml](http://pharo.org/news/atom.xml) gives me a 502, but, [http://pharo.org/news/](http://pharo.org/news/atom.xml)Â works fine.Â Could someone look into this please? * I have renamed any site that still responds but has not been updated in 2017 to Historical - site name.Â There are sadly only 6 sites NOT marked historical and 16 marked historical.Â Surely there are some other squeak/pharo/?? blogs, right?Â If so, please send them to me! * In a few weeks most of the historical sites will disapear.Â * I've not looked hard at any other than planet.squeak.org.Â * Planetfr.squeak.org had no sites.Â Should we keep it? * As sad as I might be about it, croquet seems to have passed on.Â Should I just get rid of planetcroquet? Thanks.Â And thanks for the responses before.Â I'll implement them, don't worry. cheers bruce

5 4

← Newer
1
2
3
4
5
6
7
8
9
...
13
Older →