July 2012 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] a little pearl from SystemProgressMorph

by Nicolas Cellier

As far as the DSL remain Turing complete, that does not matter ;) Nicolas 2012/7/27 Tudor Girba <tudor(a)tudorgirba.com>: > I checked in Pharo 2.0, and it looks ... well, how should I put it: > it's confusing. You took a clear piece of code that could be printed > on a nice A4 paper, and transformed it into a myriad of delegations. > > I think you are just too afraid of if-statements. Clearly, a better > solution would have been to just use caseOf:. > > Doru > > p.s. :) > > > On Thu, Jul 26, 2012 at 8:55 PM, StÃ©phane Ducasse > <stephane.ducasse(a)inria.fr> wrote: >> And I removed the strip behavior. >> In 2.0 it is not there. >> >> Stef >> >> On Jul 25, 2012, at 4:47 PM, Tudor Girba wrote: >> >>> Just for fun read the below piece of code :) >>> >>> >>> SystemProgressMorph>>label: shortDescription min: startMinValue max: >>> startMaxValue >>> "Answer the block that updates the progress bar." >>> >>> "some fun stuff added (by kph) >>> >>> - bar value: #label. - tell me my current label. >>> - bar value: 'newLabel'. - enable changing the label from within the workBlock >>> - bar value: #increment. - enable progress by one without keeping a counter >>> - bar value: #decrement. - go backwards (if you really have to, >>> useful for an abort, or rollback)! >>> >>> - bar value: newBigNum. - change the max on the fly - when you find >>> there is more to do. >>> - bar value: (bar value: #setMax) + 20 - change the max on the fly - >>> when you find there is more/less to do. >>> - bar value: (bar value: #setMin) - 20 - change the min on the fly - >>> not sure why you would want to. >>> " >>> | slot range barSize lastRefresh maxValue minValue bar| >>> maxValue := startMaxValue. >>> minValue := startMinValue. >>> ((range := maxValue - minValue) <= 0 or: [(slot := self nextSlotFor: >>> shortDescription) = 0]) >>> ifTrue: [^[:barVal| 0 ]]. >>> self recenter. >>> self openInWorld. >>> barSize := -1. "Enforces a inital draw of the morph" >>> lastRefresh := Time millisecondClockValue. >>> bar := bars at: slot. >>> ^[:barValArg | | barVal return newBarSize | >>> barVal := barValArg. >>> return := nil. >>> bar := bars at: slot. >>> "new fun stuff here" >>> barVal == #current ifTrue: [ return := barSize ]. >>> barVal == #label ifTrue:[ return := (labels at: slot) contents ]. >>> barVal == #setMax ifTrue: [ return := maxValue. maxValue := minValue ]. >>> barVal == #setMin ifTrue: [ return := minValue. minValue := maxValue ]. >>> barVal == #increment ifTrue: [return := barVal := barSize + 1]. >>> barVal == #decrement ifTrue: [ return := barVal := barSize - 1]. >>> (barVal isString and: [barVal isSymbol not]) ifTrue: [ >>> (labels at: slot) contents: barVal. >>> barVal := #refresh]. >>> barVal == #refresh ifTrue: [self currentWorld displayWorld. return := true]. >>> (barVal == SmallInteger maxVal or: [ barVal == #finished ]) ifTrue: >>> [return := slot]. >>> return ifNil: [ >>> barVal > maxValue ifTrue: [return := maxValue := barVal]. >>> barVal < minValue ifTrue: [return := minValue := barVal]. >>> (barVal between: minValue and: maxValue) >>> ifTrue: [newBarSize := (barVal - minValue / range * BarWidth) truncated. >>> newBarSize = barSize >>> ifFalse: [barSize := newBarSize. >>> (Time millisecondsSince: lastRefresh) > 25 >>> ifTrue: [barVal := #refresh ]]]. >>> barVal == #refresh ifTrue: [ >>> ((bar valueOfProperty: #useStripes) ifNil: [false]) >>> ifTrue: [bar fillStyle origin: bar position - ((Time >>> millisecondClockValue // 50 \\ 30) @ 0)]. >>> bar barSize: barSize. >>> self currentWorld displayWorld. >>> lastRefresh := Time millisecondClockValue]]. >>> return] >>> >>> Cheers, >>> Doru >>> >>> -- >>> www.tudorgirba.com >>> >>> "Every thing has its own flow" >>> >> >> > > > > -- > www.tudorgirba.com > > "Every thing has its own flow" >

July 27, 2012

Re: [Pharo-project] need maximized windows and hotkey for world menu - pharo 2.0

by jhancock

ok, so I'll play with 1.4 some more. thanks for the advice. Is there a way to set a global hotkey to get the world menu in 1.4? -- Jon Hancock On Friday, July 27, 2012 at 6:35 PM, StÃ©phane Ducasse [via Smalltalk] wrote: > > On Jul 27, 2012, at 6:04 AM, jhancock wrote: > > > Hi, I'm just getting back into pharo and starting with the current 2.0. > > Pay attention this is bleeding edge. I mean really changing since we are really improving a lot of aspects. > > Stef > > > I > > would like to be able maximize a window without having the wasted space > > outside it. I realize this maybe wasn't done because it keeps me from > > getting to the world menu. > > > > Can someone point me out some places or provide some pieces of code to set a > > global hotkey to get the world menu and also to make maximize take all > > space. > > > > thanks, Jon > > > > > > > > -- > > View this message in context: http://forum.world.st/need-maximized-windows-and-hotkey-for-world-menu-phar… > > Sent from the Pharo Smalltalk mailing list archive at Nabble.com (http://Nabble.com) > > > > > > If you reply to this email, your message will be added to the discussion below: http://forum.world.st/need-maximized-windows-and-hotkey-for-world-menu-phar… > To unsubscribe from need maximized windows and hotkey for world menu - pharo 2.0, click here (http://forum.world.st/template/NamlServlet.jtp?macro=unsubscribe_by_code&no…) > NAML (http://forum.world.st/template/NamlServlet.jtp?macro=macro_viewer&id=instan…) -- View this message in context: http://forum.world.st/need-maximized-windows-and-hotkey-for-world-menu-phar… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

July 27, 2012

Re: [Pharo-project] NBCog on Windows

by Igor Stasenko

should be there, try Smalltalk listBuiltinModules and see if it there On 27 July 2012 12:55, Erwan Douaille <douailleerwan(a)gmail.com> wrote: > I just tried it now with NBOpenGL and it work fine for me > > > 2012/7/27 Henrik Sperre Johansen <henrik.s.johansen(a)veloxit.no> >> >> Is the NB-plugin in it working for anyone else? >> Downloading "Latest successful artifact" from >> >> https://ci.lille.inria.fr/pharo/view/Cog/job/NativeBoost-Cog-VM/Architectur… >> >> I just get the fallback-error from NativeBoost lastError when running >> NB-methods... >> >> Cheers, >> Henry >> > > > > -- > Best regards, > > Douaille Erwan <douaille.erwan(a)gmail.com> -- Best regards, Igor Stasenko.

July 27, 2012

Re: [Pharo-project] markdown to latext and html

by Tudor Girba

I meant that you can use the Pier engine, not the web editor. It's a really nice model and it would be great to have it used more deeply for documentation. Doru On Thu, Jul 26, 2012 at 9:01 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > > >> The Pier Book offers this pretty much out of the box. > > I know, I wrote the seaside book with it and I would like to stick with svn and my default latex tools. > For example sven wants to have a copy of his text on his server and I go much slower on > a pier book when I cannot work in the train or not connected. > > Stef > > > -- www.tudorgirba.com "Every thing has its own flow"

July 27, 2012

Re: [Pharo-project] a little pearl from SystemProgressMorph

by Tudor Girba

I checked in Pharo 2.0, and it looks ... well, how should I put it: it's confusing. You took a clear piece of code that could be printed on a nice A4 paper, and transformed it into a myriad of delegations. I think you are just too afraid of if-statements. Clearly, a better solution would have been to just use caseOf:. Doru p.s. :) On Thu, Jul 26, 2012 at 8:55 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > And I removed the strip behavior. > In 2.0 it is not there. > > Stef > > On Jul 25, 2012, at 4:47 PM, Tudor Girba wrote: > >> Just for fun read the below piece of code :) >> >> >> SystemProgressMorph>>label: shortDescription min: startMinValue max: >> startMaxValue >> "Answer the block that updates the progress bar." >> >> "some fun stuff added (by kph) >> >> - bar value: #label. - tell me my current label. >> - bar value: 'newLabel'. - enable changing the label from within the workBlock >> - bar value: #increment. - enable progress by one without keeping a counter >> - bar value: #decrement. - go backwards (if you really have to, >> useful for an abort, or rollback)! >> >> - bar value: newBigNum. - change the max on the fly - when you find >> there is more to do. >> - bar value: (bar value: #setMax) + 20 - change the max on the fly - >> when you find there is more/less to do. >> - bar value: (bar value: #setMin) - 20 - change the min on the fly - >> not sure why you would want to. >> " >> | slot range barSize lastRefresh maxValue minValue bar| >> maxValue := startMaxValue. >> minValue := startMinValue. >> ((range := maxValue - minValue) <= 0 or: [(slot := self nextSlotFor: >> shortDescription) = 0]) >> ifTrue: [^[:barVal| 0 ]]. >> self recenter. >> self openInWorld. >> barSize := -1. "Enforces a inital draw of the morph" >> lastRefresh := Time millisecondClockValue. >> bar := bars at: slot. >> ^[:barValArg | | barVal return newBarSize | >> barVal := barValArg. >> return := nil. >> bar := bars at: slot. >> "new fun stuff here" >> barVal == #current ifTrue: [ return := barSize ]. >> barVal == #label ifTrue:[ return := (labels at: slot) contents ]. >> barVal == #setMax ifTrue: [ return := maxValue. maxValue := minValue ]. >> barVal == #setMin ifTrue: [ return := minValue. minValue := maxValue ]. >> barVal == #increment ifTrue: [return := barVal := barSize + 1]. >> barVal == #decrement ifTrue: [ return := barVal := barSize - 1]. >> (barVal isString and: [barVal isSymbol not]) ifTrue: [ >> (labels at: slot) contents: barVal. >> barVal := #refresh]. >> barVal == #refresh ifTrue: [self currentWorld displayWorld. return := true]. >> (barVal == SmallInteger maxVal or: [ barVal == #finished ]) ifTrue: >> [return := slot]. >> return ifNil: [ >> barVal > maxValue ifTrue: [return := maxValue := barVal]. >> barVal < minValue ifTrue: [return := minValue := barVal]. >> (barVal between: minValue and: maxValue) >> ifTrue: [newBarSize := (barVal - minValue / range * BarWidth) truncated. >> newBarSize = barSize >> ifFalse: [barSize := newBarSize. >> (Time millisecondsSince: lastRefresh) > 25 >> ifTrue: [barVal := #refresh ]]]. >> barVal == #refresh ifTrue: [ >> ((bar valueOfProperty: #useStripes) ifNil: [false]) >> ifTrue: [bar fillStyle origin: bar position - ((Time >> millisecondClockValue // 50 \\ 30) @ 0)]. >> bar barSize: barSize. >> self currentWorld displayWorld. >> lastRefresh := Time millisecondClockValue]]. >> return] >> >> Cheers, >> Doru >> >> -- >> www.tudorgirba.com >> >> "Every thing has its own flow" >> > > -- www.tudorgirba.com "Every thing has its own flow"

