Packages July 2015

packages@lists.squeakfoundation.org

1 participants
146 discussions

The Trunk: Network-cmm.161.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-cmm.161.mcz ==================== Summary ==================== Name: Network-cmm.161 Author: cmm Time: 1 July 2015, 3:26:03.655 pm UUID: af917aa1-ce76-460b-ba1a-7fb49700f44a Ancestors: Network-ul.160 Remove the methods overridden by WebClient, since that has now been folded into base Squeak. =============== Diff against Network-ul.160 =============== Item was removed: - ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category 'get the page') ----- - httpGet: url args: args user: user passwd: passwd - "Upload the contents of the stream to a file on the server. - - WARNING: This method will send a basic auth header proactively. - This is necessary to avoid breaking MC and SqueakSource since SS does not - return a 401 when accessing a private (global no access) repository." - - | authorization result | - authorization := (user , ':' , passwd) base64Encoded. - result := self - httpGet: url args: args accept: '*/*' - request: 'Authorization: Basic ' , authorization , String crlf. - ^result - ! Item was removed: - ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category 'get the page') ----- - httpGetDocument: url args: args accept: mimeType request: requestString - "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" - - "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." - - | urlString | - "Normalize the url" - urlString := (Url absoluteFromText: url) asString. - - args ifNotNil: [ - urlString := urlString, (self argString: args) - ]. - - ^(self httpRequestHandler) - httpRequest: 'GET' url: urlString headers:( - (mimeType ifNil:[''] ifNotNil:['Accept: ', mimeType, String crlf]), - 'Accept: text/html', String crlf, - HTTPProxyCredentials, - HTTPBlabEmail, - requestString - ) content: nil response: nil.! Item was removed: - ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category 'get the page') ----- - httpPost: url args: args user: user passwd: passwd - - "WARNING: This method will send a basic auth header proactively. - This is necessary to avoid breaking MC and SqueakSource since SS does not - return a 401 when accessing a private (global no access) repository." - - | authorization | - authorization := (user , ':' , passwd) base64Encoded. - ^self - httpPostDocument: url args: args accept: '*/*' - request: 'Authorization: Basic ' , authorization , String crlf - ! Item was removed: - ----- Method: HTTPSocket class>>httpPost:content:type:accept:request: (in category 'get the page') ----- - httpPost: url content: postData type: contentType accept: mimeType request: requestString - "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" - - | urlString | - "Normalize the url" - urlString := (Url absoluteFromText: url) asString. - - ^(self httpRequestHandler) - httpRequest: 'POST' url: urlString headers:( - 'Accept: ', mimeType, String crlf, - 'Accept: text/html', String crlf, - 'Content-Type: ', contentType, String crlf, - 'Content-Length: ', (postData ifNil:['']) size, String crlf, - HTTPProxyCredentials, - HTTPBlabEmail, - requestString "extra user request. Authorization" - ) content: (postData ifNil:['']) response: nil! Item was removed: - ----- Method: HTTPSocket class>>httpPostDocument:args:accept:request: (in category 'get the page') ----- - httpPostDocument: url args: args accept: mimeType request: requestString - "like httpGET, except it does a POST instead of a GET. POST allows data to be uploaded" - - | argString | - args ifNotNil: [ - argString := self argString: args. - argString first = $? ifTrue: [argString := argString allButFirst]. - ]. - - ^self httpPost: url - content: argString - type: 'application/x-www-form-urlencoded' - accept: mimeType - request: requestString! Item was removed: - ----- Method: HTTPSocket class>>httpPostMultipart:args:accept:request: (in category 'get the page') ----- - httpPostMultipart: url args: argsDict accept: mimeType request: requestString - " do multipart/form-data encoding rather than x-www-urlencoded " - - | mimeBorder argsStream | - mimeBorder := '----squeak-georgia-tech-', Time millisecondClockValue printString, '-csl-cool-stuff-----'. - "encode the arguments dictionary" - argsStream := WriteStream on: String new. - argsDict associationsDo: [:assoc | - assoc value do: [ :value | | fieldValue | - "print the boundary" - argsStream nextPutAll: '--', mimeBorder, String crlf. - " check if it's a non-text field " - argsStream nextPutAll: 'Content-disposition: multipart/form-data; name="', assoc key, '"'. - (value isKindOf: MIMEDocument) - ifFalse: [fieldValue := value] - ifTrue: [argsStream nextPutAll: ' filename="', value url pathForFile, '"', String crlf, 'Content-Type: ', value contentType. - fieldValue := (value content - ifNil: [(FileStream fileNamed: value url pathForFile) contentsOfEntireFile] - ifNotNil: [value content]) asString]. - " Transcript show: 'field=', key, '; value=', fieldValue; cr. " - argsStream nextPutAll: String crlf, String crlf, fieldValue, String crlf. - ]]. - argsStream nextPutAll: '--', mimeBorder, '--'. - - ^self httpPost: url - content: argsStream contents - type: 'multipart/form-data; boundary=', mimeBorder - accept: mimeType - request: requestString - ! Item was removed: - ----- Method: HTTPSocket class>>httpPostToSuperSwiki:args:accept:request: (in category 'get the page') ----- - httpPostToSuperSwiki: url args: argsDict accept: mimeType request: requestString - - | mimeBorder argString | - mimeBorder := '---------SuperSwiki',Time millisecondClockValue printString,'-----'. - argString := String streamContents: [ :strm | - strm nextPutAll: mimeBorder, String crlf. - argsDict associationsDo: [:assoc | - assoc value do: [ :value | - strm - nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"'; - nextPutAll: String crlf; - nextPutAll: String crlf; - nextPutAll: value; - nextPutAll: String crlf; - nextPutAll: String crlf; - nextPutAll: mimeBorder; - nextPutAll: String crlf. - ] - ]. - ]. - - ^self httpPost: url - content: argString - type: 'multipart/form-data; boundary=', mimeBorder - accept: mimeType - request: requestString - ! Item was removed: - ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category 'get the page') ----- - httpPut: contents to: url user: user passwd: passwd - "Upload the contents of the stream to a file on the server - - WARNING: This method will send a basic auth header proactively. - This is necessary to avoid breaking MC and SqueakSource since SS does not - return a 401 when accessing a private (global no access) repository." - - | urlString resp header | - - "Normalize the url" - urlString := (Url absoluteFromText: url) asString. - - resp := (self httpRequestHandler) - httpRequest: 'PUT' url: urlString headers:( - 'Authorization: Basic ', (user, ':', passwd) base64Encoded, String crlf, - 'Accept: */*', String crlf, - 'Content-Type: application/octet-stream', String crlf, - 'Content-Length: ', (contents ifNil:['']) size, String crlf, - HTTPProxyCredentials, - HTTPBlabEmail - ) content: contents response:[:rr| header := rr]. - ^resp isString ifTrue:[header, resp] ifFalse:[header, resp content]!

1 0

The Trunk: Network-cmm.161.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

1 0

The Trunk: System-eem.749.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.749.mcz ==================== Summary ==================== Name: System-eem.749 Author: eem Time: 1 July 2015, 1:02:40.277 pm UUID: e067c0b6-9b7b-49ca-ae4d-e5b2e9c0bc8e Ancestors: System-ul.748 Revert storePreferencesIn: to work with a copy, which accords with the old code. Go for brevity in prefEvent:. =============== Diff against System-ul.748 =============== Item was changed: ----- Method: Preferences class>>prefEvent: (in category 'dynamic preferences') ----- prefEvent: anEvent "Check if this system event defines or removes a preference. TODO: Queue the event and handle in background process. There is zero reason to be so eager here." + | aClass aSelector method | - - | aClass aSelector | anEvent itemKind = SystemChangeNotifier classKind ifTrue: [^anEvent isRemoved ifTrue: [self removePreferencesFor: anEvent item]]. (anEvent itemKind = SystemChangeNotifier methodKind and: [(aClass := anEvent itemClass) isMeta]) ifFalse: "ignore instance methods" [^self]. aClass := aClass theNonMetaClass. aSelector := anEvent itemSelector. anEvent isRemoved ifTrue: [self atomicUpdatePreferences: [ :copyOfDictionaryOfPreferences | copyOfDictionaryOfPreferences removeKey: (aClass name,'>>', aSelector) asSymbol ifAbsent: []]] ifFalse: [(anEvent isAdded or: [anEvent isModified]) ifTrue: + [method := anEvent item. + method pragmas do: + [:pragma| + self respondToPreferencePragmasInMethod: method class: aClass]]]! - [self respondToPreferencePragmasInMethod: anEvent item class: aClass]]! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'personalization') ----- + storePreferencesIn: aFileName + | stream prefsSnapshot | - storePreferencesIn: aFileName - - | stream | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. + prefsSnapshot := preferencesDictionary copy. + prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. + stream nextPut: prefsSnapshot. - preferencesDictionary keysAndValuesDo: [:key :pref | preferencesDictionary at: key put: pref asPreference]. - stream nextPut: preferencesDictionary. stream nextPut: (Smalltalk isMorphic ifTrue:[World fillStyle] ifFalse:[DesktopColor]). stream close!

1 0

The Trunk: System-eem.749.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

1 0

The Trunk: Services-Base-eem.56.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Eliot Miranda uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-eem.56.mcz ==================== Summary ==================== Name: Services-Base-eem.56 Author: eem Time: 30 June 2015, 3:34:50.838 pm UUID: 2e8b9c56-6312-4a69-b65c-164ab583f617 Ancestors: Services-Base-mt.55 ServicePreferences as per System-eem.747. Move preferences dictionary from class var to inst var. =============== Diff against Services-Base-mt.55 =============== Item was added: + (PackageInfo named: 'Services-Base') preamble: '(Smalltalk classNamed: #ServicePreferences) ifNotNil: + [:sp| + (sp instVarNamed: ''preferencesDictionary'') ifNil: + [(sp classPool at: #ServiceDictionaryOfPreferences) ifNotNil: + [:dictionary| + sp + instVarNamed: ''preferencesDictionary'' + put: dictionary]]]'! Item was changed: Preferences subclass: #ServicePreferences instanceVariableNames: '' + classVariableNames: '' - classVariableNames: 'ServiceDictionaryOfPreferences' poolDictionaries: '' category: 'Services-Base-GUI'! !ServicePreferences commentStamp: 'rr 7/10/2006 15:36' prior: 0! I store the preferences related to the servicse framework. The preferences are editable via the Services Browser, based on Hernan Tylim's Preference Browser. The main preference categories for services are: -- keyboard shortcuts -- : several text preferences, one per keyboard shortcuts. To edit them, enter a service identifier (equal to the method name under which it is defined in its ServiceProvider), and accept with alt-s or enter -- menu contents -- : All the service categories in the image have a text preference under here. To edit it, enter the services identifiers you wish to put in this category, separating them with a single space character. The order is important: it defines the order of the items in menus. -- settings -- : general boolean preferences. Then there is a preference category for each provider in the image. Under each, you will find: A boolean preference for each service in the image. If it is false, the service will not appear in menus. The text preference for each service category defined by the service provider. This is the same as the one appearing in the menu contents preference category.! Item was removed: - ----- Method: ServicePreferences class>>dictionaryOfPreferences (in category 'accessing') ----- - dictionaryOfPreferences - ServiceDictionaryOfPreferences - ifNil: [ServiceDictionaryOfPreferences := IdentityDictionary new]. - ^ ServiceDictionaryOfPreferences ! Item was removed: - ----- Method: ServicePreferences class>>dictionaryOfPreferences: (in category 'accessing') ----- - dictionaryOfPreferences: aDictionary - ServiceDictionaryOfPreferences := aDictionary! Item was changed: ----- Method: ServicePreferences class>>wipe (in category 'accessing') ----- wipe + preferencesDictionary := nil! - self dictionaryOfPreferences: nil!

1 0

The Trunk: Services-Base-eem.56.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

1 0

The Trunk: System-ul.748.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.748.mcz ==================== Summary ==================== Name: System-ul.748 Author: ul Time: 1 July 2015, 1:17:39.216 pm UUID: 7e127e9c-33da-4199-b81f-324808eebfae Ancestors: System-eem.747 - Iterate over pragmas once per method instead of once per pragma in Preferences class>>prefEvent:. - There's no need to copy preferencesDictionary in Preferences class>>storePreferencesIn:, because it's a read-only data structure. - Ensure the durability of the changes of preferencesDictionary in Preferences class>>atomicUpdatePreferences: by checking for changes before overwriting it. =============== Diff against System-eem.747 =============== Item was changed: ----- Method: Preferences class>>atomicUpdatePreferences: (in category 'accessing') ----- + atomicUpdatePreferences: aBlock - atomicUpdatePreferences: aBlock "Evaluate aBlock with a copy of the preferences dictionary and + then assign (assignment is atomic) the copy to the dictionary." + + [ + | originalPreferences copyOfPreferences | + originalPreferences := preferencesDictionary. + copyOfPreferences := preferencesDictionary + ifNil: [ IdentityDictionary new ] + ifNotNil: [ :dictionary | dictionary copy ]. + aBlock value: copyOfPreferences. + originalPreferences == preferencesDictionary ifTrue: [ + preferencesDictionary := copyOfPreferences. + ^self ] ] repeat! - then assign (assignment is atomic) the copy to the dictionary." - | copyOfPreferences | - copyOfPreferences := preferencesDictionary - ifNil: [IdentityDictionary new] - ifNotNil: [:dict| dict copy]. - aBlock value: copyOfPreferences. - preferencesDictionary := copyOfPreferences! Item was changed: ----- Method: Preferences class>>prefEvent: (in category 'dynamic preferences') ----- prefEvent: anEvent "Check if this system event defines or removes a preference. TODO: Queue the event and handle in background process. There is zero reason to be so eager here." + + | aClass aSelector | - | aClass aSelector method | anEvent itemKind = SystemChangeNotifier classKind ifTrue: [^anEvent isRemoved ifTrue: [self removePreferencesFor: anEvent item]]. (anEvent itemKind = SystemChangeNotifier methodKind and: [(aClass := anEvent itemClass) isMeta]) ifFalse: "ignore instance methods" [^self]. aClass := aClass theNonMetaClass. aSelector := anEvent itemSelector. anEvent isRemoved ifTrue: [self atomicUpdatePreferences: [ :copyOfDictionaryOfPreferences | copyOfDictionaryOfPreferences removeKey: (aClass name,'>>', aSelector) asSymbol ifAbsent: []]] ifFalse: [(anEvent isAdded or: [anEvent isModified]) ifTrue: + [self respondToPreferencePragmasInMethod: anEvent item class: aClass]]! - [method := anEvent item. - method pragmas do: - [:pragma| - self respondToPreferencePragmasInMethod: method class: aClass]]]! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'personalization') ----- + storePreferencesIn: aFileName + + | stream | - storePreferencesIn: aFileName - | stream prefsSnapshot | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. + preferencesDictionary keysAndValuesDo: [:key :pref | preferencesDictionary at: key put: pref asPreference]. + stream nextPut: preferencesDictionary. - prefsSnapshot := preferencesDictionary copy. - prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. - stream nextPut: prefsSnapshot. stream nextPut: (Smalltalk isMorphic ifTrue:[World fillStyle] ifFalse:[DesktopColor]). stream close!

1 0

The Trunk: System-ul.748.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

1 0

The Trunk: System-eem.747.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.747.mcz ==================== Summary ==================== Name: System-eem.747 Author: eem Time: 30 June 2015, 3:29:21.961 pm UUID: b4f12663-36dd-4e16-9c83-5e446ea6e037 Ancestors: System-eem.746 Second part of putsch. Move preferences dictionary from class var to inst var. Remove the setter, and makde the getter, currently used only by SystemReporter, answer a copy. =============== Diff against System-eem.746 =============== Item was changed: ----- Method: Preferences class>>addPreference:categories:default:balloonHelp:projectLocal:changeInformee:changeSelector:type: (in category 'add preferences') ----- addPreference: aName categories: categoryList default: aValue balloonHelp: helpString projectLocal: localBoolean changeInformee: informeeSymbol changeSelector: aChangeSelector type: aType "Add or replace a preference as indicated. Reuses the preexisting Preference object for this symbol, if there is one, so that UI artifacts that interact with it will remain valid." | newPreference aPreference | (newPreference := Preference new) name: aName asSymbol defaultValue: aValue helpString: helpString localToProject: localBoolean categoryList: categoryList changeInformee: informeeSymbol changeSelector: aChangeSelector type: aType. + aPreference := preferencesDictionary - aPreference := DictionaryOfPreferences at: newPreference name ifAbsent: [newPreference]. aPreference == newPreference ifTrue: "Atomically add the new preference to the dictionary." [self atomicUpdatePreferences: [:preferenceDictionaryCopy| preferenceDictionaryCopy at: newPreference name put: newPreference]] ifFalse: "Use the copyFrom: primitive to atomically update the existing preference." [aPreference copyFrom: newPreference]. self compileAccessMethodForPreference: aPreference! Item was changed: ----- Method: Preferences class>>allPreferenceObjects (in category 'preference-object access') ----- allPreferenceObjects "Answer a list of all the Preference objects registered in the system" + ^preferencesDictionary values! - ^DictionaryOfPreferences values! Item was changed: ----- Method: Preferences class>>atomicUpdatePreferences: (in category 'accessing') ----- atomicUpdatePreferences: aBlock "Evaluate aBlock with a copy of the preferences dictionary and then assign (assignment is atomic) the copy to the dictionary." + | copyOfPreferences | + copyOfPreferences := preferencesDictionary - | copyOfDictionaryOfPreferences | - copyOfDictionaryOfPreferences := DictionaryOfPreferences ifNil: [IdentityDictionary new] ifNotNil: [:dict| dict copy]. + aBlock value: copyOfPreferences. + preferencesDictionary := copyOfPreferences! - aBlock value: copyOfDictionaryOfPreferences. - DictionaryOfPreferences := copyOfDictionaryOfPreferences! Item was changed: ----- Method: Preferences class>>dictionaryOfPreferences (in category 'accessing') ----- dictionaryOfPreferences + "N.B. Does /not/ answer the dictionary itself. To burrow that deep use e.g. instVarNamed:" + ^preferencesDictionary copy! - "The use of this accessor doesn't ensure that the dictionary is not accessed concurrently. Use #accessDictionaryOfPreferencesIn: instead." - - ^DictionaryOfPreferences! Item was removed: - ----- Method: Preferences class>>dictionaryOfPreferences: (in category 'accessing') ----- - dictionaryOfPreferences: anObject - DictionaryOfPreferences := anObject! Item was changed: ----- Method: Preferences class>>initializeDictionaryOfPreferences (in category 'initialization') ----- initializeDictionaryOfPreferences + "Initialize the preferencesDictionary to be an empty IdentityDictionary" - "Initialize the DictionaryOfPreferences to be an empty IdentityDictionary" "Preferences initializeDictionaryOfPreferences" + preferencesDictionary := IdentityDictionary new! - self dictionaryOfPreferences:IdentityDictionary new! Item was changed: ----- Method: Preferences class>>inspectPreferences (in category 'preferences panel') ----- inspectPreferences "Open a window on the current preferences dictionary, allowing the user to inspect and change the current preference settings. This is fallen back upon if Morphic is not present. This is dangerous, the dictionary of preferences should not be accessed concurrently." "Preferences inspectPreferences" + preferencesDictionary inspectWithLabel: 'Preferences'! - self dictionaryOfPreferences inspectWithLabel:'Preferences'! Item was changed: ----- Method: Preferences class>>preferenceAt:ifAbsent: (in category 'preference-object access') ----- preferenceAt: aSymbol ifAbsent: aBlock "Answer the Preference object at the given symbol, or the value of aBlock if not present" + ^preferencesDictionary at: aSymbol ifAbsent: aBlock! - ^DictionaryOfPreferences at: aSymbol ifAbsent: aBlock! Item was changed: ----- Method: Preferences class>>savePersonalPreferences (in category 'personalization') ----- savePersonalPreferences "Save the current list of Preference settings as the user's personal choices" self setParameter: #PersonalDictionaryOfPreferences + to: preferencesDictionary deepCopy! - to: DictionaryOfPreferences deepCopy! Item was changed: ----- Method: Preferences class>>storePreferencesIn: (in category 'personalization') ----- storePreferencesIn: aFileName | stream prefsSnapshot | #(Prevailing PersonalPreferences) do: [:ea | Parameters removeKey: ea ifAbsent: []]. stream := ReferenceStream fileNamed: aFileName. stream nextPut: Parameters. + prefsSnapshot := preferencesDictionary copy. - prefsSnapshot := DictionaryOfPreferences copy. prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference]. stream nextPut: prefsSnapshot. stream nextPut: (Smalltalk isMorphic ifTrue:[World fillStyle] ifFalse:[DesktopColor]). stream close! Item was changed: (PackageInfo named: 'System') postscript: '" Convert SoundService registeredClasses to classes if necessary " [ | currentSoundSystem | currentSoundSystem := SoundService defaultOrNil. (SoundService registeredClasses copy collect: [:ss | SoundService unregister: ss. ss isBehavior ifTrue: [ss] ifFalse: [ss class]] ) do: [:ssClass | SoundService register: ssClass]. SoundService default: (currentSoundSystem ifNotNil: [:css| css isBehavior ifTrue: [css] ifFalse: [css class]]). ] value. "Convert preferences dictionary from class var to inst var if necessary." (Preferences instVarNamed: ''preferencesDictionary'') ifNil: [(Preferences classPool at: #DictionaryOfPreferences) ifNotNil: [:dictionary| Preferences instVarNamed: ''preferencesDictionary'' + put: dictionary]]. + + (Smalltalk classNamed: #ServicePreferences) ifNotNil: + [:sp| + (sp instVarNamed: ''preferencesDictionary'') ifNil: + [(sp classPool at: #ServiceDictionaryOfPreferences) ifNotNil: + [:dictionary| + sp + instVarNamed: ''preferencesDictionary'' + put: dictionary]]]'! - put: dictionary]]'!

1 0

The Trunk: System-eem.747.mcz
by commits＠source.squeak.org 01 Jul '15

01 Jul '15

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 July 2015