Squeak-dev April 2015

squeak-dev@lists.squeakfoundation.org

38 participants
642 discussions

Re: The Trunk: System-kfr.729.mcz
by Marcel Taeumel 29 Apr '15

29 Apr '15

Nice! :) However, the refresh action removes the icons if any. Can you honor the menu icons preference in this place? =) Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-System-kfr-729-mcz-tp4822828p4822878.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

The Trunk: Graphics-mt.312.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.312.mcz ==================== Summary ==================== Name: Graphics-mt.312 Author: mt Time: 29 April 2015, 5:03:50.235 pm UUID: ad5f17db-6eed-a44f-a07c-cbfb9d4e09ee Ancestors: Graphics-mt.311 Some descriptive testing functions added to layout frame. Also extracted calculation of minimum extent to separate methods for allowing layouting algorithms to process them separately and thus avoiding unnecessary calculations. =============== Diff against Graphics-mt.311 =============== Item was added: + ----- Method: LayoutFrame>>hasFixedHeight (in category 'testing') ----- + hasFixedHeight + + ^ self topFraction = self bottomFraction! Item was added: + ----- Method: LayoutFrame>>hasFixedWidth (in category 'testing') ----- + hasFixedWidth + + ^ self leftFraction = self rightFraction! Item was changed: ----- Method: LayoutFrame>>minExtentFrom: (in category 'layout') ----- minExtentFrom: minExtent "Return the minimal extent the given bounds can be represented in" + ^ (self minWidthFrom: minExtent x) @ (self minHeightFrom: minExtent y)! - | width height left right top bottom | - left := leftFraction ifNil: [0.0]. - right := rightFraction ifNil: [1.0]. - width := left = right - ifTrue: [0] - ifFalse: [minExtent x / (right - left)]. - top := topFraction ifNil: [0.0]. - bottom := bottomFraction ifNil: [1.0]. - height := bottom = top - ifTrue: [0] - ifFalse: [minExtent y / (bottom - top)]. - leftOffset ifNotNil:[width := width + leftOffset]. - rightOffset ifNotNil:[width := width + rightOffset]. - topOffset ifNotNil:[height := height + topOffset]. - bottomOffset ifNotNil:[height := height + bottomOffset]. - ^width truncated @ height truncated! Item was added: + ----- Method: LayoutFrame>>minHeightFrom: (in category 'layout') ----- + minHeightFrom: minHeight + "Return the minimal extent the given bounds can be represented in" + | height top bottom | + top := topFraction ifNil: [0.0]. + bottom := bottomFraction ifNil: [1.0]. + height := bottom = top + ifTrue: [0] + ifFalse: [minHeight / (bottom - top)]. + topOffset ifNotNil:[height := height + topOffset]. + bottomOffset ifNotNil:[height := height + bottomOffset]. + ^ height truncated! Item was added: + ----- Method: LayoutFrame>>minWidthFrom: (in category 'layout') ----- + minWidthFrom: minWidth + "Return the minimal extent the given bounds can be represented in" + | width left right | + left := leftFraction ifNil: [0.0]. + right := rightFraction ifNil: [1.0]. + width := left = right + ifTrue: [0] + ifFalse: [minWidth / (right - left)]. + leftOffset ifNotNil:[width := width + leftOffset]. + rightOffset ifNotNil:[width := width + rightOffset]. + ^width truncated!

1 0

