Packages November 2019

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: ST80-mt.243.mcz
by commits＠source.squeak.org 20 Nov '19

20 Nov '19

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.243.mcz ==================== Summary ==================== Name: ST80-mt.243 Author: mt Time: 20 November 2019, 2:46:19.127662 pm UUID: 3c87c655-04dd-2147-aed0-fc1cd07ccc91 Ancestors: ST80-mt.242 Removes some missed deprecation sends. =============== Diff against ST80-mt.242 =============== Item was changed: ----- Method: ProjectController>>redButtonActivity (in category 'control activity') ----- redButtonActivity | index | view isCollapsed ifTrue: [^ super redButtonActivity]. (view insetDisplayBox containsPoint: Sensor cursorPoint) ifFalse: [^ super redButtonActivity]. index := (UIManager default chooseFrom: #('enter' 'jump to project...') lines: #()). index = 0 ifTrue: [^ self]. "save size on enter for thumbnail on exit" + model viewSize: view insetDisplayBox extent. - model setViewSize: view insetDisplayBox extent. index = 1 ifTrue: [^ model enter: false revert: false saveForRevert: false]. index = 2 ifTrue: [Project current jumpToProject. ^ self]. !

1 0

The Trunk: Morphic-mt.1589.mcz
by commits＠source.squeak.org 20 Nov '19

20 Nov '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1589.mcz ==================== Summary ==================== Name: Morphic-mt.1589 Author: mt Time: 20 November 2019, 2:45:39.406662 pm UUID: 5accb57c-4211-b54c-855d-2702370cee12 Ancestors: Morphic-mt.1588 Removes some missed deprecation sends. =============== Diff against Morphic-mt.1588 =============== Item was changed: ----- Method: ProjectViewMorph>>enter (in category 'events') ----- enter "Enter my project." self world == self outermostWorldMorph ifFalse: [^Beeper beep]. "can't do this at the moment" project class == DiskProxy ifFalse: [(project world notNil and: [project world isMorph and: [project world hasOwner: self outermostWorldMorph]]) ifTrue: [^Beeper beep "project is open in a window already"]]. project class == DiskProxy ifTrue: ["When target is not in yet" self enterWhenNotPresent. "will bring it in" project class == DiskProxy ifTrue: [^self inform: 'Project not found' translated]]. + (owner isSystemWindow) ifTrue: [project viewSize: self extent]. - (owner isSystemWindow) ifTrue: [project setViewSize: self extent]. self showMouseState: 3. project enter: false revert: false saveForRevert: false! Item was changed: ----- Method: ProjectViewMorph>>enterAsActiveSubproject (in category 'events') ----- enterAsActiveSubproject "Enter my project." project class == DiskProxy ifTrue: ["When target is not in yet" [self enterWhenNotPresent "will bring it in"] on: ProjectEntryNotification do: [:ex | ^ex projectToEnter enterAsActiveSubprojectWithin: self world]. project class == DiskProxy ifTrue: [self error: 'Could not find view']]. + (owner isSystemWindow) ifTrue: [project viewSize: self extent]. - (owner isSystemWindow) ifTrue: [project setViewSize: self extent]. self showMouseState: 3. project enterAsActiveSubprojectWithin: self world!

1 0

The Trunk: System-mt.1124.mcz
by commits＠source.squeak.org 20 Nov '19

20 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1124.mcz ==================== Summary ==================== Name: System-mt.1124 Author: mt Time: 20 November 2019, 2:44:27.477662 pm UUID: 9b067d06-cee0-1d46-b3f8-cf5267da8c9c Ancestors: System-mt.1123 Fixes a recent regression *and* code duplication. New MVC/Morphic projects can be created and opened again. =============== Diff against System-mt.1123 =============== Item was changed: ----- Method: Project>>makeThumbnail (in category 'menu messages') ----- makeThumbnail "Make a thumbnail image of this project from the Display." + + thumbnail := self previewImageForm. - viewSize ifNil: [viewSize := Display extent // 8]. - thumbnail := Form extent: viewSize depth: Display depth. - (WarpBlt toForm: thumbnail) - sourceForm: Display; - cellSize: 2; "installs a colormap" - combinationRule: Form over; - copyQuad: (Display boundingBox) innerCorners - toRect: (0@0 extent: viewSize). (Smalltalk at: #InternalThreadNavigationMorph) ifNotNil: [:tnMorph | + tnMorph cacheThumbnailFor: self]. - tnMorph cacheThumbnailFor: self]. ^thumbnail ! Item was changed: ----- Method: Project>>viewSize (in category 'accessing') ----- viewSize + ^ viewSize ifNil: [viewSize := Display extent // 8]! - ^ viewSize!

1 0

The Trunk: System-ct.1094.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1094.mcz ==================== Summary ==================== Name: System-ct.1094 Author: ct Time: 21 September 2019, 5:24:03.679935 pm UUID: 93831414-eb3d-c64c-9855-48515c407f92 Ancestors: System-mt.1093 Rephrase MethodReference class comment =============== Diff against System-mt.1093 =============== Item was changed: Object subclass: #MethodReference instanceVariableNames: 'classSymbol classIsMeta methodSymbol stringVersion category environment' classVariableNames: 'InvalidReference' poolDictionaries: '' category: 'System-Tools'! + !MethodReference commentStamp: 'ct 9/21/2019 17:22' prior: 0! + A MethodReference is is a lightweight proxy for a CompiledMethod. Has methods to refer to the CompileMethod's source statements, byte codes. Is heavily used by Tools. - !MethodReference commentStamp: 'tlk 5/9/2006 18:43' prior: 0! - A MethodReference is is a lightweight proxy for a CompiledMethod. Has methods for pointed to the CompileMethod's source statements, byte codes. Is heavily used my Tools. Instance Variables + classIsMeta: Boolean class vs. instance - classIsMeta: Boolean class vs. instance classSymbol: Symbol for method's class (without class keyword if meta) + methodSymbol: Symbol for method's selector - methodSymbol: Symbol for method's selector stringVersion: 'Class>>selector:' format !

1 0

The Trunk: System-ct.1095.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1095.mcz ==================== Summary ==================== Name: System-ct.1095 Author: ct Time: 21 September 2019, 7:00:44.269935 pm UUID: e3a69ad6-81fc-a34e-ada9-326fe3f01269 Ancestors: System-mt.1093 Only ask once per project tree for confirmation =============== Diff against System-mt.1093 =============== Item was changed: ----- Method: Project>>okToChange (in category 'release') ----- okToChange "Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation" | answer | (self confirm: ('Do you really want to delete the project\{1}\and all its content?' withCRs translated format:{self name})) ifFalse: [^ false]. self subProjects ifNotEmpty: [:sp | answer := Project uiManager chooseFrom: #( "1" 'Lift all sub-projects' "2" 'Discard all sub-projects (NO UNDO!!)' "3 or 0" 'Cancel') lines: #(2) title: ('The project {1}\contains {2} sub-project(s).' withCRs translated format:{self name. sp size}). (answer = 0 or: [answer = 3]) ifTrue: [^ false]. answer = 1 ifTrue: [self liftSubProjects. ^ true]. + answer = 2 ifTrue: [^ sp allSatisfy: [:ea | + [ea okToChange] valueSuppressingMessages: {'*delete the project*and all its content*'}]]]. - answer = 2 ifTrue: [^ sp allSatisfy: [:ea | ea okToChange]]]. ^ true!

1 0

The Trunk: System-ct.1096.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1096.mcz ==================== Summary ==================== Name: System-ct.1096 Author: ct Time: 21 September 2019, 7:09:35.127935 pm UUID: 7efdb4cf-d362-ca42-814f-0e2db4caec54 Ancestors: System-mt.1093 Provide a way to get the project dependent TranscriptStream =============== Diff against System-mt.1093 =============== Item was added: + ----- Method: Project>>transcript (in category 'accessing') ----- + transcript + + ^ transcript!

1 0

The Trunk: System-ct.1104.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1104.mcz ==================== Summary ==================== Name: System-ct.1104 Author: ct Time: 1 October 2019, 3:48:38.186339 pm UUID: 4ce05ab9-d8fc-3d47-ab32-65fd3b2c2236 Ancestors: System-mt.1102 Adds utility to remove all empty change sets. =============== Diff against System-mt.1102 =============== Item was added: + ----- Method: ChangeSet class>>removeEmptyChangeSets (in category 'enumerating') ----- + removeEmptyChangeSets + "Remove all change sets that are empty + and which are not nailed down by belonging to a Project." + "ChangeSet removeEmptyChangeSets" + | toGo | + toGo := self allChangeSets + select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]] + thenDo: [:cs | self removeChangeSet: cs]. + self inform: toGo size printString, ' change set(s) removed.'!

1 0

The Trunk: System-ct.1105.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1105.mcz ==================== Summary ==================== Name: System-ct.1105 Author: ct Time: 1 October 2019, 3:52:04.497339 pm UUID: 86622dd5-42a9-2545-8777-68e48e776231 Ancestors: System-mt.1102 Replace #setViewSize: by #viewSize: (deprecation coming up) =============== Diff against System-mt.1102 =============== Item was removed: - ----- Method: Project>>setViewSize: (in category 'accessing') ----- - setViewSize: aPoint - viewSize := aPoint! Item was added: + ----- Method: Project>>viewSize: (in category 'accessing') ----- + viewSize: aPoint + viewSize := aPoint!

1 0

The Trunk: System-ct.1106.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1106.mcz ==================== Summary ==================== Name: System-ct.1106 Author: ct Time: 1 October 2019, 4:00:54.218339 pm UUID: 1df7e934-f73b-7d46-810b-e54b7bacce21 Ancestors: System-mt.1102 Scale down previewImageForm according to viewSize. We do not need a preview image of several million pixels ... =============== Diff against System-mt.1102 =============== Item was changed: ----- Method: Project>>previewImageForm (in category 'displaying') ----- previewImageForm + ^ self imageForm scaledToSize: self viewSize! - ^ self imageForm!

1 0

The Trunk: System-ct.1112.mcz
by commits＠source.squeak.org 19 Nov '19

19 Nov '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1112.mcz ==================== Summary ==================== Name: System-ct.1112 Author: ct Time: 3 October 2019, 1:00:59.749083 am UUID: 46296c5c-1bbf-8849-96ad-70af15677f55 Ancestors: System-pre.1111 Recategorizes Smalltalk startup + shutdown list methods =============== Diff against System-pre.1111 =============== Item was changed: + ----- Method: SmalltalkImage>>add:toList:after: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>add:toList:after: (in category 'startup list') ----- add: aClass toList: startUpOrShutDownList after: predecessor "Add the name of aClass to the startUp or shutDown list. Add it after the name of predecessor" (Smalltalk globals includes: aClass) ifFalse: [self error: aClass name , ' cannot be found in Smalltalk dictionary.']. "Add after predecessor, moving it if already there." (Smalltalk globals includes: predecessor) ifFalse: [self error: predecessor name , ' cannot be found in Smalltalk dictionary.']. (startUpOrShutDownList includes: predecessor name) ifFalse: [self error: predecessor name , ' cannot be found in the list.']. startUpOrShutDownList remove: aClass name ifAbsent:[]. startUpOrShutDownList add: aClass name after: predecessor name! Item was changed: + ----- Method: SmalltalkImage>>add:toList:before: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>add:toList:before: (in category 'startup list') ----- add: aClass toList: startUpOrShutDownList before: successor "Add the name of aClass to the startUp or shutDown list. Add it before the name of successor" (Smalltalk globals includes: aClass) ifFalse: [self error: aClass name , ' cannot be found in Smalltalk dictionary.']. "Add before successor, moving it if already there." (Smalltalk globals includes: successor) ifFalse: [self error: successor name , ' cannot be found in Smalltalk dictionary.']. (startUpOrShutDownList includes: successor name) ifFalse: [self error: successor name , ' cannot be found in the list.']. startUpOrShutDownList remove: aClass name ifAbsent: []. startUpOrShutDownList add: aClass name before: successor name.! Item was changed: + ----- Method: SmalltalkImage>>addToShutDownList: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>addToShutDownList: (in category 'startup list') ----- addToShutDownList: aClass "This will add a ref to this class at the BEGINNING of the shutDown list." "No-op if already in the list." (ShutDownList includes: aClass name) ifFalse: [ShutDownList addFirst: aClass name]! Item was changed: + ----- Method: SmalltalkImage>>addToShutDownList:before: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>addToShutDownList:before: (in category 'startup list') ----- addToShutDownList: aClass before: predecessor self add: aClass toList: ShutDownList before: predecessor! Item was changed: + ----- Method: SmalltalkImage>>addToStartUpList: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>addToStartUpList: (in category 'startup list') ----- addToStartUpList: aClass "This will add a ref to this class at the END of the startUp list." "No-op if already in the list." (StartUpList includes: aClass name) ifFalse: [StartUpList addLast: aClass name]! Item was changed: + ----- Method: SmalltalkImage>>addToStartUpList:before: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>addToStartUpList:before: (in category 'startup list') ----- addToStartUpList: aClass before: predecessor self add: aClass toList: StartUpList before: predecessor! Item was changed: + ----- Method: SmalltalkImage>>removeFromShutDownList: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>removeFromShutDownList: (in category 'snapshot and quit') ----- removeFromShutDownList: aClass ShutDownList remove: aClass name ifAbsent: []! Item was changed: + ----- Method: SmalltalkImage>>removeFromStartUpList: (in category 'startup + shutdown list') ----- - ----- Method: SmalltalkImage>>removeFromStartUpList: (in category 'snapshot and quit') ----- removeFromStartUpList: aClass StartUpList remove: aClass name ifAbsent: []!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2019