Squeak-dev January 2012

squeak-dev@lists.squeakfoundation.org

65 participants
121 discussions

Deadline for Smalltalk Directions paper submission extended
by Roger Whitney 13 Jan '12

13 Jan '12

The deadline for submitting papers to Smalltalk Directions has been extended to January 20. So if you needed a bit more time to put together your submission you now have it. If you know someone that was thinking of submitting a paper let them know about the change in the deadline. -- Call for Participation Smalltalk Directions 19th–21st March 2012, Biloxi, Mississippi Smalltalk Directions is a refereed symposium that will be co-located with the Smalltalk Industry Conference (STIC) in March 2012. The Smalltalk Directions Symposium will run in parallel with STIC, offering a parallel track of presentations of refereed academic work that will be open to all attendees of STIC. We solicit research papers concerned with the future of the Smalltalk language, forward-looking applications of Smalltalk and Smalltalk-inspired languages, and the core technologies supporting such languages, including but not limited to: 1. Libraries & Frameworks 2. Language extensions and contractions 3. Implementation technologies, such as Virtual machines, compilers, instruction sets, garbage collection 4. Object persistence 5. Distributed objects 6. Program development tools and environments 7. Using Smalltalk to educate future object-oriented programmers 8. Design Patterns in and for Smalltalk 9. Modelling 10. Meta-programming 11. Domain-specific languages implemented in Smalltalk 12. Smalltalk on the web Both submissions and final papers must be prepared using the ACM SIGPLAN 10 point format. Templates for Word and LaTeX are available at http://www.acm.org/sigs/sigplan/authorInformation.htm; this site also contains links to useful information on how to write effective submissions. We are working to have accepted papers appear in the ACM Digital library. A special issue of the Journal of Object Technology will be published in conjunction with the symposium. The authors of selected papers will be invited to submit an extended version of their Smalltalk Directions submission to this special issue, which will then conduct its own reviewing precess. Papers must be submitted electronically using EasyChair (https://www.easychair.org/conferences/?conf=smalltalkdirections2) Important Dates Paper submission deadline 6th January 2012 Author notification 4th February 2012 Final version deadline 24th February 2012 Symposium 19th – 21st March 2012 Organizing Committee Andrew P Black Portland State University, USA black(a)cs.pdx.edu Ralph Johnson University of Illinois, Urbana-Champaign, USA rjohnson(a)illinois.edu Roger Whitney San Diego State University whitney(a)cs.sdsu.edu David West New Mexico Highlands University dmwest(a)nmhu.edu ---- Roger Whitney Department of Computer Science whitney(a)cs.sdsu.edu San Diego State University http://www.eli.sdsu.edu/ San Diego, CA 92182-7720

1 0

TextMorphEditor
by Eliot Miranda 13 Jan '12

13 Jan '12

Hi All, I've noticed that TextMorphEditor in Morphic-Text Support inherits from ParagraphEditor in ST80-Controllers. ST80-Controllers is removed by unloadAllKnownPackages and so this creates an orphan (in this case a subclass of an obsolete class). In the base image TextMorphEditor is used only within ParagraphEditor. Would anyone object if I moved TextMorphEditor to e.g. ST80-MorphicOrphans or somewhere else in ST80, or ...? -- best, Eliot

3 6

Re: [squeak-dev] The Inbox: Kernel-ul.664.mcz
by Bert Freudenberg 12 Jan '12

12 Jan '12

