Squeak-dev June 2016

squeak-dev@lists.squeakfoundation.org

39 participants
202 discussions

Problems installing seaside in fresh 5.0 AIO
by Casimiro - GMAIL 15 Jun '16

15 Jun '16

Hello, Yesterday I started to configure a new image, for a new project of mine. Surprisingly, seaside failed to install due to problems with OB. Some workaround? Thnx, Casimiro -- The information contained in this message is confidential and intended to the recipients specified in the headers. If you received this message by error, notify the sender immediately. The unauthorized use, disclosure, copy or alteration of this message are strictly forbidden and subjected to civil and criminal sanctions. == This email may be signed using PGP key *ID: 0x4134A417*

1 0

Re: [squeak-dev] The Trunk: Graphics-lpc.350.mcz
by Eliot Miranda 15 Jun '16

15 Jun '16

Laura, great to see this. Thank you for your energy!! and welcome. On Wed, Jun 15, 2016 at 10:01 AM, <commits(a)source.squeak.org> wrote: > Laura Perez Cerrato uploaded a new version of Graphics to project The > Trunk: > http://source.squeak.org/trunk/Graphics-lpc.350.mcz > > ==================== Summary ==================== > > Name: Graphics-lpc.350 > Author: lpc > Time: 15 June 2016, 2:00:37.274582 pm > UUID: 5d02a1bd-65f6-469c-b8b5-456e1dfef5eb > Ancestors: Graphics-mt.349 > > Support for both the current version and the new version of > JPEGReadWriter2Plugin > > =============== Diff against Graphics-mt.349 =============== > > Item was changed: > Form subclass: #ColorForm > instanceVariableNames: 'colors cachedDepth cachedColormap' > classVariableNames: '' > poolDictionaries: '' > category: 'Graphics-Display Objects'! > + ColorForm class > + instanceVariableNames: 'grayScalePalette'! > > !ColorForm commentStamp: '<historical>' prior: 0! > ColorForm is a normal Form plus a color map of up to 2^depth Colors. > Typically, one reserves one entry in the color map for transparent. This > allows 1, 3, 15, or 255 non-transparent colors in ColorForms of depths 1, > 2, 4, and 8 bits per pixel. ColorForms don't support depths greater than 8 > bits because that would require excessively large color maps with little > real benefit, since 16-bit and 32-bit depths already support thousands and > millions of colors. > > ColorForms have several uses: > 1) Precise colors. You can have up to 256 true colors, instead being > limited to the 8-bit color palette. > 2) Easy transparency. Just store (Color transparent) at the desired > position in the color map. > 3) Cheap color remapping by changing the color map. > > A color map is an Array of up to 2^depth Color objects. A Bitmap > colorMap is automatically computed and cached for rapid display. Note that > if you change the color map, you must resubmit it via the colors: method to > flush this cache. > > ColorForms can be a bit tricky. Note that: > a) When you BitBlt from one ColorForm to another, you must remember to > copy the color map of the source ColorForm to the destination ColorForm. > b) A ColorForm's color map is an array of depth-independent Color > objects. BitBlt requires a BitMap of actual pixel values, adjusted to the > destination depth. These are different things!! ColorForms automatically > maintain a cache of the BitBlt-style color map corresponding to the colors > array for the last depth on which the ColorForm was displayed, so there > should be little need for clients to work with BitBlt-style color maps. > c) The default map for 8 bit depth has black in the first entry, not > transparent. Say (cform colors at: 1 put: Color transparent). > ! > + ColorForm class > + instanceVariableNames: 'grayScalePalette'! > > Item was added: > + ----- Method: ColorForm class>>grayScalePalette (in category > 'constants') ----- > + grayScalePalette > + grayScalePalette ifNil: [ > + grayScalePalette := (0 to: 255) collect: [:brightness | > Color gray: brightness asFloat / 255.0]. > + grayScalePalette at: 1 put: Color transparent]. > + ^ grayScalePalette! > > Item was added: > + ----- Method: ColorForm>>isGrayScale (in category 'testing') ----- > + isGrayScale > + ^ self colors = ColorForm grayScalePalette.! > > Item was changed: > ----- Method: Form>>asGrayScale (in category 'converting') ----- > asGrayScale > "Assume the receiver is a grayscale image. Return a grayscale > ColorForm computed by extracting the brightness levels of one color > component. This technique allows a 32-bit Form to be converted to an 8-bit > ColorForm to save space while retaining a full 255 levels of gray. (The > usual colormapping technique quantizes to 8, 16, or 32 levels, which loses > information.)" > + | f32 srcForm result map bb | > - | f32 srcForm result map bb grays | > self depth = 32 ifFalse: [ > f32 := Form extent: width@height depth: 32. > self displayOn: f32. > ^ f32 asGrayScale]. > self unhibernate. > srcForm := Form extent: (width * 4)@height depth: 8. > srcForm bits: bits. > result := ColorForm extent: width@height depth: 8. > map := Bitmap new: 256. > 2 to: 256 do: [:i | map at: i put: i - 1]. > map at: 1 put: 1. "map zero pixel values to near-black" > bb := (BitBlt toForm: result) > sourceForm: srcForm; > combinationRule: Form over; > colorMap: map. > 0 to: width - 1 do: [:dstX | > bb sourceRect: (((dstX * 4) + 2)@0 extent: 1@height); > destOrigin: dstX@0; > copyBits]. > > "final BitBlt to zero-out pixels that were truely transparent in > the original" > map := Bitmap new: 512. > map at: 1 put: 16rFF. > (BitBlt toForm: result) > sourceForm: self; > sourceRect: self boundingBox; > destOrigin: 0@0; > combinationRule: Form erase; > colorMap: map; > copyBits. > > + > + result colors: ColorForm grayScalePalette. > - grays := (0 to: 255) collect: [:brightness | Color gray: > brightness asFloat / 255.0]. > - grays at: 1 put: Color transparent. > - result colors: grays. > ^ result > ! > > Item was added: > + ----- Method: Form>>isGrayScale (in category 'testing') ----- > + isGrayScale > + ^ false! > > Item was changed: > ----- Method: JPEGReadWriter2>>compress:quality: (in category 'public > access') ----- > compress: aForm quality: quality > + "Encode the given Form and answer the compressed ByteArray. > Quality goes from 0 (low) to 100 (high), where -1 means default. > + We can only compress: > + * 32-bit deep Forms > + * -32-bit deep Forms > + * 16-bit deep Forms > + * -16-bit deep Forms > + * GrayScale ColorForms (see #isGrayScale)" > - "Encode the given Form and answer the compressed ByteArray. > Quality goes from 0 (low) to 100 (high), where -1 means default." > - > | sourceForm jpegCompressStruct jpegErrorMgr2Struct buffer > byteCount | > + > aForm unhibernate. > + > + sourceForm := self supports8BitGrayscaleJPEGs > + ifTrue: [ > + (aForm depth = 32) | (aForm depth = 16) | (aForm > isGrayScale) > + ifTrue: [aForm] > + ifFalse: [aForm asFormOfDepth: 32 ]] > + ifFalse: [ > + (aForm nativeDepth > 0) & ((aForm depth = 32) | > ((aForm depth = 16) & (aForm width even))) > + ifTrue: [aForm] > + ifFalse: [aForm asFormOfDepth: 32 ]]. > + > - "odd width images of depth 16 give problems; avoid them." > - sourceForm := (aForm depth = 32) | (aForm width even & (aForm > depth = 16)) > - ifTrue: [aForm] > - ifFalse: [aForm asFormOfDepth: 32]. > jpegCompressStruct := ByteArray new: self > primJPEGCompressStructSize. > jpegErrorMgr2Struct := ByteArray new: self > primJPEGErrorMgr2StructSize. > buffer := ByteArray new: sourceForm width * sourceForm height + > 1024. > byteCount := self primJPEGWriteImage: jpegCompressStruct > onByteArray: buffer > form: sourceForm > quality: quality > progressiveJPEG: false > errorMgr: jpegErrorMgr2Struct. > byteCount = 0 ifTrue: [self error: 'buffer too small for > compressed data']. > ^ buffer copyFrom: 1 to: byteCount > ! > > Item was changed: > ----- Method: JPEGReadWriter2>>nextImageSuggestedDepth: (in category > 'public access') ----- > + nextImageSuggestedDepth: suggestedDepth > + "Decode and answer a Form of the given depth from my stream. Close > the stream if it is a file stream. > + We can read RGB JPEGs into: > + * 32-bit Forms > + * -32-bit Forms > + * 16-bit Forms (with or without dithering!!) > + * -16-bit Forms (with or without dithering!!) > + We can read grayscale JPEGs into: > + * 32-bit Forms > + * -32-bit Forms > + * 16-bit Forms (with or without dithering!!) > + * -16-bit Forms (with or without dithering!!) > + * 8-bit grayScale ColorForms (see #isGrayScale) > + * -8-bit grayScale ColorForms (see #isGrayScale)" > - nextImageSuggestedDepth: depth > - "Decode and answer a Form of the given depth from my stream. Close > the stream if it is a file stream. Possible depths are 16-bit and 32-bit." > > + | bytes width height components form jpegDecompressStruct > jpegErrorMgr2Struct | > - | bytes width height form jpegDecompressStruct jpegErrorMgr2Struct > depthToUse | > bytes := stream upToEnd. > stream close. > jpegDecompressStruct := ByteArray new: self > primJPEGDecompressStructSize. > jpegErrorMgr2Struct := ByteArray new: self > primJPEGErrorMgr2StructSize. > self > primJPEGReadHeader: jpegDecompressStruct > fromByteArray: bytes > errorMgr: jpegErrorMgr2Struct. > width := self primImageWidth: jpegDecompressStruct. > height := self primImageHeight: jpegDecompressStruct. > + components := self primImageNumComponents: jpegDecompressStruct. > + form := > + self supports8BitGrayscaleJPEGs > + ifTrue: [ > + components = 3 > + ifTrue: [ Form extent: width@height > depth: suggestedDepth ] > + ifFalse: [ (Form extent: > width@height depth: suggestedDepth) asGrayScale ]] > + ifFalse: [ > + Form > + extent: width@height > + depth: > + (suggestedDepth = 32 > + ifTrue: [ 32 ] > + ifFalse: [ > + > ((suggestedDepth = 16) & (width even)) > + > ifTrue: [ 16 ] > + > ifFalse: [ 32 ]])]. > + > - "Odd width images of depth 16 gave problems. Avoid them (or check > carefully!!)" > - depthToUse := ((depth = 32) | width odd) ifTrue: [32] ifFalse: > [16]. > - form := Form extent: width@height depth: depthToUse. > - (width = 0 or: [height = 0]) ifTrue: [^ form]. > self > primJPEGReadImage: jpegDecompressStruct > fromByteArray: bytes > onForm: form > doDithering: true > errorMgr: jpegErrorMgr2Struct. > + ^ form! > - ^ form > - ! > > Item was changed: > ----- Method: JPEGReadWriter2>>nextPutImage:quality:progressiveJPEG: (in > category 'public access') ----- > nextPutImage: aForm quality: quality progressiveJPEG: progressiveFlag > + "Encode the given Form on my stream with the given settings. > Quality goes from 0 (low) to 100 (high), where -1 means default. If > progressiveFlag is true, encode as a progressive JPEG. > + We can compress: > + * 32-bit deep Forms > + * -32-bit deep Forms > + * 16-bit deep > + * -16-bit deep > + * GrayScale ColorForms (see #isGrayScale)" > - "Encode the given Form on my stream with the given settings. > Quality goes from 0 (low) to 100 (high), where -1 means default. If > progressiveFlag is true, encode as a progressive JPEG." > > | sourceForm jpegCompressStruct jpegErrorMgr2Struct buffer > byteCount | > + > aForm unhibernate. > + > + sourceForm := self supports8BitGrayscaleJPEGs > + ifTrue: [ > + (aForm depth = 32) | (aForm depth = 16) | (aForm > isGrayScale) > + ifTrue: [aForm] > + ifFalse: [aForm asFormOfDepth: 32 ]] > + ifFalse: [ > + (aForm nativeDepth > 0) & ((aForm depth = 32) | > ((aForm depth = 16) & (aForm width even))) > + ifTrue: [aForm] > + ifFalse: [aForm asFormOfDepth: 32 ]]. > + > - "odd width images of depth 16 give problems; avoid them." > - sourceForm := (aForm depth = 32) | (aForm width even & (aForm > depth = 16)) > - ifTrue: [aForm] > - ifFalse: [aForm asFormOfDepth: 32]. > jpegCompressStruct := ByteArray new: self > primJPEGCompressStructSize. > jpegErrorMgr2Struct := ByteArray new: self > primJPEGErrorMgr2StructSize. > buffer := ByteArray new: sourceForm width * sourceForm height + > 1024. > "Try to write the image. Retry with a larger buffer if needed." > [ > byteCount := self primJPEGWriteImage: jpegCompressStruct > onByteArray: buffer > form: sourceForm > quality: quality > progressiveJPEG: progressiveFlag > errorMgr: jpegErrorMgr2Struct. > byteCount = 0 and: [ buffer size < (sourceForm width * > sourceForm height * 3 + 1024) ] ] > whileTrue: [ buffer := ByteArray new: buffer size > * 2 ]. > byteCount = 0 ifTrue: [ self error: 'buffer too small for > compressed data' ]. > stream next: byteCount putAll: buffer startingAt: 1. > self close. > ! > > Item was added: > + ----- Method: JPEGReadWriter2>>primImageNumComponents: (in category > 'primitives') ----- > + primImageNumComponents: aJPEGDecompressStruct > + > + <primitive: 'primImageNumComponents' module: > 'JPEGReadWriter2Plugin'> > + ^ 3! > > Item was added: > + ----- Method: JPEGReadWriter2>>primSupports8BitGrayscaleJPEGs (in > category 'primitives') ----- > + primSupports8BitGrayscaleJPEGs > + <primitive: 'primSupports8BitGrayscaleJPEGs' module: > 'JPEGReadWriter2Plugin'> > + ^ false! > > Item was added: > + ----- Method: JPEGReadWriter2>>supports8BitGrayscaleJPEGs (in category > 'testing') ----- > + supports8BitGrayscaleJPEGs > + ^ self primSupports8BitGrayscaleJPEGs! > > Item was changed: > ----- Method: JPEGReadWriter2>>uncompress:into: (in category 'public > access') ----- > uncompress: aByteArray into: aForm > + ^ self uncompress: aByteArray into: aForm doDithering: true > - "Uncompress an image from the given ByteArray into the given Form. > - Fails if the given Form has the wrong dimensions or depth. > - If aForm has depth 16, do ordered dithering." > - > - | jpegDecompressStruct jpegErrorMgr2Struct w h | > - aForm unhibernate. > - jpegDecompressStruct := ByteArray new: self > primJPEGDecompressStructSize. > - jpegErrorMgr2Struct := ByteArray new: self > primJPEGErrorMgr2StructSize. > - self > - primJPEGReadHeader: jpegDecompressStruct > - fromByteArray: aByteArray > - errorMgr: jpegErrorMgr2Struct. > - w := self primImageWidth: jpegDecompressStruct. > - h := self primImageHeight: jpegDecompressStruct. > - ((aForm width = w) & (aForm height = h)) ifFalse: [ > - ^ self error: 'form dimensions do not match']. > - > - "odd width images of depth 16 give problems; avoid them" > - w odd > - ifTrue: [ > - aForm depth = 32 ifFalse: [^ self error: 'must use > depth 32 with odd width']] > - ifFalse: [ > - ((aForm depth = 16) | (aForm depth = 32)) ifFalse: > [^ self error: 'must use depth 16 or 32']]. > - > - self primJPEGReadImage: jpegDecompressStruct > - fromByteArray: aByteArray > - onForm: aForm > - doDithering: true > - errorMgr: jpegErrorMgr2Struct. > ! > > Item was changed: > ----- Method: JPEGReadWriter2>>uncompress:into:doDithering: (in category > 'public access') ----- > uncompress: aByteArray into: aForm doDithering: ditherFlag > "Uncompress an image from the given ByteArray into the given Form. > Fails if the given Form has the wrong dimensions or depth. > + We can read RGB JPEGs into: > + * 32-bit Forms > + * -32-bit Forms > + * 16-bit Forms (with or without dithering!!) > + * -16-bit Forms (with or without dithering!!) > + We can read grayscale JPEGs into: > + * 32-bit Forms > + * -32-bit Forms > + * 16-bit Forms (with or without dithering!!) > + * -16-bit Forms (with or without dithering!!) > + * 8-bit grayScale ColorForms (see #isGrayScale) > + * -8-bit grayScale ColorForms (see #isGrayScale)" > - If aForm has depth 16 and ditherFlag = true, do ordered dithering." > > + | jpegDecompressStruct jpegErrorMgr2Struct width height components > | > + > - | jpegDecompressStruct jpegErrorMgr2Struct w h | > aForm unhibernate. > + > jpegDecompressStruct := ByteArray new: self > primJPEGDecompressStructSize. > jpegErrorMgr2Struct := ByteArray new: self > primJPEGErrorMgr2StructSize. > self > primJPEGReadHeader: jpegDecompressStruct > fromByteArray: aByteArray > errorMgr: jpegErrorMgr2Struct. > + width := self primImageWidth: jpegDecompressStruct. > + height := self primImageHeight: jpegDecompressStruct. > + components := self primImageNumComponents: jpegDecompressStruct. > + > + ((aForm width = width) & (aForm height = height)) ifFalse: [ > + ^ self error: 'form dimensions do not match' ]. > + self supports8BitGrayscaleJPEGs > - w := self primImageWidth: jpegDecompressStruct. > - h := self primImageHeight: jpegDecompressStruct. > - ((aForm width = w) & (aForm height = h)) ifFalse: [ > - ^ self error: 'form dimensions do not match']. > - > - "odd width images of depth 16 give problems; avoid them" > - w odd > ifTrue: [ > + components = 3 > + ifTrue: [ > + aForm depth = 8 > + ifTrue: [ ^ self error: > 'Cannot uncompress multi-channel JPEGs into 8-bit deep forms' ]]. > + components = 1 > + ifTrue: [ > + aForm depth = 8 > + ifTrue: [ > + aForm isGrayScale > + ifFalse: [ > ^ self error: 'Cannot uncompress single-channel JPEGs into 8-bit deep forms > that are not grayscale' ]]]] > + > - aForm depth = 32 ifFalse: [^ self error: 'must use > depth 32 with odd width']] > ifFalse: [ > + aForm nativeDepth < 0 > + ifTrue: [ ^ self error: 'Current plugin > version doesn''t support uncompressing JPEGs into little-endian forms' ] > + ifFalse: [ > + aForm depth = 16 > + ifTrue: [ > + width odd > + ifTrue: [ > ^ self error: 'Current plugin version doesn''t support uncompressing JPEGs > with an odd width into 16-bit deep forms' ]]. > + aForm depth = 8 > + ifTrue: [ ^ self error: > 'Current plugin version doesn''t support uncompressing JPEGs into 8-bit > deep forms' ]]]. > - ((aForm depth = 16) | (aForm depth = 32)) ifFalse: > [^ self error: 'must use depth 16 or 32']]. > > self primJPEGReadImage: jpegDecompressStruct > fromByteArray: aByteArray > onForm: aForm > doDithering: ditherFlag > errorMgr: jpegErrorMgr2Struct. > ! > > > -- _,,,^..^,,,_ best, Eliot

1 0

Re: The Trunk: Graphics-lpc.350.mcz
by marcel.taeumel 15 Jun '16

15 Jun '16

Welcome in the team! :) Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Graphics-lpc-350-mcz-tp4901052p4901064.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

The Trunk: Graphics-lpc.350.mcz
by commits＠source.squeak.org 15 Jun '16

15 Jun '16

Laura Perez Cerrato uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-lpc.350.mcz ==================== Summary ==================== Name: Graphics-lpc.350 Author: lpc Time: 15 June 2016, 2:00:37.274582 pm UUID: 5d02a1bd-65f6-469c-b8b5-456e1dfef5eb Ancestors: Graphics-mt.349 Support for both the current version and the new version of JPEGReadWriter2Plugin =============== Diff against Graphics-mt.349 =============== Item was changed: Form subclass: #ColorForm instanceVariableNames: 'colors cachedDepth cachedColormap' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Display Objects'! + ColorForm class + instanceVariableNames: 'grayScalePalette'! !ColorForm commentStamp: '<historical>' prior: 0! ColorForm is a normal Form plus a color map of up to 2^depth Colors. Typically, one reserves one entry in the color map for transparent. This allows 1, 3, 15, or 255 non-transparent colors in ColorForms of depths 1, 2, 4, and 8 bits per pixel. ColorForms don't support depths greater than 8 bits because that would require excessively large color maps with little real benefit, since 16-bit and 32-bit depths already support thousands and millions of colors. ColorForms have several uses: 1) Precise colors. You can have up to 256 true colors, instead being limited to the 8-bit color palette. 2) Easy transparency. Just store (Color transparent) at the desired position in the color map. 3) Cheap color remapping by changing the color map. A color map is an Array of up to 2^depth Color objects. A Bitmap colorMap is automatically computed and cached for rapid display. Note that if you change the color map, you must resubmit it via the colors: method to flush this cache. ColorForms can be a bit tricky. Note that: a) When you BitBlt from one ColorForm to another, you must remember to copy the color map of the source ColorForm to the destination ColorForm. b) A ColorForm's color map is an array of depth-independent Color objects. BitBlt requires a BitMap of actual pixel values, adjusted to the destination depth. These are different things!! ColorForms automatically maintain a cache of the BitBlt-style color map corresponding to the colors array for the last depth on which the ColorForm was displayed, so there should be little need for clients to work with BitBlt-style color maps. c) The default map for 8 bit depth has black in the first entry, not transparent. Say (cform colors at: 1 put: Color transparent). ! + ColorForm class + instanceVariableNames: 'grayScalePalette'! Item was added: + ----- Method: ColorForm class>>grayScalePalette (in category 'constants') ----- + grayScalePalette + grayScalePalette ifNil: [ + grayScalePalette := (0 to: 255) collect: [:brightness | Color gray: brightness asFloat / 255.0]. + grayScalePalette at: 1 put: Color transparent]. + ^ grayScalePalette! Item was added: + ----- Method: ColorForm>>isGrayScale (in category 'testing') ----- + isGrayScale + ^ self colors = ColorForm grayScalePalette.! Item was changed: ----- Method: Form>>asGrayScale (in category 'converting') ----- asGrayScale "Assume the receiver is a grayscale image. Return a grayscale ColorForm computed by extracting the brightness levels of one color component. This technique allows a 32-bit Form to be converted to an 8-bit ColorForm to save space while retaining a full 255 levels of gray. (The usual colormapping technique quantizes to 8, 16, or 32 levels, which loses information.)" + | f32 srcForm result map bb | - | f32 srcForm result map bb grays | self depth = 32 ifFalse: [ f32 := Form extent: width@height depth: 32. self displayOn: f32. ^ f32 asGrayScale]. self unhibernate. srcForm := Form extent: (width * 4)@height depth: 8. srcForm bits: bits. result := ColorForm extent: width@height depth: 8. map := Bitmap new: 256. 2 to: 256 do: [:i | map at: i put: i - 1]. map at: 1 put: 1. "map zero pixel values to near-black" bb := (BitBlt toForm: result) sourceForm: srcForm; combinationRule: Form over; colorMap: map. 0 to: width - 1 do: [:dstX | bb sourceRect: (((dstX * 4) + 2)@0 extent: 1@height); destOrigin: dstX@0; copyBits]. "final BitBlt to zero-out pixels that were truely transparent in the original" map := Bitmap new: 512. map at: 1 put: 16rFF. (BitBlt toForm: result) sourceForm: self; sourceRect: self boundingBox; destOrigin: 0@0; combinationRule: Form erase; colorMap: map; copyBits. + + result colors: ColorForm grayScalePalette. - grays := (0 to: 255) collect: [:brightness | Color gray: brightness asFloat / 255.0]. - grays at: 1 put: Color transparent. - result colors: grays. ^ result ! Item was added: + ----- Method: Form>>isGrayScale (in category 'testing') ----- + isGrayScale + ^ false! Item was changed: ----- Method: JPEGReadWriter2>>compress:quality: (in category 'public access') ----- compress: aForm quality: quality + "Encode the given Form and answer the compressed ByteArray. Quality goes from 0 (low) to 100 (high), where -1 means default. + We can only compress: + * 32-bit deep Forms + * -32-bit deep Forms + * 16-bit deep Forms + * -16-bit deep Forms + * GrayScale ColorForms (see #isGrayScale)" - "Encode the given Form and answer the compressed ByteArray. Quality goes from 0 (low) to 100 (high), where -1 means default." - | sourceForm jpegCompressStruct jpegErrorMgr2Struct buffer byteCount | + aForm unhibernate. + + sourceForm := self supports8BitGrayscaleJPEGs + ifTrue: [ + (aForm depth = 32) | (aForm depth = 16) | (aForm isGrayScale) + ifTrue: [aForm] + ifFalse: [aForm asFormOfDepth: 32 ]] + ifFalse: [ + (aForm nativeDepth > 0) & ((aForm depth = 32) | ((aForm depth = 16) & (aForm width even))) + ifTrue: [aForm] + ifFalse: [aForm asFormOfDepth: 32 ]]. + - "odd width images of depth 16 give problems; avoid them." - sourceForm := (aForm depth = 32) | (aForm width even & (aForm depth = 16)) - ifTrue: [aForm] - ifFalse: [aForm asFormOfDepth: 32]. jpegCompressStruct := ByteArray new: self primJPEGCompressStructSize. jpegErrorMgr2Struct := ByteArray new: self primJPEGErrorMgr2StructSize. buffer := ByteArray new: sourceForm width * sourceForm height + 1024. byteCount := self primJPEGWriteImage: jpegCompressStruct onByteArray: buffer form: sourceForm quality: quality progressiveJPEG: false errorMgr: jpegErrorMgr2Struct. byteCount = 0 ifTrue: [self error: 'buffer too small for compressed data']. ^ buffer copyFrom: 1 to: byteCount ! Item was changed: ----- Method: JPEGReadWriter2>>nextImageSuggestedDepth: (in category 'public access') ----- + nextImageSuggestedDepth: suggestedDepth + "Decode and answer a Form of the given depth from my stream. Close the stream if it is a file stream. + We can read RGB JPEGs into: + * 32-bit Forms + * -32-bit Forms + * 16-bit Forms (with or without dithering!!) + * -16-bit Forms (with or without dithering!!) + We can read grayscale JPEGs into: + * 32-bit Forms + * -32-bit Forms + * 16-bit Forms (with or without dithering!!) + * -16-bit Forms (with or without dithering!!) + * 8-bit grayScale ColorForms (see #isGrayScale) + * -8-bit grayScale ColorForms (see #isGrayScale)" - nextImageSuggestedDepth: depth - "Decode and answer a Form of the given depth from my stream. Close the stream if it is a file stream. Possible depths are 16-bit and 32-bit." + | bytes width height components form jpegDecompressStruct jpegErrorMgr2Struct | - | bytes width height form jpegDecompressStruct jpegErrorMgr2Struct depthToUse | bytes := stream upToEnd. stream close. jpegDecompressStruct := ByteArray new: self primJPEGDecompressStructSize. jpegErrorMgr2Struct := ByteArray new: self primJPEGErrorMgr2StructSize. self primJPEGReadHeader: jpegDecompressStruct fromByteArray: bytes errorMgr: jpegErrorMgr2Struct. width := self primImageWidth: jpegDecompressStruct. height := self primImageHeight: jpegDecompressStruct. + components := self primImageNumComponents: jpegDecompressStruct. + form := + self supports8BitGrayscaleJPEGs + ifTrue: [ + components = 3 + ifTrue: [ Form extent: width@height depth: suggestedDepth ] + ifFalse: [ (Form extent: width@height depth: suggestedDepth) asGrayScale ]] + ifFalse: [ + Form + extent: width@height + depth: + (suggestedDepth = 32 + ifTrue: [ 32 ] + ifFalse: [ + ((suggestedDepth = 16) & (width even)) + ifTrue: [ 16 ] + ifFalse: [ 32 ]])]. + - "Odd width images of depth 16 gave problems. Avoid them (or check carefully!!)" - depthToUse := ((depth = 32) | width odd) ifTrue: [32] ifFalse: [16]. - form := Form extent: width@height depth: depthToUse. - (width = 0 or: [height = 0]) ifTrue: [^ form]. self primJPEGReadImage: jpegDecompressStruct fromByteArray: bytes onForm: form doDithering: true errorMgr: jpegErrorMgr2Struct. + ^ form! - ^ form - ! Item was changed: ----- Method: JPEGReadWriter2>>nextPutImage:quality:progressiveJPEG: (in category 'public access') ----- nextPutImage: aForm quality: quality progressiveJPEG: progressiveFlag + "Encode the given Form on my stream with the given settings. Quality goes from 0 (low) to 100 (high), where -1 means default. If progressiveFlag is true, encode as a progressive JPEG. + We can compress: + * 32-bit deep Forms + * -32-bit deep Forms + * 16-bit deep + * -16-bit deep + * GrayScale ColorForms (see #isGrayScale)" - "Encode the given Form on my stream with the given settings. Quality goes from 0 (low) to 100 (high), where -1 means default. If progressiveFlag is true, encode as a progressive JPEG." | sourceForm jpegCompressStruct jpegErrorMgr2Struct buffer byteCount | + aForm unhibernate. + + sourceForm := self supports8BitGrayscaleJPEGs + ifTrue: [ + (aForm depth = 32) | (aForm depth = 16) | (aForm isGrayScale) + ifTrue: [aForm] + ifFalse: [aForm asFormOfDepth: 32 ]] + ifFalse: [ + (aForm nativeDepth > 0) & ((aForm depth = 32) | ((aForm depth = 16) & (aForm width even))) + ifTrue: [aForm] + ifFalse: [aForm asFormOfDepth: 32 ]]. + - "odd width images of depth 16 give problems; avoid them." - sourceForm := (aForm depth = 32) | (aForm width even & (aForm depth = 16)) - ifTrue: [aForm] - ifFalse: [aForm asFormOfDepth: 32]. jpegCompressStruct := ByteArray new: self primJPEGCompressStructSize. jpegErrorMgr2Struct := ByteArray new: self primJPEGErrorMgr2StructSize. buffer := ByteArray new: sourceForm width * sourceForm height + 1024. "Try to write the image. Retry with a larger buffer if needed." [ byteCount := self primJPEGWriteImage: jpegCompressStruct onByteArray: buffer form: sourceForm quality: quality progressiveJPEG: progressiveFlag errorMgr: jpegErrorMgr2Struct. byteCount = 0 and: [ buffer size < (sourceForm width * sourceForm height * 3 + 1024) ] ] whileTrue: [ buffer := ByteArray new: buffer size * 2 ]. byteCount = 0 ifTrue: [ self error: 'buffer too small for compressed data' ]. stream next: byteCount putAll: buffer startingAt: 1. self close. ! Item was added: + ----- Method: JPEGReadWriter2>>primImageNumComponents: (in category 'primitives') ----- + primImageNumComponents: aJPEGDecompressStruct + + <primitive: 'primImageNumComponents' module: 'JPEGReadWriter2Plugin'> + ^ 3! Item was added: + ----- Method: JPEGReadWriter2>>primSupports8BitGrayscaleJPEGs (in category 'primitives') ----- + primSupports8BitGrayscaleJPEGs + <primitive: 'primSupports8BitGrayscaleJPEGs' module: 'JPEGReadWriter2Plugin'> + ^ false! Item was added: + ----- Method: JPEGReadWriter2>>supports8BitGrayscaleJPEGs (in category 'testing') ----- + supports8BitGrayscaleJPEGs + ^ self primSupports8BitGrayscaleJPEGs! Item was changed: ----- Method: JPEGReadWriter2>>uncompress:into: (in category 'public access') ----- uncompress: aByteArray into: aForm + ^ self uncompress: aByteArray into: aForm doDithering: true - "Uncompress an image from the given ByteArray into the given Form. - Fails if the given Form has the wrong dimensions or depth. - If aForm has depth 16, do ordered dithering." - - | jpegDecompressStruct jpegErrorMgr2Struct w h | - aForm unhibernate. - jpegDecompressStruct := ByteArray new: self primJPEGDecompressStructSize. - jpegErrorMgr2Struct := ByteArray new: self primJPEGErrorMgr2StructSize. - self - primJPEGReadHeader: jpegDecompressStruct - fromByteArray: aByteArray - errorMgr: jpegErrorMgr2Struct. - w := self primImageWidth: jpegDecompressStruct. - h := self primImageHeight: jpegDecompressStruct. - ((aForm width = w) & (aForm height = h)) ifFalse: [ - ^ self error: 'form dimensions do not match']. - - "odd width images of depth 16 give problems; avoid them" - w odd - ifTrue: [ - aForm depth = 32 ifFalse: [^ self error: 'must use depth 32 with odd width']] - ifFalse: [ - ((aForm depth = 16) | (aForm depth = 32)) ifFalse: [^ self error: 'must use depth 16 or 32']]. - - self primJPEGReadImage: jpegDecompressStruct - fromByteArray: aByteArray - onForm: aForm - doDithering: true - errorMgr: jpegErrorMgr2Struct. ! Item was changed: ----- Method: JPEGReadWriter2>>uncompress:into:doDithering: (in category 'public access') ----- uncompress: aByteArray into: aForm doDithering: ditherFlag "Uncompress an image from the given ByteArray into the given Form. Fails if the given Form has the wrong dimensions or depth. + We can read RGB JPEGs into: + * 32-bit Forms + * -32-bit Forms + * 16-bit Forms (with or without dithering!!) + * -16-bit Forms (with or without dithering!!) + We can read grayscale JPEGs into: + * 32-bit Forms + * -32-bit Forms + * 16-bit Forms (with or without dithering!!) + * -16-bit Forms (with or without dithering!!) + * 8-bit grayScale ColorForms (see #isGrayScale) + * -8-bit grayScale ColorForms (see #isGrayScale)" - If aForm has depth 16 and ditherFlag = true, do ordered dithering." + | jpegDecompressStruct jpegErrorMgr2Struct width height components | + - | jpegDecompressStruct jpegErrorMgr2Struct w h | aForm unhibernate. + jpegDecompressStruct := ByteArray new: self primJPEGDecompressStructSize. jpegErrorMgr2Struct := ByteArray new: self primJPEGErrorMgr2StructSize. self primJPEGReadHeader: jpegDecompressStruct fromByteArray: aByteArray errorMgr: jpegErrorMgr2Struct. + width := self primImageWidth: jpegDecompressStruct. + height := self primImageHeight: jpegDecompressStruct. + components := self primImageNumComponents: jpegDecompressStruct. + + ((aForm width = width) & (aForm height = height)) ifFalse: [ + ^ self error: 'form dimensions do not match' ]. + self supports8BitGrayscaleJPEGs - w := self primImageWidth: jpegDecompressStruct. - h := self primImageHeight: jpegDecompressStruct. - ((aForm width = w) & (aForm height = h)) ifFalse: [ - ^ self error: 'form dimensions do not match']. - - "odd width images of depth 16 give problems; avoid them" - w odd ifTrue: [ + components = 3 + ifTrue: [ + aForm depth = 8 + ifTrue: [ ^ self error: 'Cannot uncompress multi-channel JPEGs into 8-bit deep forms' ]]. + components = 1 + ifTrue: [ + aForm depth = 8 + ifTrue: [ + aForm isGrayScale + ifFalse: [ ^ self error: 'Cannot uncompress single-channel JPEGs into 8-bit deep forms that are not grayscale' ]]]] + - aForm depth = 32 ifFalse: [^ self error: 'must use depth 32 with odd width']] ifFalse: [ + aForm nativeDepth < 0 + ifTrue: [ ^ self error: 'Current plugin version doesn''t support uncompressing JPEGs into little-endian forms' ] + ifFalse: [ + aForm depth = 16 + ifTrue: [ + width odd + ifTrue: [ ^ self error: 'Current plugin version doesn''t support uncompressing JPEGs with an odd width into 16-bit deep forms' ]]. + aForm depth = 8 + ifTrue: [ ^ self error: 'Current plugin version doesn''t support uncompressing JPEGs into 8-bit deep forms' ]]]. - ((aForm depth = 16) | (aForm depth = 32)) ifFalse: [^ self error: 'must use depth 16 or 32']]. self primJPEGReadImage: jpegDecompressStruct fromByteArray: aByteArray onForm: aForm doDithering: ditherFlag errorMgr: jpegErrorMgr2Struct. !

1 0

Re: [squeak-dev] The Trunk: Morphic-mt.1181.mcz
by Chris Muller 15 Jun '16

15 Jun '16

Great! And if it is necessary to create a new Event to extend attributes of an original Event, it could wrap it. I always felt Event data should be basically immutable.. On Wed, Jun 15, 2016 at 4:20 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.1181.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.1181 > Author: mt > Time: 15 June 2016, 11:20:40.050378 am > UUID: 855f8338-73de-5947-9dc5-99e912d115a2 > Ancestors: Morphic-mt.1180 > > ixes regression in event dispatching and coordinate transformations. Do not reset transformation in the event copy delivered to submorphs. They need those for, e.g., double click, drag-and-drop, etc. > > Our events do, more or less, not change after being created and initialized. The only exception is #wasHandled, #wasIgnored, and #position during event dispatching. Keep it that way. If you plan to change some event state in an event filter, create a new event instead and do not mess around with the current one. > > =============== Diff against Morphic-mt.1180 =============== > > Item was changed: > ----- Method: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: (in category 'private') ----- > dispatchEvent: anEvent toSubmorphsOf: aMorph > + "Dispatch the given event to the submorphs of the given morph. For coordinate transformations, work only with copies. Either return the given event or a copy of any filtered event to employ immutability to some extent. --- PRIVATE!!" > - "Dispatch the given event to the submorphs of the given morph. --- PRIVATE!!" > > + | localEvent filteredEvent | > - | filteredEvent | > aMorph submorphsDo: [:child | > + localEvent := anEvent transformedBy: (child transformedFrom: aMorph). > filteredEvent := child > + processEvent: localEvent > - processEvent: (anEvent transformedBy: (child transformedFrom: aMorph)) > using: self. "use same dispatcher" > + filteredEvent == #rejected ifFalse: [ "some event or #rejected symbol" > + self flag: #overlappingChildren. "mt: We cannot give two overlapping siblings the chance to handle the event!!" > + filteredEvent == localEvent > + ifTrue: [ > + localEvent wasHandled ifTrue: [anEvent copyHandlerState: localEvent]. > + anEvent wasIgnored: localEvent wasIgnored. > + ^ anEvent] > + ifFalse: [ > + filteredEvent := filteredEvent copy. > + filteredEvent translateTo: anEvent position. "restore to untransformed coordinates" > + filteredEvent wasHandled ifFalse: [filteredEvent copyHandlerState: anEvent]. "restore handler if needed" > + ^ filteredEvent]]]. > - filteredEvent == #rejected ifFalse: [ "filteredEvent or #rejected" > - filteredEvent translateTo: anEvent position. "restore to untransformed coordinates" > - filteredEvent wasHandled ifFalse: [filteredEvent copyHandlerState: anEvent]. "restore handler if needed" > - self flag: #overlappingChildren. "mt: We cannot give two overlapping siblings the chance to handle the event!!" > - ^ filteredEvent]]. > > ^ #rejected! > >

1 0

rotated SystemWindows no longer working
by Chris Muller 15 Jun '16

15 Jun '16

When showing someone Squeak, one of the classic "wows" has been rotating a window and showing that it still works -- and explaining that there's not a line of code in the "application" code to make that work, its gotten for free from Morphic. Something since the release has it not work anymore. It seems that a drag-and-drop operation is invoked for a regular red click of a rotated window. It can be seen by attempting to click a class or method on a rotated window..

5 5

The Trunk: Morphic-mt.1181.mcz
by commits＠source.squeak.org 15 Jun '16

15 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1181.mcz ==================== Summary ==================== Name: Morphic-mt.1181 Author: mt Time: 15 June 2016, 11:20:40.050378 am UUID: 855f8338-73de-5947-9dc5-99e912d115a2 Ancestors: Morphic-mt.1180 ixes regression in event dispatching and coordinate transformations. Do not reset transformation in the event copy delivered to submorphs. They need those for, e.g., double click, drag-and-drop, etc. Our events do, more or less, not change after being created and initialized. The only exception is #wasHandled, #wasIgnored, and #position during event dispatching. Keep it that way. If you plan to change some event state in an event filter, create a new event instead and do not mess around with the current one. =============== Diff against Morphic-mt.1180 =============== Item was changed: ----- Method: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: (in category 'private') ----- dispatchEvent: anEvent toSubmorphsOf: aMorph + "Dispatch the given event to the submorphs of the given morph. For coordinate transformations, work only with copies. Either return the given event or a copy of any filtered event to employ immutability to some extent. --- PRIVATE!!" - "Dispatch the given event to the submorphs of the given morph. --- PRIVATE!!" + | localEvent filteredEvent | - | filteredEvent | aMorph submorphsDo: [:child | + localEvent := anEvent transformedBy: (child transformedFrom: aMorph). filteredEvent := child + processEvent: localEvent - processEvent: (anEvent transformedBy: (child transformedFrom: aMorph)) using: self. "use same dispatcher" + filteredEvent == #rejected ifFalse: [ "some event or #rejected symbol" + self flag: #overlappingChildren. "mt: We cannot give two overlapping siblings the chance to handle the event!!" + filteredEvent == localEvent + ifTrue: [ + localEvent wasHandled ifTrue: [anEvent copyHandlerState: localEvent]. + anEvent wasIgnored: localEvent wasIgnored. + ^ anEvent] + ifFalse: [ + filteredEvent := filteredEvent copy. + filteredEvent translateTo: anEvent position. "restore to untransformed coordinates" + filteredEvent wasHandled ifFalse: [filteredEvent copyHandlerState: anEvent]. "restore handler if needed" + ^ filteredEvent]]]. - filteredEvent == #rejected ifFalse: [ "filteredEvent or #rejected" - filteredEvent translateTo: anEvent position. "restore to untransformed coordinates" - filteredEvent wasHandled ifFalse: [filteredEvent copyHandlerState: anEvent]. "restore handler if needed" - self flag: #overlappingChildren. "mt: We cannot give two overlapping siblings the chance to handle the event!!" - ^ filteredEvent]]. ^ #rejected!

1 0

The Trunk: Morphic-mt.1180.mcz
by commits＠source.squeak.org 15 Jun '16

15 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1180.mcz ==================== Summary ==================== Name: Morphic-mt.1180 Author: mt Time: 15 June 2016, 10:37:35.384378 am UUID: 82bb6072-42a5-7d45-afb0-f324d6604079 Ancestors: Morphic-mt.1179 Fixes a regression with event filterung and bubbling in general, which affects events sent to morphs that are submorphs of the hand. Escaping drag-and-drop, for example, where events are sent to the TransferMorph. =============== Diff against Morphic-mt.1179 =============== Item was changed: ----- Method: Morph>>handleFocusEvent: (in category 'events-processing') ----- handleFocusEvent: anEvent "Handle the given event. This message is sent if the receiver currently has the focus and is therefore receiving events directly from some hand. 1) Event bubbling. Do event bubbling known from MorphicEventDispatcher by calling #handleEvent: also on all owners. 2) Event capture filters. Walk along the owner chain in reverse order and apply capture filters as known from MorphicEventDispatcher. If you want to overwrite this in a subclass (for example to implement modal dialogs) ensure to call super instead if #handleEvent: directly." | filteredEvent | filteredEvent := anEvent. "TODO: Add a check to ensure that our event dispatcher is actually of kind MorphicEventDispatcher?!! We do copy its behavior though... like self defaultEventDispatcher class == MorphicEventDispatcher? Or #isKindOf:? Anyway, the outermost morph determines the event dispatcher. See HandMorph >> #sendEvent:focus:clear: and PasteUpMorph >> #processEvent:." "Event capturing. Filters only because the capturing phase was bypassed by using the keyboard/mouse focus." self withAllOwners reverseDo: [:morph | "reverse order to comply with default MorphEventDispatcher" + morph == anEvent hand ifFalse: [ "Fixes drag-and-drop bug." + filteredEvent := morph sendFilterEventCapture: filteredEvent for: morph. + filteredEvent wasIgnored ifTrue: [^ filteredEvent]]]. - filteredEvent := morph sendFilterEventCapture: filteredEvent for: morph. - filteredEvent wasIgnored ifTrue: [^ filteredEvent]]. "Event bubbling. Filters are processed in #handleEvent:." self withAllOwnersDo: [:morph | + morph == anEvent hand ifFalse: [ "Fixes drag-and-drop bug." + filteredEvent := morph handleEvent: filteredEvent. + filteredEvent wasIgnored ifTrue: [^ filteredEvent]]]. - filteredEvent := morph handleEvent: filteredEvent. - filteredEvent wasIgnored ifTrue: [^ filteredEvent]]. ^ filteredEvent!

1 0

The Trunk: Graphics-mt.349.mcz
by commits＠source.squeak.org 15 Jun '16

15 Jun '16

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.349.mcz ==================== Summary ==================== Name: Graphics-mt.349 Author: mt Time: 15 June 2016, 10:17:51.81283 am UUID: d844e07e-8a5e-584b-9705-c09c8a6b34a4 Ancestors: Graphics-topa.348 Improves dark-map rendering of DejaVu Sans. Now, it does not look so bold anymore but is still way more readable on darker backgrounds than the bitmap version is. =============== Diff against Graphics-topa.348 =============== Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldDark12Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldDark14Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldDark17Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldDark20Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldDark7Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldDark9Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldObliqueDark12Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldObliqueDark14Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldObliqueDark17Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldObliqueDark20Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldObliqueDark7Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBoldObliqueDark9Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBookDark12Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBookDark14Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBookDark17Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBookDark20Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBookDark7Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansBookDark9Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansObliqueDark12Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansObliqueDark14Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansObliqueDark17Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansObliqueDark20Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansObliqueDark7Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StrikeFont class>>dejaVuSansObliqueDark9Form (in category 'dejaVu font data') ----- (excessive size, no diff calculated) Item was changed: (PackageInfo named: 'Graphics') postscript: ' " Reset DejaVu to current version " + StrikeFont initialize.'! - [StrikeFont initialize] value.'!

1 0

The Trunk: Morphic-mt.1179.mcz
by commits＠source.squeak.org 15 Jun '16

15 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1179.mcz ==================== Summary ==================== Name: Morphic-mt.1179 Author: mt Time: 15 June 2016, 8:28:59.901896 am UUID: 798fffba-733f-3444-840e-84baabd04da4 Ancestors: Morphic-mt.1178 Add the world's Do-menu to the world main docking bar. Can be hidden via preferences. =============== Diff against Morphic-mt.1178 =============== Item was added: + ----- Method: TheWorldMainDockingBar class>>showDoMenuInWorldMainDockingBar (in category 'preferences') ----- + showDoMenuInWorldMainDockingBar + + <preference: 'Show ''Do'' menu in world main docking bar' + category: 'docking bars' + description: 'Whether world''s main docking bar should show the ''Do'' menu.' + type: #Boolean> + ^ self getMenuPreference: #showDoMenuInWorldMainDockingBar ifAbsent: [true] + ! Item was added: + ----- Method: TheWorldMainDockingBar class>>showDoMenuInWorldMainDockingBar: (in category 'preferences') ----- + showDoMenuInWorldMainDockingBar: aBoolean + + self + setMenuPreference: #showDoMenuInWorldMainDockingBar + to: aBoolean. + ! Item was added: + ----- Method: TheWorldMainDockingBar>>doMenuOn: (in category 'construction') ----- + doMenuOn: aDockingBar + + aDockingBar addItem: [ :item | + item + contents: 'Do' translated; + subMenuUpdater: self + selector: #listCommonRequestsOn: ]! Item was added: + ----- Method: TheWorldMainDockingBar>>listCommonRequestsOn: (in category 'submenu - do') ----- + listCommonRequestsOn: aMenu + + | strings | + strings := Utilities commonRequestStrings contents. + + strings asString linesDo: [:aString | + aString = '-' + ifTrue: [aMenu addLine] + ifFalse: [aMenu add: (aString ifEmpty: [' ']) target: Utilities selector: #eval: argument: aString]]. + + aMenu addLine. + aMenu add: 'edit this list' translated target: Utilities action: #editCommonRequestStrings.! Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- menusOn: aDockingBar self class showMainMenuInWorldMainDockingBar ifTrue: [ self squeakMenuOn: aDockingBar]. self class showProjectsMenuInWorldMainDockingBar ifTrue: [ self projectsMenuOn: aDockingBar]. self class showToolsMenuInWorldMainDockingBar ifTrue: [ self toolsMenuOn: aDockingBar]. self class showAppsMenuInWorldMainDockingBar ifTrue: [ self appsMenuOn: aDockingBar]. + self class showDoMenuInWorldMainDockingBar ifTrue: [ + self doMenuOn: aDockingBar]. + self class showExtrasMenuInWorldMainDockingBar ifTrue: [ self extrasMenuOn: aDockingBar]. self class showWindowsMenuInWorldMainDockingBar ifTrue: [ self windowsMenuOn: aDockingBar]. self class showHelpMenuInWorldMainDockingBar ifTrue: [ self helpMenuOn: aDockingBar].! Item was changed: (PackageInfo named: 'Morphic') postscript: '"Fixes the event handling that occurs in the same control flow after loading this code." HandMorph allInstancesDo: [:ea | ea initForEvents]. "Deploy mouse-wheel event handling to existing scrollpanes and hands." Project allMorphicProjects do: [:morphicProject | morphicProject world handsDo: [:hand | hand addKeyboardCaptureFilter: hand]]. ScrollPane allSubInstancesDo: [:ea | + ea addKeyboardCaptureFilter: ea]. + + "Add Do-menu." + TheWorldMainDockingBar updateInstances.'! - ea addKeyboardCaptureFilter: ea].'!

1 0

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

Jump to page: