Squeak-dev April 2010

squeak-dev@lists.squeakfoundation.org

122 participants
595 discussions

Window color preferences (was Re: [squeak-dev] The Trunk: System-bf.323.mcz)
by Bert Freudenberg 30 Apr '10

30 Apr '10

Uh oh. What happened here? My package in image was not marked dirty, how come it's different from the repository version? - Bert - On 29.04.2010, at 23:07, commits(a)source.squeak.org wrote: > > Bert Freudenberg uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-bf.323.mcz > > ==================== Summary ==================== > > Name: System-bf.323 > Author: bf > Time: 30 April 2010, 1:07:04.646 am > UUID: cf1cf12c-ec20-4a02-8983-2b2b4a651bed > Ancestors: System-ul.322, System-sbw.320 > > Merge System-sbw.320: Sets default condition for Annotations Preference to true if undefined. > > > =============== Diff against System-ul.322 =============== > > Item was changed: > ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') ----- > lexiconWindowColor > ^ self > valueOfFlag: #lexiconWindowColor > ifAbsent: [Color > + r: 0.878 > + g: 1.0 > + b: 0.878]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') ----- > instanceBrowserWindowColor > ^ self > valueOfFlag: #instanceBrowserWindowColor > ifAbsent: [Color > + r: 0.806 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>annotationPanes (in category 'standard queries') ----- > annotationPanes > ^ self > valueOfFlag: #annotationPanes > + ifAbsent: [true]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') ----- > fileListWindowColor > ^ self > valueOfFlag: #fileListWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 0.8 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') ----- > debuggerWindowColor > ^ self > valueOfFlag: #debuggerWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 0.8 > + b: 0.8]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') ----- > defaultWindowColor > ^ self > valueOfFlag: #defaultWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') ----- > workspaceWindowColor > ^ self > valueOfFlag: #workspaceWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 1.0 > + b: 0.8]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') ----- > classCommentVersionsBrowserWindowColor > ^ self > valueOfFlag: #classCommentVersionsBrowserWindowColor > ifAbsent: [Color > + r: 0.769 > + g: 0.653 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') ----- > fileContentsBrowserWindowColor > ^ self > valueOfFlag: #fileContentsBrowserWindowColor > ifAbsent: [Color > + r: 0.8 > + g: 0.8 > + b: 0.5]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') ----- > versionsBrowserWindowColor > ^ self > valueOfFlag: #versionsBrowserWindowColor > ifAbsent: [Color > + r: 0.869 > + g: 0.753 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') ----- > testRunnerWindowColor > ^ self > valueOfFlag: #testRunnerWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 0.6 > + b: 0.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') ----- > dualChangeSorterWindowColor > ^ self > valueOfFlag: #dualChangeSorterWindowColor > ifAbsent: [Color > + r: 0.8 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') ----- > messageListWindowColor > ^ self > valueOfFlag: #messageListWindowColor > ifAbsent: [Color > + r: 0.8 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') ----- > messageNamesWindowColor > ^ self > valueOfFlag: #messageNamesWindowColor > ifAbsent: [Color > + r: 0.645 > + g: 1.0 > + b: 0.452]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') ----- > browserWindowColor > ^ self > valueOfFlag: #browserWindowColor > ifAbsent: [Color > + r: 0.8 > + g: 1.0 > + b: 0.6]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') ----- > packageLoaderWindowColor > ^ self > valueOfFlag: #packageLoaderWindowColor > ifAbsent: [Color > + r: 0.9 > + g: 0.9 > + b: 0.781]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') ----- > transcriptWindowColor > ^ self > valueOfFlag: #transcriptWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 0.8 > + b: 0.4]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') ----- > changeSorterWindowColor > ^ self > valueOfFlag: #changeSorterWindowColor > ifAbsent: [Color > + r: 0.8 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') ----- > methodFinderWindowColor > ^ self > valueOfFlag: #methodFinderWindowColor > ifAbsent: [Color > + r: 0.4 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') ----- > changeListWindowColor > ^ self > valueOfFlag: #changeListWindowColor > ifAbsent: [Color > + r: 0.8 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') ----- > preferenceBrowserWindowColor > ^ self > valueOfFlag: #preferenceBrowserWindowColor > ifAbsent: [Color > + r: 0.645 > + g: 1.0 > + b: 1.0]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') ----- > packageBrowserWindowColor > ^ self > valueOfFlag: #packageBrowserWindowColor > ifAbsent: [Color > + r: 1.0 > + g: 1.0 > + b: 0.6]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > > Item was changed: > ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') ----- > monticelloToolWindowColor > ^ self > valueOfFlag: #monticelloToolWindowColor > ifAbsent: [Color > + r: 0.627 > + g: 0.69 > + b: 0.976]! > - r: 0.875 > - g: 0.875 > - b: 0.875]! > >

2 1

The Trunk: Tools-bf.238.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

Bert Freudenberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-bf.238.mcz ==================== Summary ==================== Name: Tools-bf.238 Author: bf Time: 30 April 2010, 1:12:28.458 am UUID: d9aa92f2-c52f-4218-bad3-915e982cd394 Ancestors: Tools-bf.237, Tools-fbs.234 merge Tools-fbs.234 M7511: MessageNames uses Browser's better-named Frame creation methods. =============== Diff against Tools-bf.237 =============== Item was changed: ----- Method: MessageNames>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "ToolBuilder open: MessageNames new" + | searchPaneHeight windowSpec max result | + searchPaneHeight := self buttonHeight. - | windowSpec max result | max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. windowSpec := self buildWindowWith: builder specs: { + (self topConstantHeightFrame: searchPaneHeight fromLeft: 0 width: 0.5) -> [self buildSearchPaneWith: builder]. + (self selectorListFrame: max fromTop: searchPaneHeight) -> [self buildSelectorListWith: builder]. - (self searchPaneFrame: self buttonHeight) -> [self buildSearchPaneWith: builder]. - (self selectorListFrame: max fromTop: self buttonHeight) -> [self buildSelectorListWith: builder]. (0.5(a)0.0 corner: 1.0@max) -> [self buildMessageListWith: builder]. (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. }. result := builder build: windowSpec. searchPane := builder widgetAt: #search. ^result! Item was removed: - ----- Method: MessageNames>>searchPaneFrame: (in category 'toolbuilder') ----- - searchPaneFrame: height - ^LayoutFrame new - leftFraction: 0 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 0.5 offset: 0; - bottomFraction: 0 offset: height.!

1 0

The Trunk: System-bf.323.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.323.mcz ==================== Summary ==================== Name: System-bf.323 Author: bf Time: 30 April 2010, 1:07:04.646 am UUID: cf1cf12c-ec20-4a02-8983-2b2b4a651bed Ancestors: System-ul.322, System-sbw.320 Merge System-sbw.320: Sets default condition for Annotations Preference to true if undefined. =============== Diff against System-ul.322 =============== Item was changed: ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') ----- lexiconWindowColor ^ self valueOfFlag: #lexiconWindowColor ifAbsent: [Color + r: 0.878 + g: 1.0 + b: 0.878]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') ----- instanceBrowserWindowColor ^ self valueOfFlag: #instanceBrowserWindowColor ifAbsent: [Color + r: 0.806 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>annotationPanes (in category 'standard queries') ----- annotationPanes ^ self valueOfFlag: #annotationPanes + ifAbsent: [true]! - ifAbsent: [false]! Item was changed: ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') ----- fileListWindowColor ^ self valueOfFlag: #fileListWindowColor ifAbsent: [Color + r: 1.0 + g: 0.8 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') ----- debuggerWindowColor ^ self valueOfFlag: #debuggerWindowColor ifAbsent: [Color + r: 1.0 + g: 0.8 + b: 0.8]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') ----- defaultWindowColor ^ self valueOfFlag: #defaultWindowColor ifAbsent: [Color + r: 1.0 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') ----- workspaceWindowColor ^ self valueOfFlag: #workspaceWindowColor ifAbsent: [Color + r: 1.0 + g: 1.0 + b: 0.8]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') ----- classCommentVersionsBrowserWindowColor ^ self valueOfFlag: #classCommentVersionsBrowserWindowColor ifAbsent: [Color + r: 0.769 + g: 0.653 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') ----- fileContentsBrowserWindowColor ^ self valueOfFlag: #fileContentsBrowserWindowColor ifAbsent: [Color + r: 0.8 + g: 0.8 + b: 0.5]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') ----- versionsBrowserWindowColor ^ self valueOfFlag: #versionsBrowserWindowColor ifAbsent: [Color + r: 0.869 + g: 0.753 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') ----- testRunnerWindowColor ^ self valueOfFlag: #testRunnerWindowColor ifAbsent: [Color + r: 1.0 + g: 0.6 + b: 0.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') ----- dualChangeSorterWindowColor ^ self valueOfFlag: #dualChangeSorterWindowColor ifAbsent: [Color + r: 0.8 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') ----- messageListWindowColor ^ self valueOfFlag: #messageListWindowColor ifAbsent: [Color + r: 0.8 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') ----- messageNamesWindowColor ^ self valueOfFlag: #messageNamesWindowColor ifAbsent: [Color + r: 0.645 + g: 1.0 + b: 0.452]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') ----- browserWindowColor ^ self valueOfFlag: #browserWindowColor ifAbsent: [Color + r: 0.8 + g: 1.0 + b: 0.6]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') ----- packageLoaderWindowColor ^ self valueOfFlag: #packageLoaderWindowColor ifAbsent: [Color + r: 0.9 + g: 0.9 + b: 0.781]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') ----- transcriptWindowColor ^ self valueOfFlag: #transcriptWindowColor ifAbsent: [Color + r: 1.0 + g: 0.8 + b: 0.4]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') ----- changeSorterWindowColor ^ self valueOfFlag: #changeSorterWindowColor ifAbsent: [Color + r: 0.8 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') ----- methodFinderWindowColor ^ self valueOfFlag: #methodFinderWindowColor ifAbsent: [Color + r: 0.4 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') ----- changeListWindowColor ^ self valueOfFlag: #changeListWindowColor ifAbsent: [Color + r: 0.8 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') ----- preferenceBrowserWindowColor ^ self valueOfFlag: #preferenceBrowserWindowColor ifAbsent: [Color + r: 0.645 + g: 1.0 + b: 1.0]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') ----- packageBrowserWindowColor ^ self valueOfFlag: #packageBrowserWindowColor ifAbsent: [Color + r: 1.0 + g: 1.0 + b: 0.6]! - r: 0.875 - g: 0.875 - b: 0.875]! Item was changed: ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') ----- monticelloToolWindowColor ^ self valueOfFlag: #monticelloToolWindowColor ifAbsent: [Color + r: 0.627 + g: 0.69 + b: 0.976]! - r: 0.875 - g: 0.875 - b: 0.875]!

1 0

The Trunk: Sound-wiz.18.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

A new version of Sound was added to project The Trunk: http://source.squeak.org/trunk/Sound-wiz.18.mcz ==================== Summary ==================== Name: Sound-wiz.18 Author: wiz Time: 28 April 2010, 4:08:23.052 pm UUID: 234c49bf-dace-4b55-83b1-beee75a189de Ancestors: Sound-nice.15 Ok this is a resubmission of String>>sound now names String>>#asSound in compliance with Bert's preference. I have fixed the nits. I have discussed why I believe this is the right word rather than asSound on the mailing list. Squeak-dev 2010. I have not heard back from Bert. He still is in favor of this form over my preference. Authority matters so we are now in compliance. Usage: "'click' asSound play" will play a click sound from the sound library. Any name missing from the sound library will return a default sound to be played. Currently the default is the same as Beeper default. The purpose of the selector is to be a facade to allow access to sounds by name. Currently this only covers the Sampled Sound sound library and the default sound. However, the contract is only that " 'name' asSound " return a playable object. So in the future this could be expanded to check other sound libraries as well before relying on the default. =============== Diff against Sound-nice.15 =============== Item was added: + ----- Method: String>>asSound (in category '*sound-synthesis') ----- + asSound + "Return a sound. Either from the sound library via SampleSound or + else the Beeper default" + ^ SampledSound + soundNamed: self + ifAbsent: [Beeper default]!

1 0

The Trunk: Tools-bf.237.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

Bert Freudenberg uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-bf.237.mcz ==================== Summary ==================== Name: Tools-bf.237 Author: bf Time: 30 April 2010, 12:57:28.377 am UUID: d6dc1fb0-8d17-494e-830b-6c2f7ed5bc3e Ancestors: Tools-hmm.236, Tools-fbs.236 merge Tools-fbs.236: Support for Mantis 7517: a spawned workspace has no context menu. (Make the View update when the Model changes.) =============== Diff against Tools-hmm.236 =============== Item was added: + ----- Method: Workspace>>contents: (in category 'accessing') ----- + contents: textOrString + super contents: textOrString. + self changed: #contents.!

1 0

The Trunk: Kernel-fbs.448.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

A new version of Kernel was added to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.448.mcz ==================== Summary ==================== Name: Kernel-fbs.448 Author: fbs Time: 28 April 2010, 10:30:41.538 pm UUID: f46f80a9-5492-9542-9826-80a936a01df8 Ancestors: Kernel-ul.447 Support for Mantis 7517: a spawned workspace has no context menu. =============== Diff against Kernel-ul.447 =============== Item was changed: ----- Method: StringHolder class>>open (in category 'instance creation') ----- open + ^ (Smalltalk at: #Workspace ifAbsent:[self]) new openLabel: 'Workspace' - (Smalltalk at: #Workspace ifAbsent:[self]) new openLabel: 'Workspace' "Not to be confused with our own class var 'Workspace'"!

1 0

[NativeBoost] new win32 build available
by Igor Stasenko 30 Apr '10

30 Apr '10

Hello, i just uploaded a new VM, i built tonight and new NativeBoost code. VM is built from latest SVN + VMMaker + NativeBoostPlugin sources, and now NativeBoost can use all latest additions to interpreterProxy function table, such as addGCRoot, stackPointer etc. And there's already a code which using that, named NBExternalTypeRegistry. It serves as a dictionary of name->object values, where you can register any object under given name and then use it in native code (during native code generation). This is analoguous to what SpecialObjectArray serving for, where you can put an object and then use that object in primitives through well-known index. But in contrast to SpecialObjectArray, a NBExternalTypeRegistry doesn't requires from you to use indexes. You can use just names! Also, it doesn't requires from you to statically assign or initialize the same set of name/value pairs at each image startup. All what you need is just register an object first: NBExternalTypeRegistry current at: #MyName put: #(10 12 13) and then, in your assembler, emit code to load it: NBExternalTypeRegistry current emitOopAt: #MyName generator: gen When your restarting a VM, it makes sure that this registry are initially clean. So, it is get refilled only when some new native methods is generated which are using registry to fetch some named object(s). The most often use of named objects is, of course, instantiating the objects of specific class, like: self typeRegistry emitFetchClass: objectClass generator: gen. proxy instantiateClass: asm EAX indexableSize: 0. Or, checking that argument is of correct type. Here, the method which generates a code to verify that argument class (held in oop) will be an objectClass: validateClassOf: oop generator: gen | asm class | asm := gen asm. class := gen reserveTemp. gen proxy fetchClassOf: oop. asm mov: asm EAX to: class. self typeRegistry emitFetchClass: objectClass generator: gen. asm cmp: asm EAX with: class; jne: gen failedLabel. gen releaseTemps: 1. -- Best regards, Igor Stasenko AKA sig.

3 4

The Trunk: ToolBuilder-Morphic-fbs.58.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

A new version of ToolBuilder-Morphic was added to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-fbs.58.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-fbs.58 Author: fbs Time: 28 April 2010, 10:32:38.987 pm UUID: 5f1f5812-f1d8-824f-8aed-a884428b9fdd Ancestors: ToolBuilder-Morphic-ar.57 Support for Mantis 7517: a spawned workspace has no context menu. Instead of building the Workspace's model by hand, just ask the Workspace to do it itself. =============== Diff against ToolBuilder-Morphic-ar.57 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" + | window | + window := Workspace open. + window model acceptContents: aText. + window model acceptAction: anAction. + ^window.! - | window holder text | - holder := Workspace new. - holder contents: aText. - holder shouldStyle: false. - text := PluggableTextMorphPlus - on: holder - text: #contents - accept: #acceptContents: - readSelection: nil - menu: nil. - text useDefaultStyler. - text acceptAction: anAction. - window := SystemWindow new. - labelString ifNotNil:[window setLabel: labelString]. - window model: holder . - window addMorph: text frame: (0@0 extent: 1@1). - window openInWorld. - ^window!

1 0

The Trunk: GraphicsTests-wiz.23.mcz
by commits＠source.squeak.org 30 Apr '10

30 Apr '10

A new version of GraphicsTests was added to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-wiz.23.mcz ==================== Summary ==================== Name: GraphicsTests-wiz.23 Author: wiz Time: 29 April 2010, 2:18:35.461 am UUID: 98625695-e54f-407f-b627-a90e6d5dfa80 Ancestors: GraphicsTests-ar.22 This adds a test demonstrating that rectangles will change shape when their dimensions are rounded if the origin and corner are in different quadrants. See Mantis 2453 http://bugs.squeak.org/view.php?id=2453 The condition for this to happen occurs anytime a morph with odd extent is rendered by a transformation morph. Yours in curiosity and service, --Jerome Peace =============== Diff against GraphicsTests-ar.22 =============== Item was added: + ----- Method: RectangleTest>>testRoundingAfterHalfPixelTranslation (in category 'tests') ----- + testRoundingAfterHalfPixelTranslation + "A rectangle right on the cusp of rounding changes shape if origin and + corner are in differenct quadrants" + "self debug: #testRoundingAfterHalfPixelTranslation" + | trouble noTrouble | + trouble := 10 negated asPoint rect: 10 asPoint. + noTrouble := trouble translateBy: 15. + + 10 timesRepeat: [trouble := (trouble translateBy: 0.5) rounded]. + 10 timesRepeat: [noTrouble := (noTrouble translateBy: 0.5) rounded]. + + self assert: trouble extent = noTrouble extent!

1 0

Re: [squeak-dev] The Inbox: Sound-wiz.17.mcz
by Bert Freudenberg 30 Apr '10

30 Apr '10

On 28.04.2010, at 06:32, commits(a)source.squeak.org wrote: > > A new version of Sound was added to project The Inbox: > http://source.squeak.org/inbox/Sound-wiz.17.mcz > > ==================== Summary ==================== > > Name: Sound-wiz.17 > Author: wiz > Time: 28 April 2010, 2:31:56.883 am > UUID: 0ea1e8e2-7a94-44cd-8db8-5e01002db31a > Ancestors: Sound-nice.15 > > Ok this is a resubmission of String>>sound. > > I have fixed the nits. > > I have discussed why I believe this is the right word rather than asSound on the mailing list. Squeak-dev 2010. I have not heard back from Bert yea of nay. So as not to undermine my own cause I am assuming my arguments were successful. Well, I can see the satisfying smile in being able to write "'croak' sound play". In particular if you're a native speaker. That makes my objection to it not absolute, and in any case, my opinion isn't the only one that counts ;) But knowing the naming conventions of the system as we have it, I could never guess that selector. The name that comes to my mind when thinking "I've got a String and I want it to be a Sound, wonder if there's a direct method for that" is "asSound". Because I know the pattern of asInteger, asDate, asTime, etc. It just is more in line with the other conversion methods. For reference, I copied this list from a Protocol Browser on String: asActionSequence (Object) asActionSequenceTrappingErrors (Object) asAlphaNumeric:extraChars:mergeUID: (String) asArray (SequenceableCollection) asBag (Collection) asByteArray (String) asByteString (String) asCharacter (String) asCharacterSet (Collection) asColorArray (SequenceableCollection) asCommaString (Collection) asCommaStringAnd (Collection) asCubic (SequenceableCollection) asDate (String) asDateAndTime (String) asDecomposedUnicode (String) asDigitsAt:in:do: (SequenceableCollection) asDigitsToPower:do: (SequenceableCollection) asDisplayText (String) asDraggableMorph (Object) asDuration (String) asExplorerString (String) asFileName (String) asFloatArray (SequenceableCollection) asFourCode (String) asHex (String) asHtml (String) asIdentifier: (String) asIdentitySet (Collection) asInteger (String) asIntegerArray (SequenceableCollection) asLegalSelector (String) asLowercase (String) asMorph (String) asNumber (String) asOctetString (String) asOop (Object) asOrderedCollection (Collection) asPacked (String) asParagraph (String) asPluralBasedOn: (String) asPointArray (SequenceableCollection) asPostscript (String) asPrecomposedUnicode (String) asSet (Collection) asSetElement (Object) asSignedInteger (String) asSmalltalkComment (String) asSortedArray (ArrayedCollection) asSortedCollection (Collection) asSortedCollection: (Collection) asSqueakPathName (String) asString (String) asStringMorph (String) asStringOn:delimiter: (Collection) asStringOn:delimiter:last: (Collection) asStringOrText (String) asStringWithCr (SequenceableCollection) asSymbol (String) asText (String) asTextMorph (Object) asTime (String) asTimeStamp (String) asTraitComposition (SequenceableCollection) asURI (String) asUVersion (String) asUnHtml (String) asUnsignedInteger (String) asUppercase (String) asUrl (String) asUrlRelativeTo: (String) asVersion (String) asVmPathName (String) asWideString (String) asWordArray (SequenceableCollection) To me, the little "as" prefix is not superfluous at all. It makes a selector visibly belong to a familiar class of methods. I really really want to encourage you making Squeak easier to play with interactively. It's what makes Squeak special. But "as close to natural language as possible" is not the only criterium for that. Discoverability and consistency are important, too. And in that department, "asSound" wins, IMHO. - Bert -

4 3

← Newer
1
2
3
4
5
6
7
8
...
60
Older →

Jump to page: