Squeak-dev February 2015

squeak-dev@lists.squeakfoundation.org

45 participants
152 discussions

recording sound on *nix via ALSA libs
by tim Rowledge 25 Feb '15

25 Feb '15

I’m attempting to hook up the scratch sound recording on Pi; which amongst other things requires setting up add-on hardware that may or may not work, be comprehendable, or even taste of the correct chocolate . Before I get too lost in trying to work out why things don’t work I would love to know if anyone has been able to use ALSA libs to record on any machine/*nix version/hardware? Just knowing a workable configuration exists would be helpful. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: AII: Add Insult to Injury

3 4

The Inbox: Morphic-cmm.759.mcz
by commits＠source.squeak.org 24 Feb '15

24 Feb '15

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.759.mcz ==================== Summary ==================== Name: Morphic-cmm.759 Author: cmm Time: 24 February 2015, 2:54:22.757 pm UUID: c7ecd89e-da26-47fb-8302-3ccaff6b9b54 Ancestors: Morphic-mt.758 Improved "Auto Enclose" preference to behave like it does in eclipse; when typing the closer (paren / bracket / curly), simply advance the cursor past it rather than insert an additional closer. =============== Diff against Morphic-mt.758 =============== Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- + dispatchOnKeyboardEvent: aKeyboardEvent + "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." + | honorCommandKeys openers closers result typedChar | + ((typedChar := aKeyboardEvent keyCharacter) == Character cr and: [ morph acceptOnCR ]) ifTrue: + [ self closeTypeIn. + ^ true ]. - dispatchOnKeyboardEvent: aKeyboardEvent - "Carry out the action associated with this character, if any. - Type-ahead is passed so some routines can flush or use it." - - | honorCommandKeys openers closers result | - (aKeyboardEvent keyCharacter == Character cr and: [ morph acceptOnCR ]) - ifTrue: [ - self closeTypeIn. - ^ true ]. self clearParens. + aKeyboardEvent keyValue = 13 ifTrue: + [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. + aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. + aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. + ^ self crWithIndent: aKeyboardEvent ]. + ((honorCommandKeys := Preferences cmdKeysInText) and: [ typedChar = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. + "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this - aKeyboardEvent keyValue = 13 - ifTrue: [ - aKeyboardEvent controlKeyPressed - ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. - aKeyboardEvent shiftPressed - ifTrue: [ ^ self lf: aKeyboardEvent ]. - aKeyboardEvent commandKeyPressed - ifTrue: [ ^ self crlf: aKeyboardEvent ]. - ^ self crWithIndent: aKeyboardEvent ]. - ((honorCommandKeys := Preferences cmdKeysInText) and: [ aKeyboardEvent keyCharacter = Character enter ]) - ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." + ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed + ifTrue: + [ self + perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] + ifFalse: + [ self + perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] ]. + "backspace, and escape keys (ascii 8 and 27) are command keys" + ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed + ifTrue: + [ self + perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] + ifFalse: + [ self + perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] ]. + "the control key can be used to invoke shift-cmd shortcuts" + (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [ ^ self + perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ]. - ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) - ifTrue: [ - ^ aKeyboardEvent controlKeyPressed - ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] - ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" - ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) - or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) - ifTrue: [ - ^ aKeyboardEvent shiftPressed - ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] - ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" - (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) - ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. openers := '([{'. closers := ')]}'. + (closers includes: typedChar) + ifTrue: + [ self blinkPrevParen: typedChar. + self nextNonwhitespaceCharacter = typedChar + ifTrue: + [ [self nextNonwhitespaceCharacter = typedChar] whileTrue: [self + moveCursor: [ : position | position + 1 ] + forward: true + select: false ]. + ^ false ] + ifFalse: [ result := self normalCharacter: aKeyboardEvent ] ] + ifFalse: [ result := self normalCharacter: aKeyboardEvent ]. + (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: + [ self + addString: (closers at: (openers indexOf: typedChar)) asString ; + insertTypeAhead ; + + moveCursor: + [ : position | position - 1 ] + forward: false + select: false ]. - result := self normalCharacter: aKeyboardEvent. - (closers includes: aKeyboardEvent keyCharacter) - ifTrue: [ self blinkPrevParen: aKeyboardEvent keyCharacter]. - (self class autoEnclose and: [ openers includes: aKeyboardEvent keyCharacter ]) - ifTrue: [ - self - addString: (closers at: (openers indexOf: aKeyboardEvent keyCharacter)) asString; - insertTypeAhead ; - - moveCursor: [ :position | position - 1 ] - forward: false - select: false ]. ^ result! Item was added: + ----- Method: TextEditor>>nextNonwhitespaceCharacter (in category 'private') ----- + nextNonwhitespaceCharacter + pointBlock stringIndex + to: paragraph string size + do: + [ : n | | char | (char := paragraph string at: n) isSeparator ifFalse: [ ^ char ] ]. + ^ nil!

1 0

Re: [squeak-dev] The Trunk: Morphic-mt.758.mcz
by David T. Lewis 24 Feb '15

24 Feb '15

On Tue, Feb 24, 2015 at 08:12:39AM +0000, 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.758.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.758 > Author: mt > Time: 24 February 2015, 9:12:34.081 am > UUID: ff6992c3-f93d-a444-a7c4-c04be3fd34af > Ancestors: Morphic-mt.757 > > Preferences for gradient* fixed or implemented: Windows, buttons, scrollbars, menus. The gradient fill-styles can now be fully disabled in all standard tools. Default is still "enabled". > Nice. I expect that this will be helpful on slower machines. Dave

4 3

Add tags to preferences to improve the search space?
by Marcel Taeumel 24 Feb '15

24 Feb '15

Hi, there! What about adding tags so that there could be a place to add additional terms for looking up preferences w/o polluting the description yet preference name? Or maybe just replace "category" with "tags"? <preference: 'A short title for the list' tags: 'windows morphic graphics' description: 'A longer description to explain everything...' type: #Boolean> So we could even put preferences into multiple categories. Best, Marcel -- View this message in context: http://forum.world.st/Add-tags-to-preferences-to-improve-the-search-space-t… Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

The Inbox: Graphics-mt.306.mcz
by commits＠source.squeak.org 24 Feb '15

24 Feb '15

Marcel Taeumel uploaded a new version of Graphics to project The Inbox: http://source.squeak.org/inbox/Graphics-mt.306.mcz ==================== Summary ==================== Name: Graphics-mt.306 Author: mt Time: 24 February 2015, 5:35:33.139 pm UUID: 59d79db7-87e0-8c48-945f-67edbd50cbf2 Ancestors: Graphics-kfr.305 Support rounded corners with a radius of 4. Adds a preference to change radius (but still only supports 6 or 4). Not sure, whether the corner rounder should survive in the long term... =============== Diff against Graphics-kfr.305 =============== Item was changed: Object subclass: #CornerRounder instanceVariableNames: 'cornerMasks cornerOverlays underBits' + classVariableNames: 'CR0 CR1 CR2 PreferredRadius' - classVariableNames: 'CR0 CR1 CR2' poolDictionaries: '' category: 'Graphics-Display Objects'! !CornerRounder commentStamp: '<historical>' prior: 0! This class is a quick hack to support rounded corners in morphic. Rather than produce rounded rectangles, it tweaks the display of corners. Rather than work for any radius, it only supports a radius of 6. Rather than work for any border width, it only supports widths 0, 1 and 2. The corners, while apparently transparent, still behave opaquely to mouse clicks. Worse than this, the approach relies on the ability to extract underlying bits from the canvas prior to display. This ran afoul of top-down display, it seems, in SystemWindow spawnReframeHandle: (qv). It will also make a postscript printer very unhappy. But, hey, it's cute.! Item was changed: ----- Method: CornerRounder class>>initialize (in category 'all') ----- initialize "CornerRounder initialize" + CR0 := self new - CR0 := CR1 := self new masterMask: + (Form extent: 4@4 + fromArray: #(2r1100e26 2r11100e26 2r111100e26 2r111100e26) + offset: 0@0) + masterOverlay: + (Form extent: 4@4 + fromArray: #(2r1100e26 2r10000e26 2r100000e26 2r100000e26) + offset: 0@0). + CR1 := self new + masterMask: (Form extent: 6@6 fromArray: #(2r1e26 2r111e26 2r1111e26 2r11111e26 2r11111e26 2r111111e26) offset: 0@0) masterOverlay: (Form extent: 6@6 fromArray: #(2r1e26 2r110e26 2r1000e26 2r10000e26 2r10000e26 2r100000e26) offset: 0@0). CR2 := self new masterMask: (Form extent: 6@6 fromArray: #(2r1e26 2r111e26 2r1111e26 2r11111e26 2r11111e26 2r111111e26) offset: 0@0) masterOverlay: (Form extent: 6@6 fromArray: #(2r1e26 2r111e26 2r1111e26 2r11100e26 2r11000e26 2r111000e26) offset: 0@0). ! Item was added: + ----- Method: CornerRounder class>>preferredRadius (in category 'preferences') ----- + preferredRadius + + <preference: 'Preferred Corner Radius' + category: 'Graphics' + description: 'Use appropriate corner rounder if present. Works only if corners are rounded.' + type: #Number> + ^ PreferredRadius ifNil: [6]! Item was added: + ----- Method: CornerRounder class>>preferredRadius: (in category 'preferences') ----- + preferredRadius: anInteger + + PreferredRadius := anInteger.! Item was changed: ----- Method: CornerRounder class>>roundCornersOf:on:in:displayBlock:borderWidth:corners: (in category 'all') ----- roundCornersOf: aMorph on: aCanvas in: bounds displayBlock: displayBlock borderWidth: w corners: aList | rounder | + + {CR0.CR1.CR2} + detect: [:r | r cornerMasks first width = self preferredRadius] + ifFound: [:r | rounder := r] + ifNone: [ + rounder := CR0. + w = 1 ifTrue: [rounder := CR1]. + w = 2 ifTrue: [rounder := CR2]]. + - rounder := CR0. - w = 1 ifTrue: [rounder := CR1]. - w = 2 ifTrue: [rounder := CR2]. rounder := rounder copy. rounder saveBitsUnderCornersOf: aMorph on: aCanvas in: bounds corners: aList. displayBlock value. rounder tweakCornersOf: aMorph on: aCanvas in: bounds borderWidth: w corners: aList! Item was added: + ----- Method: CornerRounder>>cornerMasks (in category 'accessing') ----- + cornerMasks + + ^ cornerMasks! Item was added: + ----- Method: CornerRounder>>cornerOverlays (in category 'accessing') ----- + cornerOverlays + + ^ cornerOverlays! Item was added: + ----- Method: CornerRounder>>underBits (in category 'accessing') ----- + underBits + + ^ underBits! Item was added: + (PackageInfo named: 'Graphics') postscript: 'CornerRounder initialize.'!

1 0

This forum seems very close to inactive (2 weeks since last message)
by Lawson English 24 Feb '15

24 Feb '15

Is it just me or is this place a ghost town? L -- Squeak from the very start (introduction to Squeak and Pharo Smalltalk for the (almost) complete and compleate beginner). https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all "Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it." - Brian Kernighan

2 1

The Trunk: Morphic-mt.758.mcz
by commits＠source.squeak.org 24 Feb '15

24 Feb '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.758.mcz ==================== Summary ==================== Name: Morphic-mt.758 Author: mt Time: 24 February 2015, 9:12:34.081 am UUID: ff6992c3-f93d-a444-a7c4-c04be3fd34af Ancestors: Morphic-mt.757 Preferences for gradient* fixed or implemented: Windows, buttons, scrollbars, menus. The gradient fill-styles can now be fully disabled in all standard tools. Default is still "enabled". =============== Diff against Morphic-mt.757 =============== Item was changed: AlignmentMorph subclass: #PluggableButtonMorph instanceVariableNames: 'model label getStateSelector actionSelector getLabelSelector getMenuSelector shortcutCharacter askBeforeChanging triggerOnMouseDown offColor onColor feedbackColor showSelectionFeedback allButtons arguments argumentsProvider argumentsSelector style' + classVariableNames: 'GradientButton RoundedButtonCorners' - classVariableNames: 'RoundedButtonCorners' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableButtonMorph commentStamp: '<historical>' prior: 0! A PluggableButtonMorph is a combination of an indicator for a boolean value stored in its model and an action button. The action of a button is often, but not always, to toggle the boolean value that it shows. Its pluggable selectors are: getStateSelector fetch a boolean value from the model actionSelector invoke this button's action on the model getLabelSelector fetch this button's lable from the model getMenuSelector fetch a pop-up menu for this button from the model Any of the above selectors can be nil, meaning that the model does not supply behavior for the given action, and the default behavior should be used. For example, if getStateSelector is nil, then this button shows the state of a read-only boolean that is always false. The model informs its view(s) of changes by sending #changed: to itself with getStateSelector as a parameter. The view tells the model when the button is pressed by sending actionSelector. If the actionSelector takes one or more arguments, then the following are relevant: arguments A list of arguments to provide when the actionSelector is called. argumentsProvider The object that is sent the argumentSelector to obtain arguments, if dynamic argumentsSelector The message sent to the argumentProvider to obtain the arguments. Options: askBeforeChanging have model ask user before allowing a change that could lose edits triggerOnMouseDown do this button's action on mouse down (vs. up) transition shortcutCharacter a place to record an optional shortcut key ! Item was added: + ----- Method: PluggableButtonMorph class>>gradientButton (in category 'preferences') ----- + gradientButton + <preference: 'gradientButton' + category: 'windows' + description: 'If true, buttons will have a gradient look.' + type: #Boolean> + ^ GradientButton ifNil: [ true ]! Item was added: + ----- Method: PluggableButtonMorph class>>gradientButton: (in category 'preferences') ----- + gradientButton: aBoolean + + GradientButton := aBoolean.! Item was changed: ----- Method: PluggableButtonMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + | cc gradient borderColor fill | - | cc gradient borderColor | cc := self color. cc isTransparent ifTrue:[cc := Color gray: 0.9]. self enabled ifFalse:[cc := Color lightGray]. cc brightness > 0.9 ifTrue:[cc := cc adjustBrightness: 0.9 - cc brightness]. showSelectionFeedback ifTrue:[ borderColor := cc muchDarker. gradient := GradientFillStyle ramp: { 0.0 -> cc muchDarker. 0.1-> (cc adjustBrightness: -0.2). 0.5 -> cc. 0.9-> (cc adjustBrightness: -0.1). + 1 -> cc muchDarker}. + cc := cc muchDarker. - 1 -> cc muchDarker. - }. ] ifFalse:[ borderColor := Color lightGray. gradient := GradientFillStyle ramp: { 0.0 -> Color white. 0.1-> (cc adjustBrightness: 0.05). + 0.6 -> (cc darker)}. - 0.6 -> (cc darker). - } ]. gradient origin: bounds topLeft. gradient direction: 0@self height. + + PluggableButtonMorph gradientButton + ifFalse: [fill := SolidFillStyle color: cc] + ifTrue: [fill := gradient]. + ^ self roundedButtonCorners ifTrue: [aCanvas frameAndFillRoundRect: bounds radius: 8 + fillStyle: fill - fillStyle: gradient borderWidth: 1 borderColor: borderColor] ifFalse: [aCanvas frameAndFillRectangle: self innerBounds + fillColor: fill asColor - fillColor: gradient asColor borderWidth: 1 borderColor: borderColor darker; fillRectangle: (self innerBounds insetBy: 1) + fillStyle: fill]! - fillStyle: gradient]! Item was changed: ----- Method: ScrollBar class>>createArrowOfDirection:size:color: (in category 'images') ----- createArrowOfDirection: aSymbolDirection size: finalSizeInteger color: aColor "PRIVATE - create an arrow with aSymbolDirectionDirection, finalSizeInteger and aColor aSymbolDirectionDirection = #top, #bottom. #left or #right Try with: (ScrollBar createArrowOfDirection: #top size: 32 color: Color lightGreen) asMorph openInHand. " | resizeFactor outerBox arrow resizedForm gradient | resizeFactor := 4. + outerBox := RectangleMorph new + extent: finalSizeInteger asPoint * resizeFactor; + borderWidth: 0; + color: aColor. + + Preferences gradientScrollBars ifTrue: [ + gradient := GradientFillStyle ramp: { + 0 -> (Color gray: 0.95). + 0.49 -> (Color gray: 0.9). + 0.5 -> (Color gray: 0.87). + 1 -> (Color gray: 0.93). + }. + gradient origin: outerBox topLeft. + (aSymbolDirection == #left or:[aSymbolDirection == #right]) + ifTrue:[gradient direction: 0@ outerBox height] + ifFalse:[gradient direction: outerBox width @ 0]. + outerBox fillStyle: gradient]. - outerBox := RectangleMorph new. - outerBox extent: finalSizeInteger asPoint * resizeFactor; - borderWidth: 0; - color: aColor. - gradient := GradientFillStyle ramp: { - 0 -> (Color gray: 0.95). - 0.49 -> (Color gray: 0.9). - 0.5 -> (Color gray: 0.87). - 1 -> (Color gray: 0.93). - }. - gradient origin: outerBox topLeft. - (aSymbolDirection == #left or:[aSymbolDirection == #right]) - ifTrue:[gradient direction: 0@ outerBox height] - ifFalse:[gradient direction: outerBox width @ 0]. - outerBox fillStyle: gradient. outerBox borderStyle: (BorderStyle width: 4 color: Color lightGray). "" arrow := self createArrowOfDirection: aSymbolDirection in: (outerBox bounds expandBy: -4). self updateScrollBarButtonAspect: arrow color: aColor muchDarker. outerBox addMorphCentered: arrow. "" resizedForm := outerBox imageForm magnify: outerBox imageForm boundingBox by: 1 / resizeFactor smoothing: 4. "" ^ (resizedForm replaceColor: aColor withColor: Color transparent) trimBordersOfColor: Color transparent! Item was changed: ----- Method: ScrollBar class>>createBoxOfSize:color: (in category 'images') ----- createBoxOfSize: finalSizeInteger color: aColor "PRIVATE - create a box with finalSizeInteger and aColor Try with: (ScrollBar createBoxOfSize: 32 color: Color lightGreen) asMorph openInHand. " | resizeFactor outerBox innerBox resizedForm gradient | resizeFactor := 4. + outerBox := RectangleMorph new + extent: finalSizeInteger asPoint * resizeFactor; + borderWidth: 0; + color: aColor. + Preferences gradientScrollBars ifTrue: [ + gradient := GradientFillStyle ramp: { + 0 -> (Color gray: 0.95). + 0.49 -> (Color gray: 0.9). + 0.5 -> (Color gray: 0.87). + 1 -> (Color gray: 0.93). + }. + gradient origin: outerBox topLeft. + gradient direction: outerBox width @ 0. + outerBox fillStyle: gradient]. - outerBox := RectangleMorph new. - outerBox extent: finalSizeInteger asPoint * resizeFactor; - borderWidth: 0; - color: aColor. - gradient := GradientFillStyle ramp: { - 0 -> (Color gray: 0.95). - 0.49 -> (Color gray: 0.9). - 0.5 -> (Color gray: 0.87). - 1 -> (Color gray: 0.93). - }. - gradient origin: outerBox topLeft. - gradient direction: outerBox width @ 0. - outerBox fillStyle: gradient. outerBox borderStyle: (BorderStyle width: 4 color: Color lightGray). "" innerBox := self createBoxIn: (outerBox bounds expandBy: -4). self updateScrollBarButtonAspect: innerBox color: aColor muchDarker. outerBox addMorphCentered: innerBox. "" resizedForm := outerBox imageForm magnify: outerBox imageForm boundingBox by: 1 / resizeFactor smoothing: 4. "" ^ (resizedForm replaceColor: aColor withColor: Color transparent) trimBordersOfColor: Color transparent! Item was changed: ----- Method: ScrollBar class>>updateScrollBarButtonAspect:color: (in category 'coloring morphs') ----- updateScrollBarButtonAspect: aMorph color: aColor "update aMorph with aColor" | fill direction | aMorph isNil ifTrue: [^ self]. "" + aMorph color: aColor. - aMorph color: aColor. Preferences gradientScrollBars ifFalse: [^ self]. "" + fill := GradientFillStyle ramp: { + 0.0 -> aColor twiceLighter twiceLighter. + 1.0 -> aColor twiceDarker}. - fill := GradientFillStyle ramp: {0.0 -> aColor twiceLighter twiceLighter. 1.0 -> aColor twiceDarker}. "" direction := ((aMorph width min: aMorph height) + ((aMorph width - aMorph height) abs * 0.3)) rounded. "" fill origin: aMorph topLeft + (direction // 8). fill direction: direction @ direction. fill radial: true. "" aMorph fillStyle: fill! Item was changed: ----- Method: ScrollBar>>updateSliderColor: (in category 'access') ----- updateSliderColor: aColor | gradient | + + slider borderStyle: (BorderStyle width: 1 color: Color lightGray). + self borderWidth: 0. + + Preferences gradientScrollBars ifFalse: [ + slider color: aColor. + pagingArea color: aColor darker darker. + ^ self]. + + "Fill the slider." gradient := GradientFillStyle ramp: { 0 -> (Color gray: 0.95). 0.49 -> (Color gray: 0.9). 0.5 -> (Color gray: 0.87). 1 -> (Color gray: 0.93). }. gradient origin: slider topLeft. gradient direction: (self bounds isWide ifTrue:[0@slider height] ifFalse:[slider width@0]). slider fillStyle: gradient. + + "Fill the paging area." - slider borderStyle: (BorderStyle width: 1 color: Color lightGray). - gradient := GradientFillStyle ramp: { 0 -> (Color gray: 0.65). 0.6 -> (Color gray: 0.82). 1 -> (Color gray: 0.88). }. gradient origin: self topLeft. gradient direction: (self bounds isWide ifTrue:[0@self height] ifFalse:[self width@0]). - self borderWidth: 0. pagingArea fillStyle: gradient.! Item was changed: MorphicModel subclass: #SystemWindow instanceVariableNames: 'labelString stripes label closeBox collapseBox activeOnlyOnTop paneMorphs paneRects collapsedFrame fullFrame isCollapsed menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox' + classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImage CollapseBoxImage DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImage GradientWindow HideExpandButton MenuBoxFrame MenuBoxImage ResizeAlongEdges ReuseWindows TopWindow' - classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImage CollapseBoxImage DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImage HideExpandButton MenuBoxFrame MenuBoxImage ResizeAlongEdges ReuseWindows TopWindow' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow commentStamp: '<historical>' prior: 0! SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing. The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active. To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.! Item was added: + ----- Method: SystemWindow class>>gradientWindow (in category 'preferences') ----- + gradientWindow + + <preference: 'gradientWindow' + category: 'windows' + description: 'If true, windows will have a gradient look.' + type: #Boolean> + ^ GradientWindow ifNil: [true] + ! Item was added: + ----- Method: SystemWindow class>>gradientWindow: (in category 'preferences') ----- + gradientWindow: aBoolean + + GradientWindow := aBoolean.! Item was changed: ----- Method: SystemWindow>>setStripeColorsFrom: (in category 'label') ----- setStripeColorsFrom: paneColor "Set the stripe color based on the given paneColor" labelArea ifNotNil: [labelArea color: Color transparent]. self updateBoxesColor: (self isActive ifTrue: [paneColor] ifFalse: [paneColor muchDarker]). stripes ifNil: [^self]. + + SystemWindow gradientWindow + ifTrue: [ + self fillStyle: (self isActive + ifTrue: [self gradientWithColor: paneColor duller "lighter lighter lighter"] + ifFalse: [self gradientWithColor: paneColor duller darker])] + ifFalse: [ + self color: (self isActive + ifTrue: [paneColor] + ifFalse: [paneColor duller])].! - self isActive - ifTrue: [self fillStyle: (self gradientWithColor: paneColor duller "lighter lighter lighter")] - ifFalse: ["This could be much faster" - self fillStyle: (self gradientWithColor: paneColor duller)].! Item was changed: ----- Method: SystemWindow>>updateBox:color: (in category 'panes') ----- updateBox: anIconMorph color: aColor + | fill | anIconMorph isNil ifTrue: [^ self]. anIconMorph extent: self boxExtent; useRoundedCorners. - fill := GradientFillStyle ramp: {0.0 -> aColor muchLighter muchLighter. 1.0 -> aColor twiceDarker}. - - fill origin: anIconMorph topLeft + (5 @ 5). - fill direction: anIconMorph extent. + SystemWindow gradientWindow + ifFalse: [anIconMorph color: aColor] + ifTrue: [ + fill := GradientFillStyle ramp: { + 0.0 -> aColor muchLighter muchLighter. + 1.0 -> aColor twiceDarker}. + fill origin: anIconMorph topLeft + (5 @ 5). + fill direction: anIconMorph extent. + anIconMorph fillStyle: fill]. + + anIconMorph + borderWidth: (Preferences alternativeWindowBoxesLook + ifTrue: [1] + ifFalse: [0]); + borderColor: aColor darker.! - anIconMorph fillStyle: fill. - anIconMorph borderWidth: (Preferences alternativeWindowBoxesLook - ifTrue: [1] - ifFalse: [0]); - borderColor: aColor darker!

1 0

Re: [Pharo-dev] Determine if a method is Jitted or not
by Eliot Miranda 24 Feb '15

24 Feb '15

On Feb 23, 2015, at 7:50 AM, Thierry Goubier <thierry.goubier(a)gmail.com> wrote: > > > 2015-02-23 16:36 GMT+01:00 Eliot Miranda <eliot.miranda(a)gmail.com>: >> Hi Thierry, >> >> there's an unadvertised primitive called Context>>#xRay (or ContextPart>>#xRay) that answers these questions for tests. I'm away from the system right now but I'll get you the source soon. Also, the limit on jutting methods, 60 literals, is a default. There's a command line option -maxcoglits (IIRC) that you can change. > > Thanks Eliot! > > It's helping a lot to guide me, even if I have to work at the ast level and, as a result, I estimate the number of literals in the bytecode by counting the number of literal nodes in the AST, with the approximation that ~100 literal nodes will make it under the limit. > > Making it under the limit shaves 30% of the execution time of a parse with SmaCC. And it avoids the too long methods as a side benefit. > > I would dream of having precise ways of estimating things like that on the AST. It's interesting to hit those "I'd like to be able to predict the performance of that piece of code" issues. Alas two things other than the AST affect the number of literals. First is the specialSelectors; these are used for sends only. So if a method only sends one of the special selectors the selector will not occur in the method as a literal. Second is the bytecode set. While we only have one set now, Sista is introducing another, and Newspeak has its own. In the current set, -1, 0, 1 & 2 and true and false have bytecodes to push these literals, so they don't occur as literals in methods. In both the Sista and the Newspeak sets there are bytecodes that encode a much wider range of integers and characters as bytecodes (a push literal bytecode takes 1 byte for the bytecode and 4 or 8 bytes for the literal; a bytecode for the 16-bit integer range takes 3 bytes). Another thing that affects the number of literals is the compiler's decision to include selectors for optimized methods such as ifTrue: et al (which I think is a very good thing). If you could ask the back end which literal would be encoded as a literal (and if course the question is asked when bytecode is generated) you could get a more accurate count. HTH > > Thierry > >> >> Eliot (phone) >> >> On Feb 23, 2015, at 5:05 AM, Thierry Goubier <thierry.goubier(a)gmail.com> wrote: >> >> > Hi All, >> > >> > anybody knows how to check if a method is jitted or not? >> > >> > I remember (maybe wrongly) that the Jit in Cog has a configurable limit on the number of bytecodes for a method to be jitted or not; I'm looking into the performance of generated code where I can, more or less, control the length of methods (SmaCC) and I'd like to find the optimum point. >> > >> > Thanks, >> > >> > Thierry >

2 1

Vote now or forever hold your piece
by Ron Teitelbaum 24 Feb '15

24 Feb '15

Hi All, Can you believe it is Monday already. If you have been waiting to vote for the Squeak Oversight Board but figured you would wait until the very last minute, you succeeded. If you figured you would wait until others voted so that you can vote like they did, I have no idea how that works since the results will be released tomorrow. Whatever your reason for waiting please don't wait any more. Go vote. Please look for an email from an andru(a)cs.cornell.edu Subject: Poll: Squeak Oversight Board 2015 Sent on Monday Feb 16, 2015. You have until: Tuesday 24th of February 2015 6PM (23.00 UTC): Online election ends. All the best, Ron Teitelbaum

2 1

Starting processes from Squeak makes Raspbian unwilling to start another process
by Herbert König 24 Feb '15

24 Feb '15

Hi, I managed to make Raspbian unwilling to open any new process. Neither in the X session, nor from Squeak nor from a SSH session. It seems I create Zombie processes (what is that, in the SSH session I ran top and it reports thousands of zombies). What I do: I poll a GPIO pin every 100ms. When it is high I query I2C via: (PipeableOSProcess command: 'i2cget -y ', busNo, ' ', address) output and when I find a certain bit set, I switch on some LEDs via: current := ExternalUnixOSProcess command: 'i2cset -y ', busNo, ' ', address, ' ', aString. OSProcess thisOSProcess unregisterChildProcess: current. "This doesn't unregister the process?????" current := nil. I found 2700++ instances of ExternalOSProcess, emptied the Dictionary via UnixProcess>>unregisterChildProcess and it stopped when it accumulated to another 900+ instances. This ran for half a day until It can't start another process. First I thought this was the Raspbian update for the PasPi B2 but now I reproduced it on a Pi A+ last updated mid January. Having read Wikipedia on Zombie Process it seems, that I should try to kill each process I started? What do I do to the PipeableOSProcess? closePipes? release? Thanks, Herbert

2 5

← Newer
1
...
4
5
6
7
8
9
10
...
16
Older →

Jump to page: