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].!
Locked
