Packages November 2017

packages@lists.squeakfoundation.org

1 participants
117 discussions

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

20 Nov '17

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

1 0

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

20 Nov '17

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

1 0

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

20 Nov '17

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

1 0

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

20 Nov '17

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

1 0

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

18 Nov '17

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

1 0

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

18 Nov '17

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.1368.mcz ==================== Summary ==================== Name: Morphic-dtl.1368 Author: dtl Time: 17 November 2017, 10:55:24.391819 pm UUID: b943fc05-ae9e-4f37-bb38-8c2cd541d239 Ancestors: Morphic-dtl.1367 Remove unnecessary references to global World. =============== Diff against Morphic-dtl.1367 =============== Item was changed: ----- Method: MorphHierarchy class>>openOrDelete (in category 'opening') ----- openOrDelete | oldMorph | + oldMorph := Project current world submorphs - oldMorph := World submorphs detect: [:each | each hasProperty: #morphHierarchy] ifNone: [| newMorph | newMorph := self new asMorph. newMorph bottomLeft: ActiveHand position. newMorph openInWorld. newMorph isFullOnScreen ifFalse: [newMorph goHome]. ^ self]. "" oldMorph delete! Item was changed: ----- Method: MorphHierarchy>>roots (in category 'accessing') ----- roots + "Answer the roots for the Object Hierarchy, that means answer the world" + ^ {MorphListItemWrapper with: Project current world}! - "Answer the roots for the Object Hierarchy, that means answer the World" - ^ {MorphListItemWrapper with: World}! Item was changed: ----- Method: MorphHierarchy>>selected: (in category 'accessing') ----- selected: aMorphListItemWrapper "Change the selected object" | newSelection | aMorphListItemWrapper isNil ifTrue: [^ self]. newSelection := aMorphListItemWrapper withoutListWrapper. + newSelection == Project current world selectedObject - newSelection == World selectedObject ifTrue: [newSelection removeHalo] ifFalse: [newSelection addHalo]. self changed: #selected! Item was changed: ----- Method: PasteUpMorph>>useRoundedCorners (in category 'accessing') ----- useRoundedCorners "Somewhat special cased because we do have to fill Display for this" super useRoundedCorners. + self == self world ifTrue:[Display bits primFill: 0]. "done so that we *don't* get a flash"! - self == World ifTrue:[Display bits primFill: 0]. "done so that we *don't* get a flash"! Item was changed: ----- Method: WorldState>>doDeferredUpdatingFor: (in category 'update cycle') ----- doDeferredUpdatingFor: aWorld "If this platform supports deferred updates, then make my canvas be the Display (or a rectangular portion of it), set the Display to deferred update mode, and answer true. Otherwise, do nothing and answer false. One can set the class variable DisableDeferredUpdates to true to completely disable the deferred updating feature." | properDisplay | PasteUpMorph disableDeferredUpdates ifTrue: [^ false]. (Display deferUpdates: true) ifNil: [^ false]. "deferred updates not supported" remoteServer ifNotNil:[ self assuredCanvas. ^true]. properDisplay := canvas notNil and: [canvas form == Display]. + aWorld == Project current world ifTrue: [ "this world fills the entire Display" - aWorld == World ifTrue: [ "this world fills the entire Display" properDisplay ifFalse: [ aWorld viewBox: Display boundingBox. "do first since it may clear canvas" self canvas: (Display getCanvas copyClipRect: Display boundingBox). ] ]. ^ true !

1 0

The Trunk: Nebraska-dtl.51.mcz
by commits＠source.squeak.org 18 Nov '17

18 Nov '17

David T. Lewis uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-dtl.51.mcz ==================== Summary ==================== Name: Nebraska-dtl.51 Author: dtl Time: 17 November 2017, 10:44:49.951395 pm UUID: 4651ce87-b891-435a-819d-2cdda41f60dd Ancestors: Nebraska-tpr.50 Remove unnecessary reference to global World. =============== Diff against Nebraska-tpr.50 =============== Item was changed: ----- Method: NebraskaServerMorph>>rebuild (in category 'initialization') ----- rebuild | myServer toggle closeBox font | font := StrikeFont familyName: #Palatino size: 14. self removeAllMorphs. self setColorsAndBorder. self updateCurrentStatusString. toggle := SimpleHierarchicalListMorph new perform: ( fullDisplay ifTrue: [#expandedForm] ifFalse: [#notExpandedForm] ). closeBox := SimpleButtonMorph new borderWidth: 0; label: 'X' font: Preferences standardEToysButtonFont; color: Color transparent; actionSelector: #delete; target: self; extent: 14@14; setBalloonText: 'End Nebraska session' translated. self addARow: { self inAColumn: {closeBox}. self inAColumn: { UpdatingStringMorph new useStringFormat; target: self; font: font; getSelector: #currentStatusString; contents: self currentStatusString; stepTime: 2000; lock. }. self inAColumn: { toggle asMorph on: #mouseUp send: #toggleFull to: self; setBalloonText: 'Show more or less of Nebraska Status' translated }. }. myServer := self server. (myServer isNil or: [fullDisplay not]) ifTrue: [ + ^self world startSteppingSubmorphsOf: self - ^World startSteppingSubmorphsOf: self ]. "--- the expanded display ---" self addARow: { self inAColumn: { UpdatingStringMorph new useStringFormat; target: self; font: font; getSelector: #currentBacklogString; contents: self currentBacklogString; stepTime: 2000; lock. }. }. self addARow: { self inAColumn: { (StringMorph contents: '--clients--' translated) lock; font: font. }. }. myServer clients do: [ :each | self addARow: { UpdatingStringMorph new useStringFormat; target: each; font: font; getSelector: #currentStatusString; contents: each currentStatusString; stepTime: 2000; lock. } ]. + self world startSteppingSubmorphsOf: self.! - World startSteppingSubmorphsOf: self.!

1 0

The Trunk: ToolBuilder-Morphic-dtl.200.mcz
by commits＠source.squeak.org 18 Nov '17

18 Nov '17

David T. Lewis uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-dtl.200.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-dtl.200 Author: dtl Time: 17 November 2017, 10:42:36.113609 pm UUID: 21f6df34-3b79-4800-b36f-6d605c3c580c Ancestors: ToolBuilder-Morphic-dtl.199 A MenuMorph does not have a world, so we must use use the Project current world idiom rather than self world. =============== Diff against ToolBuilder-Morphic-dtl.199 =============== Item was changed: ----- Method: MenuMorph>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- openAsTool + self popUpInWorld: Project current world.! - self popUpInWorld: self world.!

1 0

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

18 Nov '17

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-dtl.216.mcz ==================== Summary ==================== Name: MorphicExtras-dtl.216 Author: dtl Time: 17 November 2017, 10:20:14.502303 pm UUID: 58c41a67-c2cb-4776-9cc3-c9edbf70f443 Ancestors: MorphicExtras-dtl.215 Remove unnecessary references to global World. =============== Diff against MorphicExtras-dtl.215 =============== Item was changed: ----- Method: AtomMorph class>>example (in category 'examples') ----- example " AtomMorph example " + |a world| + world := Project current world. - |a| a := AtomMorph new openInWorld. a color: Color random. + [1000 timesRepeat: [a bounceIn: world bounds. (Delay forMilliseconds: 50) wait]. - [1000 timesRepeat: [a bounceIn: World bounds. (Delay forMilliseconds: 50) wait]. a delete] fork.! Item was changed: ----- Method: InternalThreadNavigationMorph class>>openThreadNamed:atIndex: (in category 'known threads') ----- openThreadNamed: nameOfThread atIndex: anInteger | coll nav | coll := self knownThreads at: nameOfThread ifAbsent: [^self]. + nav := Project current world - nav := World submorphThat: [ :each | (each isKindOf: self) and: [each threadName = nameOfThread]] ifNone: [ nav := self basicNew. nav listOfPages: coll; threadName: nameOfThread index: anInteger; initialize; openInWorld; positionAppropriately. ^self ]. nav listOfPages: coll; threadName: nameOfThread index: anInteger; removeAllMorphs; addButtons. ! Item was changed: ----- Method: InternalThreadNavigationMorph class>>openThreadNamed:atIndex:beKeyboardHandler: (in category 'known threads') ----- openThreadNamed: nameOfThread atIndex: anInteger beKeyboardHandler: aBoolean "Activate the thread of the given name, from the given index; set it up to be navigated via desktop keys if indicated" | coll nav | coll := self knownThreads at: nameOfThread ifAbsent: [^self]. + nav := Project current world - nav := World submorphThat: [ :each | (each isKindOf: self) and: [each threadName = nameOfThread]] ifNone: [nav := self basicNew. nav listOfPages: coll; threadName: nameOfThread index: anInteger; initialize; openInWorld; positionAppropriately. aBoolean ifTrue: [ActiveWorld keyboardNavigationHandler: nav]. ^ self]. nav listOfPages: coll; threadName: nameOfThread index: anInteger; removeAllMorphs; addButtons. aBoolean ifTrue: [ActiveWorld keyboardNavigationHandler: nav] ! Item was changed: ----- Method: PostscriptCanvas class>>fontSampler (in category 'font mapping') ----- fontSampler "Produces a Postscript .eps file on disk, returns a Morph." "PostscriptCanvas fontSampler" "PostscriptCanvas fontSampler openInWorld" | morph file | morph := Morph new layoutPolicy: TableLayout new; listDirection: #topToBottom; wrapDirection: #leftToRight; hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: Color white. TextStyle actualTextStyles keysAndValuesDo: [ :styleName :style | { style fontArray first. style fontArray last } do: [ :baseFont | | info | 0 to: 2 do: [ :i | | font string string2 textMorph row | font := baseFont emphasized: i. (i isZero or: [ font ~~ baseFont ]) ifTrue: [ string := font fontNameWithPointSize. row := Morph new layoutPolicy: TableLayout new; listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellSpacing: 20@0; color: Color white. textMorph := TextMorph new hResizing: #spaceFill; backgroundColor: Color white; beAllFont: font; contentsAsIs: string. row addMorphBack: (textMorph imageForm asMorph). info := self postscriptFontInfoForFont: font. string2 := String streamContents: [ :stream | stream nextPutAll: info first; space; print: (font pixelSize * info second) rounded. ]. textMorph := TextMorph new hResizing: #spaceFill; backgroundColor: Color white; beAllFont: font; contentsAsIs: string2. row addMorphBack: textMorph. morph addMorphBack: row. ] ] ] ]. + morph bounds: Project current world bounds. - morph bounds: World bounds. morph layoutChanged; fullBounds. file := (FileDirectory default newFileNamed: 'PSFontSampler.eps'). Cursor wait showWhile: [ file nextPutAll: (EPSCanvas morphAsPostscript: morph) ]. ^morph! Item was changed: ----- Method: ProjectNavigationMorph>>findAProject (in category 'the actions') ----- findAProject FileList2 + morphicViewProjectLoader2InWorld: self world - morphicViewProjectLoader2InWorld: World reallyLoad: true dirFilterType: #initialDirectoryList! Item was changed: ----- Method: ProjectSorterMorph>>addControls (in category 'initialization') ----- addControls "Add the control bar at the top of the tool." | b r partsBinButton newButton aWrapper | + newButton := ImageMorph new image: (self world project makeThumbnail scaledToSize: 48@36). - newButton := ImageMorph new image: (World project makeThumbnail scaledToSize: 48@36). newButton on: #mouseDown send: #insertNewProject: to: self. newButton setBalloonText: 'Make a new Project' translated. (partsBinButton := UpdatingThreePhaseButtonMorph checkBox) target: self; actionSelector: #togglePartsBinStatus; arguments: #(); getSelector: #getPartsBinStatus. (r := AlignmentMorph newRow) color: Color transparent; borderWidth: 0; layoutInset: 0; cellInset: 10@0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5@5. b := SimpleButtonMorph new target: self; color: self defaultColor darker; borderColor: Color black. r addMorphBack: (self wrapperFor: (b label: 'Okay' translated font: ScriptingSystem fontForEToyButtons; actionSelector: #acceptSort)). b := SimpleButtonMorph new target: self; color: self defaultColor darker; borderColor: Color black. r addMorphBack: (self wrapperFor: (b label: 'Cancel' translated font: ScriptingSystem fontForEToyButtons; actionSelector: #delete)); addTransparentSpacerOfSize: 8 @ 0; addMorphBack: (self wrapperFor: (newButton)); addTransparentSpacerOfSize: 8 @ 0. aWrapper := AlignmentMorph newRow beTransparent. aWrapper cellInset: 0; layoutInset: 0; borderWidth: 0. aWrapper addMorphBack: (self wrapperFor: partsBinButton); addMorphBack: (self wrapperFor: (StringMorph contents: 'Parts bin' translated font: ScriptingSystem fontForEToyButtons) lock). r addMorphBack: aWrapper. self addMorphFront: r. ! Item was changed: ----- Method: SqueakPage>>prePurge (in category 'saving') ----- prePurge "Return self if ready to be purged, or nil if not" self isContentsInMemory ifFalse: [^ nil]. contentsMorph ifNil: [^ nil]. "out already" url ifNil: [^ nil]. "just to be safe" + ^ (Project current world ~~ nil and: [contentsMorph world == Project current world]) - ^ (Project current world ~~ nil and: [contentsMorph world == World]) ifTrue: [nil "showing now"] ifFalse: [self]!

1 0

The Trunk: MorphicTests-dtl.44.mcz
by commits＠source.squeak.org 18 Nov '17

18 Nov '17

David T. Lewis uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-dtl.44.mcz ==================== Summary ==================== Name: MorphicTests-dtl.44 Author: dtl Time: 17 November 2017, 10:00:40.18563 pm UUID: 74a707eb-bd44-445f-9737-a977ef236a35 Ancestors: MorphicTests-dtl.43 Remove unnecessary reference to global World. =============== Diff against MorphicTests-dtl.43 =============== Item was changed: ----- Method: WorldStateTest>>testDeferredUIQueueTimeout (in category 'tests') ----- testDeferredUIQueueTimeout "Ensure that the World's deferredUIMessage will take no more time than specified by WorldState's deferredExecutionTimeLimit" | firstWasRun secondWasRun thirdWasRun | firstWasRun := secondWasRun := thirdWasRun := false. WorldState addDeferredUIMessage:[ firstWasRun := true. (Delay forMilliseconds: WorldState deferredExecutionTimeLimit + 50) wait. ]. WorldState addDeferredUIMessage:[ secondWasRun := true. ]. WorldState addDeferredUIMessage:[ thirdWasRun := true. ]. self deny: firstWasRun. self deny: secondWasRun. self deny: thirdWasRun. + Project current world doOneCycleNow. - World doOneCycleNow. self assert: firstWasRun. self deny: secondWasRun. self deny: thirdWasRun. + Project current world doOneCycleNow. - World doOneCycleNow. self assert: firstWasRun. self assert: secondWasRun. self assert: thirdWasRun. !

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2017