Packages September 2015

packages@lists.squeakfoundation.org

1 participants
86 discussions

The Trunk: SMLoader-dtl.84.mcz
by commits＠source.squeak.org 12 Sep '15

12 Sep '15

David T. Lewis uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-dtl.84.mcz ==================== Summary ==================== Name: SMLoader-dtl.84 Author: dtl Time: 12 September 2015, 3:08:24.536 pm UUID: fdf44fdf-dad6-4d7e-9649-23df09a403c0 Ancestors: SMLoader-ul.83 Package loader fix by Hannes Hirzel. Explanation and fix provided on squeak-dev http://lists.squeakfoundation.org/pipermail/squeak-dev/2015-September/18596… The package loader should display 'New safely-available packages' OR 'Installed packages' (previously displayed AND of the selected categories) =============== Diff against SMLoader-ul.83 =============== Item was changed: ----- Method: SMLoaderPlus>>packageListCalculated (in category 'lists') ----- packageListCalculated "Return a list of the SMPackages that should be visible by applying all the filters. Also filter based on the currently selected category - if any." ^ self packages select: [:p | + filters anySatisfy: [:currFilter | - filters allSatisfy: [:currFilter | currFilter isSymbol ifTrue: [(self perform: currFilter) value: p] ifFalse: [self package: p filteredByCategory: (map object: currFilter)]]]!

1 0

The Trunk: SMLoader-dtl.84.mcz
by commits＠source.squeak.org 12 Sep '15

12 Sep '15

1 0

The Trunk: Protocols-cmm.50.mcz
by commits＠source.squeak.org 12 Sep '15

12 Sep '15

Chris Muller uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-cmm.50.mcz ==================== Summary ==================== Name: Protocols-cmm.50 Author: cmm Time: 11 September 2015, 5:06:16.322 pm UUID: 87f9e0ae-06a7-45f7-8887-20b1751cd251 Ancestors: Protocols-ul.49 Fix a preference access. =============== Diff against Protocols-ul.49 =============== Item was changed: ----- Method: Vocabulary class>>typeChoices (in category 'type vocabularies') ----- typeChoices "Answer a list of all user-choosable data types" | vocabulariesForType | vocabulariesForType := self allStandardVocabularies select: [:e | e representsAType]. + (Preferences valueOfFlag: #allowEtoyUserCustomEvents) ifFalse: [vocabulariesForType removeKey: #CustomEvents ifAbsent: []]. - Preferences allowEtoyUserCustomEvents ifFalse: [vocabulariesForType removeKey: #CustomEvents ifAbsent: []]. ^vocabulariesForType keys sort!

1 0

The Trunk: Protocols-cmm.50.mcz
by commits＠source.squeak.org 12 Sep '15

12 Sep '15

1 0

The Trunk: EToys-cmm.131.mcz
by commits＠source.squeak.org 12 Sep '15

12 Sep '15

Chris Muller uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-cmm.131.mcz ==================== Summary ==================== Name: EToys-cmm.131 Author: cmm Time: 11 September 2015, 4:59:34.968 pm UUID: 94d94c4d-c84a-4e56-9697-3b550241e7f6 Ancestors: EToys-eem.130 Fix some preference accessing due to the recent change to Preferences class>>#doesNotUnderstand:. =============== Diff against EToys-eem.130 =============== Item was changed: ----- Method: Morph class>>additionsToViewerCategoryUserEvents (in category '*eToys-customevents-user events') ----- additionsToViewerCategoryUserEvents "Answer further viewer additions relating to user-defined events; these appear in the 'scripting' category" + ^ (Preferences valueOfFlag: #allowEtoyUserCustomEvents) - ^ Preferences allowEtoyUserCustomEvents ifTrue: [ #(scripting ( (command triggerCustomEvent: 'trigger a user-defined (global) event' CustomEvents) (slot triggeringObject 'the object that is triggering an event, either user-defined or pre-defined' Player readOnly Player getTriggeringObject unused unused)))] ifFalse: [#(scripting ())]! Item was changed: ----- Method: Morph>>enforceTileColorPolicy (in category '*Etoys-support') ----- enforceTileColorPolicy + (Preferences valueOfFlag: #coloredTilesEnabled) - Preferences coloredTilesEnabled ifTrue: [self makeAllTilesColored] ifFalse: [self makeAllTilesGreen]! Item was changed: ----- Method: Player>>getAllowEtoyUserCustomEvents (in category 'slot getters/setters') ----- getAllowEtoyUserCustomEvents "Answer whether to use the vector vocabulary." + ^ Preferences valueOfFlag: #allowEtoyUserCustomEvents! - ^ Preferences allowEtoyUserCustomEvents! Item was changed: ----- Method: ScriptInstantiation>>presentScriptStatusPopUp (in category 'customevents-status control') ----- presentScriptStatusPopUp "Put up a menu of status alternatives and carry out the request" | reply m menu submenu | menu := MenuMorph new. self addStatusChoices: #( normal " -- run when called" ) toMenu: menu. self addStatusChoices: #( paused "ready to run all the time" ticking "run all the time" ) toMenu: menu. self addStatusChoices: (ScriptingSystem standardEventStati copyFrom: 1 to: 3) toMenu: menu. self addStatusChoices: (ScriptingSystem standardEventStati allButFirst: 3) toMenu: menu. self addStatusChoices: #(opening "when I am being opened" closing "when I am being closed" ) toMenu: menu. submenu := MenuMorph new. self addStatusChoices: (ScriptingSystem globalCustomEventNamesFor: player) toSubMenu: submenu forMenu: menu. menu add: 'more... ' translated subMenu: submenu. + (Preferences valueOfFlag: #allowEtoyUserCustomEvents) ifTrue: [ - (Preferences allowEtoyUserCustomEvents) ifTrue: [ submenu addLine. self addStatusChoices: ScriptingSystem userCustomEventNames toSubMenu: submenu forMenu: menu. submenu addLine. self addStatusChoices: (Array streamContents: [ :s | s nextPut: { 'define a new custom event'. #defineNewEvent }. ScriptingSystem userCustomEventNames isEmpty ifFalse: [ s nextPut: { 'delete a custom event'. #deleteCustomEvent } ]]) toSubMenu: submenu forMenu: menu ]. menu addLine. self addStatusChoices: #( ('what do these mean?'explainStatusAlternatives) ('apply my status to all siblings' assignStatusToAllSiblings) ) toMenu: menu. menu addTitle: 'When should this script run?' translated. menu submorphs last delete. menu invokeModal. reply := menu modalSelection. reply == #explainStatusAlternatives ifTrue: [^ self explainStatusAlternatives]. reply == #assignStatusToAllSiblings ifTrue: [^ self assignStatusToAllSiblings]. reply == #defineNewEvent ifTrue: [ ^self defineNewEvent ]. reply == #deleteCustomEvent ifTrue: [ ^self deleteCustomEvent ]. reply ifNotNil: [self status: reply. "Gets event handlers fixed up" reply == #paused ifTrue: [m := player costume. (m isKindOf: SpeakerMorph) ifTrue: [m stopSound]]. self updateAllStatusMorphs] ! Item was changed: ----- Method: StandardScriptingSystem>>statusHelpStringFor: (in category '*Etoys-customevents-help dictionary') ----- statusHelpStringFor: aPlayer ^String streamContents: [ :stream | stream nextPutAll: 'normal -- run when called paused -- ready to run all the time ticking -- run all the time mouseDown -- run when mouse goes down on me mouseStillDown -- while mouse still down mouseUp -- when mouse comes back up mouseEnter -- when mouse enters my bounds, button up mouseLeave -- when mouse exits my bounds, button up mouseEnterDragging -- when mouse enters my bounds, button down mouseLeaveDragging -- when mouse exits my bounds, button down opening -- when I am being opened closing -- when I am being closed' translated. "'keyStroke -- run when user hits a key' " stream cr; cr; nextPutAll: 'More events:' translated; cr. (self customEventNamesAndHelpStringsFor: aPlayer) do: [ :array | stream cr; nextPutAll: array first; nextPutAll: ' -- '. array second do: [ :help | stream nextPutAll: help translated ] separatedBy: [ stream nextPutAll: ' or ' translated ]]. + (Preferences valueOfFlag: #allowEtoyUserCustomEvents) ifTrue: [ - (Preferences allowEtoyUserCustomEvents) ifTrue: [ self userCustomEventNames isEmpty ifFalse: [ stream cr; cr; nextPutAll: 'User custom events:' translated; cr. self currentWorld userCustomEventsRegistry keysAndValuesDo: [ :key :value | stream cr; nextPutAll: key; nextPutAll: ' -- '; nextPutAll: value ]]]]!

1 0

The Trunk: EToys-cmm.131.mcz
by commits＠source.squeak.org 12 Sep '15

12 Sep '15

1 0

The Trunk: Morphic-mt.1005.mcz
by commits＠source.squeak.org 10 Sep '15

10 Sep '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1005.mcz ==================== Summary ==================== Name: Morphic-mt.1005 Author: mt Time: 10 September 2015, 2:40:42.838 pm UUID: d77f85b5-c861-d347-93c6-fb0bce9283b9 Ancestors: Morphic-mt.1004 Fixes a memory leak that occurs when handling drop events and an error occurs. Primarily, this is related to step messages holding strong references to their receivers. Stepping will only stop if #delete is called on a morph. =============== Diff against Morphic-mt.1004 =============== Item was changed: ----- Method: HandMorph>>dropMorph:event: (in category 'grabbing/dropping') ----- dropMorph: aMorph event: anEvent "Drop the given morph which was carried by the hand" | event dropped | (anEvent isMouseUp and:[aMorph shouldDropOnMouseUp not]) ifTrue:[^self]. "Note: For robustness in drag and drop handling we remove the morph BEFORE we drop him, but we keep his owner set to the hand. This prevents system lockups when there is a problem in drop handling (for example if there's an error in #wantsToBeDroppedInto:). THIS TECHNIQUE IS NOT RECOMMENDED FOR CASUAL USE." self privateRemove: aMorph. aMorph privateOwner: self. dropped := aMorph. (dropped hasProperty: #addedFlexAtGrab) ifTrue:[dropped := aMorph removeFlexShell]. event := DropEvent new setPosition: self position contents: dropped hand: self. + + [ "In case of an error, ensure that the morph-to-be-dropped will be disposed. Otherwise it may confuse garbage handler. See the sends of #privateRemove: and #privateOwner: above." + self sendEvent: event focus: nil. + event wasHandled ifFalse: [aMorph rejectDropMorphEvent: event] ] + ensure: [ aMorph owner == self ifTrue: [aMorph delete] ]. + - self sendEvent: event focus: nil. - event wasHandled ifFalse:[aMorph rejectDropMorphEvent: event]. - aMorph owner == self ifTrue:[aMorph delete]. self mouseOverHandler processMouseOver: anEvent.!

1 0

The Trunk: Morphic-mt.1005.mcz
by commits＠source.squeak.org 10 Sep '15

10 Sep '15

1 0

The Trunk: Collections-ul.655.mcz
by commits＠source.squeak.org 09 Sep '15

09 Sep '15

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.655.mcz ==================== Summary ==================== Name: Collections-ul.655 Author: ul Time: 9 September 2015, 8:30:27.564 pm UUID: 179eb75e-eb8d-4c16-8934-158921d1ff81 Ancestors: Collections-ul.654 - 64-bit compatible and faster ByteArray>>unsignedLong64At:put:bigEndian: - faster ByteArray>>unsignedLong64At:bigEndian: =============== Diff against Collections-ul.654 =============== Item was changed: ----- Method: ByteArray>>longAt:bigEndian: (in category 'platform independent access') ----- longAt: index bigEndian: bigEndian "Return a 32-bit integer quantity starting from the given byte index. Use #normalize where necessary to ensure compatibility with non-30-bit SmallIntegers." | byte result | bigEndian ifFalse: [ (byte := self at: index + 3) <= 16r7F ifTrue: [ "Is the result non-negative?" byte <= 16r3F ifTrue: [ ^(((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. ^(LargePositiveInteger new: 4) replaceFrom: 1 + to: 4 + with: self + startingAt: index; - to: 4 - with: self - startingAt: index; normalize ]. "Negative" byte >= 16rC0 ifTrue: [ ^-1 - (((((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitXor: 16rFFFFFF) bitShift: 8) + ((self at: index) bitXor: 16rFF)) ]. (result := LargeNegativeInteger new: 4) digitAt: 4 put: ((self at: index + 3) bitXor: 16rFF); digitAt: 3 put: ((self at: index + 2) bitXor: 16rFF); digitAt: 2 put: ((self at: index + 1) bitXor: 16rFF). (byte := ((self at: index) bitXor: 16rFF) + 1) <= 16rFF ifTrue: [ ^result digitAt: 1 put: byte; normalize ]. ^result digitAt: 1 put: 16rFF; + - 1 "It's tempting to do the subtraction in a loop to avoid the LargeInteger creation, but it's actually slower than this." ]. - - 1 "It's tempting to do the subtraction in a loop, to avoid the LargeInteger creation, but it's actually slower than this." ]. (byte := self at: index) <= 16r7F ifTrue: [ "Is the result non-negative?" byte <= 16r3F ifTrue: [ ^(((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 3) ]. ^(LargePositiveInteger new: 4) digitAt: 1 put: (self at: index + 3); digitAt: 2 put: (self at: index + 2); digitAt: 3 put: (self at: index + 1); digitAt: 4 put: byte; normalize ]. "Negative" 16rC0 <= byte ifTrue: [ ^-1 - (((((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitXor: 16rFFFFFF) bitShift: 8) + ((self at: index + 3) bitXor: 16rFF)) ]. (result := LargeNegativeInteger new: 4) digitAt: 4 put: (byte bitXor: 16rFF); digitAt: 3 put: ((self at: index + 1) bitXor: 16rFF); digitAt: 2 put: ((self at: index + 2) bitXor: 16rFF). (byte := ((self at: index + 3) bitXor: 16rFF) + 1) <= 16rFF ifTrue: [ ^result digitAt: 1 put: byte; normalize ]. ^result digitAt: 1 put: 16rFF; + - 1 "It's tempting to do the subtraction in a loop to avoid the LargeInteger creation, but it's actually slower than this."! - - 1 "It's tempting to do the subtraction in a loop, to avoid the LargeInteger creation, but it's actually slower than this."! Item was changed: ----- Method: ByteArray>>unsignedLong64At:bigEndian: (in category 'platform independent access') ----- unsignedLong64At: index bigEndian: bigEndian "Return a 64-bit unsigned integer quantity starting from the given byte index. Use #normalize where necessary to ensure compatibility with non-30-bit SmallIntegers." | v | bigEndian ifFalse: [ (v := self at: index + 7) = 0 ifFalse: [ ^(LargePositiveInteger new: 8) + replaceFrom: 1 + to: 8 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: (self at: index + 4); - digitAt: 6 put: (self at: index + 5); - digitAt: 7 put: (self at: index + 6); - digitAt: 8 put: v; normalize ]. (v := self at: index + 6) = 0 ifFalse: [ ^(LargePositiveInteger new: 7) + replaceFrom: 1 + to: 7 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: (self at: index + 4); - digitAt: 6 put: (self at: index + 5); - digitAt: 7 put: v; normalize ]. (v := self at: index + 5) = 0 ifFalse: [ ^(LargePositiveInteger new: 6) + replaceFrom: 1 + to: 6 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: (self at: index + 4); - digitAt: 6 put: v; normalize ]. (v := self at: index + 4) = 0 ifFalse: [ ^(LargePositiveInteger new: 5) + replaceFrom: 1 + to: 5 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: v; normalize ]. (v := self at: index + 3) <= 16r3F ifFalse: [ ^(LargePositiveInteger new: 4) + replaceFrom: 1 + to: 4 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: v; normalize ]. ^(((v bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. (v := self at: index) = 0 ifFalse: [ ^(LargePositiveInteger new: 8) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: (self at: index + 2); digitAt: 7 put: (self at: index + 1); digitAt: 8 put: v; normalize ]. (v := self at: index + 1) = 0 ifFalse: [ ^(LargePositiveInteger new: 7) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: (self at: index + 2); digitAt: 7 put: v; normalize ]. (v := self at: index + 2) = 0 ifFalse: [ ^(LargePositiveInteger new: 6) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: v; normalize ]. (v := self at: index + 3) = 0 ifFalse: [ ^(LargePositiveInteger new: 5) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: v; normalize ]. (v := self at: index + 4) <= 16r3F ifFalse: [ ^(LargePositiveInteger new: 4) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: v; normalize ]. ^(((v bitShift: 8) + (self at: index + 5) bitShift: 8) + (self at: index + 6) bitShift: 8) + (self at: index + 7)! Item was changed: ----- Method: ByteArray>>unsignedLong64At:put:bigEndian: (in category 'platform independent access') ----- unsignedLong64At: index put: value bigEndian: bigEndian "Store a 64-bit unsigned integer quantity starting from the given byte index" + | i j | + value isLarge ifTrue: [ + i := value digitLength. + bigEndian ifFalse: [ - value isLarge - ifTrue: [ - | i size | - size := value digitLength. - bigEndian ifFalse: [ - self - replaceFrom: index - to: index + size - 1 - with: value - startingAt: 1; - replaceFrom: index + size - to: index + 7 - with: #[0 0 0 0] - startingAt: 1. - ^value ]. - i := 1. - [ i <= size ] whileTrue: [ - self at: index + 8 - i put: (value digitAt: i). - i := i + 1 ]. - [ i <= 8 ] whileTrue: [ - self at: index + 8 - i put: 0. - i := i + 1 ] ] - ifFalse: [ - bigEndian ifFalse: [ - self - at: index put: (value bitAnd: 16rFF); - at: index + 1 put: ((value bitShift: -8) bitAnd: 16rFF); - at: index + 2 put: ((value bitShift: -16) bitAnd: 16rFF); - at: index + 3 put: (value bitShift: -24); - replaceFrom: index + 4 - to: index + 7 - with: #[0 0 0 0] - startingAt: 1. - ^value ]. self replaceFrom: index + to: index + i - 1 + with: value - to: index + 3 - with: #[0 0 0 0] startingAt: 1; + replaceFrom: index + i + to: index + 7 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1. + ^value ]. + j := index + 8. + i <= 7 ifTrue: [ + self + replaceFrom: index + to: j - i - 1 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1 ]. + [ 1 <= i ] whileTrue: [ + self at: j - i put: (value digitAt: i). + i := i - 1 ]. + ^value ]. + bigEndian ifFalse: [ + j := index - 1. + i := value. + [ 1 <= i ] whileTrue: [ + self at: (j := j + 1) put: (i bitAnd: 16rFF). + i := i bitShift: -8 ]. + self replaceFrom: j + 1 + to: index + 7 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1. + ^value ]. + j := index + 8. + i := value. + [ 1 <= i ] whileTrue: [ + self at: (j := j - 1) put: (i bitAnd: 16rFF). + i := i bitShift: -8 ]. + self replaceFrom: index + to: j - 1 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1. - at: index + 4 put: (value bitShift: -24); - at: index + 5 put: ((value bitShift: -16) bitAnd: 16rFF); - at: index + 6 put: ((value bitShift: -8) bitAnd: 16rFF); - at: index + 7 put: (value bitAnd: 16rFF) ]. ^value!

1 0

The Trunk: Collections-ul.655.mcz
by commits＠source.squeak.org 09 Sep '15

09 Sep '15

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2015