Etoys: Collections-kfr.8.mcz

Karl Ramberg uploaded a new version of Collections to project Etoys:
http://source.squeak.org/etoys/Collections-kfr.8.mcz

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

Name: Collections-kfr.8
Author: kfr
Time: 4 March 2012, 2:25:22 pm
UUID: 495f8cf3-0787-9441-a5e0-040b750b52c8
Ancestors: Collections-bf.7

Change the bumper that is put out at the front of a .pr file so if it is encountered by an older version of etoys, instead of simply refusing to load, it now describes the problem to the user and gives the option of proceeding anyway.

Note: also retains the older bumper guard against loading into even older systems. Pre-olpc-era projects can still not be loaded

=============== Diff against Collections-bf.7 ===============

Item was changed:
  ----- Method: ReadWriteStream>>fileOutVersionCheckNotification (in category 'fileIn/Out') -----
  fileOutVersionCheckNotification
+ "Put a version-check bumper onto the project stream."
 
  self nextChunkPut: ' | cont | (Smalltalk includesKey: #MorphExtensionPlus) ifFalse: [self inform: ''This project cannot be loaded into an older system.\Please use an OLPC Etoys compatible image.'' translated withCRs.
  cont _ thisContext.
  [cont notNil] whileTrue: [
  cont selector == #handleEvent: ifTrue: [cont return: nil].
  cont _ cont sender.
  ]]'; cr.
+
+ self nextChunkPut: ' | cont | (Smalltalk includesKey: #CalendarMorph) ifFalse:
+ [(self confirm:  ''This project was created from a more recent\version of Etoys, and may not load or\work properly in an older system.\Ideally use Etoys 5.0 or newer\proceed anyway?'' translated withCRs) ifFalse:
+ [cont _ thisContext.
+ [cont notNil] whileTrue: [
+ cont selector == #handleEvent: ifTrue: [cont return: nil].
+ cont _ cont sender.
+ ]]]'; cr.
  !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev