January 2013 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] UITheme builder, change newList list onButtonClick

by Frank Shearar

On 2 January 2013 10:39, Peter Hugosson-Miller <oldmanlink(a)gmail.com> wrote: > Sorry for hijacking the thread, I just wanted to be sure I understood it > properly. > > So now I think it's a kind of syntactical sugar for a nicer way of writing: > > Array > with: (builder newButtonFor: self action: #onPrestamosClick label: > 'Prestamos' help: '') > with: (builder newButtonFor: self action: #onMaterialesClick label: > 'Materiales' help: '') > with: (builder newButtonFor: self action: #onSociosClick label: 'Socios' > help: '') > > Does that sound like a good explanation? Yes. frank > -- > Cheers, > Peter > > On Wed, Jan 2, 2013 at 11:15 AM, Frank Shearar <frank.shearar(a)gmail.com> > wrote: >> >> On 2 January 2013 09:52, Peter Hugosson-Miller <oldmanlink(a)gmail.com> >> wrote: >> > Guess it's a bit like the ##(some expression here) of VisualAge >> > Smalltalk? >> >> I think so, but I've only seen ##(foo) in GNU Smalltalk, where it's a >> compile-time literal: >> http://www.gnu.org/software/smalltalk/manual/gst.html >> >> frank >> >> > -- >> > Cheers, >> > Peter. >> > >> > On 2 jan 2013, at 10:27, Marcus Denker <marcus.denker(a)inria.fr> wrote: >> > >> >> >> >> On Jan 2, 2013, at 10:25 AM, Peter Hugosson-Miller >> >> <oldmanlink(a)gmail.com> wrote: >> >> >> >>> I wasn't being ironic, I just didn't know. In my 18 years of Smalltalk >> >>> programming, I've managed to avoid coming across that particular syntax >> >>> before. Is it Pharo-specific? >> >> It was introduced in Squeak quite early (before 2000). >> >> >> >> Marcus

Jan. 2, 2013

Re: [Pharo-project] Nautilus with custom icons

by Benjamin

Not yet, but I am thinking of it :) For classes, it's obvious, but how to add such a mechanism for methods ? Packages ? For methods I thought about a chain of responsibility where each case is a class (let's say subclass of something to retrieve them), but how to set the order ? Delegate it to the class ? It may work actually, but I still have no idea for packages :) I think I will try this for classes and methods. And we will see for packages later Ben On Jan 2, 2013, at 10:25 AM, Torsten Bergmann wrote: > How can one add a new custom icon for his own > class (hierarchy) into Nautilus. > > I can add one with tricks in "ClassesIconsCache" > in class AbstractNautilusUI. > > But is there a default extension mechanism similar > to OB where one just implemented a method #browserIcon? > > Thx > T. >

Jan. 2, 2013

Re: [Pharo-project] About morph layout

by Henrik Sperre Johansen

On 25.12.2012 18:34, StÃ©phane Ducasse wrote: > I like this decomposition of a large interface into separate objects. > > Stef Smells like progress to me too! Cheers, Henry

Jan. 2, 2013

Re: [Pharo-project] A tantalizing path of dealing with multiple concerns...

by Henrik Sperre Johansen

On 22.12.2012 14:36, StÃ©phane Ducasse wrote: > Igor > > may be having good design could help with little objects having responsibilities and plugging the right ones :) > We should create > "The club of gentleman against little kitties killing code" > and save the kitties by refactoring the killing code :) > > Stef Thing is, the below code is probably easier to understand/less complex than one based on plugging. One could argue that understanding it would just be one #haltOnce away, but here it's all spelled out in one place. Also, the reason it was pushed in the first place was there _were_ non-BorderedMorphs which would have rendering errors if the border wasn't checked, IIRC o_O When it comes to separation of concerns, I'm not sure I'd be comfortable with a little object like (Border)Color having methods for determining the visible areas below a morph it belongs to either, so I guess a bigger refactoring would be in order ;) Cheers, Henry >> areasRemainingToFill: aRectangle >> "Pushed up from BorderedMorph, all cases tested for there are >> supported by basic Morph." >> "Morphs which achieve translucency by other means than fillStyle will have >> to reimplement this" >> "Fixed here to test the fillStyle rather than color for translucency. >> Since can have a translucent fillStyle while the (calculated) color is not." >> self fillStyle isTranslucent >> ifTrue: [^ Array with: aRectangle]. >> self wantsRoundedCorners >> ifTrue: [(self borderWidth > 0 >> and: [self borderColor isColor >> and: [self borderColor isTranslucent]]) >> ifTrue: [^ aRectangle >> areasOutside: (self innerBounds intersect: self boundsWithinCorners)] >> ifFalse: [^ aRectangle areasOutside: self boundsWithinCorners]] >> ifFalse: [(self borderWidth > 0 >> and: [self borderColor isColor >> and: [self borderColor isTranslucent]]) >> ifTrue: [^ aRectangle areasOutside: self innerBounds] >> ifFalse: [^ aRectangle areasOutside: self bounds]] >> >> >> ... the whole Morphic code fall victim of rounded corners (and borders >> , of course). >> >> I wonder, is there any way to >> a) have multiple concerns >> b) at same time, have a clean code >> ? >> But i suspect that smalltalk is not powerful enough for that. :) >

Jan. 2, 2013

Re: [Pharo-project] UITheme builder, change newList list onButtonClick

by Peter Hugosson-Miller

Sorry for hijacking the thread, I just wanted to be sure I understood it properly. So now I think it's a kind of syntactical sugar for a nicer way of writing: Array with: (builder newButtonFor: self action: #onPrestamosClick label: 'Prestamos' help: '') with: (builder newButtonFor: self action: #onMaterialesClick label: 'Materiales' help: '') with: (builder newButtonFor: self action: #onSociosClick label: 'Socios' help: '') Does that sound like a good explanation? -- Cheers, Peter On Wed, Jan 2, 2013 at 11:15 AM, Frank Shearar <frank.shearar(a)gmail.com>wrote: > On 2 January 2013 09:52, Peter Hugosson-Miller <oldmanlink(a)gmail.com> > wrote: > > Guess it's a bit like the ##(some expression here) of VisualAge > Smalltalk? > > I think so, but I've only seen ##(foo) in GNU Smalltalk, where it's a > compile-time literal: > http://www.gnu.org/software/smalltalk/manual/gst.html > > frank > > > -- > > Cheers, > > Peter. > > > > On 2 jan 2013, at 10:27, Marcus Denker <marcus.denker(a)inria.fr> wrote: > > > >> > >> On Jan 2, 2013, at 10:25 AM, Peter Hugosson-Miller < > oldmanlink(a)gmail.com> wrote: > >> > >>> I wasn't being ironic, I just didn't know. In my 18 years of Smalltalk > programming, I've managed to avoid coming across that particular syntax > before. Is it Pharo-specific? > >> It was introduced in Squeak quite early (before 2000). > >> > >> Marcus >

Jan. 2, 2013

Re: [Pharo-project] UITheme builder, change newList list onButtonClick

by Frank Shearar

On 2 January 2013 09:52, Peter Hugosson-Miller <oldmanlink(a)gmail.com> wrote: > Guess it's a bit like the ##(some expression here) of VisualAge Smalltalk? I think so, but I've only seen ##(foo) in GNU Smalltalk, where it's a compile-time literal: http://www.gnu.org/software/smalltalk/manual/gst.html frank > -- > Cheers, > Peter. > > On 2 jan 2013, at 10:27, Marcus Denker <marcus.denker(a)inria.fr> wrote: > >> >> On Jan 2, 2013, at 10:25 AM, Peter Hugosson-Miller <oldmanlink(a)gmail.com> wrote: >> >>> I wasn't being ironic, I just didn't know. In my 18 years of Smalltalk programming, I've managed to avoid coming across that particular syntax before. Is it Pharo-specific? >> It was introduced in Squeak quite early (before 2000). >> >> Marcus >> >> >

Jan. 2, 2013

Re: [Pharo-project] UITheme builder, change newList list onButtonClick

by Peter Hugosson-Miller

Guess it's a bit like the ##(some expression here) of VisualAge Smalltalk? -- Cheers, Peter. On 2 jan 2013, at 10:27, Marcus Denker <marcus.denker(a)inria.fr> wrote: > > On Jan 2, 2013, at 10:25 AM, Peter Hugosson-Miller <oldmanlink(a)gmail.com> wrote: > >> I wasn't being ironic, I just didn't know. In my 18 years of Smalltalk programming, I've managed to avoid coming across that particular syntax before. Is it Pharo-specific? > It was introduced in Squeak quite early (before 2000). > > Marcus > >

Jan. 2, 2013

Re: [Pharo-project] UITheme builder, change newList list onButtonClick

by Marcus Denker

On Jan 2, 2013, at 10:25 AM, Peter Hugosson-Miller <oldmanlink(a)gmail.com> wrote: > I wasn't being ironic, I just didn't know. In my 18 years of Smalltalk programming, I've managed to avoid coming across that particular syntax before. Is it Pharo-specific? > It was introduced in Squeak quite early (before 2000). Marcus

Jan. 2, 2013

[Pharo-project] Nautilus with custom icons

by Torsten Bergmann

How can one add a new custom icon for his own class (hierarchy) into Nautilus. I can add one with tricks in "ClassesIconsCache" in class AbstractNautilusUI. But is there a default extension mechanism similar to OB where one just implemented a method #browserIcon? Thx T.

Jan. 2, 2013

Re: [Pharo-project] UITheme builder, change newList list onButtonClick

by Peter Hugosson-Miller

I wasn't being ironic, I just didn't know. In my 18 years of Smalltalk programming, I've managed to avoid coming across that particular syntax before. Is it Pharo-specific? -- Cheers, Peter. On 2 jan 2013, at 10:12, Frank Shearar <frank.shearar(a)gmail.com> wrote: > On 2 January 2013 09:09, Peter Hugosson-Miller <oldmanlink(a)gmail.com> wrote: >> Quick question: what's with all the curly braces? This doesn't look much like Smalltalk code to me :-P > > I don't know how much this is tongue-in-cheek: assuming none ( :) ), > it's a literal Array assembled by sending messages, as opposed to the > other kind of literal Array: #(1 (2 3)) = Array with: 1 with: (Array > with: 2 with: 3). > > frank > >> -- >> Cheers, >> Peter. >> >> On 2 jan 2013, at 10:02, J. P. L. MartÃn <arguser(a)gmail.com> wrote: >> >>> Hello, I'm having trouble to figure out how to do this, I have a simple window with 3 buttons, each button should change the content listed on the list below them but I'm really not sure about how to do it. >>> >>> This is the code for the window: >>> --- >>> open >>> "Abre la ventana principal del Sistema de Gestion Bibleotecaria" >>> >>> | builder contain | >>> builder := UITheme builder. >>> contain := builder newColumn: {builder newRow: { >>> builder newButtonFor: self action: #onPrestamosClick label: 'Prestamos' help: ''. >>> builder newButtonFor: self action: #onMaterialesClick label: 'Materiales' help: ''. >>> builder newButtonFor: self action: #onSociosClick label: 'Socios' help: ''}. >>> builder newColumn: { >>> builder newListFor: self list: nil selected: nil changeSelected: nil help: '' }.}. >>> >>> (contain openInWindowLabeled: 'Babel') extent: 600@600. >>> --- >>> >>> How should I define #onLabelClick to set the list to for example: Prestamo database. >>> >>> Thanks in advance. >

Jan. 2, 2013