[Pkg] The Trunk: Morphic-ul.304.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jan 11 08:15:57 UTC 2010


Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.304.mcz

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

Name: Morphic-ul.304
Author: ul
Time: 11 January 2010, 8:23:08.705 am
UUID: ebd16f56-a0ff-cb45-96b5-ea1f18d6e543
Ancestors: Morphic-ar.303

- code critics

=============== Diff against Morphic-ar.303 ===============

Item was changed:
  ----- Method: FontChooserTool>>contents (in category 'toolbuilder') -----
  contents
  	| sample i c f |
  	sample := WriteStream on: ''.
  	f := self selectedFont ifNil:[^Text new].
  	f isSymbolFont ifFalse:[
  		sample 
  			nextPutAll: 'the quick brown fox jumps over the lazy dog' ;cr;
  			nextPutAll:  'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' ;cr;cr;
  			nextPutAll: '0123456789'; cr; cr;
  			nextPutAll: 
  'Lorem ipsum dolor sit amet, consectetur adipisicing elit, 
  sed do eiusmod tempor incididunt ut labore et dolore 
  magna aliqua. Ut enim ad minim veniam, quis nostrud 
  exercitation ullamco laboris nisi ut aliquip ex ea commodo 
  consequat. Duis aute irure dolor in reprehenderit in voluptate 
  velit esse cillum dolore eu fugiat nulla pariatur. Excepteur 
  sint occaecat cupidatat non proident, sunt in culpa qui 
+ officia deserunt mollit anim id est laborum.'
- officia deserunt mollit anim id est laborum.';
- 		yourself.
  	] ifTrue:[
  		i := 0.
  		33 to: 255 do:[:ci |
  			sample nextPut: (c:=Character value: ci).
  			i := i + 1.
  			(('@Z`z' includes:c) or:[i = 30]) 
  				ifTrue:[i :=0. sample cr]].
  	].
  	sample := sample contents asText.
  	sample addAttribute: (TextFontReference toFont: f).
  	^sample!

Item was changed:
  ----- Method: ProjectViewMorph>>dismissViaHalo (in category 'initialization') -----
  dismissViaHalo
  	| choice |
  	project ifNil:[^self delete]. "no current project"
+ 	choice := UIManager default chooseFrom: {
- 	choice := UIManager chooseFrom: {
  		'yes - delete the window and the project' translated.
  		'no - delete the window only' translated
  	} title: ('Do you really want to delete {1}
  and all its content?' translated format: {project name printString}).
  	choice = 1 ifTrue:[^self expungeProject].
  	choice = 2 ifTrue:[^self delete].!



More information about the Packages mailing list