July 27, 2012

Re: [Pharo-project] NBCog on Windows

by Erwan Douaille

I just tried it now with NBOpenGL and it work fine for me 2012/7/27 Henrik Sperre Johansen <henrik.s.johansen(a)veloxit.no> > Is the NB-plugin in it working for anyone else? > Downloading "Latest successful artifact" from > https://ci.lille.inria.fr/**pharo/view/Cog/job/**NativeBoost-Cog-VM/** > Architecture=32,OS=win/<https://ci.lille.inria.fr/pharo/view/Cog/job/NativeBoost-Cog-VM/Architectur…> > > I just get the fallback-error from NativeBoost lastError when running > NB-methods... > > Cheers, > Henry > > -- Best regards, Douaille Erwan <douaille.erwan(a)gmail.com>

July 27, 2012

[Pharo-project] NBCog on Windows

by Henrik Sperre Johansen

Is the NB-plugin in it working for anyone else? Downloading "Latest successful artifact" from https://ci.lille.inria.fr/pharo/view/Cog/job/NativeBoost-Cog-VM/Architectur… I just get the fallback-error from NativeBoost lastError when running NB-methods... Cheers, Henry

July 27, 2012

Re: [Pharo-project] need maximized windows and hotkey for world menu - pharo 2.0

by StÃ©phane Ducasse

On Jul 27, 2012, at 6:04 AM, jhancock wrote: > Hi, I'm just getting back into pharo and starting with the current 2.0. Pay attention this is bleeding edge. I mean really changing since we are really improving a lot of aspects. Stef > I > would like to be able maximize a window without having the wasted space > outside it. I realize this maybe wasn't done because it keeps me from > getting to the world menu. > > Can someone point me out some places or provide some pieces of code to set a > global hotkey to get the world menu and also to make maximize take all > space. > > thanks, Jon > > > > -- > View this message in context: http://forum.world.st/need-maximized-windows-and-hotkey-for-world-menu-phar… > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. >

July 27, 2012

Re: [Pharo-project] need maximized windows and hotkey for world menu - pharo 2.0

by Helene Bilbo

jhancock wrote > > Hi, I'm just getting back into pharo and starting with the current 2.0. I > would like to be able maximize a window without having the wasted space > outside it. I realize this maybe wasn't done because it keeps me from > getting to the world menu. > There is a setting accessible via the Settings-browser: Appearence>Morphic>Windows>Fullscreen Margin. You can even set it to something negative. -- View this message in context: http://forum.world.st/need-maximized-windows-and-hotkey-for-world-menu-phar… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

July 27, 2012

[Pharo-project] need maximized windows and hotkey for world menu - pharo 2.0

by jhancock

Hi, I'm just getting back into pharo and starting with the current 2.0. I would like to be able maximize a window without having the wasted space outside it. I realize this maybe wasn't done because it keeps me from getting to the world menu. Can someone point me out some places or provide some pieces of code to set a global hotkey to get the world menu and also to make maximize take all space. thanks, Jon -- View this message in context: http://forum.world.st/need-maximized-windows-and-hotkey-for-world-menu-phar… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

July 27, 2012