The Trunk: Morphic-kfr.947.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.947.mcz ==================== Summary ==================== Name: Morphic-kfr.947 Author: kfr Time: 29 April 2015, 4:55:48.319 pm UUID: 47c12aa5-aea8-9943-9778-8c26762aa32a Ancestors: Morphic-mt.946 Add items from Standard System Fonts menu so they are decorated with icons =============== Diff against Morphic-mt.946 =============== Item was changed: ----- Method: MenuIcons class>>itemsIcons (in category 'menu decoration') ----- itemsIcons "answer a collection of associations wordings -> icon to decorate the menus all over the image" | icons | icons := OrderedCollection new. "icons add: #('Test Runner' ) -> self smallTrafficIcon." " world menu" icons add: #('previous project' 'go to previous project') -> self smallProjectBackIcon. icons add: #('go to next project') -> self smallProjectNextIcon. icons add: #('select' ) -> self smallSelectIcon. icons add: #('jump to project...' ) -> self smallProjectJumpIcon. icons add: #('open...' ) -> self smallOpenIcon. icons add: #('appearance...' ) -> self smallConfigurationIcon. icons add: #('help...' ) -> self smallHelpIcon. icons add: #('windows...' ) -> self smallWindowIcon. icons add: #('changes...' ) -> self smallChangesIcon. icons add: #('print PS to file...' ) -> self smallPrintIcon. icons add: #('debug...' ) -> self smallDebugIcon. icons add: #('export...' ) -> self smallExportIcon. icons add: #('save' ) -> self smallSaveIcon. icons add: #('save project on file...' ) -> self smallProjectSaveIcon. icons add: #('save as...') -> self smallSaveAsIcon. icons add: #('save as new version') -> self smallSaveNewIcon. icons add: #('save and quit' ) -> self smallQuitIcon. icons add: #('quit') -> self smallQuitNoSaveIcon. icons add: #('load project from file...' ) -> self smallProjectLoadIcon. "" icons add: #('do it (d)' ) -> self smallDoItIcon. icons add: #('inspect it (i)' 'explore it (I)' 'inspect world' 'explore world' 'inspect model' 'inspect morph' 'explore morph' 'inspect owner chain' 'explore' 'inspect' 'explore (I)' 'inspect (i)' 'basic inspect' ) -> self smallInspectItIcon. icons add: #('print it (p)' ) -> self smallPrintIcon. icons add: #('debug it' ) -> self smallDebugIcon. icons add: #('tally it' ) -> self smallTimerIcon. "" icons add: #('copy (c)' 'copy to paste buffer' 'copy text' ) -> self smallCopyIcon. icons add: #('paste (v)' 'paste...' ) -> self smallPasteIcon. icons add: #('cut (x)' ) -> self smallCutIcon. "" icons add: #('accept (s)' 'yes' 'Yes' ) -> self smallOkIcon. icons add: #('cancel (l)' 'no' 'No' ) -> self smallCancelIcon. "" icons add: #('do again (j)' ) -> self smallRedoIcon. icons add: #('undo (z)' ) -> self smallUndoIcon. "" icons add: #( 'find class... (f)' 'find method...' ) -> self smallSearchIcon. icons add: #('find...(f)' 'find again (g)') -> self smallFindIcon. "" icons add: #('remove' 'remove class (x)' 'delete method from changeset (d)' 'remove method from system (x)' 'delete class from change set (d)' 'remove class from system (x)' 'destroy change set (X)' ) -> self smallDeleteIcon. icons add: #('add item...' 'new category...' 'new change set... (n)' ) -> self smallNewIcon. "" icons add: #('new morph...' 'objects (o)' ) -> self smallObjectCatalogIcon. icons add: #('authoring tools...') -> self smallAuthoringToolsIcon. icons add: #('projects...') -> self smallProjectIcon. "" icons add: #('make screenshot') -> self smallScreenshotIcon. "" icons add: #('leftFlush' ) -> self smallLeftFlushIcon. icons add: #('rightFlush' ) -> self smallRightFlushIcon. icons add: #('centered' 'set alignment... (u)' ) -> self smallCenteredIcon. icons add: #('justified' ) -> self smallJustifiedIcon. "" + icons add: #('set font... (k)' 'list font...' 'set subtitles font' 'change font' 'system fonts...' 'change font...' 'default text font...' 'flaps font...' 'eToys font...' 'eToys title font...' 'halo label font...' 'menu font...' 'window-title font...' 'balloon-help font...' 'code font...' 'button font...') -> self smallFontsIcon. - icons add: #('set font... (k)' 'list font...' 'set subtitles font' 'change font' 'system fonts...' 'change font...' ) -> self smallFontsIcon. icons add: #('full screen on') -> self smallFullscreenOnIcon. icons add: #('full screen off' ) -> self smallFullscreenOffIcon. "" ^ icons!

1 0

The Trunk: System-kfr.730.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Karl Ramberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-kfr.730.mcz ==================== Summary ==================== Name: System-kfr.730 Author: kfr Time: 29 April 2015, 4:50:44.091 pm UUID: bef4be7a-89a1-fa4a-9640-a1adeb2b3d4f Ancestors: System-kfr.729 Make sure the menu icons are added if needed to Standard System Fonts menu =============== Diff against System-kfr.729 =============== Item was changed: ----- Method: Preferences class>>fontConfigurationMenu: (in category 'fonts') ----- fontConfigurationMenu: aMenu aMenu removeAllMorphs. aMenu addTitle: 'Standard System Fonts' translated. aMenu addStayUpIcons. aMenu add: 'default text font...' translated action: #chooseSystemFont. - aMenu balloonTextForLastItem: 'Choose the default font to be used for code and in workspaces, transcripts, etc.' translated. aMenu lastItem font: Preferences standardDefaultTextFont. + aMenu balloonTextForLastItem: 'Choose the default font to be used for code and in workspaces, transcripts, etc.' translated. + aMenu add: 'list font...' translated action: #chooseListFont. aMenu lastItem font: Preferences standardListFont. aMenu balloonTextForLastItem: 'Choose the font to be used in list panes' translated. aMenu add: 'flaps font...' translated action: #chooseFlapsFont. aMenu lastItem font: Preferences standardFlapFont. aMenu balloonTextForLastItem: 'Choose the font to be used on textual flap tabs' translated. aMenu add: 'eToys font...' translated action: #chooseEToysFont. aMenu lastItem font: Preferences standardEToysFont. aMenu balloonTextForLastItem: 'Choose the font to be used on eToys environment' translated. aMenu add: 'eToys title font...' translated action: #chooseEToysTitleFont. aMenu lastItem font: Preferences standardEToysTitleFont. aMenu balloonTextForLastItem: 'Choose the font to be used in titles on eToys environment' translated. aMenu add: 'halo label font...' translated action: #chooseHaloLabelFont. aMenu lastItem font: Preferences standardHaloLabelFont. aMenu balloonTextForLastItem: 'Choose the font to be used on labels ih halo' translated. aMenu add: 'menu font...' translated action: #chooseMenuFont. aMenu lastItem font: Preferences standardMenuFont. aMenu balloonTextForLastItem: 'Choose the font to be used in menus' translated. aMenu add: 'window-title font...' translated action: #chooseWindowTitleFont. aMenu lastItem font: Preferences windowTitleFont. aMenu balloonTextForLastItem: 'Choose the font to be used in window titles.' translated. aMenu add: 'balloon-help font...' translated action: #chooseBalloonHelpFont. aMenu lastItem font: Preferences standardBalloonHelpFont. aMenu balloonTextForLastItem: 'choose the font to be used when presenting balloon help.' translated. aMenu add: 'code font...' translated action: #chooseCodeFont. aMenu lastItem font: Preferences standardCodeFont. aMenu balloonTextForLastItem: 'Choose the font to be used in code panes.' translated. aMenu add: 'button font...' translated action: #chooseStandardButtonFont. aMenu lastItem font: Preferences standardButtonFont. aMenu balloonTextForLastItem: 'Choose the font to be used in buttons.' translated. aMenu addLine. aMenu add: 'demo mode' translated action: #setDemoFonts. aMenu balloonTextForLastItem: 'Set Fonts usable for giving a presentation' translated. aMenu addLine. aMenu add: 'restore default font choices' translated action: #restoreDefaultFonts. aMenu balloonTextForLastItem: 'Use the standard system font defaults' translated. aMenu add: 'print default font choices' translated action: #printStandardSystemFonts. aMenu balloonTextForLastItem: 'Print the standard system font defaults to the Transcript' translated. aMenu addLine. aMenu add: 'refresh this menu' translated target: self selector: #fontConfigurationMenu: argument: aMenu. aMenu balloonTextForLastItem: 'Update this menu to reflect the current fonts' translated. + MenuIcons decorateMenu: aMenu. ^ aMenu!

