Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.648.mcz
==================== Summary ====================
Name: Morphic-fbs.648
Author: fbs
Time: 23 April 2013, 9:48:29.631 am
UUID: 4d2078e9-888d-487b-b819-ba2d9c8f8b2b
Ancestors: Morphic-fbs.647
#asGrafPort belongs in the Morphic package.
=============== Diff against Morphic-fbs.647 ===============
Item was added:
+ ----- Method: BitBlt class>>asGrafPort (in category '*Morphic') -----
+ asGrafPort
+ "Return the GrafPort associated with the receiver"
+ ^GrafPort!
Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.648.mcz
==================== Summary ====================
Name: Morphic-fbs.648
Author: fbs
Time: 23 April 2013, 9:48:29.631 am
UUID: 4d2078e9-888d-487b-b819-ba2d9c8f8b2b
Ancestors: Morphic-fbs.647
#asGrafPort belongs in the Morphic package.
=============== Diff against Morphic-fbs.647 ===============
Item was added:
+ ----- Method: BitBlt class>>asGrafPort (in category '*Morphic') -----
+ asGrafPort
+ "Return the GrafPort associated with the receiver"
+ ^GrafPort!
Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.648.mcz
==================== Summary ====================
Name: Morphic-fbs.648
Author: fbs
Time: 23 April 2013, 9:48:29.631 am
UUID: 4d2078e9-888d-487b-b819-ba2d9c8f8b2b
Ancestors: Morphic-fbs.647
#asGrafPort belongs in the Morphic package.
=============== Diff against Morphic-fbs.647 ===============
Item was added:
+ ----- Method: BitBlt class>>asGrafPort (in category '*Morphic') -----
+ asGrafPort
+ "Return the GrafPort associated with the receiver"
+ ^GrafPort!
Frank Shearar uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-fbs.247.mcz
==================== Summary ====================
Name: KernelTests-fbs.247
Author: fbs
Time: 23 April 2013, 8:43:44.916 am
UUID: 109dd8aa-6861-42a0-a1c1-ac58d4720ee1
Ancestors: KernelTests-nice.246
This test doesn't need class refererences from MVC or Morphic to be a good test: a Project always #canDiscardEdits.
=============== Diff against KernelTests-nice.246 ===============
Item was changed:
----- Method: DependentsArrayTest>>testCanDiscardEdits (in category 'testing') -----
testCanDiscardEdits
"self debug: #testCanDiscardEdits."
| anObject aView |
anObject := Object new.
+ "A Project may always discard edits."
+ aView := Project new.
- (Smalltalk hasClassNamed: #StringHolderView)
- ifTrue: ["Use MVC view if available"
- aView := (Smalltalk at: #StringHolderView) new
- model: Transcript;
- window: (0@0 extent: 60@60);
- borderWidth: 1.]
- ifFalse: ["Otherwise use a Morphic view"
- aView := (Smalltalk at: #PluggableTextMorph) new model: Transcript].
- self assert: aView notNil. "require either a StringHolderView or PluggableTextMorph"
- aView := PluggableTextMorph new model: Transcript.
- aView hasUnacceptedEdits: true.
anObject addDependent: Object new. "this entry should be garbage collected"
anObject addDependent: aView.
Smalltalk garbageCollect. "force garbage collection"
self
should: [anObject dependents size = 1]
description: 'first dependent of anObject should have been collected, second should not'.
self
shouldnt: [anObject canDiscardEdits]
description: 'anObject cannot discard edits because aView is a dependent of anObject and aView has unaccepted edits'.!
Frank Shearar uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-fbs.247.mcz
==================== Summary ====================
Name: KernelTests-fbs.247
Author: fbs
Time: 23 April 2013, 8:43:44.916 am
UUID: 109dd8aa-6861-42a0-a1c1-ac58d4720ee1
Ancestors: KernelTests-nice.246
This test doesn't need class refererences from MVC or Morphic to be a good test: a Project always #canDiscardEdits.
=============== Diff against KernelTests-nice.246 ===============
Item was changed:
----- Method: DependentsArrayTest>>testCanDiscardEdits (in category 'testing') -----
testCanDiscardEdits
"self debug: #testCanDiscardEdits."
| anObject aView |
anObject := Object new.
+ "A Project may always discard edits."
+ aView := Project new.
- (Smalltalk hasClassNamed: #StringHolderView)
- ifTrue: ["Use MVC view if available"
- aView := (Smalltalk at: #StringHolderView) new
- model: Transcript;
- window: (0@0 extent: 60@60);
- borderWidth: 1.]
- ifFalse: ["Otherwise use a Morphic view"
- aView := (Smalltalk at: #PluggableTextMorph) new model: Transcript].
- self assert: aView notNil. "require either a StringHolderView or PluggableTextMorph"
- aView := PluggableTextMorph new model: Transcript.
- aView hasUnacceptedEdits: true.
anObject addDependent: Object new. "this entry should be garbage collected"
anObject addDependent: aView.
Smalltalk garbageCollect. "force garbage collection"
self
should: [anObject dependents size = 1]
description: 'first dependent of anObject should have been collected, second should not'.
self
shouldnt: [anObject canDiscardEdits]
description: 'anObject cannot discard edits because aView is a dependent of anObject and aView has unaccepted edits'.!
Frank Shearar uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-fbs.247.mcz
==================== Summary ====================
Name: KernelTests-fbs.247
Author: fbs
Time: 23 April 2013, 8:43:44.916 am
UUID: 109dd8aa-6861-42a0-a1c1-ac58d4720ee1
Ancestors: KernelTests-nice.246
This test doesn't need class refererences from MVC or Morphic to be a good test: a Project always #canDiscardEdits.
=============== Diff against KernelTests-nice.246 ===============
Item was changed:
----- Method: DependentsArrayTest>>testCanDiscardEdits (in category 'testing') -----
testCanDiscardEdits
"self debug: #testCanDiscardEdits."
| anObject aView |
anObject := Object new.
+ "A Project may always discard edits."
+ aView := Project new.
- (Smalltalk hasClassNamed: #StringHolderView)
- ifTrue: ["Use MVC view if available"
- aView := (Smalltalk at: #StringHolderView) new
- model: Transcript;
- window: (0@0 extent: 60@60);
- borderWidth: 1.]
- ifFalse: ["Otherwise use a Morphic view"
- aView := (Smalltalk at: #PluggableTextMorph) new model: Transcript].
- self assert: aView notNil. "require either a StringHolderView or PluggableTextMorph"
- aView := PluggableTextMorph new model: Transcript.
- aView hasUnacceptedEdits: true.
anObject addDependent: Object new. "this entry should be garbage collected"
anObject addDependent: aView.
Smalltalk garbageCollect. "force garbage collection"
self
should: [anObject dependents size = 1]
description: 'first dependent of anObject should have been collected, second should not'.
self
shouldnt: [anObject canDiscardEdits]
description: 'anObject cannot discard edits because aView is a dependent of anObject and aView has unaccepted edits'.!