The Trunk: Graphics-dtl.104.mcz

David T. Lewis uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-dtl.104.mcz

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

Name: Graphics-dtl.104
Author: dtl
Time: 10 February 2010, 4:23:43.612 pm
UUID: cb2c5ecb-0568-4009-97e6-c17b112113a7
Ancestors: Graphics-dtl.103

Remove MVC/Morphic dependencies from Form class>>openImageInWindow: and Form>>edit.

=============== Diff against Graphics-dtl.103 ===============

Item was changed:
  ----- Method: Form>>edit (in category 'editing') -----
  edit
+ "Open a form editor on this form. "
- "Start up an instance of the FormEditor on this form. Typically the form
- is not visible on the screen. The editor menu is located at the bottom of
- the form editing frame. The form is displayed centered in the frame.
- YellowButtonMenu accept is used to modify the form to reflect the
- changes made on the screen version; cancel restores the original form to
- the screen. Note that the changes are clipped to the original size of the
- form."
   
+ Project current formEdit: self!
- FormEditor openOnForm: self!

Item was changed:
  ----- Method: Form class>>openImageInWindow: (in category 'file list services') -----
  openImageInWindow: fullName
  "Handle five file formats: GIF, JPG, PNG, Form storeOn: (run coded), and BMP.
  Fail if file format is not recognized."
 
  | image myStream |
 
  myStream := (FileStream readOnlyFileNamed: fullName) binary.
+ [image := self fromBinaryStream: myStream.
+ Project current openImage: image name: fullName saveResource: true]
+ ensure: [myStream close]!
- image := self fromBinaryStream: myStream.
- myStream close.
-
- Smalltalk isMorphic ifTrue:[
- Project current resourceManager
- addResource: image
- url: (FileDirectory urlForFileNamed: fullName) asString.
- ].
-
- Smalltalk isMorphic
- ifTrue: [(World drawingClass withForm: image) openInWorld]
- ifFalse: [FormView open: image named: fullName]!