Packages December 2013

packages@lists.squeakfoundation.org

1 participants
477 discussions

The Trunk: Morphic-fbs.700.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.700.mcz ==================== Summary ==================== Name: Morphic-fbs.700 Author: fbs Time: 6 December 2013, 8:38:31.673 pm UUID: a9c94f51-b544-f842-af48-c1d2e014573e Ancestors: Morphic-fbs.699 Systematically ask SystemBrowser for a Browser (class). =============== Diff against Morphic-fbs.699 =============== Item was changed: ----- Method: TextEditor>>browseIt (in category 'menu messages') ----- browseIt "Launch a browser for the current selection, if appropriate" | aSymbol anEntry brow | Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt]. self lineSelectAndEmptyCheck: [^ self]. (aSymbol := self selectedSymbol) isNil ifTrue: [^ morph flash]. aSymbol first isUppercase ifTrue: [anEntry := (Smalltalk at: aSymbol ifAbsent: [ self systemNavigation browseAllImplementorsOf: aSymbol. ^ nil]). anEntry ifNil: [^ morph flash]. (anEntry isKindOf: Class) ifFalse: [anEntry := anEntry class]. + brow := SystemBrowser default new. - brow := Preferences browseToolClass new. brow setClass: anEntry selector: nil. brow class openBrowserView: (brow openEditString: nil) label: 'System Browser'] ifFalse: [self systemNavigation browseAllImplementorsOf: aSymbol]!

1 0

The Trunk: System-fbs.634.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.634.mcz ==================== Summary ==================== Name: System-fbs.634 Author: fbs Time: 6 December 2013, 8:36:08.84 pm UUID: 18ae1969-821b-5945-b9cc-46109800ebc0 Ancestors: System-fbs.633 If you want to know what kind of Browser to use, ask the AppRegistry that knows - SystemBrowser. Also, the old #browseThemes implementation (a) referred directly to Browser, and (b) did almost exactly the usual thing - browsing a method selects the correct category, and just the label changes. Not worth extending ToolSet's API for such a small use case. =============== Diff against System-fbs.633 =============== Item was changed: ----- Method: Preferences class>>browseThemes (in category 'misc') ----- browseThemes "Open up a message-category browser on the theme-defining methods" + ToolSet browse: Preferences class selector: #outOfTheBox.! - - | aBrowser | - aBrowser := Browser new setClass: Preferences class selector: #outOfTheBox. - aBrowser messageCategoryListIndex: ((Preferences class organization categories indexOf: 'themes' ifAbsent: [^ self inform: 'no themes found']) + 1). - Browser openBrowserView: (aBrowser openMessageCatEditString: nil) - label: 'Preference themes' - - "Preferences browseThemes"! Item was removed: - ----- Method: Preferences class>>browseToolClass (in category 'hard-coded prefs') ----- - browseToolClass - "This method is used for returning the appropiate class for the #browserShowsPackagePane preference. Now that preference modifies the registry so here we query directly to the registry" - ^ SystemBrowser default.!

1 0

The Trunk: System-fbs.634.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

1 0

The Trunk: System-fbs.634.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

1 0

The Trunk: 45Deprecated-fbs.18.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Frank Shearar uploaded a new version of 45Deprecated to project The Trunk: http://source.squeak.org/trunk/45Deprecated-fbs.18.mcz ==================== Summary ==================== Name: 45Deprecated-fbs.18 Author: fbs Time: 6 December 2013, 8:33:53.794 pm UUID: fac83811-9a6f-6944-9d73-c1ef3d1e691d Ancestors: 45Deprecated-fbs.17 If you want to know what kind of Browser to use, ask the AppRegistry that knows - SystemBrowser. =============== Diff against 45Deprecated-fbs.17 =============== Item was added: + ----- Method: Preferences class>>browseToolClass (in category '*45Deprecated') ----- + browseToolClass + "This method is used for returning the appropiate class for the #browserShowsPackagePane preference. Now that preference modifies the registry so here we query directly to the registry" + self deprecated: 'Use SystemBrowser default'. + ^ SystemBrowser default.!

1 0

The Trunk: 45Deprecated-fbs.18.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

1 0

The Trunk: 45Deprecated-fbs.18.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

1 0

The Trunk: UpdateStream-nice.2.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

