[etoys-dev] Etoys: Morphic-bf.33.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-bf.33.mcz

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

Name: Morphic-bf.33
Author: bf
Time: 14 August 2010, 2:01:19 pm
UUID: 8a40002e-8715-4ac5-9fdd-fa6343e008ab
Ancestors: Morphic-bf.32

- when converting QuickGuide projects to sexp data files, use the file name instead of stored project name
- remove unused Thumbnails, Colors, and Descriptions class vars

=============== Diff against Morphic-bf.32 ===============

Item was changed:
  BookMorph subclass: #QuickGuideMorph
  	instanceVariableNames: 'control order'
+ 	classVariableNames: 'Categories HTMLJumpTo IndexPage IndexPageMimeString PagesForCategory'
- 	classVariableNames: 'Categories Colors Descriptions HTMLJumpTo IndexPage IndexPageMimeString PagesForCategory Thumbnails'
  	poolDictionaries: ''
  	category: 'Morphic-Books'!
  
+ !QuickGuideMorph commentStamp: '<historical>' prior: 0!
- !QuickGuideMorph commentStamp: 'tk 8/11/2010 15:57' prior: 0!
  A BookMorph that holds QuickGuides.
  
  World
  an AlignmentMorph (the flap)
  an AlignmentMorph
  a QuickGuideMorph  (one page per guide, 54 pages.  
  		Page may be a stub if guide not in)
  a QuickGuideHolderMorph
  a BookMorph (4 pages)
  a PasteUpMorph (a page)
  
+ QuickGuides are stored in Contents/Resources/QuickGuides/
+ or by language in Contents/Resources/locale/<id>/QuickGuides/
+ (see guidePath)!
- QuickGuides are stored in .../Etoys-4.1.app/Contents/Resources/QuickGuides/
- or by language in
- .../Etoys-4.1.app/Contents/Resources/locale/en/QuickGuides/!

Item was changed:
  ----- Method: QuickGuideMorph classSide>>convertProjectsWithBooksToSISSIn:to: (in category 'initialization') -----
  convertProjectsWithBooksToSISSIn: dir to: outDir
  
+ 	| p book |
- 	| p book texts desc |
- 	Thumbnails _ Dictionary new.
- 	Descriptions _ Dictionary new.
- 	Colors _ Dictionary new.
  	dir fileNames do: [:f |
  		(f endsWith: '.pr') ifTrue: [
  			p _ ProjectLoading loadName: f stream: (dir readOnlyFileNamed: f) fromDirectory: dir withProjectView: nil.
  			book _ p world submorphs detect: [:b | b isMemberOf: BookMorph] ifNone: [nil].
  			book ifNotNil: [
- 				texts _ book currentPage submorphs select: [:e | e isKindOf: TextMorph].
- 				desc _ texts isEmpty
- 					ifTrue: ['A Guide' translated]
- 					ifFalse: [(texts asSortedCollection: [:x :y | x top < y top]) first contents asString].
- 				Descriptions at: p name put: desc.
- 				Thumbnails at: p name put: (book imageForm magnifyBy: 0.25).
- 				Colors at: p name put: book color.
  				book hidePageControls.
+ 				book storeAsDataStreamNamed: (outDir fullNameFor: (f copyUpTo: $.), '.sexp.data.gz').
- 				book storeAsDataStreamNamed: (outDir fullNameFor: p name, '.sexp.data.gz').
  			].
  			p okToChangeSilently.
  		].
  	].
  !

Item was removed:
- ----- Method: QuickGuideMorph classSide>>initialize (in category 'initialization') -----
- initialize
- "
- 	QuickGuideMorph initialize
- "
- 
- 	Thumbnails _ Dictionary new.
- 	Descriptions _ Dictionary new.
- 	Colors _ Dictionary new.
- !