Squeak-dev August 2015

squeak-dev@lists.squeakfoundation.org

50 participants
218 discussions

The Trunk: Graphics-mt.314.mcz
by commits＠source.squeak.org 25 Aug '15

25 Aug '15

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.314.mcz ==================== Summary ==================== Name: Graphics-mt.314 Author: mt Time: 25 August 2015, 10:33:41.832 am UUID: 07278efc-1649-e345-aa5c-f90d220a5088 Ancestors: Graphics-mt.313 Fixes form scaling to always return a copy even if the extent does not change. Adds checks for zero-length edges to increase robustness. Updates argument name to make it clear that both numbers and points are accepted, which supports uniform and non-uniform scaling. =============== Diff against Graphics-mt.313 =============== Item was changed: ----- Method: Form>>scaledToSize: (in category 'scaling, rotation') ----- + scaledToSize: numberOrPoint - scaledToSize: newExtent + | scale newExtent | + newExtent := numberOrPoint asPoint. + + newExtent = self extent ifTrue: [^ self copy]. + + (self height isZero or: [self width isZero]) + ifTrue: [^ self species extent: newExtent depth: self depth]. + - | scale | - - newExtent = self extent ifTrue: [^self]. scale := newExtent x / self width min: newExtent y / self height. + ^ self magnify: self boundingBox by: scale smoothing: 2! - ^self magnify: self boundingBox by: scale smoothing: 2. - !

1 0

Daily Commit Log
by commits＠source.squeak.org 24 Aug '15

24 Aug '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-August/008889.html Name: Morphic-dtl.997 Ancestors: Morphic-topa.996 Workspace "Send contents to printer" works in MVC, not in Morphic, due to missing implementation in the new Editor hierarchy. Add TextEditor>>sendContentsToPrinterWithLabel: for use with PluggableTextMorph. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008890.html Name: Installer-Core-cmm.399 Ancestors: Installer-Core-ul.398 - Ma-Installer was moved back to squeaksource.com. - SqueakSSL and WebClient are now part of the base image and maintained at source.squeak.org. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008891.html Name: Collections-ul.648 Ancestors: Collections-ul.647 CharacterSet: - store the size in an instance variable - moved removal logic to #remove:ifAbsent:, while kept the behavior of #remove: - migrate existing instances by sending #size in the postscript ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008892.html Name: Regex-Core-ul.43 Ancestors: Regex-Core-ul.42 A few more tweaks here and there: - keep all marker positions in RxMatcher - optimize the case of one sized character set in RxsCharSet>>enumerablePartPredicateIgnoringCase: - avoid collection copies in RxMatchOptimizer when possible ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-August/008893.html Name: Collections-ul.649 Ancestors: Collections-ul.648 - removed migration code from CharacterSet =============================================

1 0

correction [Re: PDX -- a quick and dirty yada yada]
by Chris Cunnington 24 Aug '15

24 Aug '15

>- Sean presented about Gamour and gt toolkit That should say "Glamour and gt toolkit”. Chris

1 0

The Trunk: Collections-ul.649.mcz
by commits＠source.squeak.org 24 Aug '15

24 Aug '15

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.649.mcz ==================== Summary ==================== Name: Collections-ul.649 Author: ul Time: 23 August 2015, 11:59:16.66 pm UUID: 4d8f9b81-5a5c-41b3-a466-a05df4a883ff Ancestors: Collections-ul.648 - removed migration code from CharacterSet =============== Diff against Collections-ul.648 =============== Item was changed: ----- Method: CharacterSet>>= (in category 'comparison') ----- = anObject self species == anObject species ifFalse: [ ^false ]. - self size. "to migrate existing instances" anObject size = tally ifFalse: [ ^false ]. ^self byteArrayMap = anObject byteArrayMap! Item was changed: ----- Method: CharacterSet>>add: (in category 'collection ops') ----- add: aCharacter "I automatically become a WideCharacterSet if you add a wide character to myself" | index | (index := aCharacter asInteger + 1) <= 256 ifFalse: [ | wide | wide := WideCharacterSet new. wide addAll: self. wide add: aCharacter. self becomeForward: wide. ^aCharacter ]. + (map at: index) = 1 ifFalse: [ + map at: index put: 1. + tally := tally + 1 ]. - (map at: index) = 1 ifTrue: [ ^aCharacter ]. - self size. "to migrate existing instances." - map at: index put: 1. - tally := tally + 1. ^aCharacter! Item was changed: ----- Method: CharacterSet>>do: (in category 'collection ops') ----- do: aBlock "evaluate aBlock with each character in the set" | index | - self size. "to migrate existing instances" tally >= 128 ifTrue: [ "dense" index := 0. [ (index := index + 1) <= 256 ] whileTrue: [ (map at: index) = 1 ifTrue: [ aBlock value: (Character value: index - 1) ] ]. ^self ]. "sparse" index := 0. [ (index := map indexOf: 1 startingAt: index + 1) = 0 ] whileFalse: [ aBlock value: (Character value: index - 1) ]. ! Item was changed: ----- Method: CharacterSet>>remove:ifAbsent: (in category 'collection ops') ----- remove: aCharacter ifAbsent: aBlock | index | (index := aCharacter asciiValue + 1) <= 256 ifFalse: [ ^aBlock value ]. (map at: index) = 0 ifTrue: [ ^aBlock value ]. - self size. "to migrate existing instances." map at: index put: 0. tally := tally - 1. ^aCharacter! Item was changed: ----- Method: CharacterSet>>size (in category 'collection ops') ----- size + ^tally! - ^tally ifNil: [ - | index count | - index := count := 0. - [ (index := map indexOf: 1 startingAt: index + 1) = 0 ] whileFalse: [ - count := count + 1 ]. - tally := count ]!

1 0

The Trunk: Regex-Core-ul.43.mcz
by commits＠source.squeak.org 24 Aug '15

24 Aug '15

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.43.mcz ==================== Summary ==================== Name: Regex-Core-ul.43 Author: ul Time: 23 August 2015, 11:52:59.334 pm UUID: 7d13e585-1608-426d-8849-1c46a09bc5cf Ancestors: Regex-Core-ul.42 A few more tweaks here and there: - keep all marker positions in RxMatcher - optimize the case of one sized character set in RxsCharSet>>enumerablePartPredicateIgnoringCase: - avoid collection copies in RxMatchOptimizer when possible =============== Diff against Regex-Core-ul.42 =============== Item was added: + ----- Method: RxMatchOptimizer>>addNonPrefixes: (in category 'private') ----- + addNonPrefixes: aSet + + ^nonPrefixes + ifNil: [ nonPrefixes := aSet ] + ifNotNil: [ nonPrefixes addAll: aSet ]! Item was added: + ----- Method: RxMatchOptimizer>>addPrefixes: (in category 'private') ----- + addPrefixes: aSet + + ^prefixes + ifNil: [ prefixes := aSet ] + ifNotNil: [ prefixes addAll: aSet ]! Item was changed: ----- Method: RxMatchOptimizer>>syntaxCharSet: (in category 'double dispatch') ----- syntaxCharSet: charSetNode "All these (or none of these) characters is the prefix." (charSetNode enumerableSetIgnoringCase: ignoreCase) ifNotNil: [ :enumerableSet | charSetNode isNegated + ifTrue: [ self addNonPrefixes: enumerableSet ] + ifFalse: [ self addPrefixes: enumerableSet ] ]. - ifTrue: [ enumerableSet do: [ :each | self addNonPrefix: each ] ] - ifFalse: [ enumerableSet do: [ :each | self addPrefix: each ] ] ]. charSetNode predicates ifNotNil: [ :charsetPredicates | charSetNode isNegated ifTrue: [ charsetPredicates do: [ :each | self addNonPredicate: each ] ] ifFalse: [ charsetPredicates do: [ :each | self addPredicate: each ] ] ]! Item was changed: Object subclass: #RxMatcher + instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions markerCount lastResult oldMarkerPositions firstTry' - instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions markerCount lastResult oldMarkerPositions' classVariableNames: 'Cr Lf' poolDictionaries: '' category: 'Regex-Core'! !RxMatcher commentStamp: 'Tbn 11/12/2010 23:13' prior: 0! -- Regular Expression Matcher v 1.1 (C) 1996, 1999 Vassili Bykov -- This is a recursive regex matcher. Not strikingly efficient, but simple. Also, keeps track of matched subexpressions. The life cycle goes as follows: 1. Initialization. Accepts a syntax tree (presumably produced by RxParser) and compiles it into a matcher built of other classes in this category. 2. Matching. Accepts a stream or a string and returns a boolean indicating whether the whole stream or its prefix -- depending on the message sent -- matches the regex. 3. Subexpression query. After a successful match, and before any other match, the matcher may be queried about the range of specific stream (string) positions that matched to certain parenthesized subexpressions of the original expression. Any number of queries may follow a successful match, and any number or matches may follow a successful initialization. Note that `matcher' is actually a sort of a misnomer. The actual matcher is a web of Rxm* instances built by RxMatcher during initialization. RxMatcher is just the interface facade of this network. It is also a builder of it, and also provides a stream-like protocol to easily access the stream being matched. Instance variables: matcher <RxmLink> The entry point into the actual matcher. stream <Stream> The stream currently being matched against. markerPositions <Array of: Integer> Positions of markers' matches. markerCount <Integer> Number of markers. lastResult <Boolean> Whether the latest match attempt succeeded or not. lastChar <Character | nil> character last seen in the matcher stream! Item was changed: ----- Method: RxMatcher>>copyStream:to:replacingMatchesWith: (in category 'match enumeration') ----- copyStream: aStream to: writeStream replacingMatchesWith: aString "Copy the contents of <aStream> on the <writeStream>, except for the matches. Replace each match with <aString>." | searchStart matchStart matchEnd | stream := aStream. + self resetMarkerPositions. - oldMarkerPositions := markerPositions := nil. [searchStart := aStream position. self proceedSearchingStream: aStream] whileTrue: [matchStart := (self subBeginning: 1) last. matchEnd := (self subEnd: 1) last. aStream position: searchStart. searchStart to: matchStart - 1 do: [:ignoredPos | writeStream nextPut: aStream next]. writeStream nextPutAll: aString. aStream position: matchEnd. "Be extra careful about successful matches which consume no input. After those, make sure to advance or finish if already at end." matchEnd = searchStart ifTrue: [aStream atEnd ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] ifFalse: [writeStream nextPut: aStream next]]]. aStream position: searchStart. [aStream atEnd] whileFalse: [writeStream nextPut: aStream next]! Item was changed: ----- Method: RxMatcher>>copyStream:to:translatingMatchesUsing: (in category 'match enumeration') ----- copyStream: aStream to: writeStream translatingMatchesUsing: aBlock "Copy the contents of <aStream> on the <writeStream>, except for the matches. For each match, evaluate <aBlock> passing the matched substring as the argument. Expect the block to answer a String, and write the answer to <writeStream> in place of the match." | searchStart matchStart matchEnd match | stream := aStream. + self resetMarkerPositions. - oldMarkerPositions := markerPositions := nil. [searchStart := aStream position. self proceedSearchingStream: aStream] whileTrue: [matchStart := (self subBeginning: 1) last. matchEnd := (self subEnd: 1) last. aStream position: searchStart. searchStart to: matchStart - 1 do: [:ignoredPos | writeStream nextPut: aStream next]. match := (String new: matchEnd - matchStart + 1) writeStream. matchStart to: matchEnd - 1 do: [:ignoredPos | match nextPut: aStream next]. writeStream nextPutAll: (aBlock value: match contents). "Be extra careful about successful matches which consume no input. After those, make sure to advance or finish if already at end." matchEnd = searchStart ifTrue: [aStream atEnd ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] ifFalse: [writeStream nextPut: aStream next]]]. aStream position: searchStart. [aStream atEnd] whileFalse: [writeStream nextPut: aStream next]! Item was changed: ----- Method: RxMatcher>>matchesStreamPrefix: (in category 'accessing') ----- matchesStreamPrefix: theStream "Match thyself against a positionable stream." stream := theStream. + self resetMarkerPositions. - oldMarkerPositions := markerPositions := nil. ^self tryMatch! Item was added: + ----- Method: RxMatcher>>resetMarkerPositions (in category 'private') ----- + resetMarkerPositions + "This method should be sent before the first #tryMatch send." + + firstTry := true. + markerPositions ifNotNil: [ + markerPositions do: [ :each | each resetTo: 1 ] ]! Item was changed: ----- Method: RxMatcher>>searchStream: (in category 'accessing') ----- searchStream: aStream "Search the stream for occurrence of something matching myself. After the search has occurred, stop positioned after the end of the matched substring. Answer a Boolean indicating success." | position | stream := aStream. position := aStream position. + self resetMarkerPositions. - oldMarkerPositions := markerPositions := nil. [aStream atEnd] whileFalse: [self tryMatch ifTrue: [^true]. aStream position: position; next. position := aStream position]. "Try match at the very stream end too!!" ^self tryMatch! Item was changed: ----- Method: RxMatcher>>tryMatch (in category 'private') ----- tryMatch "Match thyself against the current stream." + | newMarkerPositions wasFirstTry | + wasFirstTry := firstTry. + firstTry := false. - | newMarkerPositions | newMarkerPositions := oldMarkerPositions. oldMarkerPositions := markerPositions. markerPositions := newMarkerPositions. markerPositions ifNil: [ markerPositions := Array new: markerCount. 1 to: markerCount do: [ :i | "There are usually 0 or 1 objects to store." markerPositions at: i put: (OrderedCollection new: 2) ] ] ifNotNil: [ 1 to: markerCount do: [ :i | (markerPositions at: i) resetTo: 1 ] ]. lastResult := startOptimizer ifNil: [ matcher matchAgainst: self] ifNotNil: [ (startOptimizer canStartMatch: stream peek in: self) and: [ matcher matchAgainst: self ] ]. "check for duplicates" lastResult ifFalse: [ ^false ]. + wasFirstTry ifTrue: [ ^true ]. - oldMarkerPositions ifNil: [ ^true ]. (oldMarkerPositions hasEqualElements: markerPositions) ifFalse: [ ^true ]. "this is a duplicate match" ^ lastResult := false! Item was changed: ----- Method: RxsCharSet>>enumerablePartPredicateIgnoringCase: (in category 'privileged') ----- enumerablePartPredicateIgnoringCase: aBoolean + | set | + set := (self enumerableSetIgnoringCase: aBoolean) ifNil: [ ^nil ]. + set size = 1 ifTrue: [ + | p | + p := set anyOne. + negated ifTrue: [ ^[ :character | character ~~ p ] ]. + ^[ :character | character == p ] ]. + negated ifTrue: [ ^[ :char | (set includes: char) not ] ]. + ^[ :char | set includes: char ]! - | enumeration | - enumeration := (self enumerableSetIgnoringCase: aBoolean) ifNil: [ ^nil ]. - negated ifTrue: [ ^[ :char | (enumeration includes: char) not ] ]. - ^[ :char | enumeration includes: char ]!

1 0

The Trunk: Collections-ul.648.mcz
by commits＠source.squeak.org 24 Aug '15

24 Aug '15

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.648.mcz ==================== Summary ==================== Name: Collections-ul.648 Author: ul Time: 23 August 2015, 11:56:36.78 pm UUID: 03127fe2-feda-47f9-ba11-984377a172ff Ancestors: Collections-ul.647 CharacterSet: - store the size in an instance variable - moved removal logic to #remove:ifAbsent:, while kept the behavior of #remove: - migrate existing instances by sending #size in the postscript =============== Diff against Collections-ul.647 =============== Item was changed: Collection subclass: #CharacterSet + instanceVariableNames: 'map tally' - instanceVariableNames: 'map' classVariableNames: 'CrLf NonSeparators Separators' poolDictionaries: '' category: 'Collections-Support'! !CharacterSet commentStamp: '<historical>' prior: 0! A set of characters. Lookups for inclusion are very fast.! Item was changed: ----- Method: CharacterSet>>= (in category 'comparison') ----- = anObject + + self species == anObject species ifFalse: [ ^false ]. + self size. "to migrate existing instances" + anObject size = tally ifFalse: [ ^false ]. + ^self byteArrayMap = anObject byteArrayMap! - ^self species == anObject species and: [ - self byteArrayMap = anObject byteArrayMap ]! Item was changed: ----- Method: CharacterSet>>add: (in category 'collection ops') ----- add: aCharacter "I automatically become a WideCharacterSet if you add a wide character to myself" + | index | + (index := aCharacter asInteger + 1) <= 256 ifFalse: [ + | wide | + wide := WideCharacterSet new. + wide addAll: self. + wide add: aCharacter. + self becomeForward: wide. + ^aCharacter ]. + (map at: index) = 1 ifTrue: [ ^aCharacter ]. + self size. "to migrate existing instances." + map at: index put: 1. + tally := tally + 1. - aCharacter asciiValue >= 256 - ifTrue: [| wide | - wide := WideCharacterSet new. - wide addAll: self. - wide add: aCharacter. - self becomeForward: wide. - ^aCharacter]. - map at: aCharacter asciiValue + 1 put: 1. ^aCharacter! Item was changed: ----- Method: CharacterSet>>do: (in category 'collection ops') ----- do: aBlock "evaluate aBlock with each character in the set" + | index | + self size. "to migrate existing instances" + tally >= 128 ifTrue: [ "dense" + index := 0. + [ (index := index + 1) <= 256 ] whileTrue: [ + (map at: index) = 1 ifTrue: [ + aBlock value: (Character value: index - 1) ] ]. + ^self ]. + "sparse" + index := 0. + [ (index := map indexOf: 1 startingAt: index + 1) = 0 ] whileFalse: [ + aBlock value: (Character value: index - 1) ]. + ! - Character allByteCharacters do: [ :c | - (self includes: c) ifTrue: [ aBlock value: c ] ] - ! Item was changed: ----- Method: CharacterSet>>initialize (in category 'private') ----- initialize + + map := ByteArray new: 256. + tally := 0! - map := ByteArray new: 256 withAll: 0.! Item was changed: ----- Method: CharacterSet>>remove: (in category 'collection ops') ----- remove: aCharacter + + ^self remove: aCharacter ifAbsent: aCharacter! - aCharacter asciiValue >= 256 - ifFalse: ["Guard against wide characters" - map at: aCharacter asciiValue + 1 put: 0]. - ^aCharacter! Item was changed: ----- Method: CharacterSet>>remove:ifAbsent: (in category 'collection ops') ----- remove: aCharacter ifAbsent: aBlock + + | index | + (index := aCharacter asciiValue + 1) <= 256 ifFalse: [ ^aBlock value ]. + (map at: index) = 0 ifTrue: [ ^aBlock value ]. + self size. "to migrate existing instances." + map at: index put: 0. + tally := tally - 1. + ^aCharacter! - (self includes: aCharacter) ifFalse: [^aBlock value]. - ^self remove: aCharacter! Item was changed: ----- Method: CharacterSet>>removeAll (in category 'removing') ----- removeAll + map atAllPut: 0. + tally := 0! - map atAllPut: 0! Item was changed: ----- Method: CharacterSet>>size (in category 'collection ops') ----- size + + ^tally ifNil: [ + | index count | + index := count := 0. + [ (index := map indexOf: 1 startingAt: index + 1) = 0 ] whileFalse: [ + count := count + 1 ]. + tally := count ]! - ^map sum! Item was changed: + (PackageInfo named: 'Collections') postscript: 'CharacterSet allInstancesDo: #size'! - (PackageInfo named: 'Collections') postscript: 'WideCharacterSet allInstancesDo: #migrate'!

1 0

The Trunk: Installer-Core-cmm.399.mcz
by commits＠source.squeak.org 24 Aug '15

24 Aug '15

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.399.mcz ==================== Summary ==================== Name: Installer-Core-cmm.399 Author: cmm Time: 24 August 2015, 10:43:08.114 am UUID: 2c2b974d-235b-45e5-8f70-430a3092a7e7 Ancestors: Installer-Core-ul.398 - Ma-Installer was moved back to squeaksource.com. - SqueakSSL and WebClient are now part of the base image and maintained at source.squeak.org. =============== Diff against Installer-Core-ul.398 =============== Item was changed: ----- Method: Installer>>maInstaller (in category 'package-definitions') ----- maInstaller "Select from a family of related packages for application development." + ^ { #ss -> 'Ma-Installer'. - ^ { #ss3 -> 'Ma-Installer'. 'Ma-Installer-Core' }! Item was removed: - ----- Method: Installer>>squeakSslCore (in category 'package-definitions') ----- - squeakSslCore - "SSL implementation on top of WebClient. Requires the SqueakSSL VM plugin." - ^ { self webClientCore. - #ss -> 'SqueakSSL'. - 'SqueakSSL-Core' }! Item was removed: - ----- Method: Installer>>squeakSslTests (in category 'package-definitions') ----- - squeakSslTests - "SqueakSSL test package." - ^ { self webClientTests. - self squeakSslCore. - 'SqueakSSL-Tests' }! Item was removed: - ----- Method: Installer>>webClientCore (in category 'package-definitions') ----- - webClientCore - "Simple, compact, and easy to use HTTP client implementation from Andreas Raab." - ^ { #ss3 -> 'WebClient'. - 'WebClient-Core' }! Item was changed: ----- Method: Installer>>webClientSsp (in category 'package-definitions') ----- webClientSsp "WebClient supports NTLM/SPNEGO authentication via the Microsoft SSP interface (Windows only)." ^ { self ffiTests. + #ss3 -> 'WebClient'. - self webClientTests. 'WebClient-SSP' }! Item was removed: - ----- Method: Installer>>webClientTests (in category 'package-definitions') ----- - webClientTests - "Help documentation and tests for Web Client." - ^ { self webClientCore. - 'WebClient-Tests'. - 'WebClient-Help' }!

1 0

New Cog VMs available...
by Eliot Miranda 24 Aug '15

24 Aug '15

... at http://www.mirandabanda.org/files/Cog/VM/VM.r3427. Squeak V5 users will want to upgrade their VMs because they, along with Smalltalk changes to follow soon, fix image segments. But upgrading is not a trivial process because the VMs on my site are not complete. The best way to update is to take a copy of the Squeak 5.0 all-in-one and replace the main VM executable there-in with one from my site. This gets you up-to-date plugins and an up-to-date VM. I hope that this process will get easier soon. ------------------------------------------------------------------------ CogVM binaries as per VMMaker.oscog-eem.1441/r3427 Modify Spur ImageSegment load to become the segmentWordArray into an Array of the loaded objects if load is successful, hence decoupling ImageSegment from the assumption that objects are allocated in order. Fix Integer receiver, float arg comparison with NaNs in the machine-code primitive. This has started failing in the FloatTest>>testNaNCompare since the new machine-code perform primitive invoked the machine-code version of the primitive. The Interpretewr code has always been correct and the old perform primitive would always run the Interpreter primitive if it exsted, since this would probably be faster. Fix the bug introduced by the fix to primitive function invocation in VMMaker.oscog-eem.1351 The fix correctly changed primitve code to set the primitiveFunctionPointer appropriately when a jitted external primitive was rebound, but it didn't remember to void the jit's record of the offset of the assignment that sets the primitiveFunctionPointer when switching between profiling andf non-profiling regimes, so that the address from the wrong regime would remain and be used to smash prmitive code. The fix is simply to void the externalSetPrimOffsets in voidCogCompiledCode. This fixes the bug whose symptom is a hard VM crash when using AndreasSystemProfilier. Integrate Marcel Taeumel & Tobias Pape's v2 SSL plugin changes. Fix negative 64-bit shift in the 64-bit Spur Stack interpreter. Newspeak: Fix MNU for cogged self and outer sends. Make the Newspeak VM packager include the V50 sources file instead of V41. _,,,^..^,,,_ best, Eliot

2 1

Re: [squeak-dev] The Trunk: Morphic-dtl.997.mcz
by Levente Uzonyi 24 Aug '15

24 Aug '15

Hi Dave, I think this method belongs to Editor instead of TextEditor. Levente On Mon, 24 Aug 2015, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-dtl.997.mcz > > ==================== Summary ==================== > > Name: Morphic-dtl.997 > Author: dtl > Time: 23 August 2015, 9:32:02.122 pm > UUID: e66cf3fd-1cd2-42c6-9fe2-c745eb1f688c > Ancestors: Morphic-topa.996 > > Workspace "Send contents to printer" works in MVC, not in Morphic, due to missing implementation in the new Editor hierarchy. Add TextEditor>>sendContentsToPrinterWithLabel: for use with PluggableTextMorph. > > =============== Diff against Morphic-topa.996 =============== > > Item was changed: > ----- Method: PluggableTextMorph>>sendContentsToPrinter (in category 'menu commands') ----- > sendContentsToPrinter > + self handleEdit: [textMorph editor sendContentsToPrinterWithLabel: owner knownName]! > - self handleEdit: [textMorph editor sendContentsToPrinter]! > > Item was added: > + ----- Method: TextEditor>>sendContentsToPrinterWithLabel: (in category 'menu messages') ----- > + sendContentsToPrinterWithLabel: label > + | textToPrint printer | > + textToPrint := paragraph text. > + textToPrint size = 0 ifTrue: [^self inform: 'nothing to print.']. > + printer := TextPrinter defaultTextPrinter. > + printer documentTitle: (label ifNil: ['Untitled']). > + printer printText: textToPrint! > > >

2 2

The Trunk: Morphic-dtl.997.mcz
by commits＠source.squeak.org 24 Aug '15

24 Aug '15

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.997.mcz ==================== Summary ==================== Name: Morphic-dtl.997 Author: dtl Time: 23 August 2015, 9:32:02.122 pm UUID: e66cf3fd-1cd2-42c6-9fe2-c745eb1f688c Ancestors: Morphic-topa.996 Workspace "Send contents to printer" works in MVC, not in Morphic, due to missing implementation in the new Editor hierarchy. Add TextEditor>>sendContentsToPrinterWithLabel: for use with PluggableTextMorph. =============== Diff against Morphic-topa.996 =============== Item was changed: ----- Method: PluggableTextMorph>>sendContentsToPrinter (in category 'menu commands') ----- sendContentsToPrinter + self handleEdit: [textMorph editor sendContentsToPrinterWithLabel: owner knownName]! - self handleEdit: [textMorph editor sendContentsToPrinter]! Item was added: + ----- Method: TextEditor>>sendContentsToPrinterWithLabel: (in category 'menu messages') ----- + sendContentsToPrinterWithLabel: label + | textToPrint printer | + textToPrint := paragraph text. + textToPrint size = 0 ifTrue: [^self inform: 'nothing to print.']. + printer := TextPrinter defaultTextPrinter. + printer documentTitle: (label ifNil: ['Untitled']). + printer printText: textToPrint!

1 0

← Newer
1
...
8
9
10
11
12
13
14
...
22
Older →

Jump to page: