July 2017 - Pharo-users - lists.pharo.org

Adaptable Tree-Based Cherry-Pick Tool

by Sean P. DeNigris

Do we have something like a merge UI that can be used on an underlying model that may have nothing to do with VCS? ----- Cheers, Sean -- View this message in context: http://forum.world.st/Adaptable-Tree-Based-Cherry-Pick-Tool-tp4957766.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

July 30, 2017

Re: [Pharo-users] Pharo Seaside RESTful services pragma question

by Greg Hutchinson

That worked - thanks very much. On 29 July 2017 at 16:13, Esteban A. Maringolo <emaringolo(a)gmail.com> wrote: > Did you try setting the pragma <path: '/'> in the list method? > Esteban A. Maringolo > > > 2017-07-28 18:40 GMT-03:00 Greg Hutchinson <the.greg.hutchinson(a)gmail.com > >: > > I am new to Pharo/Seaside and it has been a long time since I have used > > Smalltalk. I am trying to make a RESTful service and canât get the > pragmas > > to work the way I think it should. (This might be the problem already). > > > > > > > > Ie Here is my list method within class TeamMembers which is a direct > > subclass of WARestfulHandler. > > > > list > > > > <get> > > > > ^ String streamContents: [ :stream | > > > > self teamMembers do: [ :each | > > > > stream nextPutAll: each ; crlf ] > > > > ] > > > > > > > > and > > > > > > > > listJson > > > > <get> > > > > <produces: 'text/json'> > > > > > > > > ^ (Array streamContents: [ :stream | > > > > self teamMembers do: [ :each | > > > > stream nextPut: (Dictionary new > > > > at: 'name' put: each ; > > > > yourself) ] ]) > > > > asJavascript > > > > > > > > > > > > > > > > After doing all the proper registration WAAdmin register: TeamMembers at: > > 'team-members' when I execute in the browser > > (http://localhost:8080/team-members) I received the message > > > > /team-members not found > > but if I execute (http://localhost:8080/team-members/list) it brings > back > > the team member list. (However, I didnât think I would have to add /list > to > > the URL). > > > > > > > > This seems to contradict the documentation in > > http://book.seaside.st/book/advanced/restful/getting- > started/define-handler. > > > > > > > > > > > > However, If I override the TeamMembers>> > > > > createRoutes > > > > | route pType| > > > > pType := WAFullMimeTypeMatch main:'text' sub: 'json' . > > > > route := WASimpleRoute method: 'GET' selector: #listJson > > produces: pType consumes: WAWildcardMimeTypeMatch new. > > > > ^ OrderedCollection new > > > > "GET" > > > > add: route; > > > > add: (WARoute get: #list); > > > > yourself. > > > > > > > > Then I get the expected behaviour when I browse to > > (http://localhost:8080/team-members) and using curl. (ie. > > > > curl -H "Accept: text/json" http://localhost:8080/team-members > > > > to get the Json response. > > > > > > > > When I debug the difference in the routes, it looks like using the > pragmas, > > I get WAComplexRoute(s) but of course in the overridden method > createRoutes, > > I get WASimpleRoutes. > > > > > > > > Is this the way it is supposed to work? > > > > > > > > > > > > Thanks in advance for any hints. > > > > --

July 29, 2017

Re: [Pharo-users] Pharo Seaside RESTful services pragma question

by Esteban A. Maringolo

Did you try setting the pragma <path: '/'> in the list method? Esteban A. Maringolo 2017-07-28 18:40 GMT-03:00 Greg Hutchinson <the.greg.hutchinson(a)gmail.com>: > I am new to Pharo/Seaside and it has been a long time since I have used > Smalltalk. I am trying to make a RESTful service and canât get the pragmas > to work the way I think it should. (This might be the problem already). > > > > Ie Here is my list method within class TeamMembers which is a direct > subclass of WARestfulHandler. > > list > > <get> > > ^ String streamContents: [ :stream | > > self teamMembers do: [ :each | > > stream nextPutAll: each ; crlf ] > > ] > > > > and > > > > listJson > > <get> > > <produces: 'text/json'> > > > > ^ (Array streamContents: [ :stream | > > self teamMembers do: [ :each | > > stream nextPut: (Dictionary new > > at: 'name' put: each ; > > yourself) ] ]) > > asJavascript > > > > > > > > After doing all the proper registration WAAdmin register: TeamMembers at: > 'team-members' when I execute in the browser > (http://localhost:8080/team-members) I received the message > > /team-members not found > but if I execute (http://localhost:8080/team-members/list) it brings back > the team member list. (However, I didnât think I would have to add /list to > the URL). > > > > This seems to contradict the documentation in > http://book.seaside.st/book/advanced/restful/getting-started/define-handler. > > > > > > However, If I override the TeamMembers>> > > createRoutes > > | route pType| > > pType := WAFullMimeTypeMatch main:'text' sub: 'json' . > > route := WASimpleRoute method: 'GET' selector: #listJson > produces: pType consumes: WAWildcardMimeTypeMatch new. > > ^ OrderedCollection new > > "GET" > > add: route; > > add: (WARoute get: #list); > > yourself. > > > > Then I get the expected behaviour when I browse to > (http://localhost:8080/team-members) and using curl. (ie. > > curl -H "Accept: text/json" http://localhost:8080/team-members > > to get the Json response. > > > > When I debug the difference in the routes, it looks like using the pragmas, > I get WAComplexRoute(s) but of course in the overridden method createRoutes, > I get WASimpleRoutes. > > > > Is this the way it is supposed to work? > > > > > > Thanks in advance for any hints. >

July 29, 2017

Iceberg: SCP urls are not limited to 'git@'

by Herby VojÄÃk

Hello! Once I finally added remote to my localgit repo, I cannot build my image any more because Iceberg fails to parse the url. After first error I tried ssh://, but it is protected as well. The problem is, git(a)host.site is just the way to say which user to log in via ssh into the host. We use on-premise gogs installed via apt, and it installs 'gogs' user, not 'git' user. As such, we were being able to successfully use 'gogs@our.site:org/towergame.git' type of remote URLs, but Iceberg code has 'git@' hardcoded. How to overcome this? Herby

July 29, 2017

Re: [Pharo-users] hard reset class variable state

by Ben Coman

thx guille. On Sat, Jul 29, 2017 at 9:40 PM, Guillermo Polito <guillermopolito(a)gmail.com > wrote: > Actually class variables are stored in a dictionary in a class. You can > access that by saying: > > aClass classPool. > > So resetting all values of a class variable could be easily done with > something like > > aClass classPool keys do: [ :k | aClass classPool at: k put: nil ]. > > Maybe that could be a nice addition. > > On Sat, Jul 29, 2017 at 9:51 AM, Ben Coman <btc(a)openinworld.com> wrote: > >> I want to reset all the class variables in an application to nil. >> I've got as far as finding them, for example... >> >> packages := RPackageOrganizer default packages select:[:p| >> (p name includesSubstring: 'PharoLauncher') ]. >> stateToReset := packages flatCollect: [:p| >> p definedClasses >> select:[:c | (c classVarNames size > 0) and: [(c name includesSubstring: >> 'Configuration') not]] >> thenCollect:[:c| c-> c classVarNames] >> ]. >> stateToReset asDictionary keysAndValuesDo:[:class :variables| >> variables do: [:v| Transcript crShow: 'Clear ', class printString, ' -> ' >> , v printString]. >> ]. >> >> What could go in place of the Transcript line to set them to nil? >> >> cheers -ben >> >> > > > -- > > > > Guille Polito > > > Research Engineer > > French National Center for Scientific Research - *http://www.cnrs.fr* > <http://www.cnrs.fr> > > > > *Web:* *http://guillep.github.io* <http://guillep.github.io> > > *Phone: *+33 06 52 70 66 13 <+33%206%2052%2070%2066%2013> >

July 29, 2017

Re: [Pharo-users] hard reset class variable state

by Guillermo Polito

Actually class variables are stored in a dictionary in a class. You can access that by saying: aClass classPool. So resetting all values of a class variable could be easily done with something like aClass classPool keys do: [ :k | aClass classPool at: k put: nil ]. Maybe that could be a nice addition. On Sat, Jul 29, 2017 at 9:51 AM, Ben Coman <btc(a)openinworld.com> wrote: > I want to reset all the class variables in an application to nil. > I've got as far as finding them, for example... > > packages := RPackageOrganizer default packages select:[:p| > (p name includesSubstring: 'PharoLauncher') ]. > stateToReset := packages flatCollect: [:p| > p definedClasses > select:[:c | (c classVarNames size > 0) and: [(c name includesSubstring: > 'Configuration') not]] > thenCollect:[:c| c-> c classVarNames] > ]. > stateToReset asDictionary keysAndValuesDo:[:class :variables| > variables do: [:v| Transcript crShow: 'Clear ', class printString, ' -> ' > , v printString]. > ]. > > What could go in place of the Transcript line to set them to nil? > > cheers -ben > > -- Guille Polito Research Engineer French National Center for Scientific Research - *http://www.cnrs.fr* <http://www.cnrs.fr> *Web:* *http://guillep.github.io* <http://guillep.github.io> *Phone: *+33 06 52 70 66 13

July 29, 2017

Re: [Pharo-users] Iceberg needs to gracefully revert to readonly

by Esteban Lorenzano

> On 29 Jul 2017, at 10:16, Esteban Lorenzano <estebanlm(a)gmail.com> wrote: > > >> On 28 Jul 2017, at 09:37, Herby VojÄÃk <herby(a)mailbox.sk> wrote: >> >> Hello! >> >> IMNSHO, now that Iceberg has three vendor-specific protocol (and before as well, because of people like me who do not have github account), Iceberg needs to gracefully revert to readonly access in case credentials are not present or do not allow full access to repository. >> >> This is primarily for dependencies of Configurations and Baselines. If any of them is github://, bitbucket:// or gitlab:// and the user happens not to have account on those systems, he will get LGit ssh credential error. >> >> Thoughts? ETA? > > Iâm aware of this. My plan is to allow a setting to use âreadonly metacello integrationâ instead using credentials. > and I can add other provider protocols, I just added the ones that are most used. You want more? Just ask for it :) > > by the wayâ¦ iceberg also supports another âproviderâ: âgitlocalâ, where you point to a local repository (one that you already cloned), this way you can use any other provider (but you need to clone from outside first). > > Esteban forget to clarify: this is my plan but I have no immediate ETA (Iâm on holidays right now). All I can say is: soon(â¢) :P > >> >> Herby >> >

July 29, 2017

Re: [Pharo-users] Iceberg needs to gracefully revert to readonly

by Esteban Lorenzano

> On 28 Jul 2017, at 09:37, Herby VojÄÃk <herby(a)mailbox.sk> wrote: > > Hello! > > IMNSHO, now that Iceberg has three vendor-specific protocol (and before as well, because of people like me who do not have github account), Iceberg needs to gracefully revert to readonly access in case credentials are not present or do not allow full access to repository. > > This is primarily for dependencies of Configurations and Baselines. If any of them is github://, bitbucket:// or gitlab:// and the user happens not to have account on those systems, he will get LGit ssh credential error. > > Thoughts? ETA? Iâm aware of this. My plan is to allow a setting to use âreadonly metacello integrationâ instead using credentials. and I can add other provider protocols, I just added the ones that are most used. You want more? Just ask for it :) by the wayâ¦ iceberg also supports another âproviderâ: âgitlocalâ, where you point to a local repository (one that you already cloned), this way you can use any other provider (but you need to clone from outside first). Esteban > > Herby >

July 29, 2017

hard reset class variable state

by Ben Coman

I want to reset all the class variables in an application to nil. I've got as far as finding them, for example... packages := RPackageOrganizer default packages select:[:p| (p name includesSubstring: 'PharoLauncher') ]. stateToReset := packages flatCollect: [:p| p definedClasses select:[:c | (c classVarNames size > 0) and: [(c name includesSubstring: 'Configuration') not]] thenCollect:[:c| c-> c classVarNames] ]. stateToReset asDictionary keysAndValuesDo:[:class :variables| variables do: [:v| Transcript crShow: 'Clear ', class printString, ' -> ' , v printString]. ]. What could go in place of the Transcript line to set them to nil? cheers -ben

July 29, 2017

Pharo Seaside RESTful services pragma question

by Greg Hutchinson

I am new to Pharo/Seaside and it has been a long time since I have used Smalltalk. I am trying to make a RESTful service and canât get the pragmas to work the way I think it should. (This might be the problem already). Ie Here is my list method within class TeamMembers which is a direct subclass of WARestfulHandler. list <get> ^ String streamContents: [ :stream | self teamMembers do: [ :each | stream nextPutAll: each ; crlf ] ] and listJson <get> <produces: 'text/json'> ^ (Array streamContents: [ :stream | self teamMembers do: [ :each | stream nextPut: (Dictionary new at: 'name' put: each ; yourself) ] ]) asJavascript After doing all the proper registration WAAdmin register: TeamMembers at: 'team-members' when I execute in the browser ( http://localhost:8080/team-members) I received the message /team-members not found but if I execute (http://localhost:8080/team-members/list) it brings back the team member list. (However, I didnât think I would have to add /list to the URL). This seems to contradict the documentation in http://book.seaside.st/book/advanced/restful/getting-started/define-handler. However, If I override the TeamMembers>> createRoutes | route pType| pType := WAFullMimeTypeMatch main:'text' sub: 'json' . route := WASimpleRoute method: 'GET' selector: #listJson produces: pType consumes: WAWildcardMimeTypeMatch new. ^ OrderedCollection new "GET" add: route; add: (WARoute get: #list); yourself. Then I get the expected behaviour when I browse to ( http://localhost:8080/team-members) and using curl. (ie. curl -H "Accept: text/json" http://localhost:8080/team-members to get the Json response. When I debug the difference in the routes, it looks like using the pragmas, I get WAComplexRoute(s) but of course in the overridden method createRoutes, I get WASimpleRoutes. Is this the way it is supposed to work? Thanks in advance for any hints.

July 28, 2017