Squeak-dev April 2018

squeak-dev@lists.squeakfoundation.org

47 participants
159 discussions

The Trunk: ToolBuilder-Morphic-pre.216.mcz
by commits＠source.squeak.org 24 Apr '18

24 Apr '18

Patrick Rein uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-pre.216.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-pre.216 Author: pre Time: 24 April 2018, 2:12:43.175899 pm UUID: 52c98680-626a-c446-9bca-07fc30d10393 Ancestors: ToolBuilder-Morphic-pre.215 Minor improvement to set selected path based on a hint from mt: Only calculate the selected path when the model is actually interested in it. =============== Diff against ToolBuilder-Morphic-pre.215 =============== Item was changed: ----- Method: PluggableTreeMorph>>setSelectedPath: (in category 'selection') ----- setSelectedPath: aMorph | items wrapperPath | + setSelectedPathSelector ifNotNil: [:setSelectedPathSelector | + wrapperPath := selectedWrapper + ifNil: [#()] + ifNotNil: [ + wrapperPath := {selectedWrapper} asOrderedCollection. + [wrapperPath last parent notNil] + whileTrue: [wrapperPath addLast: wrapperPath last parent]. + wrapperPath]. + items := wrapperPath collect: [:w | w item]. - wrapperPath := selectedWrapper - ifNil: [#()] - ifNotNil: [ - wrapperPath := {selectedWrapper} asOrderedCollection. - [wrapperPath last parent notNil] - whileTrue: [wrapperPath addLast: wrapperPath last parent]. - wrapperPath]. - items := wrapperPath collect: [:w | w item]. - setSelectedPathSelector ifNotNil: [:symbol | model + perform: setSelectedPathSelector - perform: symbol with: items]. !

1 0

The Trunk: ToolBuilder-Morphic-pre.215.mcz
by commits＠source.squeak.org 24 Apr '18

24 Apr '18

Patrick Rein uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-pre.215.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-pre.215 Author: pre Time: 24 April 2018, 10:30:38.738732 am UUID: f78a62d4-8ee0-6f40-84e3-7fe6f5539d8e Ancestors: ToolBuilder-Morphic-cmm.214 Adds a callback to pluggable trees to retrieve the currently selected path in the tree. Also includes a minor fix for the double click functionality as the tool builder did not pass the callback selector to the tree morph. =============== Diff against ToolBuilder-Morphic-cmm.214 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category 'widgets required') ----- buildPluggableTree: aSpec | widget | widget := self treeClass new. self register: widget id: aSpec name. widget model: aSpec model. widget getSelectedPathSelector: aSpec getSelectedPath. + widget setSelectedPathSelector: aSpec setSelectedPath. widget setSelectedSelector: aSpec setSelected. widget getSelectedSelector: aSpec getSelected. widget setSelectedParentSelector: aSpec setSelectedParent. widget getChildrenSelector: aSpec getChildren. widget hasChildrenSelector: aSpec hasChildren. widget getLabelSelector: aSpec label. widget getIconSelector: aSpec icon. widget getHelpSelector: aSpec help. widget getMenuSelector: aSpec menu. widget keystrokeActionSelector: aSpec keyPress. widget nodeClass: aSpec nodeClass. widget getRootsSelector: aSpec roots. widget autoDeselect: aSpec autoDeselect. + widget doubleClickSelector: aSpec doubleClick. widget dropItemSelector: aSpec dropItem. widget wantsDropSelector: aSpec dropAccept. widget dragItemSelector: aSpec dragItem. widget dragStartedSelector: aSpec dragStarted. widget columns: aSpec columns. "Override default scroll bar policies if needed. Widget will use preference values otherwise." aSpec hScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowHScrollBar]. [#never] -> [widget hideHScrollBarIndefinitely]. [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]. } ]. aSpec vScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowVScrollBar]. [#never] -> [widget hideVScrollBarIndefinitely]. [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]. } ]. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. " panes ifNotNil:[ aSpec roots ifNotNil:[panes add: aSpec roots]. ]. " ^widget! Item was changed: SimpleHierarchicalListMorph subclass: #PluggableTreeMorph + instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector' - instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector' classVariableNames: 'FilterByLabelsOnly MaximumSearchDepth' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTreeMorph commentStamp: 'ar 2/12/2005 04:38' prior: 0! A pluggable tree morph.! Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph + - selectedWrapper := aMorph complexContents. "Let the model now about the selected object, not wrapper." setSelectionSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [:w | w item])]. + self setSelectedParentMorph: aMorph. + self setSelectedPath: aMorph.! - self setSelectedParentMorph: aMorph.! Item was added: + ----- Method: PluggableTreeMorph>>setSelectedPath: (in category 'selection') ----- + setSelectedPath: aMorph + + | items wrapperPath | + wrapperPath := selectedWrapper + ifNil: [#()] + ifNotNil: [ + wrapperPath := {selectedWrapper} asOrderedCollection. + [wrapperPath last parent notNil] + whileTrue: [wrapperPath addLast: wrapperPath last parent]. + wrapperPath]. + items := wrapperPath collect: [:w | w item]. + setSelectedPathSelector ifNotNil: [:symbol | + model + perform: symbol + with: items]. + + ! Item was added: + ----- Method: PluggableTreeMorph>>setSelectedPathSelector (in category 'accessing') ----- + setSelectedPathSelector + ^ setSelectedPathSelector + ! Item was added: + ----- Method: PluggableTreeMorph>>setSelectedPathSelector: (in category 'accessing') ----- + setSelectedPathSelector: aSymbol + setSelectedPathSelector := aSymbol. + !

1 0

How to yellow click with two buttons without changing mouse settings?
by Jakob Reschke 24 Apr '18

24 Apr '18

Hello, I downloaded a VM (64 bit Cog Spur Windows) and a fresh trunk image separately and have not changed any mouse button settings yet (swap mouse buttons preference is on and neither 1 button mouse nor 3 button mouse are selected in the VM preferences menu). My notebook does not have a middle "mouse" button and the right button currently does a blue click (opens the halo). In this default setting, is there any way to do a yellow click? I get the morph menu with ctrl+left click and in list morphs and on the world I can invoke the menu with the Esc key, but I did not find a modifier+button combination that would work universally to emulate a yellow click. Have I missed it? After disabling swap mouse buttons, right click becomes a yellow click. But when the preference is on, both right click and alt+left click produce a blue click. So with a two button mouse it seems that nothing is actually swapped, but one button is unavailable altogether... A simple solution would be to turn the preference off by default. Kind regards, Jakob

3 3

The Inbox: Kernel-dtl.1165.mcz
by commits＠source.squeak.org 24 Apr '18

24 Apr '18

David T. Lewis uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-dtl.1165.mcz ==================== Summary ==================== Name: Kernel-dtl.1165 Author: dtl Time: 23 April 2018, 10:43:08.381368 pm UUID: a7581950-44f0-4b4c-ac85-5f34672bc4a4 Ancestors: Kernel-eem.1164 Let Float>>asApproximateFraction give unsurprising results when the value of the float was derived from a single precision float in a Squeak FloatArray. Float>>asApproximateFraction is implemented for Squeak Float, which assumes double precision float. FloatArray is single precision, which can lead to confusion when converted back to double Float in Squeak. Implement asApproximateFractionFloatPrecision: to allow lesser float precision to be specified. =============== Diff against Kernel-eem.1164 =============== Item was changed: ----- Method: Float>>asApproximateFractionAtOrder: (in category 'converting') ----- asApproximateFractionAtOrder: maxOrder "Answer a Fraction approximating the receiver. This conversion uses the continued fraction method to approximate a floating point number. If maxOrder is zero, use maximum order" + ^self asApproximateFractionAtOrder: maxOrder floatPrecision: 10. + ! - | num1 denom1 num2 denom2 int frac newD temp order | - num1 := self asInteger. "The first of two alternating numerators" - denom1 := 1. "The first of two alternating denominators" - num2 := 1. "The second numerator" - denom2 := 0. "The second denominator--will update" - int := num1. "The integer part of self" - frac := self fractionPart. "The fractional part of self" - order := maxOrder = 0 ifTrue: [-1] ifFalse: [maxOrder]. - [frac = 0 or: [order = 0] ] - whileFalse: - ["repeat while the fractional part is not zero and max order is not reached" - order := order - 1. - newD := 1.0 / frac. "Take reciprocal of the fractional part" - int := newD asInteger. "get the integer part of this" - frac := newD fractionPart. "and save the fractional part for next time" - temp := num2. "Get old numerator and save it" - num2 := num1. "Set second numerator to first" - num1 := num1 * int + temp. "Update first numerator" - temp := denom2. "Get old denominator and save it" - denom2 := denom1. "Set second denominator to first" - denom1 := int * denom1 + temp. "Update first denominator" - 10000000000.0 < denom1 - ifTrue: - ["Is ratio past float precision? If so, pick which - of the two ratios to use" - num2 = 0.0 - ifTrue: ["Is second denominator 0?" - ^ Fraction numerator: num1 denominator: denom1]. - ^ Fraction numerator: num2 denominator: denom2]]. - "If fractional part is zero, return the first ratio" - denom1 = 1 - ifTrue: ["Am I really an Integer?" - ^ num1 "Yes, return Integer result"] - ifFalse: ["Otherwise return Fraction result" - ^ Fraction numerator: num1 denominator: denom1]! Item was added: + ----- Method: Float>>asApproximateFractionAtOrder:floatPrecision: (in category 'converting') ----- + asApproximateFractionAtOrder: maxOrder floatPrecision: decimalPlaces + "Answer a Fraction approximating the receiver. This conversion uses the + continued fraction method to approximate a floating point number. If maxOrder + is zero, use maximum order. Assume that I am a float with decimalPlaces of + meaningful accuracy, regardless of the precision of my internal representation." + + | num1 denom1 num2 denom2 int frac newD temp order floatPrecision | + num1 := self asInteger. "The first of two alternating numerators" + denom1 := 1. "The first of two alternating denominators" + num2 := 1. "The second numerator" + denom2 := 0. "The second denominator--will update" + int := num1. "The integer part of self" + frac := self fractionPart. "The fractional part of self" + order := maxOrder = 0 ifTrue: [-1] ifFalse: [maxOrder]. + floatPrecision := (10 raisedTo: decimalPlaces) asFloat. + [frac = 0 or: [order = 0] ] + whileFalse: + ["repeat while the fractional part is not zero and max order is not reached" + order := order - 1. + newD := 1.0 / frac. "Take reciprocal of the fractional part" + int := newD asInteger. "get the integer part of this" + frac := newD fractionPart. "and save the fractional part for next time" + temp := num2. "Get old numerator and save it" + num2 := num1. "Set second numerator to first" + num1 := num1 * int + temp. "Update first numerator" + temp := denom2. "Get old denominator and save it" + denom2 := denom1. "Set second denominator to first" + denom1 := int * denom1 + temp. "Update first denominator" + floatPrecision < denom1 + ifTrue: + ["Is ratio past float precision? If so, pick which + of the two ratios to use" + num2 = 0.0 + ifTrue: ["Is second denominator 0?" + ^ Fraction numerator: num1 denominator: denom1]. + ^ Fraction numerator: num2 denominator: denom2]]. + "If fractional part is zero, return the first ratio" + denom1 = 1 + ifTrue: ["Am I really an Integer?" + ^ num1 "Yes, return Integer result"] + ifFalse: ["Otherwise return Fraction result" + ^ Fraction numerator: num1 denominator: denom1]! Item was added: + ----- Method: Float>>asApproximateFractionFloatPrecision: (in category 'converting') ----- + asApproximateFractionFloatPrecision: decimalPlaces + "Answer a Fraction approximating the receiver. This conversion uses the + continued fraction method to approximate a floating point number. If maxOrder + is zero, use maximum order. Assume that I am a float with with decimalPlaces + places of precision. For 64 bit double precision floating point, a value of 10 is + appropriate. For 32 bit single precision floating point, a decimalPlaces of 5 will + give good results." + + ^self asApproximateFractionAtOrder: 0 floatPrecision: decimalPlaces!

1 0

ProjectNavigationMorph and fiends
by tim Rowledge 23 Apr '18

23 Apr '18

This is a very much not-current-style morph that appears to mostly be EToys related. It uses some gnarly FileList2 mangling. I don't like it but other people might. Given my druthers I'd simply kill it. At the very least I'd prefer to see less 'interesting' UIs used for finding & loading project stuff so it fits in with our current themes etc. See things like FileList2 class>>#morphicViewProjectLoader2InWorld:reallyLoad:dirFilterType: & FileList2 class>>#morphicViewGeneralLoaderInWorld: tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- Mouth in gear, brain in neutral.

1 0

[CFP] COP 2018 @ ECOOP 2018, Amsterdam, The Netherlands
by Marcel Taeumel 23 Apr '18

23 Apr '18

*** COP 2018: 10th International Workshop on Context-Oriented Programming *** July 16th, 2018 Co-located with ECOOP/ISSTA 2018 in Amsterdam, Netherlands === Advanced Modularity for Run-time Composition === Contextual information is playing an ever-increasing role in our information-centric world. Current-day software systems need to adapt continuously to changing execution and usage contexts, even while they are running. Unfortunately, mainstream programming languages and development environments still do not support this level of dynamic adaptivity very well, leading developers to implement complex designs to anticipate various dimensions of variability. Context-Oriented Programming directly supports variability at the programming level, featuring dedicated programming abstractions enabling programmers to write software applications that adapt dynamically to a wide range of dynamic attributes. It enables run-time behaviour to be dispatched directly on any detected properties of the execution or user context. Since more than a decade, several researchers have been working on a variety of notions approaching that idea. Implementations ranging from first prototypes to mature platform extensions used in commercial deployments have illustrated how multidimensional dispatch can be supported effectively to achieve expressive run-time variation in behavior. Our series of International Workshops on Context-Oriented Programming (COP) at ECOOP since 2009 have shown to be well-received, each attracting around 30 participants. Also in 2018 we hope to advance this vibrant research domain at ECOOP in the beautiful and lively city of Amsterdam. === Topics === Topics of interest to the workshop include, but are not limited to: - Interesting application domains and scenarios for COP - Programming language abstractions for COP (e.g. dynamic scoping, roles, traits, prototype-based extensions) - Implementation techniques and mechanisms for COP (e.g. different kinds of dynamic, contextual, and multi-dimensional dispatch or pre-dispatch) - Implementation issues for COP such as optimization, VM support, JIT compilation etc. - Implemented use-cases, case studies, or prototypes of COP - Theoretical foundations for COP (e.g., semantics, type systems) - Configuration languages (e.g. feature description interpreters, transformational approaches) - Interaction between non-functional programming concerns and COP (e.g. security, persistence, concurrency, distribution) - Modularization approaches for COP (e.g. modules, aspects, features, layers, plugins) - Guidelines to apply COP (e.g. best practices, idioms, patterns) - Run-time support for COP (e.g. reflection, dynamic binding) - Tool support (e.g. design tools, IDEs, debuggers) - Support for COP at the modeling level - Beyond context-oriented behavior adaptation (e.g., UI adaptation, DB adaptation). === Submission guidelines === COP invites submissions of high-quality papers reporting original research, or describing innovative contributions to, or experience with context-oriented programming, its implementation, and application. Papers that depart significantly from established ideas and practices are particularly welcome. Submissions must not have been published previously and must not be under review for any other refereed event or publication. The program committee will evaluate each contributed paper based on its relevance, significance, clarity, and originality. Papers are to be submitted via EasyChair (https://easychair.org/conferences/?conf=cop2018 [https://easychair.org/conferences/?conf=cop2018]). They must be written in English, provided as PDF documents, and follow the new ACM Master Article Template with the sigconf option (https://www.acm.org/publications/proceedings-template [https://www.acm.org/publications/proceedings-template]). They should not exceed 8 pages. Accepted papers will be published in the ACM Digital Library. === Important dates === Submission deadline: May 18th, 2018 (AoE) Notifications: June 8th, 2018 Final version: June 29th, 2018 === Program committee === Tomoyuki Aotani, Tokyo Institute of Technology, Japan Nicolás Cardozo, Universidad de los Andes, Colombia Coen De Roover, Vrije Universiteit Brussel, Belgium Elisa Gonzalez Boix, Vrije Universiteit Brussel, Belgium David H. Lorenz, Technion IIT, Israel Gorel Hedin, Lund University, Sweden Stefan Marr, University of Kent, UK Kim Mens, Université Catholique de Louvain, Belgium Stefan Ramson, Hasso Plattner Institute, Germany Guido Salvaneschi, TU Darmstadt, Germany Matthias Springer, Tokyo Institute of Technology, Japan Mario Südholt, IMT Atlantique, France Naoyasu Ubayashi, Kyushu University, Japan Didier Verna, EPITA / LRDE, France Harumi Watanabe, Tokai University, Japan Tijs van der Storm, CWI, Netherlands === Organizing committee === Robert Hirschfeld, HPI, Germany Atsushi Igarashi, Kyoto University, Japan Tetsuo Kamina, Ritsumeikan University, Japan Jens Lincke, Hasso Plattner Institute, Germany Hidehiko Masuhara, Tokyo Institute of Technology, Japan

1 0

The Trunk: Morphic-mt.1419.mcz
by commits＠source.squeak.org 23 Apr '18

23 Apr '18

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1419.mcz ==================== Summary ==================== Name: Morphic-mt.1419 Author: mt Time: 23 April 2018, 8:52:51.282883 am UUID: 661d960f-f307-fa4f-be9f-ac5f7e818b55 Ancestors: Morphic-dtl.1418 Some API clean-up for drawing border styles via Canvas to improve code readability. =============== Diff against Morphic-dtl.1418 =============== Item was changed: ----- Method: Canvas>>fillRectangle:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- fillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle + "For convenience and historical reasons only. Try to use the more explicit 'frameAndFill..' calls if you want to draw borders." + + self frameAndFillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle.! - "Fill the given rectangle." - aFillStyle isTransparent ifFalse:[ - self fillRectangle: (aRectangle insetBy: aBorderStyle inset) fillStyle: aFillStyle]. - aBorderStyle ifNil:[^self]. - aBorderStyle width <= 0 ifTrue:[^self]. - aBorderStyle frameRectangle: aRectangle on: self.! Item was added: + ----- Method: Canvas>>fillRoundRect:radius:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- + fillRoundRect: aRectangle radius: radius fillStyle: fillStyle borderStyle: borderStyle + "For convenience only. Try to use 'frameAndFill...' messages." + + self + frameAndFillRoundRect: aRectangle + radius: radius + fillStyle: fillStyle + borderStyle: borderStyle.! Item was added: + ----- Method: Canvas>>frameAndFillRectangle:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- + frameAndFillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle + + aFillStyle isTransparent ifFalse: [ + self fillRectangle: (aRectangle insetBy: aBorderStyle inset) fillStyle: aFillStyle]. + + aBorderStyle width > 0 ifTrue: [ + self frameRectangle: aRectangle borderStyle: aBorderStyle].! Item was added: + ----- Method: Canvas>>frameAndFillRoundRect:radius:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- + frameAndFillRoundRect: aRectangle radius: cornerRadius fillStyle: fillStyle borderStyle: borderStyle + + self + frameAndFillRectangle: aRectangle + fillColor: fillStyle asColor + borderWidth: borderStyle width + borderColor: borderStyle color.! Item was added: + ----- Method: Canvas>>frameRectangle:borderStyle: (in category 'drawing-rectangles') ----- + frameRectangle: aRectangle borderStyle: aBorderStyle + "Double dispatch." + + aBorderStyle frameRectangle: aRectangle on: self.! Item was changed: ----- Method: Morph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas self wantsRoundedCorners ifTrue: [aCanvas frameAndFillRoundRect: self bounds radius: self cornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] + ifFalse: [aCanvas frameAndFillRectangle: self bounds fillStyle: self fillStyle borderStyle: self borderStyle]. - ifFalse: [aCanvas fillRectangle: self bounds fillStyle: self fillStyle borderStyle: self borderStyle]. ! Item was changed: ----- Method: NewBalloonMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas self fillStyle isColor ifFalse: [self fillStyle isGradientFill ifTrue: [self fillStyle direction: 0 @ self height]]. "Bubble." self wantsRoundedCorners ifTrue: [aCanvas frameAndFillRoundRect: self bubbleBounds radius: self cornerRadius fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: self borderStyle color] ifFalse: [aCanvas + frameAndFillRectangle: self bubbleBounds + fillStyle: self fillStyle + borderStyle: self borderStyle]. - fillRectangle: self bubbleBounds - fillStyle: self fillStyle borderStyle: self borderStyle]. "Tail." self hasTail ifTrue: [ self verticesForTail in: [:points | | pixelOffset | pixelOffset := points first y < points second y ifFalse: [points first x < points second x ifTrue: [self borderStyle width negated @ self borderStyle width] "bottomLeft" ifFalse: [self borderStyle width @ self borderStyle width]] "bottomRight" ifTrue: [points first x < points second x ifTrue: [self borderStyle width negated @ self borderStyle width negated] "topLeft" ifFalse: [self borderStyle width @ self borderStyle width negated]]. "topRight" aCanvas drawPolygon: points fillStyle: self fillStyle. aCanvas line: points first to: points second + pixelOffset width: self borderStyle width color: self borderStyle color. aCanvas line: points first to: points third + pixelOffset width: self borderStyle width color: self borderStyle color]]! Item was changed: ----- Method: SystemProgressBarMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | area fill | super drawOn: aCanvas. self barSize > 0 ifTrue: [ area := self innerBounds. area := area origin extent: (self barSize min: area extent x)@area extent y. fill := self barColor isColor ifTrue: [SolidFillStyle color: self barColor] ifFalse: [self barColor]. fill isGradientFill ifTrue: [ fill origin: area origin. fill direction: 0@ area height]. aCanvas + frameAndFillRectangle: area - fillRectangle: area fillStyle: fill borderStyle: (SimpleBorder new width: 1; color: fill asColor muchDarker). ]. !

1 0

PopUpChoiceMorph borked
by karl ramberg 23 Apr '18

23 Apr '18

Hi, Some change in the last few weeks broke PopUpChoiceMorph. Once you clicked it you are trapped in endless pop ups. Where ever you click on the screen it will pop up another dialog. Best, Karl

2 2

source.squeak.org stuck Mutex again
by Chris Muller 23 Apr '18

23 Apr '18

The source.squeak.org server got stuck on a Mutex again. Here's a picture of the waiting processes on the server, along with an inspector on the Mutex. Back when Mutex was pure Smalltalk if this happened I could just signal its internal Semaphore and off it would go, delayed processes would eventually run. But it's all hidden in the VM now, so the only viable thing I can do is restart the image.

2 2

The Trunk: Morphic-kfr.1418.mcz
by commits＠source.squeak.org 22 Apr '18

22 Apr '18

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1418.mcz ==================== Summary ==================== Name: Morphic-kfr.1418 Author: kfr Time: 22 April 2018, 11:30:41.518937 am UUID: d6dd46c1-fa46-5043-bf0d-8b4542cf733d Ancestors: Morphic-kfr.1416, Morphic-cmm.1417 Some maintenance to ScorePlayerMorph. Fixing some layout issues. Add menu options to make a new score and add tracks to the score. =============== Diff against Morphic-kfr.1416 =============== Item was changed: ----- Method: ProportionalSplitterMorph>>balanceOffsets (in category 'layout') ----- balanceOffsets + (self valueOfProperty: #fullDelta) ifNil: [self setProperty: #fullDelta toValue: (0@0)] . self layoutFrame hasFixedHeight ifTrue: [ | otop obot ctop cbot topf | otop := (owner submorphs detect: [:m | m layoutFrame topFraction isZero] ifNone: [^ self]) in: [:tm | tm top - (tm layoutFrame topOffset ifNil: [0])]. obot := (owner submorphs detect: [:m | m layoutFrame bottomFraction = 1] ifNone: [^ self]) in: [:tm | tm bottom - (tm layoutFrame bottomOffset ifNil: [0])]. ctop := (self layoutFrame topFraction * (obot - otop)) rounded + otop + (self layoutFrame topOffset ifNil: [0]). cbot := (self layoutFrame bottomFraction * (obot - otop)) rounded + otop + (self layoutFrame bottomOffset ifNil: [0]). topf := self layoutFrame topFraction. self layoutFrame topFraction: ((ctop + cbot) * 0.5 - otop) / (obot - otop) asFloat. self layoutFrame bottomFraction: self layoutFrame topFraction. self layoutFrame topOffset: ctop - (self layoutFrame topFraction * (obot - otop) + otop) rounded. self layoutFrame bottomOffset: cbot - (self layoutFrame bottomFraction * (obot - otop) + otop) rounded.. (leftOrTop copy union: rightOrBottom) do: [:m | (m layoutFrame topFraction closeTo: topf) ifTrue: [ m layoutFrame topFraction: self layoutFrame topFraction. m layoutFrame topOffset: m layoutFrame topOffset - (self valueOfProperty: #fullDelta) y]. (m layoutFrame bottomFraction closeTo: topf) ifTrue: [ m layoutFrame bottomFraction: self layoutFrame topFraction. m layoutFrame bottomOffset: m layoutFrame bottomOffset - (self valueOfProperty: #fullDelta) y.]]] . self layoutFrame hasFixedWidth ifTrue: [ | oleft oright cleft cright leftf | oleft := (owner submorphs detect: [:m | m layoutFrame leftFraction isZero] ifNone: [^ self]) in: [:tm | tm left - (tm layoutFrame leftOffset ifNil: [0])]. oright := (owner submorphs detect: [:m | m layoutFrame rightFraction = 1] ifNone: [^ self]) in: [:tm | tm right - (tm layoutFrame rightOffset ifNil: [0])]. cleft := (self layoutFrame leftFraction * (oright - oleft)) rounded + oleft + (self layoutFrame leftOffset ifNil: [0]). cright := (self layoutFrame rightFraction * (oright - oleft)) rounded + oleft + (self layoutFrame rightOffset ifNil: [0]). leftf := self layoutFrame leftFraction. self layoutFrame leftFraction: ((cleft + cright) * 0.5 - oleft) / (oright - oleft) asFloat. self layoutFrame rightFraction: self layoutFrame leftFraction. self layoutFrame leftOffset: cleft - (self layoutFrame leftFraction * (oright - oleft) + oleft) rounded. self layoutFrame rightOffset: cright - (self layoutFrame rightFraction * (oright - oleft) + oleft) rounded. (leftOrTop copy union: rightOrBottom) do: [:m | (m layoutFrame leftFraction closeTo: leftf) ifTrue: [ m layoutFrame leftFraction: self layoutFrame leftFraction. m layoutFrame leftOffset: m layoutFrame leftOffset - (self valueOfProperty: #fullDelta) x]. (m layoutFrame rightFraction closeTo: leftf) ifTrue: [ m layoutFrame rightFraction: self layoutFrame leftFraction. m layoutFrame rightOffset: m layoutFrame rightOffset - (self valueOfProperty: #fullDelta) x.]]] . self removeProperty: #fullDelta. owner layoutChanged ! Item was changed: ----- Method: ProportionalSplitterMorph>>step (in category 'events') ----- step splitsTopAndBottom ifTrue: [ self reduceTopBottomImbalance ] ifFalse: [ self reduceLeftRightImbalance abs > 1 ifTrue: [ self splittersLeftDo: [ : splitter | splitter reduceLeftRightImbalance ]. self splittersRightDo: + [ : splitter | splitter reduceLeftRightImbalance ] ] ]. + self balanceOffsets! - [ : splitter | splitter reduceLeftRightImbalance ] ] ]! Item was added: + ----- Method: ScorePlayerMorph>>addNewScore (in category 'menu') ----- + addNewScore + "Open a MIDI score and re-init controls..." + | score player | + + score := MIDIScore new. + score tracks: (Array with: Array new). + score trackInfo: #('Instrument'). + player := ScorePlayer onScore: score. + ^self onScorePlayer: player title: 'new'! Item was added: + ----- Method: ScorePlayerMorph>>addTrackToScore (in category 'menu') ----- + addTrackToScore + "add a instrument track to the current score" + | score tracks trackInfo player | + score := scorePlayer score. + tracks := score tracks copyWith:#(). + score tracks: tracks. + trackInfo := score trackInfo copyWith: 'Instrument'. + score trackInfo: trackInfo. + player := ScorePlayer onScore: score. + ^self onScorePlayer: player title: 'new'! Item was changed: ----- Method: ScorePlayerMorph>>invokeMenu (in category 'menu') ----- invokeMenu "Invoke a menu of additonal functions for this ScorePlayer." - | aMenu | aMenu := MenuMorph new defaultTarget: self. + aMenu add: 'add a new score' translated action: #addNewScore. + aMenu add: 'add a new track to score' translated action: #addTrackToScore. aMenu add: 'open a MIDI file' translated action: #openMIDIFile. + aMenu addList: {#-. {'save as AIFF file' translated. #saveAsAIFF}. {'save as WAV file' translated. #saveAsWAV}. {'save as Sun AU file' translated. #saveAsSunAudio}. #-}. + aMenu + add: 'reload instruments' translated + target: AbstractSound + selector: #updateScorePlayers. - aMenu addList: { - #-. - {'save as AIFF file' translated. #saveAsAIFF}. - {'save as WAV file' translated. #saveAsWAV}. - {'save as Sun AU file' translated. #saveAsSunAudio}. - #-}. - aMenu add: 'reload instruments' translated target: AbstractSound selector: #updateScorePlayers. aMenu addLine. scorePlayer midiPort + ifNil: [aMenu add: 'play via MIDI' translated action: #openMIDIPort] + ifNotNil: [aMenu add: 'play via built in synth' translated action: #closeMIDIPort. - ifNil: [ - aMenu add: 'play via MIDI' translated action: #openMIDIPort] - ifNotNil: [ - aMenu add: 'play via built in synth' translated action: #closeMIDIPort. aMenu add: 'new MIDI controller' translated action: #makeMIDIController:]. aMenu addLine. aMenu add: 'make a pause marker' translated action: #makeAPauseEvent:. + aMenu popUpInWorld: self world! - - aMenu popUpInWorld: self world. - ! Item was changed: ----- Method: ScorePlayerMorph>>onScorePlayer:title: (in category 'initialization') ----- onScorePlayer: aScorePlayer title: scoreName | divider col r | scorePlayer := aScorePlayer. scorePlayer ifNotNil: [scorePlayer reset. instrumentSelector := Array new: scorePlayer score tracks size]. self removeAllMorphs. self addMorphBack: self makeControls. scorePlayer ifNil: [^ self]. r := self makeRow + hResizing: #spaceFill; - hResizing: #shrinkWrap; vResizing: #shrinkWrap. r addMorphBack: self rateControl; addMorphBack: (Morph newBounds: (0@0 extent: 20@0) color: Color transparent); addMorphBack: self volumeControl. self addMorphBack: r. self addMorphBack: self scrollControl. col := AlignmentMorph newColumn color: color; layoutInset: 0. self addMorphBack: col. 1 to: scorePlayer trackCount do: [:trackIndex | divider := AlignmentMorph new extent: 10@1; borderWidth: 1; layoutInset: 0; borderColor: #raised; color: color; hResizing: #spaceFill; vResizing: #rigid. col addMorphBack: divider. col addMorphBack: (self trackControlsFor: trackIndex)]. LastMIDIPort ifNotNil: [ "use the most recently set MIDI port" scorePlayer openMIDIPort: LastMIDIPort]. ! Item was changed: ----- Method: ScorePlayerMorph>>rateControl (in category 'layout') ----- rateControl | rateSlider middleLine r | rateSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 180@12; - extent: 180@6; target: self; actionSelector: #setLogRate:; minVal: -1.0; maxVal: 1.0; adjustToValue: 0.0. middleLine := Morph new "center indicator for pan slider" color: (Color r: 0.4 g: 0.4 b: 0.4); extent: 1@(rateSlider height - 4); position: rateSlider center x@(rateSlider top + 2). rateSlider addMorphBack: middleLine. r := self makeRow + hResizing: #spaceFill; - hResizing: #shrinkWrap; vResizing: #rigid; height: 24. r addMorphBack: (StringMorph contents: 'slow ' translated). r addMorphBack: rateSlider. r addMorphBack: (StringMorph contents: ' fast' translated). ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>scrollControl (in category 'layout') ----- scrollControl | r | scrollSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 360@12; - extent: 360@6; target: scorePlayer; actionSelector: #positionInScore:; adjustToValue: scorePlayer positionInScore. r := self makeRow + hResizing: #spaceFill; - hResizing: #shrinkWrap; vResizing: #rigid; height: 24. r addMorphBack: (StringMorph contents: 'start ' translated). r addMorphBack: scrollSlider. r addMorphBack: (StringMorph contents: ' end' translated). ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>trackNumAndMuteButtonFor: (in category 'layout') ----- trackNumAndMuteButtonFor: trackIndex | muteButton instSelector pianoRollColor r | muteButton := SimpleSwitchMorph new onColor: (Color r: 1.0 g: 0.6 b: 0.6); offColor: color; color: color; label: 'Mute' translated; target: scorePlayer; actionSelector: #mutedForTrack:put:; arguments: (Array with: trackIndex). instSelector := PopUpChoiceMorph new extent: 95@14; contentsClipped: 'oboe1'; target: self; actionSelector: #atTrack:from:selectInstrument:; getItemsSelector: #instrumentChoicesForTrack:; getItemsArgs: (Array with: trackIndex). instSelector arguments: (Array with: trackIndex with: instSelector). instrumentSelector at: trackIndex put: instSelector. "select track color using same color list as PianoRollScoreMorph" pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. r := self makeRow hResizing: #spaceFill; vResizing: #spaceFill; extent: 70@10. r addMorphBack: ((StringMorph contents: trackIndex printString font: (TextStyle default fontOfSize: 24)) color: pianoRollColor). trackIndex < 10 ifTrue: [r addMorphBack: (Morph new color: color; extent: 19@8)] "spacer" ifFalse: [r addMorphBack: (Morph new color: color; extent: 8@8)]. "spacer" r addMorphBack: (StringMorph new + extent: 80@14; - extent: 140@14; contentsClipped: (scorePlayer infoForTrack: trackIndex)). r addMorphBack: (Morph new color: color; extent: 8@8). "spacer" r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. ^ r ! Item was changed: ----- Method: ScorePlayerMorph>>volumeControl (in category 'layout') ----- volumeControl | volumeSlider r | volumeSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 80@12; - extent: 80@6; target: scorePlayer; actionSelector: #overallVolume:; adjustToValue: scorePlayer overallVolume. r := self makeRow + hResizing: #spaceFill; - hResizing: #shrinkWrap; vResizing: #rigid; height: 24. r addMorphBack: (StringMorph contents: 'soft ' translated). r addMorphBack: volumeSlider. r addMorphBack: (StringMorph contents: ' loud' translated). ^ r !

3 7

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

Jump to page: