The Trunk: ST80-dtl.87.mcz

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

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

Name: ST80-dtl.87
Author: dtl
Time: 24 January 2010, 2:59:37.473 pm
UUID: 698194a9-352b-4352-b039-3a2ec8a4b078
Ancestors: ST80-ar.86

Remove all MVC BitEditor references from non-MVC packages.
  Form>>bitEdit to Project class>>bitEdit:
  Form>>bitEditAt:scale: to Project class>>bitEdit:at:scale:
  BitEditor class>>locateMagnifiedView:scale: to Rectangle class>>locateMagnifiedView:scale:

=============== Diff against ST80-ar.86 ===============

Item was changed:
  ----- Method: BitEditor class>>openOnForm: (in category 'instance creation') -----
  openOnForm: aForm
  "Create and schedule a BitEditor on the form aForm at its top left corner.
  Show the small and magnified view of aForm."
 
  | scaleFactor |
  scaleFactor := 8 @ 8.
  ^self openOnForm: aForm
+ at: (Rectangle locateMagnifiedView: aForm scale: scaleFactor) topLeft
- at: (self locateMagnifiedView: aForm scale: scaleFactor) topLeft
  scale: scaleFactor!

Item was changed:
  ----- Method: FormEditor>>magnify (in category 'editing tools') -----
  magnify
  "Allow for bit editing of an area of the Form. The user designates a
  rectangular area that is scaled by 5 to allow individual screens dots to be
  modified. Red button is used to set a bit to black, and yellow button is
  used to set a bit to white. Editing continues until the user depresses any
  key on the keyboard."
 
  | smallRect smallForm scaleFactor tempRect |
  scaleFactor := 8@8.
  smallRect := (Rectangle fromUser: grid) intersect: view insetDisplayBox.
  smallRect isNil ifTrue: [^self].
  smallForm := Form fromDisplay: smallRect.
 
  "Do this computation here in order to be able to save the existing display screen."
+ tempRect := Rectangle locateMagnifiedView: smallForm scale: scaleFactor.
- tempRect := BitEditor locateMagnifiedView: smallForm scale: scaleFactor.
  BitEditor
  openScreenViewOnForm: smallForm
  at: smallRect topLeft
  magnifiedAt: tempRect topLeft
  scale: scaleFactor.
  tool := previousTool!

Item was added:
+ ----- Method: MVCProject>>bitEdit:at:scale: (in category 'editors') -----
+ bitEdit: aForm at: magnifiedFormLocation scale: scaleFactor
+ "Create and schedule a view whose top left corner is magnifiedLocation
+ and that contains a view of aForm magnified by scaleFactor that  can be
+ modified using the Bit Editor. It also contains a view of the original form."
+
+ BitEditor openOnForm: aForm at: magnifiedFormLocation scale: scaleFactor !

Item was changed:
  ----- Method: BitEditor class>>magnifyOnScreen (in category 'examples') -----
  magnifyOnScreen
  "Bit editing of an area of the display screen. User designates a
  rectangular area that is magnified by 8 to allow individual screens dots to
  be modified. red button is used to set a bit to black and yellow button is
  used to set a bit to white. Editor is not scheduled in a view. Original
  screen location is updated immediately. This is the same as FormEditor
  magnify."
  | smallRect smallForm scaleFactor tempRect |
  scaleFactor := 8 @ 8.
  smallRect := Rectangle fromUser.
  smallRect isNil ifTrue: [^self].
  smallForm := Form fromDisplay: smallRect.
+ tempRect := Rectangle locateMagnifiedView: smallForm scale: scaleFactor.
- tempRect := self locateMagnifiedView: smallForm scale: scaleFactor.
  "show magnified form size until mouse is depressed"
  self
  openScreenViewOnForm: smallForm
  at: smallRect topLeft
  magnifiedAt: tempRect topLeft
  scale: scaleFactor
 
  "BitEditor magnifyOnScreen."!

Item was added:
+ ----- Method: MVCProject>>bitEdit: (in category 'editors') -----
+ bitEdit: aForm
+ "Create and schedule a view located in an area designated by the user
+ that contains a view of aForm magnified by 8@8 that can be modified using
+ a bit editor. It also contains a view of the original form."
+
+ BitEditor openOnForm: aForm
+
+ "Note that using direct messages to BitEditor, fixed locations and scales can be created.
+ That is, also try:
+ BitEditor openOnForm: self at: <some point>
+ BitEditor openOnForm: self at: <some point> scale: <some point>"!

Item was added:
+ ----- Method: MVCProject>>editCharacter:ofFont: (in category 'editors') -----
+ editCharacter: character ofFont: strikeFont
+ "Open a bit editor on a character in the given strike font. Note that you must
+ do an accept (in the option menu of the bit editor) if you want this work.
+ Accepted edits will not take effect in the font until you leave or close the bit editor.
+ Also note that unaccepted edits will be lost when you leave or close."
+ "Note that BitEditor only works in MVC currently."
+
+ "(TextStyle default fontAt: 1) edit: $="
+
+ | charForm editRect scaleFactor bitEditor savedForm r |
+ charForm := strikeFont characterFormAt: character.
+ editRect := Rectangle locateMagnifiedView: charForm scale: (scaleFactor := 8 @ 8).
+ bitEditor := BitEditor
+ bitEdit: charForm
+ at: editRect topLeft
+ scale: scaleFactor
+ remoteView: nil.
+ savedForm := Form fromDisplay: (r := bitEditor displayBox
+ expandBy: (0 @ 23 corner: 0 @ 0)).
+ bitEditor controller startUp.
+ bitEditor release.
+ savedForm displayOn: Display at: r topLeft.
+ strikeFont characterFormAt: character put: charForm!

Item was removed:
- ----- Method: BitEditor class>>locateMagnifiedView:scale: (in category 'private') -----
- locateMagnifiedView: aForm scale: scaleFactor
- "Answer a rectangle at the location where the scaled view of the form,
- aForm, should be displayed."
-
- ^ Rectangle originFromUser: (aForm extent * scaleFactor + (0@50)).
- !