Packages June 2016

packages@lists.squeakfoundation.org

1 participants
85 discussions

The Trunk: Monticello-cmm.634.mcz
by commits＠source.squeak.org 30 Jun '16

30 Jun '16

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.634.mcz ==================== Summary ==================== Name: Monticello-cmm.634 Author: cmm Time: 30 June 2016, 5:35:56.346888 pm UUID: 7dd41647-3d9a-413f-8508-2e73208eddfd Ancestors: Monticello-kfr.633 Update client-side Monticello history access. Soon, any properly configured HTTP server can provide MC history, not just trunk. =============== Diff against Monticello-kfr.633 =============== Item was changed: ----- Method: BrowserRequestor>>browseMcClassHistory (in category '*monticello-history') ----- browseMcClassHistory "Open a browser on all versions of this class available in the MC repository for this package." self getClass ifNil: [ UIManager inform: 'No class selected' ] ifNotNilDo: + [ : theClass | theClass theNonMetaClass mcModel + ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support Monticello history.' ] + ifNotNil: + [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! - [ : theClass | (MCWorkingCopyBrowser mcModelFor: theClass theNonMetaClass) ifNotNil: - [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! Item was changed: ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') ----- browseMcMethodHistory "Open a browser on all versions of this method available in the MC repository for this package." self selectedMethodReference ifNil: [ UIManager inform: 'No method selected' ] ifNotNilDo: + [ : methodReference | methodReference mcModel + ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support Monticello history.' ] + ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! - [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! Item was changed: ----- Method: MCHttpRepository>>mcModel (in category 'overriding') ----- mcModel "Answer the object which can respond to #historyOf: and #originOf:." + ^ self! - ^ ((location beginsWith: 'http://localhost:8888/') or: [ location beginsWith: self class trunkBackupUrlString ]) ifTrue: [ self ]! Item was changed: ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') ----- browseSelectionOrigin | mcDefinition | selection ifNil: [ UIManager inform: 'Make a selection.' ]. mcDefinition := selection definition. Cursor wait showWhile: + [ mcDefinition mcModel ifNotNil: - [ (MCWorkingCopyBrowser mcModelFor: mcDefinition) ifNotNil: [ : mcModel | (mcModel originOf: mcDefinition) ifNil: [ UIManager inform: mcDefinition asString , ' was not found in any historical MC repository.' ] ifNotNilDo: [ : version | version open ] ] ]! Item was removed: - ----- Method: MCWorkingCopyBrowser class>>mcModelFor: (in category 'hooks') ----- - mcModelFor: aClassOrMethodReference - ^ aClassOrMethodReference mcModel ifNil: - [ | pkgName rep | (UIManager confirm: 'Okay to add historical repository ' , (rep := MCHttpRepository trunkBackup) description , ' to ' , (pkgName := aClassOrMethodReference packageInfo packageName) , '?') ifTrue: - [ (MCWorkingCopy forPackageNamed: pkgName) repositoryGroup addRepository: rep. - aClassOrMethodReference mcModel ] ]!

1 0

The Trunk: Morphic-cmm.1188.mcz
by commits＠source.squeak.org 30 Jun '16

30 Jun '16

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1188.mcz ==================== Summary ==================== Name: Morphic-cmm.1188 Author: cmm Time: 30 June 2016, 4:37:17.550411 pm UUID: dbffb365-18a5-414e-8584-48756b1592b3 Ancestors: Morphic-mt.1187 Update the key for #bringWindowUnderHandToFront to Cmd+/ (forward slash). This not only avoids the conflict with Ubuntu and Mac OS keys (sigh), but is a more sensible counterpart to the key which sends windows to the back (backward slash). =============== Diff against Morphic-mt.1187 =============== Item was changed: ----- Method: SystemWindow>>filterEvent:for: (in category 'events') ----- filterEvent: aKeyboardEvent for: anObject "Provide keyboard shortcuts." aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [$\] -> [self class sendTopWindowToBack]. [Character escape] -> [self class deleteTopWindow]. + [$/] -> [self class bringWindowUnderHandToFront]. - [$`] -> [self class bringWindowUnderHandToFront]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. aKeyboardEvent controlKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [Character escape] -> [self world findWindow: aKeyboardEvent]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. ^ aKeyboardEvent "no hit"!

1 0

The Trunk: Morphic-mt.1187.mcz
by commits＠source.squeak.org 29 Jun '16

29 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1187.mcz ==================== Summary ==================== Name: Morphic-mt.1187 Author: mt Time: 29 June 2016, 9:36:32.707121 am UUID: 9ec766fe-db1a-cd4f-957e-b95afcb2f8ff Ancestors: Morphic-mt.1186 Fixes a bug with the Morphic main loop when the serverMode is enabled. We still should double-check if we still need this 50-ms-hack to keep servers responsive. It should be the duty of the caller of #interCyclePause: to provide the 50 for servers. =============== Diff against Morphic-mt.1186 =============== Item was changed: ----- Method: WorldState>>interCyclePause: (in category 'update cycle') ----- interCyclePause: milliSecs "delay enough that the previous cycle plus the amount of delay will equal milliSecs. If the cycle is already expensive, then no delay occurs. However, if the system is idly waiting for interaction from the user, the method will delay for a proportionally long time and cause the overall CPU usage of Squeak to be low. If the preference #serverMode is enabled, always do a complete delay of 50ms, independant of my argument. This prevents the freezing problem described in Mantis #6581" | millisecondsToWait | millisecondsToWait := Preferences serverMode ifTrue: [ 50 ] ifFalse: [ (lastCycleTime isNil or: [ CanSurrenderToOS == false ]) ifTrue: [ 0 ] ifFalse: [ milliSecs - (Time millisecondsSince: lastCycleTime) ] ]. + (Preferences serverMode or: [millisecondsToWait > 0 and: [millisecondsToWait <= milliSecs]]) + ifTrue: [ + (interCycleDelay isNil or: [ interCycleDelay beingWaitedOn ]) + ifTrue: [ interCycleDelay := Delay forMilliseconds: millisecondsToWait ] + ifFalse: [ interCycleDelay delayDuration: millisecondsToWait ]. + interCycleDelay wait ]. - (millisecondsToWait > 0 and: [millisecondsToWait <= milliSecs]) ifTrue: [ - (interCycleDelay isNil or: [ interCycleDelay beingWaitedOn ]) - ifTrue: [ interCycleDelay := Delay forMilliseconds: millisecondsToWait ] - ifFalse: [ interCycleDelay delayDuration: millisecondsToWait ]. - interCycleDelay wait ]. lastCycleTime := Time millisecondClockValue. CanSurrenderToOS := true.!

1 0

The Trunk: Chronology-Core-cmm.6.mcz
by commits＠source.squeak.org 29 Jun '16

29 Jun '16

Chris Muller uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-cmm.6.mcz ==================== Summary ==================== Name: Chronology-Core-cmm.6 Author: cmm Time: 28 June 2016, 9:38:09.069292 pm UUID: 29a5a2b4-59f0-4bb4-a3d4-56fe680d31ec Ancestors: Chronology-Core-bf.5 Fix Date class comment. Add Date>>#@ shortcut for constructing DateAndTime's. =============== Diff against Chronology-Core-bf.5 =============== Item was changed: Timespan subclass: #Date instanceVariableNames: '' classVariableNames: '' poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! + !Date commentStamp: 'cmm 6/28/2016 21:36' prior: 0! + Instances of Date are Timespans with duration of 1 day. As with all Chronology Timespan sub-instances, Dates can be instantiated as position values which compare equally to any other instance of the same Date, irregardless of the timezone in which either is created. - !Date commentStamp: 'cmm 2/3/2012 17:30' prior: 0! - Instances of Date are Timespans with duration of 1 day. + However, like the other Timespan subInstances, there are rare cases where it may be desirable to use instances of Date to represent a particular 1-day span of time at a particular locality on the globe. All Timespans, including Dates, may specify a particular timezone offset for this purpose.! - Their default creation assumes a start of midnight of UTC to provide the fast, globalized Dates out of the box. The legacy behavior that creates Timezone-sensitive Dates can be used by sending #localizedDates. - ! Item was added: + ----- Method: Date>>@ (in category 'squeak protocol') ----- + @ aTime + ^ DateAndTime + date: self + time: aTime!

1 0

The Trunk: Morphic-mt.1186.mcz
by commits＠source.squeak.org 28 Jun '16

28 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1186.mcz ==================== Summary ==================== Name: Morphic-mt.1186 Author: mt Time: 28 June 2016, 11:39:43.639008 am UUID: 471c6534-59eb-c84c-8742-e4fa50706ebb Ancestors: Morphic-mt.1185 Account for broken morphs in the Object Explorer by catching in-computable icons. (Icons for morphs are usually their own graphical representation scaled down.) Comparable to error handling in ObjectExplorerWrapper >> #asString. Fixes a bug with columns cache invalidation in tree morphs. =============== Diff against Morphic-mt.1185 =============== Item was changed: ----- Method: ObjectExplorerWrapper>>icon (in category 'accessing') ----- icon "Answer a form to be used as icon" ^ Preferences visualExplorer + ifTrue: [([self object iconOrThumbnailOfSize: 12] on: Error do: [nil]) - ifTrue: [(self object iconOrThumbnailOfSize: 12) ifNil: [self class showContentsInColumns ifTrue: [ToolIcons iconNamed: #blank] ifFalse: [nil]]] ifFalse: [nil]! Item was changed: ----- Method: SimpleHierarchicalListMorph>>columns: (in category 'accessing') ----- columns: anArray "You can specify columns or specs for columns. This depends on the actual morph that is used as item. ObjectExplorers produce items that support exact numbers, blocks, and nil for max width." + columns := anArray. + self clearColumnsCache.! - columns := anArray!

1 0

The Trunk: Morphic-mt.1185.mcz
by commits＠source.squeak.org 25 Jun '16

25 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1185.mcz ==================== Summary ==================== Name: Morphic-mt.1185 Author: mt Time: 25 June 2016, 8:51:08.59647 am UUID: 05385b8c-0ff4-6443-9c57-52be6dc91bbb Ancestors: Morphic-mt.1184 Fixes several bugs with selection and hovering in menus and docking-bar menus and their sub-menus. =============== Diff against Morphic-mt.1184 =============== Item was changed: ----- Method: DockingBarItemMorph>>mouseEnter: (in category 'events') ----- mouseEnter: evt + "Do not hover docking bar items directory. Mouse-down required. But if you already see a submenu, support hovering." - "The mouse entered the receiver" + owner selectedItem ifNotNil: [owner selectItem: self event: evt]! - super mouseEnter: evt. - (owner selectedItem notNil and: [ owner selectedItem ~~ self ]) ifTrue: [ - owner selectItem: self event: evt. ]! Item was removed: - ----- Method: DockingBarItemMorph>>mouseLeaveDragging: (in category 'events') ----- - mouseLeaveDragging: evt ! Item was changed: StringMorph subclass: #MenuItemMorph + instanceVariableNames: 'isEnabled subMenu isSelected target selector arguments icon' - instanceVariableNames: 'isEnabled subMenu isSelected target selector arguments icon lastMousePosition' classVariableNames: 'SubMenuMarker' poolDictionaries: '' category: 'Morphic-Menus'! !MenuItemMorph commentStamp: '<historical>' prior: 0! I represent an item in a menu. Instance variables: isEnabled <Boolean> True if the menu item can be executed. subMenu <MenuMorph | nil> The submenu to activate automatically when the user mouses over the item. isSelected <Boolean> True if the item is currently selected. target <Object> The target of the associated action. selector <Symbol> The associated action. arguments <Array> The arguments for the associated action. icon <Form | nil> An optional icon form to be displayed to my left. If I have a dynamic marker, created by strings like <yes> or <no> in my contents, it will be installed as a submorph.! Item was changed: ----- Method: MenuItemMorph>>activateSubmenu: (in category 'events') ----- activateSubmenu: evt "Activate our submenu; e.g., pass control to it" subMenu ifNil:[^false]. "not applicable" (subMenu fullContainsPoint: evt position) ifFalse:[^false]. subMenu activate: evt. - self removeAlarm: #deselectTimeOut:. ^true! Item was changed: ----- Method: MenuItemMorph>>deselect: (in category 'selecting') ----- deselect: evt self isSelected: false. - lastMousePosition := nil. subMenu ifNotNil: [ owner ifNotNil: [ owner activeSubmenu: nil ] ].! Item was removed: - ----- Method: MenuItemMorph>>deselectTimeOut: (in category 'events') ----- - deselectTimeOut: evt - "Deselect timout. Now really deselect" - owner selectedItem == self - ifTrue:[ - evt hand newMouseFocus: nil. - owner selectItem: nil event: evt]. - ! Item was changed: ----- Method: MenuItemMorph>>mouseEnter: (in category 'events') ----- mouseEnter: evt "The mouse entered the receiver" + owner ifNotNil: [ owner selectItem: self event: evt ]! - owner ifNotNil: [ owner stayUp ifFalse: [ self mouseEnterDragging: evt ] ]! Item was changed: ----- Method: MenuItemMorph>>mouseEnterDragging: (in category 'events') ----- mouseEnterDragging: evt + + self mouseEnter: evt.! - "The mouse entered the receiver. Do nothing if we're not in a 'valid menu transition', meaning that the current hand focus must be aimed at the owning menu." - evt hand mouseFocus == owner ifTrue:[owner selectItem: self event: evt]! Item was removed: - ----- Method: MenuItemMorph>>mouseLeave: (in category 'events') ----- - mouseLeave: evt - "The mouse has left the interior of the receiver..." - - owner ifNotNil: [owner stayUp ifFalse: [self mouseLeaveDragging: evt]]! Item was removed: - ----- Method: MenuItemMorph>>mouseLeaveDragging: (in category 'events') ----- - mouseLeaveDragging: evt - "The mouse left the receiver. Do nothing if we're not in a 'valid menu transition', meaning that the current hand focus must be aimed at the owning menu." - - owner ifNil: [^self]. - evt hand mouseFocus == owner ifFalse: [ ^self ]. - lastMousePosition := evt position. - owner selectItem: nil event: evt! Item was removed: - ----- Method: MenuItemMorph>>releasesSelection: (in category 'events') ----- - releasesSelection: evt - " Returns a boolean indicating that this menu item is ready to go deselected. - It answers false if the mouse is moving towards its submenu. - We check this by testing that the current mouse position lays in the triangle of - the last mouse position and the two corners of the submenu facing our menu item. " - - | triangle submenuIsOnTheRightSide | - self hasSubMenu ifFalse: [ - lastMousePosition := nil. - ^true ]. - lastMousePosition ifNil: [ - lastMousePosition := evt position. - ^false ]. - submenuIsOnTheRightSide := self left < subMenu left. - triangle := { - lastMousePosition. - submenuIsOnTheRightSide - ifTrue: [ subMenu topLeft ] - ifFalse: [ subMenu topRight ]. - submenuIsOnTheRightSide - ifTrue: [ subMenu bottomLeft ] - ifFalse: [ subMenu bottomRight ] }. - lastMousePosition := evt position. - (self triangle: triangle containsPoint: evt position) - ifTrue: [ ^false ] - ifFalse: [ - lastMousePosition := nil. - ^true ]! Item was changed: ----- Method: MenuItemMorph>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier "Copy all of my instance variables. Some need to be not copied at all, but shared. Warning!!!! Every instance variable defined in this class must be handled. We must also implement veryDeepFixupWith:. See DeepCopier class comment." super veryDeepInner: deepCopier. isEnabled := isEnabled veryDeepCopyWith: deepCopier. subMenu := subMenu veryDeepCopyWith: deepCopier. isSelected := isSelected veryDeepCopyWith: deepCopier. icon := icon veryDeepCopyWith: deepCopier. "target := target. Weakly copied" "selector := selector. a Symbol" + arguments := arguments.! - arguments := arguments. - lastMousePosition := nil! Item was added: + ----- Method: MenuMorph>>handlesMouseOver: (in category 'events') ----- + handlesMouseOver: evt + ^ true! Item was added: + ----- Method: MenuMorph>>mouseLeave: (in category 'events') ----- + mouseLeave: evt + self selectItem: nil event: evt.! Item was removed: - ----- Method: MenuMorph>>releasesSelection: (in category 'events') ----- - releasesSelection: evt - " The MenuMorph releases its selection if the selected item releases it. - Used in #selectItem:event: " - - self selectedItem ifNil: [ ^true ]. - evt ifNil: [ ^true ]. - evt isKeyboard ifTrue: [ ^true ]. - (self selectedItem containsPoint: evt position) ifTrue: [ ^true ]. - ^self selectedItem releasesSelection: evt! Item was changed: ----- Method: MenuMorph>>selectItem:event: (in category 'control') ----- selectItem: aMenuItem event: anEvent + "Change the selected item." + - - " Change the selected item, but first ask the currently selected item - if it want to release it. " - (self releasesSelection: anEvent) ifFalse: [ ^self ]. selectedItem ifNotNil:[selectedItem deselect: anEvent]. selectedItem := aMenuItem. selectedItem ifNotNil:[selectedItem select: anEvent].!

1 0

The Trunk: System-eem.834.mcz
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.834.mcz ==================== Summary ==================== Name: System-eem.834 Author: eem Time: 23 June 2016, 4:30:25.198834 pm UUID: d42d7b14-27ee-49c9-9469-b7f7d1b48395 Ancestors: System-mt.833 More accurately comment the semantics of the growMemoryByAtLeast: primitive on Spur. =============== Diff against System-mt.833 =============== Item was changed: ----- Method: SmalltalkImage>>growMemoryByAtLeast: (in category 'memory space') ----- growMemoryByAtLeast: numBytes "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential. + N.B. In Spur, the heap is composed of segments. Growing memory adds a new + segment; it does not extend existing segments. Growth is by at least that + established by SmalltalkImage current vmParameterAt: 25, which defaults to 16Mb." - Primitive. Essential. Fail if no memory is available." <primitive: 180> + ^(numBytes isInteger and: [numBytes > 0]) + ifTrue: [OutOfMemory signal] + ifFalse: [self primitiveFailed]! - (numBytes isInteger and: [numBytes > 0]) ifTrue: - [OutOfMemory signal]. - ^self primitiveFailed! Item was changed: ----- Method: SystemDictionary>>growMemoryByAtLeast: (in category 'memory space') ----- growMemoryByAtLeast: numBytes "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential. + N.B. In Spur, the heap is composed of segments. Growing memory adds a new + segment; it does not extend existing segments. Growth is by at least that + established by SmalltalkImage current vmParameterAt: 25, which defaults to 16Mb." - Primitive. Fail if no memory is available. Essential." <primitive: 180> ^(numBytes isInteger and: [numBytes > 0]) ifTrue: [OutOfMemory signal] ifFalse: [self primitiveFailed]!

1 0

The Trunk: Collections-eem.699.mcz
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.699.mcz ==================== Summary ==================== Name: Collections-eem.699 Author: eem Time: 23 June 2016, 4:28:17.428149 pm UUID: b82a57a1-a212-4ebe-a738-59abebf9a380 Ancestors: Collections-ul.698 Fix growth on become failure due to insufficient memory. =============== Diff against Collections-ul.698 =============== Item was changed: ----- Method: Array>>elementsExchangeIdentityWith: (in category 'converting') ----- elementsExchangeIdentityWith: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. At the same time, all pointers to the elements of otherArray are replaced by pointers to the corresponding elements of this array. The identityHashes remain with the pointers rather than with the objects so that objects in hashed structures should still be properly indexed after the mutation." <primitive: 128 error: ec> ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array ifTrue: ['arg must be of class Array'] ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'no modification' ifTrue: [^self error: 'can''t become immutable objects']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: + [| maxRequired | + "In Spur, two-way become may involve making each pair of objects into a forwarder into a copy of the other. + So if become fails with #'insufficient object memory', garbage collect, and if necessary, grow memory." + maxRequired := (self detectSum: [:obj | obj class byteSizeOfInstanceOfSize: obj basicSize]) + + (otherArray detectSum: [:obj | obj class byteSizeOfInstanceOfSize: obj basicSize]). + (Smalltalk garbageCollectMost < maxRequired + and: [Smalltalk garbageCollect < maxRequired]) ifTrue: + [Smalltalk growMemoryByAtLeast: maxRequired]. - [Smalltalk garbageCollect < 1048576 ifTrue: - [Smalltalk growMemoryByAtLeast: 1048576]. ^self elementsExchangeIdentityWith: otherArray]. self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') ----- elementsForwardIdentityTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. The identityHashes remain with the pointers rather than with the objects so that the objects in this array should still be properly indexed in any existing hashed structures after the mutation." <primitive: 72 error: ec> ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array ifTrue: ['arg must be of class Array'] ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'no modification' ifTrue: [^self error: 'can''t become immutable objects']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: + [self error: 'The virtual machine is out-of-date. Please upgrade.']. - [Smalltalk garbageCollect < 1048576 ifTrue: - [Smalltalk growMemoryByAtLeast: 1048576]. - ^self elementsForwardIdentityTo: otherArray]. self primitiveFailed!

1 0

The Trunk: Tools-topa.705.mcz
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.705.mcz ==================== Summary ==================== Name: Tools-topa.705 Author: topa Time: 23 June 2016, 9:55:41.768774 am UUID: e819d324-b58e-4e35-b988-395da379fdb5 Ancestors: Tools-mt.704 disable buttons in the browser when they do not apply =============== Diff against Tools-mt.704 =============== Item was changed: ----- Method: CodeHolder>>buildOptionalButtonsWith: (in category 'toolbuilder') ----- buildOptionalButtonsWith: builder | panelSpec | panelSpec := builder pluggablePanelSpec new. panelSpec children: OrderedCollection new. self optionalButtonPairs do:[:spec| | buttonSpec | buttonSpec := builder pluggableActionButtonSpec new. buttonSpec model: self. buttonSpec label: spec first. buttonSpec action: spec second. + spec second == #methodHierarchy + ifTrue:[buttonSpec + enabled: #inheritanceButtonEnabled; + color: #inheritanceButtonColor]. + spec second == #browseVersions + ifTrue:[buttonSpec enabled: #versionsButtonEnabled]. - spec second == #methodHierarchy ifTrue:[ - buttonSpec color: #inheritanceButtonColor. - ]. spec size > 2 ifTrue:[buttonSpec help: spec third]. + panelSpec children add: buttonSpec]. - panelSpec children add: buttonSpec. - ]. "What to show" panelSpec children add: builder pluggableSpacerSpec new. self addCodeProvenanceButtonTo: panelSpec using: builder. panelSpec layout: #horizontal. "buttons" ^panelSpec! Item was added: + ----- Method: CodeHolder>>inheritanceButtonEnabled (in category 'toolbuilder') ----- + inheritanceButtonEnabled + "The inheritance button is only enabled when a method is selected" + + ^ self selectedMessageName notNil + ! Item was added: + ----- Method: CodeHolder>>versionsButtonEnabled (in category 'toolbuilder') ----- + versionsButtonEnabled + "The versions button is only enabled when a method is selected or we view the + class comment." + + ^ self selectedMessageName notNil or: [self classCommentIndicated]! Item was changed: ----- Method: StringHolder>>browseVersions (in category '*Tools') ----- browseVersions "Create and schedule a Versions Browser, showing all versions of the currently selected message. Answer the browser or nil." + ^ self classCommentIndicated + ifTrue: [ClassCommentVersionsBrowser browseCommentOf: self selectedClass] + ifFalse: [self selectedMessageName ifNotNil: + [:selector | + ToolSet browseVersionsOf: self selectedClassOrMetaClass selector: selector]]! - | selector | - self classCommentIndicated ifTrue: - [ClassCommentVersionsBrowser browseCommentOf: self selectedClass. - ^nil]. - - ^(selector := self selectedMessageName) - ifNil: [self inform: 'Sorry, only actual methods have retrievable versions.'. nil] - ifNotNil: [ToolSet browseVersionsOf: self selectedClassOrMetaClass selector: selector]!

1 0

The Trunk: Installer-Core-cmm.406.mcz
by commits＠source.squeak.org 23 Jun '16

23 Jun '16

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.406.mcz ==================== Summary ==================== Name: Installer-Core-cmm.406 Author: cmm Time: 22 June 2016, 9:03:21.329276 pm UUID: b5f775d3-5f20-49bf-be10-edd2cec2d1bf Ancestors: Installer-Core-cmm.405 - Factor ability to #packageDependenciesFor:do:. - Fix for repository overriding. =============== Diff against Installer-Core-cmm.405 =============== Item was changed: ----- Method: Installer>>merge: (in category 'public interface') ----- merge: structureOrSymbol | toUncache | toUncache := Set new. + self + packageDependenciesFor: structureOrSymbol + do: + [ : eachPackageName : eachRepositorySpec | | repo | + (repo := self class repositoryFor: eachRepositorySpec) cacheAllFilenames. + toUncache add: repo. + self primMerge: eachPackageName ]. + toUncache do: [ : each | each flushAllFilenames ]! - structureOrSymbol isSymbol - ifTrue: [ self merge: (self perform: structureOrSymbol) ] - ifFalse: - [ self - depthFirstOf: structureOrSymbol - do: - [ : each | each isVariableBinding - ifTrue: - [ currentRepository := self class repositoryFor: each. - currentRepository cacheAllFilenames. - toUncache add: currentRepository ] - ifFalse: - [ each isString - ifTrue: [ self primMerge: each ] - ifFalse: [ self error: 'invalid specification' ] ] ] ]. - toUncache do: - [ : each | each flushAllFilenames ]! Item was added: + ----- Method: Installer>>packageDependenciesFor:do: (in category 'private') ----- + packageDependenciesFor: structureOrSymbol do: twoArgBlock + "Value twoArgBlock with each package name and the currently-specified repository where that package resides." + structureOrSymbol isSymbol + ifTrue: + [ self + packageDependenciesFor: (self perform: structureOrSymbol) + do: twoArgBlock ] + ifFalse: + [ self + depthFirstOf: structureOrSymbol + do: + [ : each | each isVariableBinding + ifTrue: [ currentRepository := each ] + ifFalse: + [ each isString + ifTrue: + [ twoArgBlock + value: each + value: currentRepository ] + ifFalse: [ self error: 'invalid specification' ] ] ] ]! Item was changed: ----- Method: Installer>>primMerge: (in category 'private') ----- primMerge: packageName + | version repo | + repo := self class repositoryFor: currentRepository. + version := (repo includesVersionNamed: packageName) + ifTrue: [ repo versionNamed: packageName ] + ifFalse: [ repo highestNumberedVersionForPackageNamed: packageName ]. - | version | - version := (currentRepository includesVersionNamed: packageName) - ifTrue: [ currentRepository versionNamed: packageName ] - ifFalse: [ currentRepository highestNumberedVersionForPackageNamed: packageName ]. [ version shouldMerge ifTrue: [ version merge ] ifFalse: [ version load ] ] on: MCNoChangesException + do: [ : req | req resume ] - do: - [ : req | req resume ] on: MCMergeResolutionRequest do: [ : request | request merger conflicts isEmpty ifTrue: [ request resume: true ] ifFalse: [ request pass ] ]. + version workingCopy repositoryGroup addRepository: repo! - version workingCopy repositoryGroup addRepository: currentRepository!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2016