Nicolas Cellier uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-nice.2.mcz ==================== Summary ==================== Name: UpdateStream-nice.2 Author: nice Time: 6 December 2013, 5:16:05.919 pm UUID: 946512c5-6ada-463e-83ea-231b857eb86d Ancestors: UpdateStream-nice.1 Prefer own Preferences =============== Diff against UpdateStream-nice.1 =============== Item was changed: Object subclass: #UpdateStreamDownloader instanceVariableNames: '' + classVariableNames: 'PromptForUpdateServer UpdateDownloader UpdateSavesFile UpdateUrlLists' - classVariableNames: 'UpdateDownloader UpdateUrlLists' poolDictionaries: '' category: 'UpdateStream'! Item was changed: ----- Method: UpdateStreamDownloader class>>chooseUpdateList (in category 'fetching updates') ----- chooseUpdateList "When there is more than one set of update servers, let the user choose which we will update from. Put it at the front of the list. Return false if the user aborted. If the preference #promptForUpdateServer is false, then suppress that prompt, in effect using the same server choice that was used the previous time (a convenience for those of us who always answer the same thing to the prompt.)" | index him | + ((UpdateUrlLists size > 1) and: [self promptForUpdateServer]) - ((UpdateUrlLists size > 1) and: [Preferences promptForUpdateServer]) ifTrue: [index := UIManager default chooseFrom: (UpdateUrlLists collect: [:each | each first]) lines: #() title: 'Choose a group of servers\from which to fetch updates.' translated withCRs. index > 0 ifTrue: [him := UpdateUrlLists at: index. UpdateUrlLists removeAt: index. UpdateUrlLists addFirst: him]. ^ index > 0]. ^ true! Item was added: + ----- Method: UpdateStreamDownloader class>>promptForUpdateServer (in category 'preferences') ----- + promptForUpdateServer + <preference: 'Prompt for update server' + category: 'updates' + description: 'If false, the prompt for server choice when updating code from the server is suppressed. Set this to false to leave the server choice unchanged from update to update.' + type: #Boolean> + ^PromptForUpdateServer ifNil: [ false ]! Item was added: + ----- Method: UpdateStreamDownloader class>>promptForUpdateServer: (in category 'preferences') ----- + promptForUpdateServer: aBoolean + PromptForUpdateServer := aBoolean! Item was changed: ----- Method: UpdateStreamDownloader class>>saveUpdate:onFile: (in category 'fetching updates') ----- saveUpdate: doc onFile: fileName "Save the update on a local file. With or without the update number on the front, depending on the preference #updateRemoveSequenceNum" | file fName pos updateDirectory | (FileDirectory default directoryNames includes: 'updates') ifFalse: [FileDirectory default createDirectory: 'updates']. updateDirectory := FileDirectory default directoryNamed: 'updates'. fName := fileName. + self updateRemoveSequenceNum ifTrue: - (Preferences valueOfFlag: #updateRemoveSequenceNum) ifTrue: [pos := fName findFirst: [:c | c isDigit not]. fName := fName copyFrom: pos to: fName size]. doc reset; ascii. (updateDirectory fileExists: fName) ifFalse: [file := updateDirectory newFileNamed: fName. file nextPutAll: doc contents. file close]. ! Item was changed: ----- Method: UpdateStreamDownloader class>>updateFromServer (in category 'fetching updates') ----- updateFromServer "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" + self readServerUpdatesSaveLocally: self updateSavesFile updateImage: true! - self readServerUpdatesSaveLocally: Preferences updateSavesFile updateImage: true! Item was changed: ----- Method: UpdateStreamDownloader class>>updateFromServerThroughUpdateNumber: (in category 'fetching updates') ----- updateFromServerThroughUpdateNumber: aNumber "Update the image by loading all pending updates from the server. Also save local copies of the update files if the #updateSavesFile preference is set to true" + self readServerUpdatesThrough: aNumber saveLocally: self updateSavesFile updateImage: true! - self readServerUpdatesThrough: aNumber saveLocally: Preferences updateSavesFile updateImage: true! Item was added: + ----- Method: UpdateStreamDownloader class>>updateRemoveSequenceNum (in category 'preferences') ----- + updateRemoveSequenceNum + ^false! Item was added: + ----- Method: UpdateStreamDownloader class>>updateSavesFile (in category 'preferences') ----- + updateSavesFile + <preference: 'Update saves files' + category: 'updates' + description: 'If true, then when an update is loaded from the server, a copy of it will automatically be saved on a local file as well.' + type: #Boolean> + ^UpdateSavesFile ifNil: [ false ]! Item was added: + ----- Method: UpdateStreamDownloader class>>updateSavesFile: (in category 'preferences') ----- + updateSavesFile: aBoolean + UpdateSavesFile := aBoolean!

1 0

The Trunk: UpdateStream-nice.2.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

1 0

The Trunk: UpdateStream-nice.2.mcz
by commits＠source.squeak.org 06 Dec '13

06 Dec '13

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 December 2013