1 0

The Trunk: System-kfr.729.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Karl Ramberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-kfr.729.mcz ==================== Summary ==================== Name: System-kfr.729 Author: kfr Time: 29 April 2015, 12:31:58.459 pm UUID: 4db84a78-9973-eb45-bd03-db12857214db Ancestors: System-cmm.728 Add a 'refresh this menu' item to the Standard System Fonts menu, so it can update to reflect the current selected fonts =============== Diff against System-cmm.728 =============== Item was changed: ----- Method: Preferences class>>fontConfigurationMenu (in category 'fonts') ----- fontConfigurationMenu | aMenu | aMenu := MenuMorph new defaultTarget: Preferences. + ^self fontConfigurationMenu: aMenu. - aMenu addTitle: 'Standard System Fonts' translated. - aMenu addStayUpIcons. + ! - aMenu add: 'default text font...' translated action: #chooseSystemFont. - aMenu balloonTextForLastItem: 'Choose the default font to be used for code and in workspaces, transcripts, etc.' translated. - aMenu lastItem font: Preferences standardDefaultTextFont. - - aMenu add: 'list font...' translated action: #chooseListFont. - aMenu lastItem font: Preferences standardListFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in list panes' translated. - - aMenu add: 'flaps font...' translated action: #chooseFlapsFont. - aMenu lastItem font: Preferences standardFlapFont. - aMenu balloonTextForLastItem: 'Choose the font to be used on textual flap tabs' translated. - - aMenu add: 'eToys font...' translated action: #chooseEToysFont. - aMenu lastItem font: Preferences standardEToysFont. - aMenu balloonTextForLastItem: 'Choose the font to be used on eToys environment' translated. - - aMenu add: 'eToys title font...' translated action: #chooseEToysTitleFont. - aMenu lastItem font: Preferences standardEToysTitleFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in titles on eToys environment' translated. - - aMenu add: 'halo label font...' translated action: #chooseHaloLabelFont. - aMenu lastItem font: Preferences standardHaloLabelFont. - aMenu balloonTextForLastItem: 'Choose the font to be used on labels ih halo' translated. - - aMenu add: 'menu font...' translated action: #chooseMenuFont. - aMenu lastItem font: Preferences standardMenuFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in menus' translated. - - aMenu add: 'window-title font...' translated action: #chooseWindowTitleFont. - aMenu lastItem font: Preferences windowTitleFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in window titles.' translated. - - aMenu add: 'balloon-help font...' translated action: #chooseBalloonHelpFont. - aMenu lastItem font: Preferences standardBalloonHelpFont. - aMenu balloonTextForLastItem: 'choose the font to be used when presenting balloon help.' translated. - - aMenu add: 'code font...' translated action: #chooseCodeFont. - aMenu lastItem font: Preferences standardCodeFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in code panes.' translated. - - aMenu add: 'button font...' translated action: #chooseStandardButtonFont. - aMenu lastItem font: Preferences standardButtonFont. - aMenu balloonTextForLastItem: 'Choose the font to be used in buttons.' translated. - - aMenu addLine. - aMenu add: 'demo mode' translated action: #setDemoFonts. - aMenu balloonTextForLastItem: 'Set Fonts usable for giving a presentation' translated. - - aMenu addLine. - aMenu add: 'restore default font choices' translated action: #restoreDefaultFonts. - aMenu balloonTextForLastItem: 'Use the standard system font defaults' translated. - - aMenu add: 'print default font choices' translated action: #printStandardSystemFonts. - aMenu balloonTextForLastItem: 'Print the standard system font defaults to the Transcript' translated. - - ^ aMenu! Item was added: + ----- Method: Preferences class>>fontConfigurationMenu: (in category 'fonts') ----- + fontConfigurationMenu: aMenu + + aMenu removeAllMorphs. + aMenu addTitle: 'Standard System Fonts' translated. + aMenu addStayUpIcons. + + aMenu add: 'default text font...' translated action: #chooseSystemFont. + aMenu balloonTextForLastItem: 'Choose the default font to be used for code and in workspaces, transcripts, etc.' translated. + aMenu lastItem font: Preferences standardDefaultTextFont. + + aMenu add: 'list font...' translated action: #chooseListFont. + aMenu lastItem font: Preferences standardListFont. + aMenu balloonTextForLastItem: 'Choose the font to be used in list panes' translated. + + aMenu add: 'flaps font...' translated action: #chooseFlapsFont. + aMenu lastItem font: Preferences standardFlapFont. + aMenu balloonTextForLastItem: 'Choose the font to be used on textual flap tabs' translated. + + aMenu add: 'eToys font...' translated action: #chooseEToysFont. + aMenu lastItem font: Preferences standardEToysFont. + aMenu balloonTextForLastItem: 'Choose the font to be used on eToys environment' translated. + + aMenu add: 'eToys title font...' translated action: #chooseEToysTitleFont. + aMenu lastItem font: Preferences standardEToysTitleFont. + aMenu balloonTextForLastItem: 'Choose the font to be used in titles on eToys environment' translated. + + aMenu add: 'halo label font...' translated action: #chooseHaloLabelFont. + aMenu lastItem font: Preferences standardHaloLabelFont. + aMenu balloonTextForLastItem: 'Choose the font to be used on labels ih halo' translated. + + aMenu add: 'menu font...' translated action: #chooseMenuFont. + aMenu lastItem font: Preferences standardMenuFont. + aMenu balloonTextForLastItem: 'Choose the font to be used in menus' translated. + + aMenu add: 'window-title font...' translated action: #chooseWindowTitleFont. + aMenu lastItem font: Preferences windowTitleFont. + aMenu balloonTextForLastItem: 'Choose the font to be used in window titles.' translated. + + aMenu add: 'balloon-help font...' translated action: #chooseBalloonHelpFont. + aMenu lastItem font: Preferences standardBalloonHelpFont. + aMenu balloonTextForLastItem: 'choose the font to be used when presenting balloon help.' translated. + + aMenu add: 'code font...' translated action: #chooseCodeFont. + aMenu lastItem font: Preferences standardCodeFont. + aMenu balloonTextForLastItem: 'Choose the font to be used in code panes.' translated. + + aMenu add: 'button font...' translated action: #chooseStandardButtonFont. + aMenu lastItem font: Preferences standardButtonFont. + aMenu balloonTextForLastItem: 'Choose the font to be used in buttons.' translated. + + aMenu addLine. + aMenu add: 'demo mode' translated action: #setDemoFonts. + aMenu balloonTextForLastItem: 'Set Fonts usable for giving a presentation' translated. + + aMenu addLine. + aMenu add: 'restore default font choices' translated action: #restoreDefaultFonts. + aMenu balloonTextForLastItem: 'Use the standard system font defaults' translated. + + aMenu add: 'print default font choices' translated action: #printStandardSystemFonts. + aMenu balloonTextForLastItem: 'Print the standard system font defaults to the Transcript' translated. + + aMenu addLine. + aMenu add: 'refresh this menu' translated target: self selector: #fontConfigurationMenu: argument: aMenu. + aMenu balloonTextForLastItem: 'Update this menu to reflect the current fonts' translated. + ^ aMenu!

1 0

The Trunk: Morphic-mt.946.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.946.mcz ==================== Summary ==================== Name: Morphic-mt.946 Author: mt Time: 29 April 2015, 8:30:36.16 am UUID: 9a8b385d-ad62-d14f-a4c1-928b41601c34 Ancestors: Morphic-mt.945, Morphic-DS.916 Basic hook added to support non-uniform border styles such as "top line only". =============== Diff against Morphic-mt.945 =============== Item was added: + ----- Method: BorderStyle>>inset (in category 'accessing') ----- + inset + "Possible inset when honoring this border style. The default implementation uses #width to return a uniform inset." + ^ self width! Item was changed: ----- Method: Canvas>>fillRectangle:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- fillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle "Fill the given rectangle." aFillStyle isTransparent ifFalse:[ + self fillRectangle: (aRectangle insetBy: aBorderStyle inset) fillStyle: aFillStyle]. - self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle]. aBorderStyle ifNil:[^self]. aBorderStyle width <= 0 ifTrue:[^self]. + aBorderStyle frameRectangle: aRectangle on: self.! - aBorderStyle frameRectangle: aRectangle on: self - ! Item was changed: ----- Method: Morph>>innerBounds (in category 'geometry') ----- innerBounds "Return the inner rectangle enclosed by the bounds of this morph excluding the space taken by its borders. For an unbordered morph, this is just its bounds." + ^ self bounds insetBy: self borderStyle inset! - ^ self bounds insetBy: self borderWidth!

1 0

The Trunk: System-cmm.728.mcz
by commits＠source.squeak.org 29 Apr '15

29 Apr '15

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.728.mcz ==================== Summary ==================== Name: System-cmm.728 Author: cmm Time: 28 April 2015, 8:05:45.267 pm UUID: b5d7931b-5910-4d0c-bf8c-41edb3b40062 Ancestors: System-cmm.724, System-kfr.727 Restored the much safer version of Preferences class>>#preferenceAt:ifAbsent:. =============== Diff against System-kfr.727 =============== Item was changed: ----- Method: Preferences class>>preferenceAt:ifAbsent: (in category 'preference-object access') ----- preferenceAt: aSymbol ifAbsent: aBlock "Answer the Preference object at the given symbol, or the value of aBlock if not present" + self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | + dictionaryOfPreferences + at: aSymbol + ifPresent: [ :preference | ^preference ] ]. + ^aBlock value! - ^self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | - dictionaryOfPreferences at: aSymbol ifAbsent: aBlock ]!

1 0

competition for SIGTERM
by Chris Muller 29 Apr '15

29 Apr '15

OSProcess provides the ability to set up and wait on any of several semaphores which will be signaled if the VM process running the current image gets a posix signal. A few years ago I added a handler for SqueakSource's startUp: to set up a response to TERM, like this: restartSigTermHandler SigTermHandler ifNotNil: [ SigTermHandler terminate ]. SigTermHandler := [ OSProcess accessor restoreSigTerm. OSProcess accessor forwardSigTerm wait. SSRepository current log: 'SIGTERM received, shutting down gracefully.'. self shutDown. Smalltalk snapshot: false andQuit: true ] newProcess name: 'Waiting for SIGTERM for graceful shutdown' ; resume But now I want Magma servers to be able to respond similarly whether SqueakSource is loaded in the same image or not. But if I were to introduce the above into Magma, then if SqueakSource was also loaded, there would either be two processes waiting to shutdown or one of them would run and the other wouldn't. So this led me to ask, what is the best way to handle this in a general fashion? This is at the process level, so the first answer I came up with was that it would make sense for the out-of-the-box behavior to respond to TERM with a "Smalltalk snapshot: false andQuit: true" so that each framework can do their own proper thing in #shutDown:... Is this a good idea or what is?

3 5

Daily Commit Log
by commits＠source.squeak.org 28 Apr '15

28 Apr '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-April/008157.html Name: System.spur-kfr.725 Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724 Register fileService for *.pref. Preferences can now be loaded from FileList ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008158.html Name: Morphic-mt.944 Ancestors: Morphic-mt.943 Small cosmetic fix for visual wrap border. Respects margins of textMorph now. Colors a little bit more friendly. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008159.html Name: System-kfr.726 Ancestors: System-cmm.725 Register fileService for *.pref. Preferences can now be loaded from FileList ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008160.html Name: System-kfr.727 Ancestors: System-kfr.726 Missing method for loading preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008161.html Name: ToolBuilder-Kernel-mt.84 Ancestors: ToolBuilder-Kernel-mt.83 Fixed font defaults in code panes and texts. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008162.html Name: ToolBuilder-Morphic-mt.140 Ancestors: ToolBuilder-Morphic-mt.139 Text fields now correctly respect #font in spec. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008163.html Name: Morphic-mt.945 Ancestors: Morphic-mt.944 Do not use soft line wrap property for *all* pluggable text fields in the system. Tool builder will take care of reading that property. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008164.html Name: ToolBuilder-Morphic-mt.141 Ancestors: ToolBuilder-Morphic-mt.140 Wrap lines for code panes according to preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008165.html Name: System.spur-cmm.725 Ancestors: System-cmm.725, System.spur-mt.724 System-cmm.725 patched for Spur by SpurBootstrapMonticelloPackagePatcher * Cog-eem.261 - Attempting to load preferences is blowing up, fix by restoring the old one-click behavior. - Proper fix for browsing allStoresInto: SomeClassVar from: aClassOrMetaclass, so that all stores occurring in either the instance or class side will be revealed even if the browse was initiated from the class-side. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008166.html Name: System.spur-kfr.726 Ancestors: System-kfr.726, System.spur-cmm.725 System-kfr.726 patched for Spur by SpurBootstrapMonticelloPackagePatcher * Cog-eem.261 Register fileService for *.pref. Preferences can now be loaded from FileList ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-April/008167.html Name: System.spur-kfr.727 Ancestors: System-kfr.727, System.spur-kfr.726 System-kfr.727 patched for Spur by SpurBootstrapMonticelloPackagePatcher * Cog-eem.261 Missing method for loading preferences =============================================

1 0

The Trunk: System.spur-kfr.727.mcz
by commits＠source.squeak.org 28 Apr '15

28 Apr '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System.spur-kfr.727.mcz ==================== Summary ==================== Name: System.spur-kfr.727 Author: eem Time: 28 April 2015, 1:56:19.555 pm UUID: 833f8e42-15f8-47d6-8b91-9736ae4489d1 Ancestors: System-kfr.727, System.spur-kfr.726 System-kfr.727 patched for Spur by SpurBootstrapMonticelloPackagePatcher * Cog-eem.261 Missing method for loading preferences =============== Diff against System-kfr.727 =============== Item was removed: - ----- Method: Object>>oopAge (in category '*system-support') ----- - oopAge - ^ ObjectHistory current ageOf: self! Item was removed: - ----- Method: Object>>oopTimestamp (in category '*system-support') ----- - oopTimestamp - ^ ObjectHistory current timestampOf: self! Item was removed: - Object subclass: #ObjectHistory - instanceVariableNames: 'marks markProcess' - classVariableNames: 'Current' - poolDictionaries: '' - category: 'System-Support'! - - !ObjectHistory commentStamp: 'bf 11/16/2012 12:19' prior: 0! - ObjectHistory holds ObjectHistoryMark objects which are placed in the object memory at regular intervals by its markProcess in the background. Adjacent marks (with no remaining objects inbetween) are coalesced so over time the collection does not grow unnecessarily large. - - Using these markers it is possible to determine the age of objects in memory from the time the ObjectHistory was initialized. Try e.g.: - self oopTimestamp. - self oopAge. - ObjectHistory current oopClassesByDate. - - Instance Variables - marks: SortedCollection of ObjectHistoryMark objects - markProcess: a Process running our markLoop - ! Item was removed: - ----- Method: ObjectHistory class>>current (in category 'accessing') ----- - current - ^ Current ifNil: [Current := self new]! Item was removed: - ----- Method: ObjectHistory class>>initialize (in category 'class initialization') ----- - initialize - self current. - ! Item was removed: - ----- Method: ObjectHistory class>>obsolete (in category 'class initialization') ----- - obsolete - "Kill the mark process before removing the class." - Current ifNotNil: - [:objectHistory| - objectHistory terminate]. - super obsolete! Item was removed: - ----- Method: ObjectHistory>>ageOf: (in category 'queries') ----- - ageOf: anObject - "Age of anObject in seconds" - | timestamp | - timestamp := self timestampOf: anObject. - timestamp ifNil: [^0]. - ^(DateAndTime now - timestamp) asSeconds roundTo: self markRate! Item was removed: - ----- Method: ObjectHistory>>initialize (in category 'initializing') ----- - initialize - self restartMarkProcess. - - ! Item was removed: - ----- Method: ObjectHistory>>markLoop (in category 'marking') ----- - markLoop - [true] whileTrue: [ - self markUpdate. - (Delay forSeconds: self markRate) wait]! Item was removed: - ----- Method: ObjectHistory>>markRate (in category 'marking') ----- - markRate - "rate of creating ObjectHistoryMarks" - ^60! Item was removed: - ----- Method: ObjectHistory>>markUpdate (in category 'marking') ----- - markUpdate - "Add a new mark and compact the marks collection" - | mark prev | - "lazy init so this happens in the background process" - marks ifNil: [self reinitMarks]. - "add new mark to object memory" - mark := self newMark. - mark timestamp <= marks last timestamp ifTrue: [^self "could happen if clock is wrong"]. - marks addLast: mark. - "compact the table by removing adjacent marks" - prev := marks first. - marks removeAllSuchThat: [:each | | doDelete | - doDelete := prev objectAfter == each. - prev := each. - doDelete]. - "The loop above is O(n) in number of marks, but that number should never become so large to be an issue. Even if the number was large, this is running at system background priority so should not interfere with any user process, not even user background processes. The symptom should only be that the system is less idle. - - If we ever get to a point where the number of marks is an issue then the compacting here could be made partial: since old marks rarely get coalesced it would make sense to only check the newer ones often, and the old ones perhaps only at the system startup."! Item was removed: - ----- Method: ObjectHistory>>newMark (in category 'private') ----- - newMark - ^ ObjectHistoryMark new! Item was removed: - ----- Method: ObjectHistory>>oopClassesByAge (in category 'stats') ----- - oopClassesByAge - "Answer collection of (oopAge in seconds -> sorted counts of object classes) sorted from lowest age" - "ObjectHistory current oopClassesByAge" - - | stats prev endOfMemory now bag age obj | - endOfMemory := Object new. - stats := OrderedCollection new: 1000. - prev := nil. - now := self newMark timestamp. - marks do: [:mark | - prev ifNotNil: [ - bag := Bag new. - obj := prev objectAfter. - [obj == mark] whileFalse: [ - bag add: obj class. - obj := obj nextObject. - obj == endOfMemory ifTrue: [self error: 'should not happen']]. - age := (now - mark timestamp) asSeconds roundTo: self markRate. - stats addFirst: age -> bag sortedCounts]. - prev := mark]. - ^ stats - ! Item was removed: - ----- Method: ObjectHistory>>oopClassesByDate (in category 'stats') ----- - oopClassesByDate - "Answer collection of (Date -> sorted counts of object classes) sorted from newest date" - "ObjectHistory current oopClassesByDate" - - | stats prev endOfMemory bag date obj thisDate | - endOfMemory := Object new. - stats := OrderedCollection new: 1000. - prev := nil. - thisDate := nil. - bag := Bag new. - marks do: [:mark | - prev ifNotNil: [ - obj := prev objectAfter. - [obj == mark] whileFalse: [ - bag add: obj class. - obj := obj nextObject. - obj == endOfMemory ifTrue: [self error: 'should not happen']]. - date := mark timestamp asDate. - thisDate = date ifFalse: [ - stats addFirst: date -> bag sortedCounts. - bag := Bag new. - thisDate := date]]. - prev := mark]. - thisDate = date ifFalse: [ - stats addLast: date -> bag sortedCounts]. - ^ stats - ! Item was removed: - ----- Method: ObjectHistory>>oopCountsByAge (in category 'stats') ----- - oopCountsByAge - "Answer collection of (oopAge in seconds -> number of objects) sorted from lowest age" - "ObjectHistory current oopCountsByAge" - - | stats prev endOfMemory now n age obj | - endOfMemory := Object new. - stats := OrderedCollection new: 1000. - prev := nil. - now := self newMark timestamp. - marks do: [:mark | - prev ifNotNil: [ - n := 0. - obj := prev objectAfter. - [obj == mark] whileFalse: [ - n := n + 1. - obj := obj nextObject. - obj == endOfMemory ifTrue: [self error: 'should not happen']]. - age := (now - mark timestamp) asSeconds roundTo: self markRate. - stats addFirst: age -> n]. - prev := mark]. - ^ stats - ! Item was removed: - ----- Method: ObjectHistory>>reinitMarks (in category 'private') ----- - reinitMarks - marks := ObjectHistoryMark allInstances asOrderedCollection. - marks - ifEmpty: [marks add: self newMark] - ifNotEmpty: [ | prev | - prev := nil. - marks removeAllSuchThat: [:obj | - prev notNil and: [prev timestamp >= obj timestamp]]]. - ! Item was removed: - ----- Method: ObjectHistory>>restartMarkProcess (in category 'marking') ----- - restartMarkProcess - markProcess ifNotNil: [markProcess terminate]. - markProcess := [self markLoop] - forkAt: Processor systemBackgroundPriority - named: 'ObjectHistory''s markProcess'. - ! Item was removed: - ----- Method: ObjectHistory>>terminate (in category 'private') ----- - terminate - markProcess ifNotNil: - [markProcess terminate]! Item was removed: - ----- Method: ObjectHistory>>timestampOf: (in category 'queries') ----- - timestampOf: anObject - "Timestamp of anObject, or nil if too new" - | endOfMemory mark | - anObject class == SmallInteger ifTrue: [^nil]. - mark := anObject. - endOfMemory := Object new. - [mark class == ObjectHistoryMark] whileFalse: [ - mark := mark nextObject. - mark == endOfMemory ifTrue: [^nil]]. - ^mark timestamp! Item was removed: - Object subclass: #ObjectHistoryMark - instanceVariableNames: 'timestamp' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! - - !ObjectHistoryMark commentStamp: 'bf 11/7/2012 00:12' prior: 0! - An ObjectHistoryMark is a permanent mark in the object memory. It holds a timestamp. - - While the timestamp could be used directly as mark by ObjectHistory, it's conceivable that its format might change in the future, and we do not want the mark's relative position in memory to change (which would be the case if it was migrated to a new format). So we use a distinct object instead (and we protect it against accidental become-ing by overriding those methods).! Item was removed: - ----- Method: ObjectHistoryMark>>become: (in category 'mutating') ----- - become: otherObject - ^self error: 'marks need to stay fixed in the object memory'! Item was removed: - ----- Method: ObjectHistoryMark>>becomeForward: (in category 'mutating') ----- - becomeForward: otherObject - ^self error: 'marks need to stay fixed in the object memory'! Item was removed: - ----- Method: ObjectHistoryMark>>initialize (in category 'initialization') ----- - initialize - timestamp := DateAndTime now floor. - ! Item was removed: - ----- Method: ObjectHistoryMark>>objectAfter (in category 'accessing') ----- - objectAfter - "Answer the next object in memory after me and my timestamp" - | successor | - successor := self nextObject. - successor == timestamp - ifTrue: [successor := successor nextObject]. - ^ successor! Item was removed: - ----- Method: ObjectHistoryMark>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - nextPutAll: self class name; - nextPut: $(; - print: timestamp; - nextPut: $)! Item was removed: - ----- Method: ObjectHistoryMark>>timestamp (in category 'accessing') ----- - timestamp - ^timestamp - ! Item was changed: ----- Method: SmalltalkImage>>compactClassesArray (in category 'special objects') ----- compactClassesArray "Smalltalk compactClassesArray" + "Backward-compatibility support. Spur does not have compact classes." + ^{}! - "Return the array of 31 classes whose instances may be - represented compactly" - ^ self specialObjectsArray at: 29! Item was added: + ----- Method: SmalltalkImage>>growMemoryByAtLeast: (in category 'memory space') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Essential. Fail if no memory is available." + <primitive: 180> + (numBytes isInteger and: [numBytes > 0]) ifTrue: + [OutOfMemory signal]. + ^self primitiveFailed! Item was added: + ----- Method: SmalltalkImage>>maxIdentityHash (in category 'system attributes') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>primBytesLeft (in category 'memory space') ----- primBytesLeft + "Primitive. Answer the number of free bytes available in old space. + Not accurate unless preceded by - "Primitive. Answer the number of bytes available for new object data. - Not accurate unless preceded by Smalltalk garbageCollectMost (for reasonable accuracy), or Smalltalk garbageCollect (for real accuracy). + See Object documentation whatIsAPrimitive." - See Object documentation whatIsAPrimitive." <primitive: 112> + ^0! - ^ 0! Item was changed: ----- Method: SmalltalkImage>>primitiveGarbageCollect (in category 'memory space') ----- primitiveGarbageCollect + "Primitive. Reclaims all garbage and answers the size of the largest free chunk in old space.." - "Primitive. Reclaims all garbage and answers the number of bytes of available space." <primitive: 130> + ^self primitiveFailed! - ^ self primBytesLeft! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | + newArray := Array new: 60. - newArray := Array new: 58. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. + newArray at: 10 put: BoxedFloat64. + newArray at: 11 put: (self globals at: #MethodContext ifAbsent: [self globals at: #Context]). + newArray at: 12 put: nil. "was BlockContext." - newArray at: 10 put: Float. - newArray at: 11 put: MethodContext. - newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. + newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" - newArray at: 18 put: (self specialObjectsArray at: 18). - "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. + Cog inlines table into machine code at: prim so do not regenerate it. + This is nil in Spur, which has immediate Characters." - Cog inlines table into machine code at: prim so do not regenerate it." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. + "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" - "An array of up to 31 classes whose instances will have compact headers" newArray at: 29 put: self compactClassesArray. + newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" + newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" - newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" - newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" + newArray at: 32 put: nil. "was the prototype Float" + newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" + newArray at: 34 put: nil. "was the prototype Point" - newArray at: 32 put: nil. "was (Float new: 2)" - newArray at: 33 put: nil. "was (LargePositiveInteger new: 4)" - newArray at: 34 put: nil. "was Point new" newArray at: 35 put: #cannotInterpret:. + newArray at: 36 put: nil. "was the prototype MethodContext" - "Note: This must be fixed once we start using context prototypes (yeah, right)" - "(MethodContext new: CompiledMethod fullFrameSize)." - newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" newArray at: 37 put: BlockClosure. + newArray at: 38 put: nil. "was the prototype BlockContext" - "(BlockContext new: CompiledMethod fullFrameSize)." - newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" "array of objects referred to by external code" + newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" - newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" + newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" + newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" - newArray at: 41 put: nil. "Reserved for a LinkedList instance for overlapped calls in CogMT" - "finalization Semaphore" - newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" + newArray at: 51 put: #attemptToAssign:withIndex:. - "newArray at: 51 put: #attemptToAssign:withIndex:." - newArray at: 51 put: (self specialObjectsArray at: 51 ifAbsent: []). newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' + #'object is pinned' #'primitive write beyond end of object'). - #'object is pinned'). "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). + newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." - newArray at: 54 put: #invokeCallbackContext::. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). + "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." + newArray at: 56 put: nil. - "Weak reference finalization" - newArray at: 56 put: (self at: #WeakFinalizationList ifAbsent: []). "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. + "59 reserved for Sista counter tripped message" + newArray at: 59 put: #conditionalBranchCounterTrippedOn:. + "60 reserved for Sista class trap message" + newArray at: 60 put: #classTrapFor:. "Now replace the interpreter's reference in one atomic operation" + self specialObjectsArray becomeForward: newArray! - self specialObjectsArray becomeForward: newArray - ! Item was changed: ----- Method: SmalltalkImage>>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?" - "Adjust the VM's default GC parameters to avoid premature tenuring." + | 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"! - self vmParameterAt: 5 put: 4000. "do an incremental GC after this many allocations" - self vmParameterAt: 6 put: 2000. "tenure when more than this many objects survive the GC" - ! Item was changed: ----- Method: SpaceTally>>spaceForInstancesOf: (in category 'instance size') ----- spaceForInstancesOf: aClass + "Answer a pair of the number of bytes consumed by all instances of the + given class, including their object headers, and the number of instances." - "Answer the number of bytes consumed by all instances of the given class, including their object headers and the number of instances." + | instances total | + instances := aClass allInstances. + instances isEmpty ifTrue: [^#(0 0)]. - | smallHeaderSize instVarBytes isVariable bytesPerElement total lastInstance instance instanceCount | - instance := aClass someInstance ifNil: [ ^#(0 0) ]. - smallHeaderSize := aClass isCompact ifTrue: [ 4 ] ifFalse: [ 8 ]. - instVarBytes := aClass instSize * 4. - isVariable := aClass isVariable. - bytesPerElement := isVariable - ifFalse: [ 0 ] - ifTrue: [ aClass isBytes ifTrue: [ 1 ] ifFalse: [ 4 ] ]. total := 0. + aClass isVariable + ifTrue: + [instances do: + [:i| total := total + (aClass byteSizeOfInstanceOfSize: i basicSize)]] + ifFalse: + [total := instances size * aClass byteSizeOfInstance]. + ^{ total. instances size }! - instanceCount := 0. - "A modified version of #allInstancesDo: is inlined here. It avoids an infinite loop when another process is creating new instances of aClass." - self flag: #allInstancesDo:. - lastInstance := - aClass == CompiledMethod "CompiledMethod has special format, see its class comment" - ifTrue: [aClass new] - ifFalse: [aClass basicNew]. - [ instance == lastInstance ] whileFalse: [ - | contentBytes headerBytes | - contentBytes := instVarBytes + (isVariable - ifFalse: [ 0 ] - ifTrue: [ instance basicSize * bytesPerElement ]). - headerBytes := contentBytes > 255 - ifTrue: [ 12 ] - ifFalse: [ smallHeaderSize ]. - total := total + headerBytes + (contentBytes roundUpTo: 4). - instanceCount := instanceCount + 1. - instance := instance nextInstance ]. - ^{ total. instanceCount }! Item was added: + ----- 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." + <primitive: 180> + ^(numBytes isInteger and: [numBytes > 0]) + ifTrue: [OutOfMemory signal] + ifFalse: [self primitiveFailed]! Item was added: + ----- Method: SystemDictionary>>maxIdentityHash (in category 'system attributes') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was added: + ----- 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"! Item was added: + ----- Method: SystemNavigation>>allObjects (in category 'query') ----- + allObjects + "Answer an Array of all objects in the system. Fail if + there isn't enough memory to instantiate the result." + <primitive: 178> + ^self primitiveFailed! Item was changed: ----- Method: SystemNavigation>>allObjectsDo: (in category 'query') ----- allObjectsDo: aBlock + "Evaluate the argument, aBlock, for each object in the system, excluding immediates + such as SmallInteger and Character." + self allObjectsOrNil + ifNotNil: [:allObjects| allObjects do: aBlock] + ifNil: + ["Fall back on the old single object primitive code. With closures, this needs + to use an end marker (lastObject) since activation of the block will create + new contexts and cause an infinite loop. The lastObject must be created + before calling someObject, so that the VM can settle the enumeration (e.g. + by flushing new space) as a side effect of someObject" + | object lastObject | + lastObject := Object new. + object := self someObject. + [lastObject == object or: [0 == object]] whileFalse: + [aBlock value: object. + object := object nextObject]]! - "Evaluate the argument, aBlock, for each object in the system - excluding SmallIntegers. With closures, this needs to use an end - marker (lastObject) since activation of the block will create new - contexts and cause an infinite loop." - | object lastObject | - object := self someObject. - lastObject := Object new. - [lastObject == object or: [0 == object]] - whileFalse: [aBlock value: object. - object := object nextObject]! Item was added: + ----- Method: SystemNavigation>>allObjectsOrNil (in category 'query') ----- + allObjectsOrNil + "Answer an Array of all objects in the system. Fail if there isn't + enough memory to instantiate the result and answer nil." + <primitive: 178> + ^nil!

1 0

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

Jump to page: