Packages January 2010

packages@lists.squeakfoundation.org

2 participants
722 discussions

The Trunk: Morphic-dtl.313.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.313.mcz ==================== Summary ==================== Name: Morphic-dtl.313 Author: dtl Time: 24 January 2010, 9:48:14.476 pm UUID: a27ec9b7-3fc0-448d-957f-12b5fa9ea109 Ancestors: Morphic-dtl.312 Remove remaining dependencies on ST80-Editors from non-MVC packages. Remove explicit references to ST80 classes from ModalSystemWindow and various utility methods. =============== Diff against Morphic-dtl.312 =============== Item was added: + ----- Method: MorphicProject>>formEdit: (in category 'editors') ----- + formEdit: aForm + "Start up an instance of the form editor on a form." + + self inform: 'A Morphic editor has not been implemented. Enter an MVC project to edit this form.'! Item was changed: ----- Method: ModalSystemWindowView>>defaultControllerClass (in category 'controller access') ----- defaultControllerClass + ^Smalltalk at: #ModalController! - ^ModalController! Item was changed: ----- Method: MorphicProject>>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." + self inform: 'A Morphic editor has not been implemented. Enter an MVC project to edit this form.'! - self notYetImplemented!

1 0

The Trunk: Morphic-dtl.313.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: Morphic-dtl.313.mcz
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

1 0

The Trunk: Graphics-dtl.102.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-dtl.102.mcz ==================== Summary ==================== Name: Graphics-dtl.102 Author: dtl Time: 24 January 2010, 3:03:34.773 pm UUID: da206183-54d9-46a8-b1e1-32b61d08aa60 Ancestors: Graphics-ar.101 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 Graphics-ar.101 =============== Item was changed: ----- Method: Form>>bitEditAt:scale: (in category 'editing') ----- bitEditAt: magnifiedFormLocation scale: scaleFactor "Create and schedule a view whose top left corner is magnifiedLocation and that contains a view of the receiver magnified by scaleFactor that can be modified using the Bit Editor. It also contains a view of the original form." + Project current bitEdit: self at: magnifiedFormLocation scale: scaleFactor + ! - BitEditor openOnForm: self at: magnifiedFormLocation scale: scaleFactor ! Item was changed: ----- Method: StrikeFont>>edit: (in category 'character shapes') ----- edit: character "Open a Bit Editor on the given character. 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: $=" - "(TextStyle default fontAt: 1) edit: $:=" + Project current editCharacter: character ofFont: self! - | charForm editRect scaleFactor bitEditor savedForm r | - charForm := self characterFormAt: character. - editRect := BitEditor 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. - self characterFormAt: character put: charForm! Item was added: + ----- Method: Rectangle class>>locateMagnifiedView:scale: (in category 'instance creation') ----- + locateMagnifiedView: aForm scale: scaleFactor + "Answer a rectangle at the location where the scaled view of the form, + aForm, should be displayed." + + ^ self originFromUser: (aForm extent * scaleFactor + (0@50)) + ! Item was changed: ----- Method: Form>>bitEdit (in category 'editing') ----- bitEdit "Create and schedule a view located in an area designated by the user that contains a view of the receiver magnified by 8@8 that can be modified using the Bit Editor. It also contains a view of the original form." + Project current bitEdit: self + ! - Smalltalk isMorphic - ifFalse: [BitEditor openOnForm: self] - ifTrue: [self currentHand attachMorph: (FatBitsPaint new - editForm: self; - magnification: 8; - brushColor: Color black; - penSize: 1; - yourself)]. - - "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>"!

1 0

The Trunk: Graphics-dtl.102.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

1 0

The Trunk: Graphics-dtl.102.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

1 0

The Trunk: System-dtl.239.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.239.mcz ==================== Summary ==================== Name: System-dtl.239 Author: dtl Time: 24 January 2010, 3:02:16.598 pm UUID: 21b72cf5-e92a-43e4-85d8-0336c6e0f01a Ancestors: System-ar.238 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 System-ar.238 =============== Item was added: + ----- Method: Project>>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." + + self subclassResponsibility + ! Item was added: + ----- Method: Project>>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." + + self subclassResponsibility! Item was added: + ----- Method: Project>>editCharacter:ofFont: (in category 'editors') ----- + editCharacter: character ofFont: strikeFont + "Open a bit editor on a character in the given strike font." + + self subclassResponsibility !

1 0

The Trunk: System-dtl.239.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

1 0

The Trunk: System-dtl.239.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

1 0

The Trunk: ST80-dtl.87.mcz
by commits＠source.squeak.org 24 Jan '10

24 Jan '10

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)). - !

1 0

← Newer
1
2
3
4
5
6
7
...
73
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2010