Packages January 2010

packages@lists.squeakfoundation.org

2 participants
722 discussions

The Trunk: Kernel-ul.382.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.382.mcz ==================== Summary ==================== Name: Kernel-ul.382 Author: ul Time: 25 January 2010, 10:40:19.44 pm UUID: 0741847a-6bd5-c145-aa63-3c5e598d1742 Ancestors: Kernel-dtl.381 In MethodDictionary - cosmetic changes: use #ifNotNil: if possible - ensure that #rehashWithoutBecome doesn't send #become:, making #rehashAllInstances a lot faster - ensure that #removeAll preserves the capacity - deprecated #methodArray, it's the same as #array - new comment for #new =============== Diff against Kernel-dtl.381 =============== Item was changed: ----- Method: MethodDictionary>>postCopy (in category 'copying') ----- postCopy + array := array copy! - array := array shallowCopy! Item was changed: ----- Method: MethodDictionary>>rehashWithoutBecome (in category 'private') ----- rehashWithoutBecome + | newInstance | + newInstance := self species new: self basicSize - 1. "Make sure it has the same capacity" + 1 to: self basicSize do: [ :index | + (self basicAt: index) ifNotNil: [ :key | + newInstance at: key put: (array at: index) ] ]. + ^newInstance! - | newSelf | - newSelf := self species new: self size. - 1 to: self basicSize do: [ :i | - | key | - (key := self basicAt: i) ifNotNil: [ - newSelf at: key put: (array at: i) ] ]. - ^newSelf! Item was changed: ----- Method: MethodDictionary class>>new (in category 'instance creation') ----- new + "Create a new instance with 32 slots." - "change the default size to be a bit bigger to help reduce the number of #grows while filing in" ^self new: 16! Item was changed: ----- Method: MethodDictionary>>associationsDo: (in category 'enumeration') ----- associationsDo: aBlock tally = 0 ifTrue: [ ^self ]. 1 to: self basicSize do: [ :i | + (self basicAt: i) ifNotNil: [ :key | - | key | - (key := self basicAt: i) ifNotNil: [ aBlock value: (Association key: key value: (array at: i)) ] ]! Item was changed: ----- Method: MethodDictionary>>removeAll (in category 'removing') ----- removeAll "This provides a faster way than repeated become. a single become is still in use to prevent system crash." | newSelf | tally = 0 ifTrue: [^self]. + newSelf := self species new: self basicSize - 1. "This will preserve the capacity" - newSelf := self species new: self size. "This will preserve the capacity" self become: newSelf! Item was changed: ----- Method: MethodDictionary>>keysDo: (in category 'enumeration') ----- keysDo: aBlock tally = 0 ifTrue: [ ^self ]. 1 to: self basicSize do: [ :i | + (self basicAt: i) ifNotNil: [ :key | - | key | - (key := self basicAt: i) ifNotNil: [ aBlock value: key ] ]! Item was changed: ----- Method: MethodDictionary>>keysAndValuesDo: (in category 'enumeration') ----- keysAndValuesDo: aBlock "Enumerate the receiver with all the keys and values passed to the block" tally = 0 ifTrue: [^ self]. 1 to: self basicSize do: [ :i | + (self basicAt: i) ifNotNil: [ :key | - | key | - (key := self basicAt: i) ifNotNil: [ aBlock value: key value: (array at: i) ] ]! Item was changed: ----- Method: MethodDictionary>>grow (in category 'private') ----- grow | newSelf | newSelf := self species new: self basicSize. "This will double the size" 1 to: self basicSize do: [ :i | + (self basicAt: i) ifNotNil: [ :key | - | key | - (key := self basicAt: i) ifNotNil: [ newSelf at: key put: (array at: i) ] ]. self become: newSelf! Item was changed: ----- Method: MethodDictionary>>methodArray (in category 'private') ----- methodArray + + self deprecated: 'Use #array'. - ^array! Item was changed: ----- Method: MethodDictionary>>valuesDo: (in category 'enumeration') ----- valuesDo: aBlock tally = 0 ifTrue: [ ^self ]. 1 to: self basicSize do: [ :i | + (array at: i) ifNotNil: [ :value | - | value | - (value := array at: i) ifNotNil: [ aBlock value: value ] ]!

1 0

The Trunk: Compiler-ul.116.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.116.mcz ==================== Summary ==================== Name: Compiler-ul.116 Author: ul Time: 25 January 2010, 10:40:59.752 pm UUID: 29cfe126-9fa7-0149-9c25-e068d536b0b9 Ancestors: Compiler-ar.115 - don't create a block in Dictionary >> #bindingOf: =============== Diff against Compiler-ar.115 =============== Item was changed: ----- Method: Dictionary>>bindingOf: (in category '*Compiler') ----- bindingOf: varName + + ^self associationAt: varName ifAbsent: nil! - ^self associationAt: varName ifAbsent:[nil]!

1 0

The Trunk: Compiler-ul.116.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: Compiler-ul.116.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: System-dtl.240.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.240.mcz ==================== Summary ==================== Name: System-dtl.240 Author: dtl Time: 24 January 2010, 9:51:51.331 pm UUID: 07a9ac80-78d7-4169-b608-df3d25e0aa35 Ancestors: System-dtl.239 Remove remaining dependencies on ST80-Editors from non-MVC packages. Remove explicit references to ST80 classes from ModalSystemWindow and various utility methods. =============== Diff against System-dtl.239 =============== Item was changed: ----- Method: SmartRefStream>>scrollControllermvslrrsmsms0 (in category 'conversion') ----- scrollControllermvslrrsmsms0 + ^ Smalltalk at: #MouseMenuController! - ^ MouseMenuController! Item was changed: ----- Method: SystemDictionary>>discardMVC (in category 'shrinking') ----- discardMVC "After suitable checks, strip out much of MVC from the system" "Smalltalk discardMVC" | keepers | self flag: #bob. "zapping projects" self isMorphic ifFalse: [self inform: 'You must be in a Morphic project to discard MVC.'. ^ self]. "Check that there are no MVC Projects" (Project allProjects allSatisfy: [:proj | proj isMorphic]) ifFalse: [(self confirm: 'Would you like a chance to remove your MVC projects in an orderly manner?') ifTrue: [^ self]. (self confirm: 'If you wish, I can remove all MVC projects, make this project be the top project, and place all orphaned sub-projects of MVC parents here. Would you like be to do this and proceed to discard all MVC classes?') ifTrue: [self zapMVCprojects] ifFalse: [^ self]]. self reclaimDependents. "Remove old Paragraph classes and View classes." self at: #Paragraph ifPresent: [:paraClass | (ChangeSet superclassOrder: paraClass withAllSubclasses asArray) reverseDo: [:c | c removeFromSystem]]. self at: #View ifPresent: [:viewClass | (ChangeSet superclassOrder: viewClass withAllSubclasses asArray) reverseDo: [:c | c removeFromSystem]]. "Get rid of ParagraphEditor's ScrollController dependence" + (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | + #(#markerDelta #viewDelta #scrollAmount #scrollBar #computeMarkerRegion ) + do: [:sel | paragraphEditor removeSelector: sel]. + paragraphEditor compile: 'updateMarker'. + "Reshape to MouseMenuController" + Compiler + evaluate: (paragraphEditor definition copyReplaceAll: 'ScrollController' with: 'MouseMenuController')]. - #(#markerDelta #viewDelta #scrollAmount #scrollBar #computeMarkerRegion ) - do: [:sel | ParagraphEditor removeSelector: sel]. - ParagraphEditor compile: 'updateMarker'. - "Reshape to MouseMenuController" - Compiler - evaluate: (ParagraphEditor definition copyReplaceAll: 'ScrollController' with: 'MouseMenuController'). "Get rid of all Controller classes not needed by ParagraphEditor and ScreenController" keepers := TextMorphEditor withAllSuperclasses copyWith: ScreenController. (ChangeSet superclassOrder: Controller withAllSubclasses asArray) reverseDo: [:c | (keepers includes: c) ifFalse: [c removeFromSystem]]. SystemOrganization removeCategoriesMatching: 'ST80-Paths'. SystemOrganization removeCategoriesMatching: 'ST80-Symbols'. SystemOrganization removeCategoriesMatching: 'ST80-Pluggable Views'. self removeClassNamed: 'FormButtonCache'. self removeClassNamed: 'WindowingTransformation'. self removeClassNamed: 'ControlManager'. self removeClassNamed: 'DisplayTextView'. ScheduledControllers := nil. Undeclared removeUnreferencedKeys. SystemOrganization removeEmptyCategories. Symbol rehash! Item was changed: ----- Method: Preferences class>>noviceModeSettingChanged (in category 'reacting to change') ----- noviceModeSettingChanged "The current value of the noviceMode flag has changed; now react" TheWorldMainDockingBar updateInstances. PasteUpMorph allSubInstances select: [:each | each isWorldMorph] thenDo: [:each | each initializeDesktopCommandKeySelectors]. + ParagraphEditor ifNotNilDo: [:pe | pe initialize]! - ParagraphEditor initialize.! Item was changed: ----- Method: SystemDictionary>>removeAllUnSentMessages (in category 'shrinking') ----- removeAllUnSentMessages "Smalltalk removeAllUnSentMessages" "[Smalltalk unusedClasses do: [:c | (Smalltalk at: c) removeFromSystem]. Smalltalk removeAllUnSentMessages > 0] whileTrue." "Remove all implementations of unsent messages." | sels n | sels := self systemNavigation allUnSentMessages. "The following should be preserved for doIts, etc" "needed even after #majorShrink is pulled" #(#rehashWithoutBecome #compactSymbolTable #rebuildAllProjects #browseAllSelect: #lastRemoval #scrollBarValue: vScrollBarValue: #scrollBarMenuButtonPressed: #withSelectionFrom: #to: #removeClassNamed: #dragon: #hilberts: #mandala: #web #test3 #factorial #tinyBenchmarks #benchFib #newDepth: #restoreAfter: #forgetDoIts #zapAllMethods #obsoleteClasses #removeAllUnSentMessages #abandonSources #removeUnreferencedKeys #reclaimDependents #zapOrganization #condenseChanges #browseObsoleteReferences #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #methodsFor:stamp: #methodsFor:stamp:prior: #instanceVariableNames: #startTimerInterruptWatcher #unusedClasses ) do: [:sel | sels remove: sel ifAbsent: []]. "The following may be sent by perform: in dispatchOnChar..." + (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | + (paragraphEditor classPool at: #CmdActions) asSet + do: [:sel | sels + remove: sel + ifAbsent: []]. + (paragraphEditor classPool at: #ShiftCmdActions) asSet + do: [:sel | sels + remove: sel + ifAbsent: []]]. - (ParagraphEditor classPool at: #CmdActions) asSet - do: [:sel | sels - remove: sel - ifAbsent: []]. - (ParagraphEditor classPool at: #ShiftCmdActions) asSet - do: [:sel | sels - remove: sel - ifAbsent: []]. sels size = 0 ifTrue: [^ 0]. n := 0. self systemNavigation allBehaviorsDo: [:x | n := n + 1]. 'Removing ' , sels size printString , ' messages . . .' displayProgressAt: Sensor cursorPoint from: 0 to: n during: [:bar | n := 0. self systemNavigation allBehaviorsDo: [:class | bar value: (n := n + 1). sels do: [:sel | class basicRemoveSelector: sel]]]. ^ sels size! Item was changed: ----- Method: SystemDictionary>>presumedSentMessages (in category 'shrinking') ----- presumedSentMessages | sent | "Smalltalk presumedSentMessages" "The following should be preserved for doIts, etc" sent := IdentitySet new. #( rehashWithoutBecome compactSymbolTable rebuildAllProjects browseAllSelect: lastRemoval scrollBarValue: vScrollBarValue: scrollBarMenuButtonPressed: withSelectionFrom: to: removeClassNamed: dragon: hilberts: mandala: web test3 factorial tinyBenchmarks benchFib newDepth: restoreAfter: forgetDoIts zapAllMethods obsoleteClasses removeAllUnSentMessages abandonSources removeUnreferencedKeys reclaimDependents zapOrganization condenseChanges browseObsoleteReferences subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: methodsFor:stamp: methodsFor:stamp:prior: instanceVariableNames: startTimerInterruptWatcher unusedClasses) do: [:sel | sent add: sel]. "The following may be sent by perform: in dispatchOnChar..." + (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | + (paragraphEditor classPool at: #CmdActions) asSet do: + [:sel | sent add: sel]. + (paragraphEditor classPool at: #ShiftCmdActions) asSet do: + [:sel | sent add: sel]]. - (ParagraphEditor classPool at: #CmdActions) asSet do: - [:sel | sent add: sel]. - (ParagraphEditor classPool at: #ShiftCmdActions) asSet do: - [:sel | sent add: sel]. ^ sent! Item was added: + ----- Method: Project>>formEdit: (in category 'editors') ----- + formEdit: aForm + "Start up an instance of the form editor on a form." + + self subclassResponsibility!

1 0

The Trunk: System-dtl.240.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: System-dtl.240.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: ST80-dtl.88.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.88.mcz ==================== Summary ==================== Name: ST80-dtl.88 Author: dtl Time: 24 January 2010, 9:50:04.91 pm UUID: 8249f3f2-064f-496c-9f93-22725161b9e6 Ancestors: ST80-dtl.87 Remove remaining dependencies on ST80-Editors from non-MVC packages. Remove explicit references to ST80 classes from ModalSystemWindow and various utility methods. =============== Diff against ST80-dtl.87 =============== Item was added: + ----- Method: MVCProject>>formEdit: (in category 'editors') ----- + formEdit: aForm + "Start up an instance of the FormEditor on a form. Typically the form + is not visible on the screen. The editor menu is located at the bottom of + the form editing frame. The form is displayed centered in the frame. + YellowButtonMenu accept is used to modify the form to reflect the + changes made on the screen version; cancel restores the original form to + the screen. Note that the changes are clipped to the original size of the + form." + + FormEditor openOnForm: aForm!

1 0

The Trunk: ST80-dtl.88.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: ST80-dtl.88.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2010