Packages January 2021

packages@lists.squeakfoundation.org

1 participants
42 discussions

The Trunk: ToolBuilder-MVC-mt.63.mcz
by commits＠source.squeak.org 06 Jan '21

06 Jan '21

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.63.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.63 Author: mt Time: 6 January 2021, 10:54:51.611417 am UUID: 3d989178-1d1f-9343-b240-39472ac722dd Ancestors: ToolBuilder-MVC-mt.62, ToolBuilder-MVC-ct.60 Merges ToolBuilder-MVC-ct.60, which got shadowed by ToolBuilder-MVC-TheresaHMartenK.60 last June. =============== Diff against ToolBuilder-MVC-mt.62 =============== Item was changed: ----- Method: MVCToolBuilder>>open: (in category 'opening') ----- open: anObject "Build and open the object. Answer the widget opened." | window | + window := (anObject isKindOf: View orOf: PopUpMenu) - window := (anObject isKindOf: View) ifTrue: [anObject] ifFalse: [self build: anObject]. (window isKindOf: PopUpMenu) ifTrue: [window invokeOn: nil]. (window isKindOf: View) ifTrue: [window controller open]. ^window!

1 0

The Trunk: ST80-mt.263.mcz
by commits＠source.squeak.org 06 Jan '21

06 Jan '21

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.263.mcz ==================== Summary ==================== Name: ST80-mt.263 Author: mt Time: 6 January 2021, 10:33:34.521417 am UUID: 06e12acc-4e20-0c4c-9e25-ca0838ccf765 Ancestors: ST80-mt.262 Fixes auto-indent bug in MVC text editors by supporting type-aheads with size > 1 outside the context of copy-paste (and similar) in #zapSelectionWithCompositionWith:. Note that dynamic character composition is not supported in Morphic's TextEditor, I suppose. We might want to add that, too. Yoshiki added this feature in 2007 only to ST80/MVC. =============== Diff against ST80-mt.262 =============== Item was changed: ----- Method: ParagraphEditor>>zapSelectionWithCompositionWith: (in category 'accessing-selection') ----- zapSelectionWithCompositionWith: aString "Deselect, and replace the selection text by aString. Remember the resulting selectionInterval in UndoInterval and otherInterval. Do not set up for undo." | stream newString aText beforeChar | wasComposition := false. ((aString isEmpty or: [(beforeChar := self charBefore) isNil]) or: [ + aString size >= 1 and: [(Unicode isComposition: aString first) not]]) ifTrue: [ - aString size = 1 and: [(Unicode isComposition: aString first) not]]) ifTrue: [ ^ self zapSelectionWith: (Text string: aString emphasis: emphasisHere)]. stream := UnicodeCompositionStream on: (String new: 16). stream nextPut: beforeChar. stream nextPutAll: aString. newString := stream contents. aText := Text string: newString emphasis: emphasisHere. self markBlock < self pointBlock ifTrue: [self setMark: self markBlock stringIndex - 1] ifFalse: [self setPoint: self pointBlock stringIndex - 1]. wasComposition := true. self zapSelectionWith: aText. !

1 0

The Trunk: Monticello-mt.735.mcz
by commits＠source.squeak.org 05 Jan '21

05 Jan '21

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.735.mcz ==================== Summary ==================== Name: Monticello-mt.735 Author: mt Time: 5 January 2021, 1:23:12.398865 pm UUID: b2a82046-9f24-4838-896b-6f669aa8a65d Ancestors: Monticello-mt.734 Consider version infos being working copies "in disguise" :-) =============== Diff against Monticello-mt.734 =============== Item was changed: ----- Method: MCAncestry>>isWorkingAncestry (in category 'testing') ----- isWorkingAncestry + + ^ self name = self nameForWorkingCopy! - ^ false! Item was added: + ----- Method: MCAncestry>>nameForWorkingCopy (in category 'ancestry') ----- + nameForWorkingCopy + + ^ '<working copy>'! Item was changed: ----- Method: MCVersionInfo>>name (in category 'accessing') ----- name + ^ name ifNil: [self nameForWorkingCopy]! - ^ name ifNil: ['<working copy>']! Item was changed: ----- Method: MCWorkingAncestry>>name (in category 'testing') ----- name + ^ self nameForWorkingCopy! - ^ '<working copy>'!

1 0

The Trunk: Monticello-mt.734.mcz
by commits＠source.squeak.org 05 Jan '21

05 Jan '21

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.734.mcz ==================== Summary ==================== Name: Monticello-mt.734 Author: mt Time: 5 January 2021, 1:09:08.981865 pm UUID: 93fdf435-68a1-4ace-a7a9-d9d86fb3118f Ancestors: Monticello-mt.733 Alternative fix for the problem addressed in Monticello-nice.734 =============== Diff against Monticello-mt.733 =============== Item was added: + ----- Method: MCAncestry>>isWorkingAncestry (in category 'testing') ----- + isWorkingAncestry + ^ false! Item was added: + ----- Method: MCVersionHistoryBrowser>>package (in category 'accessing') ----- + package + ^ package! Item was changed: ----- Method: MCVersionHistoryBrowser>>selectedSnapshot (in category 'accessing') ----- selectedSnapshot + ^ self selectedInfo isWorkingAncestry + ifTrue: [self package snapshot] + ifFalse: [self snapshotForInfo: self selectedInfo]! - ^ self snapshotForInfo: self selectedInfo! Item was added: + ----- Method: MCWorkingAncestry>>isWorkingAncestry (in category 'testing') ----- + isWorkingAncestry + ^ true!

1 0

The Trunk: PreferenceBrowser-mt.110.mcz
by commits＠source.squeak.org 04 Jan '21

04 Jan '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.110.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.110 Author: mt Time: 4 January 2021, 1:30:47.80744 pm UUID: c536a6cc-a1e2-4634-bebc-7e27aa40b27b Ancestors: PreferenceBrowser-mt.109 Fixes minor slip in wizard's last update. Sorry for the noise. =============== Diff against PreferenceBrowser-mt.109 =============== Item was changed: ----- Method: PreferenceWizardMorph>>adjustSettingsForLowPerformance (in category 'support') ----- adjustSettingsForLowPerformance self updateLowPerformanceLabel: 'Please wait, optimizing performance...' translated. self refreshWorld. self stateGradients "flat look" ifFalse: [self toggleGradients]. self stateBlinkingCursor ifTrue: [self toggleBlinkingCursor]. self stateFastDrag ifFalse: [self toggleFastDrag]. self stateSoftShadows ifTrue: [self toggleSoftShadows]. self stateHardShadows ifTrue: [self toggleHardShadows]. self stateRoundedWindowLook ifTrue: [self toggleRoundedWindowLook]. self stateRoundedButtonLook ifTrue: [self toggleRoundedButtonLook]. self stateAttachToolsToMouse ifTrue: [self toggleAttachToolsToMouse]. self stateToolAndMenuIcons ifTrue: [self toggleToolAndMenuIcons]. self stateSmartHorizontalSplitters ifTrue: [self toggleSmartHorizontalSplitters]. self stateSmartVerticalSplitters ifTrue: [self toggleSmartVerticalSplitters]. PluggableListMorph highlightHoveredRow: false; filterableLists: false; highlightPreSelection: true; "Feedback is important!!" flashOnErrors: false. TheWorldMainDockingBar showSecondsInClock: false. Preferences disable: #balloonHelpInMessageLists. "Set simple background." + self currentWorld setAsBackground: MorphicProject defaultFill. - Project current world setAsBackground: MorphicProject defaultFill. - previewWorld fillStyle: Project current world fillStyle. "Done." self updateLowPerformanceLabel: 'Settings were adjusted for optimal performance.' translated.!

1 0

The Trunk: PreferenceBrowser-mt.109.mcz
by commits＠source.squeak.org 04 Jan '21

04 Jan '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.109.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.109 Author: mt Time: 4 January 2021, 1:15:55.86444 pm UUID: 42f005a2-2686-4bda-8d58-486b6881ae54 Ancestors: PreferenceBrowser-mt.108 Speed up preference wizard open about 10x =============== Diff against PreferenceBrowser-mt.108 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initialize (in category 'initialization') ----- initialize super initialize. isFullScreen := false. self hasLowPerformance ifTrue: [self color: self defaultColor] ifFalse: [self color: (self defaultColor alpha: 0.75)]. self setProperty: #indicateKeyboardFocus toValue: #never. - Preferences enable: #systemWindowEmbedOK. - - titleMorph := ('Welcome to Squeak' translated asText - addAttribute: (TextColor color: self defaultTextColor); - addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20)); - yourself) asMorph lock. - titleMorph margins: (10@0 corner: 10@10). - titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). - self - initializePages; - initializeButtons; - initializeControlMorph; - initializePreviewWorld; - initializeForLowPerformance. - - self changeProportionalLayout; layoutInset: 20; cellGap: 10; + cellPositioning: #center. + - cellPositioning: #center; - addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}. - self addKeyboardCaptureFilter: self.! Item was changed: + ----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization') ----- initializeButtons buttonRowMorph := Morph new color: Color transparent; changeTableLayout; listDirection: #leftToRight; cellGap: 10; layoutInset: (0@20 corner: 0@0); vResizing: #shrinkWrap; hResizing: #spaceFill; yourself. buttonRowMorph addAllMorphs: { previousButton := self createButton action: #previous; label: 'Previous' translated. pagesLabel := (self createLabel: '0 / 0') hResizing: #shrinkWrap; margins: (20@0 corner: 20@0); fullBounds; yourself. nextButton := self createButton action: #next; label: 'Next' translated. self createHorizontalSpacer. self createButton action: #accept; label: 'Done' translated}. - buttonRowMorph fullBounds. + buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)).! - buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)). - - - - startButton := (self createButton action: #showPlayfield; label: 'Configure' translated). - skipButton := (self createButton action: #showSqueak; label: 'Skip' translated). - - (startButton width max: skipButton width) in: [:w | - startButton hResizing: #rigid; width: w. - skipButton hResizing: #rigid; width: w. - - startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)). - skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))].! Item was changed: + ----- Method: PreferenceWizardMorph>>initializeControlMorph (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializeControlMorph (in category 'initialization') ----- initializeControlMorph controlMorph := Morph new color: Color transparent; changeTableLayout; listDirection: #topToBottom; hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: (0@0 corner: 10@0); layoutFrame: (LayoutFrame fractions: (0.0 @ 0 corner: 0.3 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated)); yourself. controlMorph addMorph: (self createLabel: 'Please take a few minutes and configure the look-and-feel of the environment. You can always adjust these settings later. You can see the effects of these settings in the live and editable windows to the right.' translated).! Item was removed: - ----- Method: PreferenceWizardMorph>>initializeForLowPerformance (in category 'initialization') ----- - initializeForLowPerformance - - lowPerformanceMorph := TextMorph new lock.! Item was changed: + ----- Method: PreferenceWizardMorph>>initializePages (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializePages (in category 'initialization') ----- initializePages pages := OrderedCollection new. currentPageIndex := 0. self initializePage01Themes; initializePage02Visuals; initializePage02bVisualsMore; initializePage03Interaction; initializePage04InteractionMore; initializePage05Tools.! Item was added: + ----- Method: PreferenceWizardMorph>>initializePlayfield (in category 'initialization') ----- + initializePlayfield + + self + initializePages; + initializeButtons; + initializeControlMorph; + initializePreviewWorld. + + self + addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}.! Item was changed: + ----- Method: PreferenceWizardMorph>>initializePreviewWorld (in category 'initialization - playfield') ----- - ----- Method: PreferenceWizardMorph>>initializePreviewWorld (in category 'initialization') ----- initializePreviewWorld | w1 w2 w3 | + Preferences enable: #systemWindowEmbedOK. previewWorld := PasteUpMorph new hResizing: #spaceFill; vResizing: #spaceFill; viewBox: (0@0 corner: 500@500); layoutFrame: (LayoutFrame fractions: (0.3 @ 0 corner: 1.0 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated)); fillStyle: Project current world fillStyle; borderWidth: 2; borderColor: Color white; cornerStyle: (self hasLowPerformance ifTrue: [#square] ifFalse: [#rounded]); yourself. w1 := (ToolSet browse: Morph selector: #drawOn:) dependents detect: [:ea | ea isSystemWindow]. w2 := ToolSet browseMessageSet: (SystemNavigation default allCallsOn: #negated) name: 'Senders' translated autoSelect: 'negated'. w3 := (Workspace new contents: '3+4 "Select and hit [CMD]+[P]."') openLabel: 'Workspace'. {w1. w2. w3} do: [:ea | ea makeUnclosable. previewWorld addMorph: ea]. self updateWindowBounds.! Item was added: + ----- Method: PreferenceWizardMorph>>initializeWelcome (in category 'initialization') ----- + initializeWelcome + + titleMorph := ('Welcome to Squeak' translated asText + addAttribute: (TextColor color: self defaultTextColor); + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20)); + yourself) asMorph lock. + titleMorph margins: (10@0 corner: 10@10). + titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). + + startButton := (self createButton action: #showPlayfield; label: 'Configure' translated). + skipButton := (self createButton action: #showSqueak; label: 'Skip' translated). + + (startButton width max: skipButton width) in: [:w | + startButton hResizing: #rigid; width: w. + skipButton hResizing: #rigid; width: w. + + startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)). + skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))]. + + lowPerformanceMorph := TextMorph new lock. + + self addAllMorphs: {titleMorph. startButton. skipButton. lowPerformanceMorph}.! Item was changed: ----- Method: PreferenceWizardMorph>>isInPlayfield (in category 'testing') ----- isInPlayfield + ^ previewWorld notNil and: [previewWorld visible]! - ^ previewWorld visible! Item was changed: ----- Method: PreferenceWizardMorph>>showPlayfield (in category 'actions') ----- showPlayfield + previewWorld ifNil: [self initializePlayfield]. + startButton hide. skipButton hide. lowPerformanceMorph hide. isFullScreen := true. self step. titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). self refreshWorld. 500 milliSeconds wait. controlMorph show. previewWorld show. buttonRowMorph show. self next. self refreshWorld. ! Item was changed: ----- Method: PreferenceWizardMorph>>showWelcome (in category 'actions') ----- showWelcome + self isInPlayfield ifTrue: [^ self "Not possible to go back due to fast-init strategy."]. + titleMorph ifNil: [self initializeWelcome]. + titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0.65) offsets: (0 @0 corner: 0@0)). isFullScreen := false. self height: titleMorph fullBounds height * 4. - controlMorph hide. - previewWorld hide. - buttonRowMorph hide. - - titleMorph show. - startButton show. - skipButton show. self hasLowPerformance ifFalse: [lowPerformanceMorph hide] ifTrue: [lowPerformanceMorph show]. self hasLowPerformance ifTrue: [Cursor wait showWhile: [self adjustSettingsForLowPerformance]]. self refreshWorld. ! Item was changed: ----- Method: PreferenceWizardMorph>>updateWindowBounds (in category 'layout') ----- updateWindowBounds | windows offset margin extentToUse pointsToUse | isFullScreen == false ifTrue: [^ self]. + previewWorld ifNil: [^ self]. self fullBounds. margin := 20@20. extentToUse := (previewWorld extent - (margin * 2)) // 3 * (1.8 @ 1.5). pointsToUse := { previewWorld center - (previewWorld extent // (5.5 @ 4.5)). previewWorld center + (previewWorld width // 5.5 @ 0). previewWorld center + (0 @ (previewWorld width // 5))}. windows := previewWorld submorphs. offset := 50@50. windows reversed withIndexDo: [:ea :i | ea extent: extentToUse; center: (pointsToUse atWrap: i). offset := offset + (50@50)].!

1 0

The Trunk: Kernel-eem.1365.mcz
by commits＠source.squeak.org 04 Jan '21

04 Jan '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1365.mcz ==================== Summary ==================== Name: Kernel-eem.1365 Author: eem Time: 3 January 2021, 6:13:25.987938 pm UUID: 1e125cb0-86f1-451b-b288-d89c06b9f267 Ancestors: Kernel-mt.1364 Context>>#doPrimitive:method:receiver:args: shoukld not send effectiveProcess to Processor activeProcess. The send is done inside Processor>>#activeProcess. Make sure CompiledBlock understands anyAndAllMessages so that implementors/senders doesn't crash inside the debugger with a block selected. =============== Diff against Kernel-mt.1364 =============== Item was added: + ----- Method: CompiledBlock>>anyAndAllMessages (in category 'literals') ----- + anyAndAllMessages + ^self homeMethod anyAndAllMessages! Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" + primitiveIndex = 19 ifTrue: + [Processor activeProcess - primitiveIndex = 19 ifTrue: [ - Processor activeProcess debug: self title:'Code simulation error' full: false]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: + ["Transcript + cr; + nextPutAll: 'Processor activeProcess '; + nextPutAll: (Processor activeProcess == receiver owningProcess ifTrue: [#==] ifFalse: [#~~]); + nextPutAll: ' owner'; + flush." + value := primitiveIndex = 186 + ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: Processor activeProcess] + ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: Processor activeProcess]. - [| effective | - effective := Processor activeProcess effectiveProcess. - "active == effective" - value := primitiveIndex = 186 - ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] - ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^Context sender: self receiver: thisReceiver method: methodArg arguments: args]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Trunk: Tools-eem.1022.mcz
by commits＠source.squeak.org 03 Jan '21

03 Jan '21

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1022.mcz ==================== Summary ==================== Name: Tools-eem.1022 Author: eem Time: 3 January 2021, 11:56:05.837731 am UUID: 67d66d1d-d650-45f4-8a72-1dd88c6d8ba4 Ancestors: Tools-ct.1021 Less verbosity in ObjectExplorer>>#world =============== Diff against Tools-ct.1021 =============== Item was changed: ----- Method: ObjectExplorer>>world (in category 'monitoring') ----- world - | project | + ^(project := Project current) isMorphic ifTrue: [project world]! - project := Project current. - project isMorphic ifFalse: [^ nil]. - ^ project world!

1 0

The Trunk: Tools-ct.1021.mcz
by commits＠source.squeak.org 03 Jan '21

03 Jan '21

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1021.mcz ==================== Summary ==================== Name: Tools-ct.1021 Author: ct Time: 3 January 2021, 8:44:07.705149 pm UUID: de36bf14-60b2-d745-9ade-df88c56b645c Ancestors: Tools-mt.1019 Hotfix for fatal error in MVC projects when switching from an explorer to an inspector. Regression since Tools-mt.998 (elimination of 'Active' variables): [Project current world] now consistently answers a ControlManager instance in an MVC project rather than nil. Unfortunately, ControlManager does not implement the stepping protocol like Morphic does ... For now, let ObjectExplorer >> #world only answer actually steppable, i.e. morphic worlds, so stepping is disabled safely in MVC. Note that, however, at a later point we might want to talk about stepping support for MVC again ... maybe? The Process Browser already supports it. :-) =============== Diff against Tools-mt.1019 =============== Item was changed: ----- Method: ObjectExplorer>>release (in category 'monitoring') ----- release + self world ifNotNil: [ :world | world stopStepping: self selector: #step ]. - self world ifNotNil: [ self world stopStepping: self selector: #step ]. super release.! Item was changed: ----- Method: ObjectExplorer>>stopMonitoring (in category 'monitoring') ----- stopMonitoring monitorList := nil. + self world ifNotNil: [ :world | world stopStepping: self selector: #step].! - self world stopStepping: self selector: #step! Item was changed: ----- Method: ObjectExplorer>>world (in category 'monitoring') ----- world + | project | + project := Project current. + project isMorphic ifFalse: [^ nil]. + ^ project world! - ^ Project current world!

1 0

The Trunk: KernelTests-eem.392.mcz
by commits＠source.squeak.org 01 Jan '21

01 Jan '21

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.392.mcz ==================== Summary ==================== Name: KernelTests-eem.392 Author: eem Time: 1 January 2021, 12:17:42.043127 pm UUID: c803a1d3-a439-4bac-8fc6-de85912285d9 Ancestors: KernelTests-eem.391 Add a FloatTest to compare all literal float contants in methods with those from a fresh compile, failing if any differ. Add a utility method to answer teh set of methods that cause the test to fail (FloatTest>>methodsMaybeContainingBrokenCompiledConstants). =============== Diff against KernelTests-eem.391 =============== Item was added: + ----- Method: FloatTest>>floatLiteralsIn: (in category 'private') ----- + floatLiteralsIn: method + | floatLiterals | + floatLiterals := OrderedCollection new. + method allLiteralsDo: + [:lit| lit isFloat ifTrue: [floatLiterals addLast: lit]]. + ^floatLiterals! Item was added: + ----- Method: FloatTest>>methodContainsFloatLiteral: (in category 'private') ----- + methodContainsFloatLiteral: method + method isQuick ifFalse: + [method allLiteralsDo: + [:lit| lit isFloat ifTrue: [^true]]]. + ^false! Item was added: + ----- Method: FloatTest>>methodsMaybeContainingBrokenCompiledConstants (in category 'private') ----- + methodsMaybeContainingBrokenCompiledConstants + "Answer a set of all methods in the system which contain float constants that differ from those obtaiuned by + recompiling. These may indicate an old compiler issue, or indeed an issue with the current compiler. This is a + variant of testCompiledConstants used for collecting the set of methods rather than testing that none exist." + | identifiedPatients | + identifiedPatients := IdentitySet new. + CurrentReadOnlySourceFiles cacheDuring: + [self systemNavigation allSelectorsAndMethodsDo: + [:class :selector :method| + (self methodContainsFloatLiteral: method) ifTrue: + [| newMethodAndNode newLiterals oldLiterals | + newMethodAndNode := class compile: method getSource asString notifying: nil trailer: CompiledMethodTrailer empty ifFail: nil. + newLiterals := self floatLiteralsIn: newMethodAndNode method. + oldLiterals := self floatLiteralsIn: method. + "Convenience doit for recompiling broken methods:..." + "class recompile: selector" + newLiterals size = oldLiterals size + ifFalse: [identifiedPatients add: method] + ifTrue: + [newLiterals with: oldLiterals do: + [:new :old| + (new asIEEE64BitWord = old asIEEE64BitWord + or: [new isNaN and: old isNaN]) ifFalse: + [identifiedPatients add: method]]]]]]. + ^identifiedPatients! Item was added: + ----- Method: FloatTest>>testCompiledConstants (in category 'tests') ----- + testCompiledConstants + "Test that any methods containing a floating point literal have been correctly compiled." + CurrentReadOnlySourceFiles cacheDuring: + [self systemNavigation allSelectorsAndMethodsDo: + [:class :selector :method| + (self methodContainsFloatLiteral: method) ifTrue: + [| newMethodAndNode newLiterals oldLiterals | + newMethodAndNode := class compile: method getSource asString notifying: nil trailer: CompiledMethodTrailer empty ifFail: nil. + newLiterals := self floatLiteralsIn: newMethodAndNode method. + oldLiterals := self floatLiteralsIn: method. + "Convenience doit for recompiling broken methods:..." + "class recompile: selector" + self assert: newLiterals size = oldLiterals size. + newLiterals with: oldLiterals do: + [:new :old| + self assert: (new asIEEE64BitWord = old asIEEE64BitWord + or: [new isNaN and: old isNaN])]]]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2021