On 09.01.2012, at 01:47, commits(a)source.squeak.org wrote: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-ul.664.mcz > > ==================== Summary ==================== > > Name: Kernel-ul.664 > Author: ul > Time: 9 January 2012, 2:46:30.214 am > UUID: cc70b7c6-5bbd-4a4e-9bd1-4a22915a61de > Ancestors: Kernel-bf.663 > > Enhanced pointer tracing: > - handle SmallIntegers correctly (they don't point to any object) > - handle instances of compact classes correctly (they don't point to their class) > - weak references are ignored, because they don't stop the garbage collector in collecting objects > These changes modify the behavior of #pointsTo:, #outboundPointersDo: and #inboundPointersExcluding:. The pointsTo: method used to be the fastest way to test for inclusion in performance-sensitive code. Maybe instead of changing its behavior, make a new method pointsStronglyTo:? I'd revert pointsTo: back to its original which goes straight to the primitive. PointerFinder and Co. could use the new, more exhaustive, but ultimately slower method. The proposed method is still 5x faster than unoptimized code, but the original was more than 10x faster. n := 10000000. { 'includes:' -> [1 to: n do: [:i | #(up down left right) includes: #right] ] timeToRun. 'identityIncludes:' -> [1 to: n do: [:i | #(up down left right) identityIncludes: #right] ] timeToRun. 'proposed pointsTo:' -> [1 to: n do: [:i | #(up down left right) pointsStronglyTo: #right] ] timeToRun. 'current pointsTo:' -> [1 to: n do: [:i | #(up down left right) pointsTo: #right] ] timeToRun. 'original pointsTo:' -> [1 to: n do: [:i | #(up down left right) instVarsInclude: #right] ] timeToRun. } ==> { 'includes:'->1668 . 'identityIncludes:'->1925 . 'proposed pointsTo:'->314 . 'current pointsTo:'->178 . 'original pointsTo:'->131 } - Bert - For reference, this is primitive 132: primitiveObjectPointsTo | rcvr thang lastField | thang := self popStack. rcvr := self popStack. (self isIntegerObject: rcvr) ifTrue: [^self pushBool: false]. lastField := self lastPointerOf: rcvr. self baseHeaderSize to: lastField by: self bytesPerWord do: [:i | (self longAt: rcvr + i) = thang ifTrue: [^ self pushBool: true]]. self pushBool: false.

3 15

Quantities and Units
by Ben Coman 12 Jan '12

12 Jan '12

I am implementing a model defined with quantity data having {value, multiplier, unit} where multiplier is m, c, k, M, etc unit is V, A, Hz, W, etc So I am looking for what quantities/units packages are around before trying to write my own. I have downloaded [1] and had a poke around there with the tests. Are there any further examples around of how to use it and to define new units? I notice that Voltage=Joules/Columb is not defined. Is anyone have any familiar with ports of packages mentioned here [2] [3] [4] from other platforms? cheers, Ben [1] http://www.squeaksource.com/Units.html [2] http://www.cincomsmalltalk.com/publicRepository/Quantities.html [3] http://www.smalltalking.net/goodies/Dolphin/ (scroll to bottom) [4] http://comments.gmane.org/gmane.comp.lang.smalltalk.squeak.general/55894

2 2

Re: [Pharo-project] [squeak-dev] Re:NativeBoost and NBOpenGL on Mac?
by Lawson English 12 Jan '12

12 Jan '12

On 1/11/12 3:54 PM, ncalexan wrote: > On Wed, Jan 11, 2012 at 2:40 PM, Igor Stasenko [via Smalltalk] > <[hidden email] </user/SendEmail.jtp?type=node&node=4287190&i=0>> wrote: > > > On 11 January 2012 20:10, Lawson English <[hidden email]> wrote: > >> [pharo list added back in for real this time] > >> > >> Would it be best to have a VM primitive that actually gives this > info in a > >> cross-platform way since it is going to be more and more useful as > time > >> goes > >> on? > >> > > > > one big issue with such primitive is lack of options which i able to > > contol for context i creating. > > As you may know there's a lot of different options , like > > - depth buffer bits, color buffer bits, alpha bits number of back > > buffers, subpixel antialiazing, > > auxuliarry buffers etc > > > > as i said before in other posts.. it is really hard to create a > > primitive which will allow > > you to control all those options, especially a cross-platform one. > > +1. I have been experimenting with an FFI interface to libSDL, a > cross-platform game library that abstracts window and context creation > (as well as input). It works quite well under Mac OS X but I expect > there will be more work to make it run smoothly under Windows and > Linux. > > It is my opinion that duplicating such functionality in Squeak/Pharo > is a poor use of resources. > I guess it depends on your definition of primitive and just what it can do. L.

1 0

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

12 Jan '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-January/005160.ht… Name: Morphic-eem.606 Ancestors: Morphic-laza.605 Nuke TextMorphEditor which is not used anymore and inherits from ParagraphEditor (hence avoiding problems when ParagraphEditor is unloaded as part of the ST80 package). =============================================

1 0

The Trunk: Morphic-eem.606.mcz
by commits＠source.squeak.org 11 Jan '12

11 Jan '12

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.606.mcz ==================== Summary ==================== Name: Morphic-eem.606 Author: eem Time: 11 January 2012, 1:22:24.829 pm UUID: 1685a14b-68f9-475f-9339-e84f6fc5601a Ancestors: Morphic-laza.605 Nuke TextMorphEditor which is not used anymore and inherits from ParagraphEditor (hence avoiding problems when ParagraphEditor is unloaded as part of the ST80 package). =============== Diff against Morphic-laza.605 =============== Item was removed: - ParagraphEditor subclass: #TextMorphEditor - instanceVariableNames: 'morph oldInterval pivotBlock editHistory' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Text Support'! - - !TextMorphEditor commentStamp: '<historical>' prior: 0! - This is the ParagraphEditor for TextMorphs. - - - - ----- - In the past, BookMorphs had the ability to have each page be on the server as a .sp SqueakPage file. The index of the book was a .bo file. In text, Cmd-6 had a LinkTo option that linked to a page by its name, or created a new page of that name. It assumed the book was on a server with a file per page. Ted removed that code, and kept a copy on his disk in 'TME-ChngEmphasis.st for .bo .sp'! Item was removed: - ----- Method: TextMorphEditor>>accept (in category 'menu messages') ----- - accept - "Save the current text of the text being edited as the current acceptable version for purposes of canceling. Allow my morph to take appropriate action" - morph acceptContents! Item was removed: - ----- Method: TextMorphEditor>>addEditCommand: (in category 'multi level undo') ----- - addEditCommand: anEditCommand - - self editHistory rememberCommand: anEditCommand. - " - Debug dShow: anEditCommand newText. - Debug dShow: anEditCommand replacedText. - " - - - ! Item was removed: - ----- Method: TextMorphEditor>>againOrSame: (in category 'private') ----- - againOrSame: bool - | bk keys | - (bk := morph ownerThatIsA: BookMorph) ifNotNil: - [(keys := bk valueOfProperty: #tempSearchKey ifAbsent: [nil]) ifNil: - ["Cmd-f" - - keys := bk valueOfProperty: #searchKey ifAbsent: [nil] "Cmd-g"] - ifNotNil: [bk removeProperty: #tempSearchKey]. - keys ifNotNil: - [keys notEmpty - ifTrue: - [bk findText: keys. - ^(morph respondsTo: #editView) - ifTrue: [morph editView selectionInterval: self selectionInterval]]]]. - super againOrSame: bool. - (morph respondsTo: #editView) - ifTrue: [morph editView selectionInterval: self selectionInterval]! Item was removed: - ----- Method: TextMorphEditor>>align (in category 'menu messages') ----- - align - "Align text according to the next greater alignment value, - cycling among leftFlush, rightFlush, center, and justified." - self changeAlignment. - self recomputeInterval! Item was removed: - ----- Method: TextMorphEditor>>bindingOf: (in category 'binding') ----- - bindingOf: aString - ^model bindingOf: aString! Item was removed: - ----- Method: TextMorphEditor>>cancel (in category 'menu messages') ----- - cancel - "Cancel the changes made so far to this text" - morph cancelEdits! Item was removed: - ----- Method: TextMorphEditor>>changeEmphasis: (in category 'editing keys') ----- - changeEmphasis: aStream - "Change the emphasis of the current selection." - | retval | - retval := super changeEmphasis: aStream. - paragraph composeAll. - self recomputeInterval. - morph updateFromParagraph. - ^retval! Item was removed: - ----- Method: TextMorphEditor>>changeEmphasisOrAlignment (in category 'attributes') ----- - changeEmphasisOrAlignment - | aList reply code align menuList startIndex alignSymbol | - self flag: #arNote. "Move this up once we get rid of MVC" - startIndex := self startIndex. - aList := #(normal bold italic narrow underlined struckOut leftFlush centered rightFlush justified). - align := paragraph text alignmentAt: startIndex - ifAbsent:[paragraph textStyle alignment]. - alignSymbol := TextAlignment alignmentSymbol: align. - code := paragraph text emphasisAt: startIndex. - menuList := WriteStream on: Array new. - menuList nextPut: (code isZero ifTrue:['<on>'] ifFalse:['<off>']), 'normal' translated. - menuList nextPutAll: (#(bold italic underlined struckOut) collect:[:emph| - (code anyMask: (TextEmphasis perform: emph) emphasisCode) - ifTrue:['<on>', emph asString translated] - ifFalse:['<off>',emph asString translated]]). - ((paragraph text attributesAt: startIndex forStyle: paragraph textStyle) - anySatisfy:[:attr| attr isKern and:[attr kern < 0]]) - ifTrue:[menuList nextPut:'<on>', 'narrow' translated] - ifFalse:[menuList nextPut:'<off>', 'narrow' translated]. - menuList nextPutAll: (#(leftFlush centered rightFlush justified) collect:[:type| - type == alignSymbol - ifTrue:['<on>',type asString translated] - ifFalse:['<off>',type asString translated]]). - aList := #(normal bold italic underlined struckOut narrow leftFlush centered rightFlush justified). - reply := UIManager default chooseFrom: menuList contents values: aList lines: #(1 6). - reply notNil ifTrue: - [(#(leftFlush centered rightFlush justified) includes: reply) - ifTrue: - [self setAlignment: reply. - paragraph composeAll. - self recomputeInterval] - ifFalse: - [self setEmphasis: reply. - paragraph composeAll. - self recomputeSelection. - self mvcRedisplay]]. - ^ true! Item was removed: - ----- Method: TextMorphEditor>>changeSelectionFontTo: (in category 'attributes') ----- - changeSelectionFontTo: aFont - | attr | - aFont ifNil:[^self]. - attr := TextFontReference toFont: aFont. - paragraph text addAttribute: attr from: self startIndex to: (self stopIndex-1 min: paragraph text size). - paragraph composeAll. - self recomputeInterval. - morph changed.! Item was removed: - ----- Method: TextMorphEditor>>changeStyle (in category 'attributes') ----- - changeStyle - "Let user change styles for the current text pane." - | aList reply style theStyle menuList | - self flag: #arNote. "Move this up once we get rid of MVC" - aList := StrikeFont actualFamilyNames. - theStyle := paragraph textStyle. - menuList := aList collect:[:styleName| - "Hack!! use defaultFont for comparison - we have no name that we could use for compare and the style changes with alignment so they're no longer equal." - (TextConstants at: styleName) defaultFont == theStyle defaultFont - ifTrue:['<on>', styleName] - ifFalse:['<off>',styleName]]. - theStyle = TextStyle default - ifTrue:[menuList addFirst: '<on>DefaultTextStyle'] - ifFalse:[menuList addFirst: '<off>DefaultTextStyle']. - aList addFirst: 'DefaultTextStyle'. - reply := UIManager default chooseFrom: menuList values: aList lines: #(1). - reply ifNotNil: - [(style := TextStyle named: reply) ifNil: [Beeper beep. ^ true]. - paragraph textStyle: style copy. - paragraph composeAll. - self recomputeSelection. - self mvcRedisplay]. - ^ true! Item was removed: - ----- Method: TextMorphEditor>>changeTextFont (in category 'attributes') ----- - changeTextFont - "Present a dialog which allows the user to select a font, and if one is chosen, apply it to the current selection. If there is no selection, or the selection is empty, apply it to the whole morph." - | curFont startIndex chooser newFont | - startIndex := self startIndex. - curFont := (paragraph text fontAt: startIndex withStyle: paragraph textStyle). - morph openModal: ( - Cursor wait showWhile: [ - (chooser := FontChooserTool default - withTitle: 'Change the selected text''s font to...' translated - for: self - setSelector: #changeSelectionFontTo: - getSelector: curFont) - "Do not allow changing the emphasis; we don't know how to deal with - a 'pre-emphasized' font here, so bail." - offerStyleList: false; - open]). - newFont := chooser result. - newFont ifNotNil:[self changeSelectionFontTo: newFont].! Item was removed: - ----- Method: TextMorphEditor>>chooseColor (in category 'editing keys') ----- - chooseColor - | attribute | - attribute := TextColor color: Color black. "default" - "Make a new Text Color Attribute, let the user pick a color, and return the attribute" - NewColorPickerMorph useIt - ifTrue: [ (NewColorPickerMorph on: attribute) openNear: morph fullBoundsInWorld ] - ifFalse: - [ ColorPickerMorph new - choseModalityFromPreference ; - sourceHand: morph activeHand ; - target: attribute ; - selector: #color: ; - originalColor: Color black ; - - putUpFor: morph - near: morph fullBoundsInWorld ]. - ^ attribute! Item was removed: - ----- Method: TextMorphEditor>>closeTypeIn (in category 'multi level undo') ----- - closeTypeIn - - | begin stop rInterval nInterval newText | - - (UndoMessage sends: #noUndoer) ifFalse:[^super closeTypeIn]. - Preferences multipleTextUndo ifTrue: - [ - beginTypeInBlock == nil ifFalse: - [ - begin := self startOfTyping. - stop := self stopIndex. - rInterval := (begin "+ UndoMessage argument" - to: begin + UndoSelection size - 1). - nInterval := begin to: stop - 1. - (nInterval = rInterval) ifTrue:[ ^super closeTypeIn ]. - newText := nInterval size > 0 - ifTrue: [ paragraph text - copyFrom: nInterval first - to: nInterval last ] - ifFalse: [ self nullText ]. - self addEditCommand: - (EditCommand - textMorph: morph - replacedText: UndoSelection copy - replacedTextInterval: rInterval - newText: newText - newTextInterval: nInterval) - ]. - ]. - - "Call the super regardless, just to keep the standard undo machine happy" - ^super closeTypeIn - ! Item was removed: - ----- Method: TextMorphEditor>>controlInitialize (in category 'controlling') ----- - controlInitialize - "No-op for MVC ParagraphEditor compatibility"! Item was removed: - ----- Method: TextMorphEditor>>controlTerminate (in category 'controlling') ----- - controlTerminate - "No-op for MVC ParagraphEditor compatibility"! Item was removed: - ----- Method: TextMorphEditor>>dispatchOnCharacter:with: (in category 'typing support') ----- - dispatchOnCharacter: char with: typeAheadStream - "Carry out the action associated with this character, if any. - Type-ahead is passed so some routines can flush or use it." - - ((char == Character cr) and: [morph acceptOnCR]) - ifTrue: - [sensor keyboard. "Gobble cr -- probably unnecessary." - self closeTypeIn. - ^ true]. - - ^ super dispatchOnCharacter: char with: typeAheadStream! Item was removed: - ----- Method: TextMorphEditor>>editHistory (in category 'multi level undo') ----- - editHistory - ^morph editHistory - ! Item was removed: - ----- Method: TextMorphEditor>>fakeSensorWithEvent: (in category 'typing support') ----- - fakeSensorWithEvent: anEvent - "Pass the event to a polling-friendly-sensor-fake so that old st-80 code shall still work" - self sensor: (KeyboardBuffer new startingEvent: anEvent).! Item was removed: - ----- Method: TextMorphEditor>>find (in category 'menu messages') ----- - find - super find. - morph installEditorToReplace: self! Item was removed: - ----- Method: TextMorphEditor>>flash (in category 'displaying') ----- - flash - ^ morph flash! Item was removed: - ----- Method: TextMorphEditor>>inspectIt: (in category 'editing keys') ----- - inspectIt: characterStream - "Inspect the selection -- invoked via cmd-i. If there is no current selection, use the current line." - - sensor keyboard. "flush character" - self inspectIt. - ^ true! Item was removed: - ----- Method: TextMorphEditor>>isInTypeRun (in category 'multi level undo') ----- - isInTypeRun - ^beginTypeInBlock ~~ nil - ! Item was removed: - ----- Method: TextMorphEditor>>keyStroke: (in category 'events') ----- - keyStroke: anEvent - self fakeSensorWithEvent: anEvent. - self readKeyboard! Item was removed: - ----- Method: TextMorphEditor>>morph (in category 'accessing') ----- - morph - ^ morph! Item was removed: - ----- Method: TextMorphEditor>>morph: (in category 'accessing') ----- - morph: aMorph - "Install a link back to the morph being edited (esp for text links)" - morph := aMorph ! Item was removed: - ----- Method: TextMorphEditor>>mouseDown: (in category 'events') ----- - mouseDown: evt - "An attempt to break up the old processRedButton code into threee phases" - | clickPoint | - - oldInterval := self selectionInterval. - clickPoint := evt cursorPoint. - (paragraph clickAt: clickPoint for: model controller: self) ifTrue: [ - pivotBlock := paragraph characterBlockAtPoint: clickPoint. - self markBlock: pivotBlock. - self pointBlock: pivotBlock. - evt hand releaseKeyboardFocus: self. - ^ self]. - evt shiftPressed - ifFalse: - [self closeTypeIn. - pivotBlock := paragraph characterBlockAtPoint: clickPoint. - self markBlock: pivotBlock. - self pointBlock: pivotBlock.] - ifTrue: - [self closeTypeIn. - self mouseMove: evt]. - self storeSelectionInParagraph! Item was removed: - ----- Method: TextMorphEditor>>mouseMove: (in category 'events') ----- - mouseMove: evt - "Change the selection in response to moue-down drag" - - pivotBlock ifNil: [^ self]. "Patched during clickAt: repair" - self pointBlock: (paragraph characterBlockAtPoint: (evt cursorPoint)). - self storeSelectionInParagraph! Item was removed: - ----- Method: TextMorphEditor>>mouseUp: (in category 'events') ----- - mouseUp: evt - "An attempt to break up the old processRedButton code into threee phases" - oldInterval ifNil: [^ self]. "Patched during clickAt: repair" - (self hasCaret - and: [oldInterval = self selectionInterval]) - ifTrue: [self selectWord]. - self setEmphasisHere. - (self isDisjointFrom: oldInterval) ifTrue: - [otherInterval := oldInterval]. - self storeSelectionInParagraph! Item was removed: - ----- Method: TextMorphEditor>>multiRedo (in category 'multi level undo') ----- - multiRedo - ^self multiRedoWithCount: 1 - ! Item was removed: - ----- Method: TextMorphEditor>>multiRedo: (in category 'multi level undo') ----- - multiRedo: readAheadStream - sensor keyboard. "flush character" - self closeTypeIn. - self multiRedoWithCount: 1. - ^true - ! Item was removed: - ----- Method: TextMorphEditor>>multiRedoWithCount: (in category 'multi level undo') ----- - multiRedoWithCount: count - - | command i lastCommand newSelection saveSelection history | - - count > 0 ifFalse:[ ^self ]. - - history := self editHistory. - (command := history nextCommand) isNil - ifTrue:[ ^self multiUndoError: 'Nothing to redo']. - - saveSelection := self selectionInterval. - self deselect. - i := 0. - [i < count] whileTrue: - [ - history redo. - lastCommand := command. - ((i := i + 1) < count) ifTrue: - [ - (command := history nextCommand) ifNil:[ - self multiUndoError: ('Only ', (i - 1) asString, ' commands to redo.'). - i := count.]]]. - - (newSelection := lastCommand redoSelectionInterval) isNil - ifTrue:[ self selectInterval: saveSelection] - ifFalse:[ self selectInterval: newSelection]. - - ! Item was removed: - ----- Method: TextMorphEditor>>multiUndo (in category 'multi level undo') ----- - multiUndo - ^self multiUndoWithCount: 1 - ! Item was removed: - ----- Method: TextMorphEditor>>multiUndoError: (in category 'multi level undo') ----- - multiUndoError: eString - - Beeper beep - ! Item was removed: - ----- Method: TextMorphEditor>>multiUndoWithCount: (in category 'multi level undo') ----- - multiUndoWithCount: count - - | command i lastCommand saveSelection newSelection history | - - count > 0 ifFalse:[ ^self ]. - history := self editHistory. - (command := history commandToUndo) - ifNil:[ ^self multiUndoError: 'Nothing to undo']. - - saveSelection := self selectionInterval. - self deselect. - i := 0. - [i < count] whileTrue: - [history undo. - lastCommand := command. - ((i := i + 1) < count) ifTrue: - [(command := history commandToUndo) ifNil:[ - self multiUndoError: ('Only ', (i - 1) asString, ' commands to undo.'). - i := count. ]]]. - - (newSelection := lastCommand undoSelectionInterval) isNil - ifTrue:[ self selectInterval: saveSelection] - ifFalse:[ self selectInterval: newSelection]. - - ! Item was removed: - ----- Method: TextMorphEditor>>mvcRedisplay (in category 'menu messages') ----- - mvcRedisplay - "Ignore mvcRedisplay requests."! Item was removed: - ----- Method: TextMorphEditor>>noUndoReplace:with: (in category 'multi level undo') ----- - noUndoReplace: anInterval with: aText - "This is the zap that multilevel undo uses to do edits. This method bypasses any undo/redo plumbing (in contrast to zapSelection:). This method is called by an EditCommand (which wants to carry out its paragraph surgery without adding another command to the editHistory)" - - | start stop | - self deselect. - start := (anInterval first max: 1). - stop := (anInterval last min: paragraph text size). - (aText isEmpty and: [stop > start]) ifTrue: - ["If deleting, then set emphasisHere from 1st character of the deletion" - emphasisHere := (paragraph text attributesAt: start forStyle: paragraph textStyle) - select: [:att | att mayBeExtended]]. - "Debug dShow: ('zap start->stop: ', (start to: stop) asString)." - paragraph - replaceFrom: start - to: stop - with: aText - displaying: false. - - UndoMessage sends: #noUndoer . "Keep the normal undo machine happy" - self userHasEdited " -- note text now dirty" - ! Item was removed: - ----- Method: TextMorphEditor>>offerFontMenu (in category 'attributes') ----- - offerFontMenu - "Present a menu of available fonts, and if one is chosen, apply it to the current selection. - Use only names of Fonts of this paragraph " - | aList reply curFont menuList | - true ifTrue:[^self changeTextFont]. - self flag: #arNote. "Move this up once we get rid of MVC" - curFont := (paragraph text fontAt: self startIndex withStyle: paragraph textStyle) fontNameWithPointSize. - aList := paragraph textStyle fontNamesWithPointSizes. - menuList := aList collect:[:fntName| - fntName = curFont ifTrue:['<on>',fntName] ifFalse:['<off>',fntName]]. - reply := UIManager default chooseFrom: menuList values: aList. - reply ~~ nil ifTrue: - [self replaceSelectionWith: - (Text string: self selection asString - attribute: (TextFontChange fontNumber: (aList indexOf: reply)))] ! Item was removed: - ----- Method: TextMorphEditor>>offerMenuFromEsc: (in category 'menu commands') ----- - offerMenuFromEsc: characterStream - "The escape key was hit while the receiver has the keyboard focus; take action" - - ^ ActiveEvent shiftPressed - ifTrue: - [self escapeToDesktop: characterStream] - ifFalse: - [self raiseContextMenu: characterStream]! Item was removed: - ----- Method: TextMorphEditor>>raiseContextMenu: (in category 'nonediting/nontyping keys') ----- - raiseContextMenu: characterStream - (morph respondsTo: #editView) - ifTrue: [morph editView yellowButtonActivity: ActiveEvent shiftPressed] - ifFalse: [sensor keyboard. - "consume the character" - morph yellowButtonActivity: false]. - ^ true! Item was removed: - ----- Method: TextMorphEditor>>readKeyboard (in category 'typing support') ----- - readKeyboard - super readKeyboard. - self storeSelectionInParagraph! Item was removed: - ----- Method: TextMorphEditor>>scrollBy: (in category 'scrolling') ----- - scrollBy: ignore - "Ignore scroll requests."! Item was removed: - ----- Method: TextMorphEditor>>select (in category 'current selection') ----- - select - "Ignore selection redraw requests."! Item was removed: - ----- Method: TextMorphEditor>>selectAndScroll (in category 'current selection') ----- - selectAndScroll - "Ignore scroll requests."! Item was removed: - ----- Method: TextMorphEditor>>selectAndScrollToTop (in category 'mvc compatibility') ----- - selectAndScrollToTop - "Scroll until the selection is in the view and then highlight it." - - | lineHeight deltaY rect deltaX | - lineHeight := paragraph textStyle lineGrid. - rect := morph owner bounds. - deltaY := self stopBlock top - rect top. - deltaY ~= 0 ifTrue: [ - deltaX := 0. - deltaY := (deltaY abs + lineHeight - 1 truncateTo: lineHeight) negated. - morph editView scrollBy: deltaX@deltaY]! Item was removed: - ----- Method: TextMorphEditor>>selectForTopFrom:to: (in category 'mvc compatibility') ----- - selectForTopFrom: start to: stop - - self selectFrom: start to: stop. - morph editView ifNotNil: [self selectAndScrollToTop]! Item was removed: - ----- Method: TextMorphEditor>>selectFrom:to: (in category 'new selection') ----- - selectFrom: start to: stop - "Select the specified characters inclusive." - self selectInvisiblyFrom: start to: stop. - self closeTypeIn. - self storeSelectionInParagraph. - self setEmphasisHere. - ! Item was removed: - ----- Method: TextMorphEditor>>setSearch: (in category 'accessing') ----- - setSearch: aString - | bk | - "Set the FindText and ChangeText to seek aString; except if already seeking aString, leave ChangeText alone so again will repeat last replacement." - - (bk := morph ownerThatIsA: BookMorph) ifNotNil: [ - bk setProperty: #tempSearchKey - toValue: (aString findTokens: Character separators)]. - - aString ifNotNil: [ - FindText string = aString - ifFalse: [FindText := ChangeText := aString asText]].! Item was removed: - ----- Method: TextMorphEditor>>storeSelectionInParagraph (in category 'mvc compatibility') ----- - storeSelectionInParagraph - paragraph selectionStart: self startBlock selectionStop: self stopBlock! Item was removed: - ----- Method: TextMorphEditor>>tempCommand: (in category 'editing keys') ----- - tempCommand: characterStream - "Experimental. Triggered by Cmd-t; put trial cmd-key commands here to see how they work, before hanging them on their own cmd accelerators." - Sensor keyboard. - morph tempCommand. - ^ true! Item was removed: - ----- Method: TextMorphEditor>>textAlignment (in category 'attributes') ----- - textAlignment - "Answer 1..4, representing #leftFlush, #rightFlush, #centered, or #justified" - ^paragraph text alignmentAt: startBlock stringIndex - ifAbsent: [paragraph textStyle alignment]! Item was removed: - ----- Method: TextMorphEditor>>textAlignmentSymbol (in category 'attributes') ----- - textAlignmentSymbol - ^#(leftFlush rightFlush centered justified) at: self textAlignment - ! Item was removed: - ----- Method: TextMorphEditor>>totalTextHeight (in category 'as yet unclassified') ----- - totalTextHeight - - ^paragraph lines last bottom! Item was removed: - ----- Method: TextMorphEditor>>transformFrom: (in category 'accessing') ----- - transformFrom: owner - ^morph transformFrom: owner! Item was removed: - ----- Method: TextMorphEditor>>undo (in category 'multi level undo') ----- - undo - "Reset the state of the paragraph prior to the previous edit. - If another ParagraphEditor instance did that edit, UndoInterval is invalid; - just recover the contents of the undo-buffer at the start of the paragraph." - - Preferences multipleTextUndo - ifTrue: [ ^self multiUndo ] - ifFalse:[ ^super undo ]. - ! Item was removed: - ----- Method: TextMorphEditor>>updateMarker (in category 'scrolling') ----- - updateMarker - "Ignore scrollbar redraw requests." - ! Item was removed: - ----- Method: TextMorphEditor>>userHasEdited (in category 'accessing') ----- - userHasEdited - "Note that my text is free of user edits." - - morph hasUnacceptedEdits: true! Item was removed: - ----- Method: TextMorphEditor>>userHasNotEdited (in category 'mvc compatibility') ----- - userHasNotEdited - "Note that my text is free of user edits." - - morph hasUnacceptedEdits: false! Item was removed: - ----- Method: TextMorphEditor>>visibleHeight (in category 'as yet unclassified') ----- - visibleHeight - - ^morph owner bounds height! Item was removed: - ----- Method: TextMorphEditor>>yellowButtonDown: (in category 'events') ----- - yellowButtonDown: event - "Process a yellow button event. Answer true if the event was handled, false otherwise." - (paragraph attributesAt: event cursorPoint) do:[:attr| - attr menu ifNotNil:[ - attr menu openAt: event cursorPoint. - ^true]]. - ^false! Item was removed: - ----- Method: TextMorphEditor>>zapSelectionWith: (in category 'menu messages') ----- - zapSelectionWith: aText - "**overridden to inhibit old-style display" - | start stop rText rInterval isInTypeRun | - self deselect. - start := self startIndex. - stop := self stopIndex. - (aText isEmpty and: [stop > start]) ifTrue: - ["If deleting, then set emphasisHere from 1st character of the deletion" - emphasisHere := (paragraph text attributesAt: start forStyle: paragraph textStyle) - select: [:att | att mayBeExtended]]. - (start = stop and: [aText size = 0]) ifFalse: - [ - "===Support for multilevel undo start ===" - rText := (paragraph text copyFrom: start to: (stop - 1)). - rInterval := start to: (stop - 1). - isInTypeRun := self isInTypeRun. - "===Support for multilevel undo end ===" - - paragraph replaceFrom: start to: stop - 1 - with: aText displaying: false. "** was true in super" - self wasComposition ifTrue: [wasComposition := false. self setPoint: start + 1]. - self computeIntervalFrom: start to: start + aText size - 1. - UndoInterval := otherInterval := self selectionInterval. - - "===Support for multilevel undo start ===" - (Preferences multipleTextUndo and: [isInTypeRun not])ifTrue: - [ self addEditCommand: - (EditCommand - textMorph: morph - replacedText: rText - replacedTextInterval: rInterval - newText: aText - newTextInterval: super selectionInterval)]. - "===Support for multilevel undo end ==="]. - - self userHasEdited " -- note text now dirty"!

1 0

Re: [Pharo-project] NativeBoost and NBOpenGL on Mac?
by Lawson English 11 Jan '12

11 Jan '12

[squeak dev added back in] Even so, i think there's a very windows-centric thing going on that need not exist. might be wrong of course. L On 1/11/12 11:01 AM, ncalexan wrote: > On Wed, Jan 11, 2012 at 9:34 AM, Lawson English-2 [via Smalltalk] > <[hidden email] </user/SendEmail.jtp?type=node&node=4286296&i=0>> wrote: > > [...] > > Sure. Baloon3D is tightly tied to the VM, and is creating the OpenGL > rendering context (and attaching it the NSWindow, etc) directly on the > C side. Igor's approach is to do this all from the image side, and he > just ran into the reality that you need to know the whole render stack > on Mac OS X to do this (NSWindow, NSView, and OpenGL context). (I > don't mean to put words into Igor's mouth, but his approach is > consistent across issues and he has been up front about wanting to > move things to the image.) > > Nick > > ------------------------------------------------------------------------ > View this message in context: Re: NativeBoost and NBOpenGL on Mac? > <http://forum.world.st/NativeBoost-and-NBOpenGL-on-Mac-tp4278813p4286296.html> > Sent from the Pharo Smalltalk mailing list archive > <http://forum.world.st/Pharo-Smalltalk-f1294837.html> at Nabble.com.

1 0

Re: [squeak-dev] The Inbox: Kernel-ul.664.mcz
by Eliot Miranda 09 Jan '12

09 Jan '12

So what's the rationale for handling instances of compact classes specially? Conceptually compact instances _do_ point to their classes; they just have a funky encoding of that reference. Further, that is something that is conceptually local to the VM. It only leaks out because the image is allowed to/required to manage the compact classes array. That e.g. markAndTrace in the VM doesn't indirect through compact classes is an optimization local to the VM. The GC could be written to trace the classes of compact instances. Since it isn't strict;y necessary the VM avoids the cost. But st least conceptually a compact class reference is just a space-efficient encoding of a class reference. Personally I think this is a mistake. If the VM's implementation changes (e.g. as per my two word object header proposal then all class references in objects become indirect) then the below code will have to be backed out. Seems to me like we're allowing optimizations to leak up out of the VM to unnecessarily pollute and complicate the object model. On Sun, Jan 8, 2012 at 5:47 PM, <commits(a)source.squeak.org> wrote: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-ul.664.mcz > > ==================== Summary ==================== > > Name: Kernel-ul.664 > Author: ul > Time: 9 January 2012, 2:46:30.214 am > UUID: cc70b7c6-5bbd-4a4e-9bd1-4a22915a61de > Ancestors: Kernel-bf.663 > > Enhanced pointer tracing: > - handle SmallIntegers correctly (they don't point to any object) > - handle instances of compact classes correctly (they don't point to their > class) > - weak references are ignored, because they don't stop the garbage > collector in collecting objects > These changes modify the behavior of #pointsTo:, #outboundPointersDo: and > #inboundPointersExcluding:. > > =============== Diff against Kernel-bf.663 =============== > > Item was added: > + ----- Method: Behavior>>isCompact (in category 'testing') ----- > + isCompact > + > + ^self indexIfCompact ~= 0! > > Item was changed: > ----- Method: CompiledMethod>>outboundPointersDo: (in category 'tracing') > ----- > outboundPointersDo: aBlock > + "Evaluate aBlock for all objects I am causing not to be > garbage-collected." > > + self class isCompact ifFalse: [ aBlock value: self class ]. > + 1 to: self numLiterals do: [ :i | aBlock value: (self literalAt: > i) ]! > - | numLiterals | > - aBlock value: self class. > - numLiterals := self numLiterals. > - 1 to: numLiterals do: [:i | aBlock value: (self literalAt: i)]! > > Item was changed: > ----- Method: Object>>inboundPointers (in category 'tracing') ----- > inboundPointers > + "Answer a list of all objects in the system that hold a strong > reference to me." > - "Answers a collection of all objects in the system that point to myself" > > ^ self inboundPointersExcluding: #()! > > Item was changed: > ----- Method: Object>>inboundPointersExcluding: (in category 'tracing') > ----- > inboundPointersExcluding: objectsToExclude > + "Answer a list of all objects in the system that hold a strong > reference to me, excluding those in the collection of objectsToExclude." > - "Answer a list of all objects in the system that point to me, excluding > those in the collection of objectsToExclude. I do my best to avoid creating > any temporary objects that point to myself, especially method and block > contexts. Adapted from PointerFinder class >> #pointersTo:except:" > > + | pointers object objectsToAlwaysExclude | > - | anObj pointers objectsToAlwaysExclude | > Smalltalk garbageCollect. > + pointers := OrderedCollection new. > + "SystemNavigation >> #allObjectsDo: is inlined here with a slight > modification: the marker object is pointers. This gives better results, > because the value of pointers, it's inner objects and transient method > contexts will not be iterated over." > + object := self someObject. > + [ object == pointers ] whileFalse: [ > + (object isInMemory and: [ object pointsTo: self ]) ifTrue: > [ > + pointers add: object ]. > + object := object nextObject ]. > - "big collection shouldn't grow, so it's contents array is always > the same" > - pointers := OrderedCollection new: 1000. > - > - "#allObjectsDo: and #pointsTo: are expanded inline to keep spurious > - method and block contexts out of the results" > - anObj := self someObject. > - [0 == anObj] whileFalse: [ "We must use #== here, to avoid leaving > the loop when anObj is another number that's equal to 0 (e.g. 0.0)." > - anObj isInMemory > - ifTrue: [((anObj instVarsInclude: self) > - or: [anObj class == self]) > - ifTrue: [pointers add: anObj]]. > - anObj := anObj nextObject]. > - > objectsToAlwaysExclude := { > - pointers collector. > thisContext. > thisContext sender. > thisContext sender sender. > objectsToExclude. > }. > + ^pointers removeAllSuchThat: [ :ea | > - > - ^ pointers removeAllSuchThat: [:ea | > (objectsToAlwaysExclude identityIncludes: ea) > + or: [objectsToExclude identityIncludes: ea ] ]! > - or: [objectsToExclude identityIncludes: ea]]! > > Item was changed: > ----- Method: Object>>outboundPointers (in category 'tracing') ----- > outboundPointers > + "Answers a list of all objects I am causing not to be garbage > collected" > - "Answers a list of all objects I am causing not to be garbage-collected" > > | collection | > collection := OrderedCollection new. > self outboundPointersDo: [:ea | collection add: ea]. > ^ collection! > > Item was changed: > ----- Method: Object>>outboundPointersDo: (in category 'tracing') ----- > outboundPointersDo: aBlock > + "Evaluate aBlock for all objects I am causing not to be > garbage-collected." > - "do aBlock for every object I point to, exactly how the garbage > collector would. Adapted from PointerFinder >> #followObject:" > > + self class isCompact ifFalse: [ aBlock value: self class ]. > - aBlock value: self class. > 1 to: self class instSize do: [:i | aBlock value: (self instVarAt: > i)]. > + self class isWeak ifFalse: [ > + 1 to: self basicSize do: [:i | aBlock value: (self > basicAt: i)] ]! > - 1 to: self basicSize do: [:i | aBlock value: (self basicAt: i)].! > > Item was changed: > ----- Method: ProtoObject>>pointsTo: (in category 'tracing') ----- > pointsTo: anObject > + "Answers true if the garbage collector would fail to collect > anObject because I hold a reference to it, or false otherwise" > - "Answers true if I hold a reference to anObject, or false otherwise. Or > stated another way: > > + (self instVarsInclude: anObject) > + ifTrue: [ > + self class isWeak ifFalse: [ ^true ]. > + 1 to: self class instSize do: [ :i | > + (self instVarAt: i) == anObject ifTrue: [ > ^true ] ]. > + ^false ] > + ifFalse: [ ^self class == anObject and: [ self class > isCompact not ] ]! > - Answers true if the garbage collector would fail to collect anObject > because I hold a reference to it, or false otherwise" > - > - ^ (self instVarsInclude: anObject) > - or: [self class == anObject]! > > Item was added: > + ----- Method: SmallInteger>>outboundPointersDo: (in category 'tracing') > ----- > + outboundPointersDo: aBlock > + "Evaluate aBlock for all objects I am causing not to be > garbage-collected."! > > Item was added: > + ----- Method: SmallInteger>>pointsTo: (in category 'tracing') ----- > + pointsTo: anObject > + "Answers true if the garbage collector would fail to collect > anObject because I hold a reference to it, or false otherwise" > + > + ^false! > > > -- best, Eliot

2 1

The Inbox: Kernel-ul.664.mcz
by commits＠source.squeak.org 09 Jan '12

09 Jan '12

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ul.664.mcz ==================== Summary ==================== Name: Kernel-ul.664 Author: ul Time: 9 January 2012, 2:46:30.214 am UUID: cc70b7c6-5bbd-4a4e-9bd1-4a22915a61de Ancestors: Kernel-bf.663 Enhanced pointer tracing: - handle SmallIntegers correctly (they don't point to any object) - handle instances of compact classes correctly (they don't point to their class) - weak references are ignored, because they don't stop the garbage collector in collecting objects These changes modify the behavior of #pointsTo:, #outboundPointersDo: and #inboundPointersExcluding:. =============== Diff against Kernel-bf.663 =============== Item was added: + ----- Method: Behavior>>isCompact (in category 'testing') ----- + isCompact + + ^self indexIfCompact ~= 0! Item was changed: ----- Method: CompiledMethod>>outboundPointersDo: (in category 'tracing') ----- outboundPointersDo: aBlock + "Evaluate aBlock for all objects I am causing not to be garbage-collected." + self class isCompact ifFalse: [ aBlock value: self class ]. + 1 to: self numLiterals do: [ :i | aBlock value: (self literalAt: i) ]! - | numLiterals | - aBlock value: self class. - numLiterals := self numLiterals. - 1 to: numLiterals do: [:i | aBlock value: (self literalAt: i)]! Item was changed: ----- Method: Object>>inboundPointers (in category 'tracing') ----- inboundPointers + "Answer a list of all objects in the system that hold a strong reference to me." - "Answers a collection of all objects in the system that point to myself" ^ self inboundPointersExcluding: #()! Item was changed: ----- Method: Object>>inboundPointersExcluding: (in category 'tracing') ----- inboundPointersExcluding: objectsToExclude + "Answer a list of all objects in the system that hold a strong reference to me, excluding those in the collection of objectsToExclude." - "Answer a list of all objects in the system that point to me, excluding those in the collection of objectsToExclude. I do my best to avoid creating any temporary objects that point to myself, especially method and block contexts. Adapted from PointerFinder class >> #pointersTo:except:" + | pointers object objectsToAlwaysExclude | - | anObj pointers objectsToAlwaysExclude | Smalltalk garbageCollect. + pointers := OrderedCollection new. + "SystemNavigation >> #allObjectsDo: is inlined here with a slight modification: the marker object is pointers. This gives better results, because the value of pointers, it's inner objects and transient method contexts will not be iterated over." + object := self someObject. + [ object == pointers ] whileFalse: [ + (object isInMemory and: [ object pointsTo: self ]) ifTrue: [ + pointers add: object ]. + object := object nextObject ]. - "big collection shouldn't grow, so it's contents array is always the same" - pointers := OrderedCollection new: 1000. - - "#allObjectsDo: and #pointsTo: are expanded inline to keep spurious - method and block contexts out of the results" - anObj := self someObject. - [0 == anObj] whileFalse: [ "We must use #== here, to avoid leaving the loop when anObj is another number that's equal to 0 (e.g. 0.0)." - anObj isInMemory - ifTrue: [((anObj instVarsInclude: self) - or: [anObj class == self]) - ifTrue: [pointers add: anObj]]. - anObj := anObj nextObject]. - objectsToAlwaysExclude := { - pointers collector. thisContext. thisContext sender. thisContext sender sender. objectsToExclude. }. + ^pointers removeAllSuchThat: [ :ea | - - ^ pointers removeAllSuchThat: [:ea | (objectsToAlwaysExclude identityIncludes: ea) + or: [objectsToExclude identityIncludes: ea ] ]! - or: [objectsToExclude identityIncludes: ea]]! Item was changed: ----- Method: Object>>outboundPointers (in category 'tracing') ----- outboundPointers + "Answers a list of all objects I am causing not to be garbage collected" - "Answers a list of all objects I am causing not to be garbage-collected" | collection | collection := OrderedCollection new. self outboundPointersDo: [:ea | collection add: ea]. ^ collection! Item was changed: ----- Method: Object>>outboundPointersDo: (in category 'tracing') ----- outboundPointersDo: aBlock + "Evaluate aBlock for all objects I am causing not to be garbage-collected." - "do aBlock for every object I point to, exactly how the garbage collector would. Adapted from PointerFinder >> #followObject:" + self class isCompact ifFalse: [ aBlock value: self class ]. - aBlock value: self class. 1 to: self class instSize do: [:i | aBlock value: (self instVarAt: i)]. + self class isWeak ifFalse: [ + 1 to: self basicSize do: [:i | aBlock value: (self basicAt: i)] ]! - 1 to: self basicSize do: [:i | aBlock value: (self basicAt: i)].! Item was changed: ----- Method: ProtoObject>>pointsTo: (in category 'tracing') ----- pointsTo: anObject + "Answers true if the garbage collector would fail to collect anObject because I hold a reference to it, or false otherwise" - "Answers true if I hold a reference to anObject, or false otherwise. Or stated another way: + (self instVarsInclude: anObject) + ifTrue: [ + self class isWeak ifFalse: [ ^true ]. + 1 to: self class instSize do: [ :i | + (self instVarAt: i) == anObject ifTrue: [ ^true ] ]. + ^false ] + ifFalse: [ ^self class == anObject and: [ self class isCompact not ] ]! - Answers true if the garbage collector would fail to collect anObject because I hold a reference to it, or false otherwise" - - ^ (self instVarsInclude: anObject) - or: [self class == anObject]! Item was added: + ----- Method: SmallInteger>>outboundPointersDo: (in category 'tracing') ----- + outboundPointersDo: aBlock + "Evaluate aBlock for all objects I am causing not to be garbage-collected."! Item was added: + ----- Method: SmallInteger>>pointsTo: (in category 'tracing') ----- + pointsTo: anObject + "Answers true if the garbage collector would fail to collect anObject because I hold a reference to it, or false otherwise" + + ^false!

1 0

← Newer
1
...
6
7
8
9
10
11
12
13
Older →