Squeak-dev January 2010

squeak-dev@lists.squeakfoundation.org

91 participants
425 discussions

PluggableFileList should be in what package?
by David T. Lewis 25 Jan '10

25 Jan '10

In Squeak trunk, PluggableFileList and PluggableFileListView are currently in package Morphic-FileList but they really should be independent of Morphic and MVC. What package should they belong to, perhaps System-FileList? Dave

2 2

CfP: Dynamic Languages Workshop @ TOOLS
by Michael Haupt 25 Jan '10

25 Jan '10

... apologies for cross-posting and multiple copies! 4th Workshop on Dynamic Languages and Applications (DYLA 2010) categories: programming languages, software engineering, computer science When: Jun 28, 2010 Where: Malaga, Spain Submission Deadline: Mar 31, 2010 Notification Due: May 14, 2010 Final Version Due: May 31, 2010 link: http://scg.unibe.ch/wiki/events/dyla2010 Call For Papers The DYLA Workshop series focuses on the revival of dynamic languages. These days, dynamic languages (like Ruby, Python, JavaScript, Lua, etc…) are getting ever more popular. This is a call to arms for academia! We need to explore the future of dynamic languages through its human aspects and technical issues. We also ought to look back and pick up solutions from existing dynamic languages (such as Scheme, Smalltalk, or Self) to be rediscovered and spread around. Goal and Topics The goal of this workshop is to act as a forum where we can discuss dynamic languages and their applications. Topics of interest include any topic relevant in applying and/or supporting dynamic languages: Ruby, Python, Groovy, JavaScript, Lua, Clojure, Lisp, Scheme, Smalltalk, Self, ABCL, Prolog, and many more… Human aspects of dynamic languages, such as - empirical studies about the application of dynamic languages - best practices and patterns specific to dynamic languages - program correctness through unit testing (as opposed to types) - improved or novel IDE support for dynamic languages - use of dynamic features by library & framework developers - scripting of static application with dynamic languages - reverse engineering and analysis of dynamic applications Technical aspects of dynamic languages, such as - what features make a language a dynamic one? - agents, actors, active object, distribution, concurrency and mobility - delegation, prototypes, mix-ins, traits - first-class closures, continuations, environments - reflection and meta-programming - automated reasoning about programs written in dynamic languages - (concurrent/distributed/mobile/aspect) virtual machines - optimization of dynamic languages - multi-paradigm & static/dynamic-marriages - type systems for dynamic languages - (dynamic) aspects for dynamic languages - higher-order objects & messages - …other exotic dynamic features Submissions The workshop will have a demo-oriented style. The idea is to allow participants to demonstrate new and interesting features and discuss what they feel is relevant for the dynamic language community. Participants need to submit a 2–4 page position paper of their work in ACM, sig-alternate.cls format. At the workshop, participants will be asked to give 10-minute “lightning demos” of their contributions. Submission page is https://www.easychair.org/login.cgi?conf=dyla10 Organizers - Alexandre Bergel, Univ of Chile, - Carl Friedrich Bolz, Heinrich-Heine-Univ, Düsseldorf, Germany - Simon Denier, INRIA Lille, France - Michael Haupt, HPI Potsdam, Germany - Adrian Kuhn, Univ of Bern, Switzerland Program Committee - Tom Dinkelaker, Technische Univ Darmstadt, Germany - Johan Fabry, Univ of Chile - Matthew Flatt, Univ of Utah, USA - Stephan Herrmann, TU Berlin, Germany - Abram Hindle, Univ of Waterloo, Canada - Kasper Lund, Google, Denmark. - Michael Perscheid, HPI Potsdam, Germany - Rodolfo Toledo, Univ of Chile - Niko Schwarz, Univ of Bern, Switzerland - Peter Sommerlad, HSR Rapperswil, Switzerland - Alessandro Warth, Viewpoints Research Institute, USA - Vadim Zaytsev, Univ of Koblenz, Germany For further information, please visit our website or follow us on twitter - http://bit.ly/dyla2010 - http://twitter.com/dyla2010

1 0

Smalltalk vs Eclipse
by Ralph Boland 25 Jan '10

25 Jan '10

Lest I confuse you let me state that I STRONGLY prefer using the Smalltalk (Squeak in my case) development environment to using Eclipse. It is also worth pointing out that Eclipse is a development environment that works with multiple languages whereas in Smalltalk the development tool and development language are intimately connected so to compare the two is to compare apples and oranges. Nevertheless there are advantages to both and I wonder to what extent I can have my cake and eat it too (that would be an orapple cake I suppose). I should also point out that my discussion is abstract; I am asking if it would have been better if Smalltalk had been designed the way I propose and not should some Smalltalk, say Squeak, now be modified to be so. The thing, particular to this discussion, about Eclipse that I like is that the Eclipse (image I will call it) is separate from the application (image I will call it). In Smalltalk the two images are combined. This means that a lot of code is encorporated into your application image that you may not want. Of course, before you release your application you can run a stripping program or process that strips out code that is not used in your application. (I have never done this but my understanding is that this is possible.) Never having done this I assume that stripping is not that satisfactory because there is much code that cannot be stripped out; certainly unused methods and likely unused classes as well; the dynamic nature of Smalltalk means that much necessary information to determine that a method or class is not used is not available so such methods and classes must be included in the application release. Some may argue, that with all the memory processing power available today, who cares; but I care. For example, I would like to be able to put a Smalltalk application into a linux pipe as in: a | b > c where a or b or both are applications written in Smalltalk. Similarly I would like to use Smalltalk applications in bash (Linux) shells scripts or use it in other scripting languages. So it may be important that my image not be unnecessarily large as getting it started may take longer than what it does once it is started. Of course I could use GNU Smalltalk for this but is it really necessary that I know/use two smalltalks? I think the Eclipse model suggests an improvement to Smalltalk. It seems to me that when you run Smalltalk ideally you would run two images. One would be the development environment image and the other would be the application image. When you started a new project you would choose from a selection of start images each including some subset of the development classes you expect to need. There would also be a capability to copy entire methods/classes/applications/other from the development image to the application image. Note that in this model there would be need to search the code base of either image (or both). For example, I may want to find implementors/senders of method #doSomething in the development image, the application image, or both. I think being able to search the application code base only is especially useful. An interesting example is if you were working on the development image itself. In this case you would of course make as your application a copy of the development image (and its changes file). Now, in principle you need not worry about many of the situations in which you get into an infinite loop because you have broken the development environment itself in some way such as putting a halt message somewhere that get called every time the debugger is called. Yes, but what if your are modifying the debugger itself? Well you need some kind of command such as: #runAsDevelopmentEnvironmentOn: image changesFile: file "A metacircular interpreter anybody?" I am not sure who this message is sent to. I am not actually sure if this is a good idea either. Perhaps if you want to work on the development environment you start your image with a special flag or simply no application image. The development image then becomes editable and there is no application image; The development image and application image become one as is the situation now. There are doubtless many problems I am not seeing here and even many ways this may be a good idea that I have not considered. Either way I would like to hear what they are. How much of an effort would be involved in modifying some version of Smalltalk (say Squeak) to work this way? (I have NO plans to do this!) How much of a benefit would such a version of Smalltalk really be? Has this been done before, perhaps in some other language, and what were the results? (Constructive) comments most welcome. Regards, Ralph Boland

7 6

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

25 Jan '10

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.240.mcz ==================== Summary ==================== Name: System-dtl.240 Author: dtl Time: 24 January 2010, 9:51:51.331 pm UUID: 07a9ac80-78d7-4169-b608-df3d25e0aa35 Ancestors: System-dtl.239 Remove remaining dependencies on ST80-Editors from non-MVC packages. Remove explicit references to ST80 classes from ModalSystemWindow and various utility methods. =============== Diff against System-dtl.239 =============== Item was changed: ----- Method: SmartRefStream>>scrollControllermvslrrsmsms0 (in category 'conversion') ----- scrollControllermvslrrsmsms0 + ^ Smalltalk at: #MouseMenuController! - ^ MouseMenuController! Item was changed: ----- Method: SystemDictionary>>discardMVC (in category 'shrinking') ----- discardMVC "After suitable checks, strip out much of MVC from the system" "Smalltalk discardMVC" | keepers | self flag: #bob. "zapping projects" self isMorphic ifFalse: [self inform: 'You must be in a Morphic project to discard MVC.'. ^ self]. "Check that there are no MVC Projects" (Project allProjects allSatisfy: [:proj | proj isMorphic]) ifFalse: [(self confirm: 'Would you like a chance to remove your MVC projects in an orderly manner?') ifTrue: [^ self]. (self confirm: 'If you wish, I can remove all MVC projects, make this project be the top project, and place all orphaned sub-projects of MVC parents here. Would you like be to do this and proceed to discard all MVC classes?') ifTrue: [self zapMVCprojects] ifFalse: [^ self]]. self reclaimDependents. "Remove old Paragraph classes and View classes." self at: #Paragraph ifPresent: [:paraClass | (ChangeSet superclassOrder: paraClass withAllSubclasses asArray) reverseDo: [:c | c removeFromSystem]]. self at: #View ifPresent: [:viewClass | (ChangeSet superclassOrder: viewClass withAllSubclasses asArray) reverseDo: [:c | c removeFromSystem]]. "Get rid of ParagraphEditor's ScrollController dependence" + (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | + #(#markerDelta #viewDelta #scrollAmount #scrollBar #computeMarkerRegion ) + do: [:sel | paragraphEditor removeSelector: sel]. + paragraphEditor compile: 'updateMarker'. + "Reshape to MouseMenuController" + Compiler + evaluate: (paragraphEditor definition copyReplaceAll: 'ScrollController' with: 'MouseMenuController')]. - #(#markerDelta #viewDelta #scrollAmount #scrollBar #computeMarkerRegion ) - do: [:sel | ParagraphEditor removeSelector: sel]. - ParagraphEditor compile: 'updateMarker'. - "Reshape to MouseMenuController" - Compiler - evaluate: (ParagraphEditor definition copyReplaceAll: 'ScrollController' with: 'MouseMenuController'). "Get rid of all Controller classes not needed by ParagraphEditor and ScreenController" keepers := TextMorphEditor withAllSuperclasses copyWith: ScreenController. (ChangeSet superclassOrder: Controller withAllSubclasses asArray) reverseDo: [:c | (keepers includes: c) ifFalse: [c removeFromSystem]]. SystemOrganization removeCategoriesMatching: 'ST80-Paths'. SystemOrganization removeCategoriesMatching: 'ST80-Symbols'. SystemOrganization removeCategoriesMatching: 'ST80-Pluggable Views'. self removeClassNamed: 'FormButtonCache'. self removeClassNamed: 'WindowingTransformation'. self removeClassNamed: 'ControlManager'. self removeClassNamed: 'DisplayTextView'. ScheduledControllers := nil. Undeclared removeUnreferencedKeys. SystemOrganization removeEmptyCategories. Symbol rehash! Item was changed: ----- Method: Preferences class>>noviceModeSettingChanged (in category 'reacting to change') ----- noviceModeSettingChanged "The current value of the noviceMode flag has changed; now react" TheWorldMainDockingBar updateInstances. PasteUpMorph allSubInstances select: [:each | each isWorldMorph] thenDo: [:each | each initializeDesktopCommandKeySelectors]. + ParagraphEditor ifNotNilDo: [:pe | pe initialize]! - ParagraphEditor initialize.! Item was changed: ----- Method: SystemDictionary>>removeAllUnSentMessages (in category 'shrinking') ----- removeAllUnSentMessages "Smalltalk removeAllUnSentMessages" "[Smalltalk unusedClasses do: [:c | (Smalltalk at: c) removeFromSystem]. Smalltalk removeAllUnSentMessages > 0] whileTrue." "Remove all implementations of unsent messages." | sels n | sels := self systemNavigation allUnSentMessages. "The following should be preserved for doIts, etc" "needed even after #majorShrink is pulled" #(#rehashWithoutBecome #compactSymbolTable #rebuildAllProjects #browseAllSelect: #lastRemoval #scrollBarValue: vScrollBarValue: #scrollBarMenuButtonPressed: #withSelectionFrom: #to: #removeClassNamed: #dragon: #hilberts: #mandala: #web #test3 #factorial #tinyBenchmarks #benchFib #newDepth: #restoreAfter: #forgetDoIts #zapAllMethods #obsoleteClasses #removeAllUnSentMessages #abandonSources #removeUnreferencedKeys #reclaimDependents #zapOrganization #condenseChanges #browseObsoleteReferences #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #methodsFor:stamp: #methodsFor:stamp:prior: #instanceVariableNames: #startTimerInterruptWatcher #unusedClasses ) do: [:sel | sels remove: sel ifAbsent: []]. "The following may be sent by perform: in dispatchOnChar..." + (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | + (paragraphEditor classPool at: #CmdActions) asSet + do: [:sel | sels + remove: sel + ifAbsent: []]. + (paragraphEditor classPool at: #ShiftCmdActions) asSet + do: [:sel | sels + remove: sel + ifAbsent: []]]. - (ParagraphEditor classPool at: #CmdActions) asSet - do: [:sel | sels - remove: sel - ifAbsent: []]. - (ParagraphEditor classPool at: #ShiftCmdActions) asSet - do: [:sel | sels - remove: sel - ifAbsent: []]. sels size = 0 ifTrue: [^ 0]. n := 0. self systemNavigation allBehaviorsDo: [:x | n := n + 1]. 'Removing ' , sels size printString , ' messages . . .' displayProgressAt: Sensor cursorPoint from: 0 to: n during: [:bar | n := 0. self systemNavigation allBehaviorsDo: [:class | bar value: (n := n + 1). sels do: [:sel | class basicRemoveSelector: sel]]]. ^ sels size! Item was changed: ----- Method: SystemDictionary>>presumedSentMessages (in category 'shrinking') ----- presumedSentMessages | sent | "Smalltalk presumedSentMessages" "The following should be preserved for doIts, etc" sent := IdentitySet new. #( rehashWithoutBecome compactSymbolTable rebuildAllProjects browseAllSelect: lastRemoval scrollBarValue: vScrollBarValue: scrollBarMenuButtonPressed: withSelectionFrom: to: removeClassNamed: dragon: hilberts: mandala: web test3 factorial tinyBenchmarks benchFib newDepth: restoreAfter: forgetDoIts zapAllMethods obsoleteClasses removeAllUnSentMessages abandonSources removeUnreferencedKeys reclaimDependents zapOrganization condenseChanges browseObsoleteReferences subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: methodsFor:stamp: methodsFor:stamp:prior: instanceVariableNames: startTimerInterruptWatcher unusedClasses) do: [:sel | sent add: sel]. "The following may be sent by perform: in dispatchOnChar..." + (Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor | + (paragraphEditor classPool at: #CmdActions) asSet do: + [:sel | sent add: sel]. + (paragraphEditor classPool at: #ShiftCmdActions) asSet do: + [:sel | sent add: sel]]. - (ParagraphEditor classPool at: #CmdActions) asSet do: - [:sel | sent add: sel]. - (ParagraphEditor classPool at: #ShiftCmdActions) asSet do: - [:sel | sent add: sel]. ^ sent! Item was added: + ----- Method: Project>>formEdit: (in category 'editors') ----- + formEdit: aForm + "Start up an instance of the form editor on a form." + + self subclassResponsibility!

1 0

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

25 Jan '10

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.88.mcz ==================== Summary ==================== Name: ST80-dtl.88 Author: dtl Time: 24 January 2010, 9:50:04.91 pm UUID: 8249f3f2-064f-496c-9f93-22725161b9e6 Ancestors: ST80-dtl.87 Remove remaining dependencies on ST80-Editors from non-MVC packages. Remove explicit references to ST80 classes from ModalSystemWindow and various utility methods. =============== Diff against ST80-dtl.87 =============== Item was added: + ----- Method: MVCProject>>formEdit: (in category 'editors') ----- + formEdit: aForm + "Start up an instance of the FormEditor on a 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." + + FormEditor openOnForm: aForm!

1 0

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

Daily Commit Log
by commits＠source.squeak.org 25 Jan '10

25 Jan '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-January/002486.ht… Name: Morphic-dtl.312 Ancestors: Morphic-ar.311 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: Note: StrikeFont>>edit: now notifies user to edit strike fonts from an MVC project. Help needed: There is no Morphic editor for strike fonts, see implementors of #editCharacter:ofFont: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002487.ht… Name: ST80-dtl.87 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: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002488.ht… Name: System-dtl.239 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: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-January/002489.ht… Name: Graphics-dtl.102 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: =============================================

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: 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: 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
8
9
...
43
Older →

Jump to page: