Packages February 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Morphic-cmm.610.mcz
by commits＠source.squeak.org 15 Feb '12

15 Feb '12

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.610.mcz ==================== Summary ==================== Name: Morphic-cmm.610 Author: cmm Time: 14 February 2012, 9:14:20.48 pm UUID: d8725b91-2f26-4c63-b9a3-05601133a3ab Ancestors: Morphic-dtl.609 - Avoid index-out-of-bounds error when a TextMorph which set to avoid-occlusions, composeAllRectangles. =============== Diff against Morphic-dtl.609 =============== Item was changed: ----- Method: TextComposer>>composeAllRectangles: (in category 'as yet unclassified') ----- composeAllRectangles: rectangles | charIndexBeforeLine numberOfLinesBefore reasonForStopping | actualHeight := defaultLineHeight. charIndexBeforeLine := currCharIndex. numberOfLinesBefore := lines size. reasonForStopping := self composeEachRectangleIn: rectangles. currentY := currentY + actualHeight. currentY > theContainer bottom ifTrue: [ "Oops -- the line is really too high to fit -- back out" currCharIndex := charIndexBeforeLine. lines size - numberOfLinesBefore timesRepeat: [lines removeLast]. ^self ]. "It's OK -- the line still fits." maxRightX := maxRightX max: scanner rightX. + 1 to: rectangles size - 1 do: [ :i | |lineIndex| - 1 to: rectangles size - 1 do: [ :i | "Adjust heights across rectangles if necessary" + lineIndex:=lines size - rectangles size + i. + (lines size between: 1 and: lineIndex) ifTrue: + [(lines at: lineIndex) + lineHeight: lines last lineHeight + baseline: lines last baseline] - (lines at: lines size - rectangles size + i) - lineHeight: lines last lineHeight - baseline: lines last baseline ]. isFirstLine := false. reasonForStopping == #columnBreak ifTrue: [^nil]. currCharIndex > theText size ifTrue: [ ^nil "we are finished composing" ]. !

1 0

The Trunk: Kernel-eem.669.mcz
by commits＠source.squeak.org 14 Feb '12

14 Feb '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.669.mcz ==================== Summary ==================== Name: Kernel-eem.669 Author: eem Time: 13 February 2012, 4:16:39.081 pm UUID: a0cd06b2-129d-4601-b1f2-a2ef622e8ff0 Ancestors: Kernel-eem.668 Fix CompiledMethod>>#= for class-side methods where the methodClassAssociation is not unique. =============== Diff against Kernel-eem.668 =============== Item was changed: ----- Method: CompiledMethod>>= (in category 'comparing') ----- = method + "Answer whether the receiver implements the same code as the argument, method. + Here ``same code'' means that if the receiver's source is compiled with the same + compiler it should produce the same sequence of bytecodes and literals, same + trailer and same properties. Hence this definition of #= (only one of many plausible + definitions) can be used to quickly identify changes in the compiler's output." | numLits | + method isCompiledMethod ifFalse: [^false]. - "Answer whether the receiver implements the same code as the - argument, method." - (method isKindOf: CompiledMethod) ifFalse: [^false]. self size = method size ifFalse: [^false]. + self header = method header ifFalse: [^false]. "N.B. includes numLiterals comparison." - self header = method header ifFalse: [^false]. self initialPC to: self endPC do: [:i | (self at: i) = (method at: i) ifFalse: [^false]]. + numLits := self numLiterals. - (numLits := self numLiterals) ~= method numLiterals ifTrue: [^false]. - "``Dont bother checking FFI and named primitives'' - (#(117 120) includes: self primitive) ifTrue: [^ true]." 1 to: numLits do: [:i| | lit1 lit2 | lit1 := self literalAt: i. lit2 := method literalAt: i. (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: [(i = 1 and: [#(117 120) includes: self primitive]) ifTrue: [lit1 isArray ifTrue: + [(lit2 isArray and: [lit1 allButLast = lit2 allButLast]) ifFalse: + [^false]] - [(lit2 isArray and: [lit1 allButLast = lit2 allButLast]) - ifFalse: [^false]] ifFalse: "ExternalLibraryFunction" + [(lit1 analogousCodeTo: lit2) ifFalse: + [^false]]] - [(lit1 analogousCodeTo: lit2) - ifFalse: [^false]]] ifFalse: [i = (numLits - 1) ifTrue: "properties" [(self properties analogousCodeTo: method properties) ifFalse: [^false]] + ifFalse: "last literal (methodClassAssociation) of class-side methods is not unique" + [(i = numLits + and: [lit1 isVariableBinding + and: [lit2 isVariableBinding + and: [lit1 key == lit2 key + and: [lit1 value == lit2 value]]]]) ifFalse: + [^false]]]]]. - ifFalse: [^false]]]]. ^true!

1 0

The Trunk: Kernel-eem.669.mcz
by commits＠source.squeak.org 14 Feb '12

14 Feb '12

1 0

The Trunk: Kernel-eem.669.mcz
by commits＠source.squeak.org 14 Feb '12

14 Feb '12

1 0

The Trunk: EToys-dtl.87.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.87.mcz ==================== Summary ==================== Name: EToys-dtl.87 Author: dtl Time: 11 February 2012, 12:08:07.755 pm UUID: bd55f46b-4e07-4ff6-80fd-1538e83bccd1 Ancestors: EToys-ul.86 Make Connectors removable (almost). Morph>>connections and Morph>>wantsEmbeddingsVocabulary are provided by package Connectors. Remove the stub implementations from Morphic and update Morph>>wantsConnectionVocabulary and Morph>>filterViewerCategoryDictionary: in package Etoys with #respondsTo: checks to break the package dependencies. Update ObjectPropertiesMorph>>rebuild to match the version provided in Connectors. Move to method category "connectors-visual properties" as a reminder of the override in Connectors. Follow up needed in Connectors: Remove Morph>>dismissMorph override Remove PasteUpMorph>>tellAllContents: override Remove ObjectPropertiesMorph>>rebuild override =============== Diff against EToys-ul.86 =============== Item was changed: ----- Method: Morph>>filterViewerCategoryDictionary: (in category '*Etoys-scripting') ----- filterViewerCategoryDictionary: dict "dict has keys of categories and values of priority. You can re-order or remove categories here." self wantsConnectionVocabulary ifFalse: [ dict removeKey: #'connections to me' ifAbsent: []. dict removeKey: #connection ifAbsent: []]. self wantsConnectorVocabulary ifFalse: [ dict removeKey: #connector ifAbsent: [] ]. + ((self respondsTo: #wantsEmbeddingsVocabulary) "package Connectors" + and: [self perform: #wantsEmbeddingsVocabulary]) + ifFalse: [dict removeKey: #embeddings ifAbsent: []]. - self wantsEmbeddingsVocabulary - ifFalse: [dict removeKey: #embeddings ifAbsent: []]. Preferences eToyFriendly ifTrue: [dict removeKey: #layout ifAbsent: []]. (Preferences eToyFriendly or: [self isWorldMorph not]) ifTrue: [dict removeKey: #preferences ifAbsent: []].! Item was changed: ----- Method: Morph>>wantsConnectionVocabulary (in category '*Etoys-scripting') ----- wantsConnectionVocabulary submorphs ifNil: [ ^true ]. "called from EToyVocabulary>>initialize after basicNew" ^ (Preferences valueOfFlag: #alwaysShowConnectionVocabulary) + or: [ (self respondsTo: #connections) + and: [(self perform: #connections) isEmpty not ] ]! - or: [ self connections isEmpty not ]! Item was changed: + ----- Method: ObjectPropertiesMorph>>rebuild (in category 'connectors-visual properties') ----- - ----- Method: ObjectPropertiesMorph>>rebuild (in category 'as yet unclassified') ----- rebuild + | buttons | + - self removeAllMorphs. self addARow: { self lockedString: ('Properties for {1}' translated format: {myTarget name}). }. self addARow: { self inAColumn: { self paneForCornerRoundingToggle. self paneForStickinessToggle. self paneForLockedToggle. }. }. self addARow: { self paneForMainColorPicker. self paneFor2ndGradientColorPicker. }. self addARow: { self paneForBorderColorPicker. self paneForShadowColorPicker. }. + buttons := OrderedCollection new. + buttons addAll: { + self - self addARow: { - self buttonNamed: 'Accept' translated action: #doAccept color: color lighter help: 'keep changes made and close panel' translated. self buttonNamed: 'Cancel' translated action: #doCancel color: color lighter help: 'cancel changes made and close panel' translated. + }. + + self addOptionalButtonsTo: buttons. + self addARow: buttons. - }, self rebuildOptionalButtons. thingsToRevert := Dictionary new. "thingsToRevert at: #fillStyle: put: myTarget fillStyle." myTarget isSystemWindow ifTrue: [ thingsToRevert at: #setWindowColor: put: myTarget paneColorToUse ]. thingsToRevert at: #hasDropShadow: put: myTarget hasDropShadow. thingsToRevert at: #shadowColor: put: myTarget shadowColor. (myTarget respondsTo: #borderColor:) ifTrue: [ thingsToRevert at: #borderColor: put: myTarget borderColor. ]. thingsToRevert at: #borderWidth: put: myTarget borderWidth. thingsToRevert at: #cornerStyle: put: myTarget cornerStyle. thingsToRevert at: #sticky: put: myTarget isSticky. thingsToRevert at: #lock: put: myTarget isLocked. !

1 0

The Trunk: EToys-dtl.87.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

1 0

The Trunk: EToys-dtl.87.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

1 0

The Trunk: Morphic-dtl.609.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.609.mcz ==================== Summary ==================== Name: Morphic-dtl.609 Author: dtl Time: 11 February 2012, 12:07:02.836 pm UUID: 7e071de6-1409-44f1-aedb-e3f18075810d Ancestors: Morphic-cmm.608 Make Connectors removable (almost). Morph>>connections and Morph>>wantsEmbeddingsVocabulary are provided by package Connectors. Remove the stub implementations from Morphic and update Morph>>wantsConnectionVocabulary and Morph>>filterViewerCategoryDictionary: in package Etoys with #respondsTo: checks to break the package dependencies. Allow Morph>>dismissMorph override to be removed from Connectors by adding the functionality to package Morphic, guarded by #respondsTo: Follow up needed in Connectors: Remove Morph>>dismissMorph override Remove PasteUpMorph>>tellAllContents: override Remove ObjectPropertiesMorph>>rebuild override =============== Diff against Morphic-cmm.608 =============== Item was removed: - ----- Method: Morph>>connections (in category 'accessing') ----- - connections - "Empty method in absence of connectors" - ^ #()! Item was changed: ----- Method: Morph>>dismissMorph (in category 'meta-actions') ----- dismissMorph + "This is called from an explicit halo destroy/delete action. + So first disconnect all constraints to keep the graph up to date." - "This is called from an explicit halo destroy/delete action." + (self respondsTo: #disconnectAllConstraints) "Connectors package" + ifTrue: [ self perform: #disconnectAllConstraints ]. + (self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)" + ifTrue: [ self perform: #releaseGraphModels ]. + self releaseGraphModels. + self world ifNotNilDo: + [:w | w abandonAllHalos; stopStepping: self]. - | w | - w := self world ifNil:[^self]. - w abandonAllHalos; stopStepping: self. self delete! Item was removed: - ----- Method: Morph>>wantsEmbeddingsVocabulary (in category 'accessing') ----- - wantsEmbeddingsVocabulary - "Empty method in absence of connectors" - ^ false!

1 0

The Trunk: Morphic-dtl.609.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

1 0

The Trunk: Morphic-dtl.609.mcz
by commits＠source.squeak.org 11 Feb '12

11 Feb '12

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2012