There usually is no need to "revert" changes that were only posted to the inbox.

You can simply move the version to "etoys treated" using the web UI.

- Bert -

On 30.05.2011, at 04:44, commits@source.squeak.org wrote:

A new version of Monticello was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Monticello-kfr.408.mcz

==================== Summary ====================

Name: Monticello-kfr.408 Author: kfr Time: 30 May 2011, 6:44:54 am UUID: 8b39e6d7-6aa6-fd43-9d62-dac73740638a Ancestors: Monticello-kfr.407

Revert

=============== Diff against Monticello-kfr.405 ===============

Item was changed: ----- Method: MCHttpRepository>>writeStreamForFileNamed:replace:do: (in category 'required') ----- writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock | stream response statusLine code | stream := RWBinaryOrTextStream on: String new. aBlock value: stream. self displayProgress: 'Uploading ', aString during:[ response := HTTPSocket httpPut: stream contents to: (self urlForFileNamed: aString) user: self user passwd: self password. ]. "More robust handling of HTTP responses. Instead of enumerating all possible return codes and http versions, do a quick parse" (response beginsWith: 'HTTP/') ifTrue:[ "Looks like an HTTP header, not some error message" statusLine := response copyUpTo: Character cr. code := [(statusLine findTokens: ' ') second asInteger] on: Error do:[]. ]. (code isInteger and:[code between: 200 and: 299])

• ifFalse:[self error: response].!
  

• ifFalse:[	(code isInteger and:[code = 401]) 
  

• 					ifTrue:[MCWorkingCopyBrowser editRepository. self storeVersion:aString]
  

•                             ifFalse:[self error: response]].!
  
  

---

etoys-dev mailing list etoys-dev@squeakland.org http://lists.squeakland.org/mailman/listinfo/etoys-dev