[squeak-dev] The Trunk: Graphics-dtl.104.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 10 21:24:58 UTC 2010

David T. Lewis uploaded a new version of Graphics to project The Trunk:

==================== 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') -----
+ 	"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]!

More information about the Squeak-dev mailing list