The Trunk: Morphic-ar.503.mcz

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.503.mcz

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

Name: Morphic-ar.503
Author: ar
Time: 30 December 2010, 6:02:09.996 pm
UUID: e3830458-bee8-884f-b7a6-8cc09b918c2e
Ancestors: Morphic-nice.502

Fix default clipRect in FormCanvas.

=============== Diff against Morphic-nice.502 ===============

Item was changed:
  ----- Method: FormCanvas>>reset (in category 'initialization') -----
  reset
 
  origin := 0@0. "origin of the top-left corner of this cavas"
+ form ifNil:[
+ "This code path will never be executed after the changes in setForm:
+ are installed, so it can be removed in due time."
+ clipRect := (0@0 corner: 10000@10000).
+ ] ifNotNil:[
+ clipRect := (0@0 corner: form extent). "default clipping rectangle"
+ ].
- clipRect := (0@0 corner: 10000@10000). "default clipping rectangle"
  self shadowColor: nil.!

Item was changed:
  ----- Method: FormCanvas>>setForm: (in category 'private') -----
  setForm: aForm
 
- self reset.
  form := aForm.
  port := self portClass toForm: form.
+ self reset.!
- !