- Pharo-users - lists.pharo.org

Re: [Pharo-users] How do I save contents of Workspace into a collection?

by Frank Church

On 10 January 2013 19:31, Igor Stasenko <siguctua(a)gmail.com> wrote: > On 10 January 2013 18:29, Paul DeBruicker <pdebruic(a)gmail.com> wrote: >> On 01/10/2013 07:32 AM, Frank Church wrote: >>> >>> >>> >>> Thanks for the last answer which lists all the workspaces. >>> >>> My initial desire was to label my Workspaces and then copy the contents >>> of those which match some label and organize them into a kind of >>> collection. Similar to ScriptManager. >>> >>> So essentially I want to list all Workspaces whose titles or contents >>> match a substring, parse the contents further for some criteria and put >>> those matching into a list for review. Then from there put the right >>> ones into a permanent persisted collection. >>> >>> My intention is to do something like. >>> >>> | workSpaces textMorphs | >>> workSpaces := OrderedCollection new. >>> textMorphs := TextMorphForEditView allInstances >>> select: [ :morph | (morph firstOwnerSuchThat: [ :owner | >>> (owner >>> isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] >>> >>> I want to capture all the matching Workspaces into the workSpaces >>> variable, by some method such as 'workSpaces[i] := textMorphs[i] >>> getWorkspace' and get the labelString of the Workspace, but it seems >>> that firstOwnerSuchThat returns a nil or notNil, rather than the actual >>> Workspace and it also seems redundant to get the list of Workspaces into >>> the workSpaces through iterating over the textMorphs variable as the >>> owner variable in the loop captures them at some point. >>> >>> So this question breaks down into 2 parts. >>> >>> 1. How can copy add the owner if it turns out to be a Workspace to the >>> workSpaces variable inside the loop (what is syntax) >>> >>> 2. How would I write a method such as : workSpace := textMorph >>> getWorkspace, with or without using firstOwnerSuchThat, ie a general >>> method of parsing the inheritance/ownership chain. >> >> >> I recommend you read through this: >> >> http://squeak.joyful.com/LanguageNotes >> >> >> 1. >> >> workSpaces:= >> >> TextMorphForEditView allInstances >> collect: [ :morph | (morph firstOwnerSuchThat: [ :owner >> | (owner >> isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] >> >> >> 2. >> >> TextMorph>>getWorkspace >> |workspace| >> workspace:= self firstOwnerSuchThat: [ :owner | (owner >> isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]. >> ^workspace >> >> >> >> Heres some for you: >> >> Why are you so resistant to using classes and so interested in using >> workspaces? Why invent a new way of using Smalltalk when you don't have >> the basics down pat? My point is you didn't know about #select: and you >> didn't know about #collect: but you do know that Workspaces are >> interesting and Classes and the Browser is not. Why not just put the >> contents of whatever you've got in the Workspaces into methods in a >> Classes you define and the you can call them whenever you want and >> persist them with the tools that have been developed thus far rather >> than inventing your own tooling while learning about Smalltalk..... >> > indeed. > I wonder why you (Frank) need such complicated way for doing things. > If you need a reusable piece of code, which you want to use more than 1 time, > classes is the best placeholder for them.. > > Even if you put things at class side, it helps a lot.. so then you can > just type: > > MyUtilsClass doThis > > MyUtilsClass doThat > > etc > >> >> Good luck >> >> Paul >> > > > > -- > Best regards, > Igor Stasenko. > Hi Igor, I am new to Smalltalk but not new to programming and I am into my first 14 hrs into learning it with Pharo. As I was trying to work out the right syntax it brought to mind the thoughts of Brendan Eich, Gilad Bracha and Lars Bak who said the familar syntax (Algol/C style) of languages like Javascript, Go and Dart was chosen to make it easier for programmers familiar with C, Pascal etcetera to starting using. them, rather than learn a whole new paradigm, even at the cost of complicated parsing and language structure. If I was using Eclipse IDE for instance, at every step I could use auto-completion and the documentation to decide what follows from what, even in a domain I had no familiarity with, but Smalltalk doesn't lend itself to that approach. With spoken languages even without proper syntax or phrasing a person who knows the language can deduce what you are trying to say but with computers you either get it right or the computer stares back at you blankly. As an experienced programmer I am trying to accomplish something non-trivial as hard and as fast as I can with Squeak, Pharo and their supporting libraries and ecosystem and the only way is to bombard the mailing lists and forums. You could say I am trying to understand how the language constructs can support my intentions as fast as I can. >> >> >> Heres some for you: >> >> Why are you so resistant to using classes and so interested in using >> workspaces? Why invent a new way of using Smalltalk when you don't have >> the basics down pat? My point is you didn't know about #select: and you >> didn't know about #collect: but you do know that Workspaces are >> interesting and Classes and the Browser is not. Why not just put the >> contents of whatever you've got in the Workspaces into methods in a >> Classes you define and the you can call them whenever you want and >> persist them with the tools that have been developed thus far rather >> than inventing your own tooling while learning about Smalltalk..... >> > indeed. > I wonder why you (Frank) need such complicated way for doing things. > If you need a reusable piece of code, which you want to use more than 1 time, > classes is the best placeholder for them.. > > Even if you put things at class side, it helps a lot.. so then you can > just type: > > MyUtilsClass doThis > > MyUtilsClass doThat > > etc > >> >> Good luck With respect to the above I can truthfully say that at this juncture I don't know what it all means, from the theoretical view point, nor from the practical perspective of what I am trying to accomplish, which is why the questions are flying in so thick and fast. For instance yesterday I was thinking as to why the types/classes of the instance variables was not specified when I defined a class, in the way I would with Object Pascal and Java classes or record types, then it dawned on me that perhaps their getters and setters, together with other methods defined on them would define what in other languages would be their type. Thus it results in better understanding of the notion that in Smalltalk everything is an object and the methods it supports more or less defines its "type" Another thing - the topic of this thread is not so much concerned with Workspaces. I am more interested in scanning the workspace for any control capable of text editing and extracting the text from it. Workspaces are the first instance one comes across, and shift-clicking the editing area resulted in a TextMorphForEditView. So to do what I want I have to create a new kind of editing widget with TextMorphForEditView embedded it in it, or find an existing one and use/learn from/adapt it. In fact it is linked to SO 5592521 Last of all - teachers please, I don't want to go to Smalltalk kindergarten. I have done too much programming in my life to be put in kindergarten when I start Smalltalk. The problem here is although one can learn from reading examples, it can be hard to understand the language constructs unless they are derived from one's own use cases, and this is why my questions have been coming in so thick and fast. PS. The Stack Overflow ranking of a lot of expert Smalltalkers has an inverse relationship to their expertise, a notable exception being Frank Shearer (related to the footballer?) ;-) -- Frank Church ======================= http://devblog.brahmancreations.com

Jan. 11, 2013

Re: [Pharo-users] Rendering text to bitmap buffer then paintImage to a canvas

by Igor Stasenko

On 10 January 2013 20:15, Jesus NuÃ±ez <poissonbreaker(a)gmail.com> wrote: > Take a look at Athenas, the package Athenas-Text may help. There are some > tests in the same package so you can give it a try. (It may not work on > pharo 1.4 since the Athenas version is outdated and the tests may fail, > however make them work should be straightforward) > apart from some tests and examples, the work on text is not finished (especially in anything related to morphic), so i would not recommend it as a good source of examples. But indeed some of them are actually using same pattern of rendering stuff into separate buffer, and after done, blitting on screen. > Regards, > > Jesus > > 2013/1/10 Ben Coman <btc(a)openinworld.com> >> >> the text to a bitmap buffer then painting that onto a canvas. How might >> that be achieved? And from Workspace can I test this? I have been >> searching for a couple of hours already so thought I'd just ask. > > > -- Best regards, Igor Stasenko.

Jan. 10, 2013

Re: [Pharo-users] Rendering text to bitmap buffer then paintImage to a canvas

by Igor Stasenko

On 10 January 2013 14:42, Ben Coman <btc(a)openinworld.com> wrote: > I need to improve the performance of a lot of text that drawn on screen > while the screen is being dragged around and would like to experiment with > rendering the text to a bitmap buffer then painting that onto a canvas. How > might that be achieved? And from Workspace can I test this? I have been > searching for a couple of hours already so thought I'd just ask. > easy. form := Form extent: 100@100 depth: 32. canvas := form getCanvas. canvas drawString... whatever. and then: displayCanvas drawImage: form. > cheers -ben > -- Best regards, Igor Stasenko.

Jan. 10, 2013

Re: [Pharo-users] How do I save contents of Workspace into a collection?

by Igor Stasenko

On 10 January 2013 18:29, Paul DeBruicker <pdebruic(a)gmail.com> wrote: > On 01/10/2013 07:32 AM, Frank Church wrote: >> >> >> >> Thanks for the last answer which lists all the workspaces. >> >> My initial desire was to label my Workspaces and then copy the contents >> of those which match some label and organize them into a kind of >> collection. Similar to ScriptManager. >> >> So essentially I want to list all Workspaces whose titles or contents >> match a substring, parse the contents further for some criteria and put >> those matching into a list for review. Then from there put the right >> ones into a permanent persisted collection. >> >> My intention is to do something like. >> >> | workSpaces textMorphs | >> workSpaces := OrderedCollection new. >> textMorphs := TextMorphForEditView allInstances >> select: [ :morph | (morph firstOwnerSuchThat: [ :owner | >> (owner >> isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] >> >> I want to capture all the matching Workspaces into the workSpaces >> variable, by some method such as 'workSpaces[i] := textMorphs[i] >> getWorkspace' and get the labelString of the Workspace, but it seems >> that firstOwnerSuchThat returns a nil or notNil, rather than the actual >> Workspace and it also seems redundant to get the list of Workspaces into >> the workSpaces through iterating over the textMorphs variable as the >> owner variable in the loop captures them at some point. >> >> So this question breaks down into 2 parts. >> >> 1. How can copy add the owner if it turns out to be a Workspace to the >> workSpaces variable inside the loop (what is syntax) >> >> 2. How would I write a method such as : workSpace := textMorph >> getWorkspace, with or without using firstOwnerSuchThat, ie a general >> method of parsing the inheritance/ownership chain. > > > I recommend you read through this: > > http://squeak.joyful.com/LanguageNotes > > > 1. > > workSpaces:= > > TextMorphForEditView allInstances > collect: [ :morph | (morph firstOwnerSuchThat: [ :owner > | (owner > isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] > > > 2. > > TextMorph>>getWorkspace > |workspace| > workspace:= self firstOwnerSuchThat: [ :owner | (owner > isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]. > ^workspace > > > > Heres some for you: > > Why are you so resistant to using classes and so interested in using > workspaces? Why invent a new way of using Smalltalk when you don't have > the basics down pat? My point is you didn't know about #select: and you > didn't know about #collect: but you do know that Workspaces are > interesting and Classes and the Browser is not. Why not just put the > contents of whatever you've got in the Workspaces into methods in a > Classes you define and the you can call them whenever you want and > persist them with the tools that have been developed thus far rather > than inventing your own tooling while learning about Smalltalk..... > indeed. I wonder why you (Frank) need such complicated way for doing things. If you need a reusable piece of code, which you want to use more than 1 time, classes is the best placeholder for them.. Even if you put things at class side, it helps a lot.. so then you can just type: MyUtilsClass doThis MyUtilsClass doThat etc > > Good luck > > Paul > -- Best regards, Igor Stasenko.

Jan. 10, 2013

Re: [Pharo-users] Question about alias in traits

by StÃ©phane Ducasse

On Jan 10, 2013, at 2:17 PM, Damien Cassou wrote: > On Thu, Jan 10, 2013 at 1:21 PM, Hernan Wilkinson > <hernan.wilkinson(a)10pines.com> wrote: >> Was my interpretation of Alias incorrect? or is the current implementation >> of alias incorrect? (maybe due to some implementation problems?) > > @ is an Alias operator, not a Rename operator. That means when you > alias { #m3 -> #m1 } you get a new name for the same method. So what > you see is the expected behavior, as defined in the paper. And the > direction of the arrow makes sense: #m3 -> #m1 is read as "m3 is a new > name for m1", whereas for a Rename operator, we would probably have > something like "#m1 -> #m3", i.e., m1 is renamed to m3. In a fully > dynamic language, a Rename operator would be quite hard to implement I > guess, IIRC Eiffel has a rename operator. Not quite hard. doing it fully and correctly is no possible because you should distinguish the methods that should be renamed.

Jan. 10, 2013

Re: [Pharo-users] Question about alias in traits

by StÃ©phane Ducasse

> > I may have understood incorrectly the idea behind and alias when using traits, but I was expecting that when using an alias, the aliased method would be removed and all the sender of that message would be change to the new one (the alias), but I don't see that happening. You cannot do that in a dynamically typed language. Why because you do not know how to scope the method renaming. Aliasing is not renaming. Stef > Here is some code: > > Trait named: #SomeTrait > uses: {} > > SomeTrait>>m1 > ^ 1 > SomeTrait>>m2 > self m1 > > Object subclass: #SomeClass > uses: SomeTrait @ { #m3 -> #m1} > > It generates: > SomeClass>>m1 > ^ 1 > SomeClass>>m2 > self m1 > SomeClass>>m3 > ^1 > > But I was specting: > SomeClass>>m2 > self m3 > SomeClass>>m3 > ^1 > and the method SomeClass>>m1 removed. > > Was my interpretation of Alias incorrect? or is the current implementation of alias incorrect? (maybe due to some implementation problems?) > > Thanks! > Hernan. > > -- > HernÃ¡n Wilkinson > Agile Software Development, Teaching & Coaching > Phone: +54 - 011 - 6091 - 3125 > Mobile: +54 - 911 - 4470 - 7207 > email: hernan.wilkinson(a)10Pines.com > site: http://www.10Pines.com > Address: Alem 693, Floor 5 B, Buenos Aires, Argentina

Jan. 10, 2013

Re: [Pharo-users] Rendering text to bitmap buffer then paintImage to a canvas

by Jesus NuÃ±ez

Take a look at Athenas, the package Athenas-Text may help. There are some tests in the same package so you can give it a try. (It may not work on pharo 1.4 since the Athenas version is outdated and the tests may fail, however make them work should be straightforward) Regards, Jesus 2013/1/10 Ben Coman <btc(a)openinworld.com> > the text to a bitmap buffer then painting that onto a canvas. How might > that be achieved? And from Workspace can I test this? I have been > searching for a couple of hours already so thought I'd just ask. >

Jan. 10, 2013

Re: [Pharo-users] How do I save contents of Workspace into a collection?

by Paul DeBruicker

So I'm an idiot. The answer to question 1 could be: workSpaces:= TextMorphForEditView allInstances select: [ :morph | (morph firstOwnerSuchThat: [ :owner | (owner isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] thenCollect:[:each | each]. workSpaces or: workSpaces:=OrderedCollection new. TextMorphForEditView allInstances do: [ :morph | (morph firstOwnerSuchThat: [ :owner | (owner isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ifTrue:[workSpaces add: morph] ]. But the answer I gave to it earlier is definitely wrong as you just end up with a an array full of trues and falses. Sorry for leading you down the wrong path Paul On 01/10/2013 09:29 AM, Paul DeBruicker wrote: > On 01/10/2013 07:32 AM, Frank Church wrote: >> >> >> >> Thanks for the last answer which lists all the workspaces. >> >> My initial desire was to label my Workspaces and then copy the contents >> of those which match some label and organize them into a kind of >> collection. Similar to ScriptManager. >> >> So essentially I want to list all Workspaces whose titles or contents >> match a substring, parse the contents further for some criteria and put >> those matching into a list for review. Then from there put the right >> ones into a permanent persisted collection. >> >> My intention is to do something like. >> >> | workSpaces textMorphs | >> workSpaces := OrderedCollection new. >> textMorphs := TextMorphForEditView allInstances >> select: [ :morph | (morph firstOwnerSuchThat: [ :owner | >> (owner >> isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] >> >> I want to capture all the matching Workspaces into the workSpaces >> variable, by some method such as 'workSpaces[i] := textMorphs[i] >> getWorkspace' and get the labelString of the Workspace, but it seems >> that firstOwnerSuchThat returns a nil or notNil, rather than the actual >> Workspace and it also seems redundant to get the list of Workspaces into >> the workSpaces through iterating over the textMorphs variable as the >> owner variable in the loop captures them at some point. >> >> So this question breaks down into 2 parts. >> >> 1. How can copy add the owner if it turns out to be a Workspace to the >> workSpaces variable inside the loop (what is syntax) >> >> 2. How would I write a method such as : workSpace := textMorph >> getWorkspace, with or without using firstOwnerSuchThat, ie a general >> method of parsing the inheritance/ownership chain. > > > I recommend you read through this: > > http://squeak.joyful.com/LanguageNotes > > > 1. > > workSpaces:= > > TextMorphForEditView allInstances > collect: [ :morph | (morph firstOwnerSuchThat: [ :owner > | (owner > isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] > > > 2. > > TextMorph>>getWorkspace > |workspace| > workspace:= self firstOwnerSuchThat: [ :owner | (owner > isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]. > ^workspace > > > > Heres some for you: > > Why are you so resistant to using classes and so interested in using > workspaces? Why invent a new way of using Smalltalk when you don't have > the basics down pat? My point is you didn't know about #select: and you > didn't know about #collect: but you do know that Workspaces are > interesting and Classes and the Browser is not. Why not just put the > contents of whatever you've got in the Workspaces into methods in a > Classes you define and the you can call them whenever you want and > persist them with the tools that have been developed thus far rather > than inventing your own tooling while learning about Smalltalk..... > > > Good luck > > Paul >

Jan. 10, 2013

Re: [Pharo-users] How do I save contents of Workspace into a collection?

by Paul DeBruicker

On 01/10/2013 07:32 AM, Frank Church wrote: > > > > Thanks for the last answer which lists all the workspaces. > > My initial desire was to label my Workspaces and then copy the contents > of those which match some label and organize them into a kind of > collection. Similar to ScriptManager. > > So essentially I want to list all Workspaces whose titles or contents > match a substring, parse the contents further for some criteria and put > those matching into a list for review. Then from there put the right > ones into a permanent persisted collection. > > My intention is to do something like. > > | workSpaces textMorphs | > workSpaces := OrderedCollection new. > textMorphs := TextMorphForEditView allInstances > select: [ :morph | (morph firstOwnerSuchThat: [ :owner | > (owner > isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] > > I want to capture all the matching Workspaces into the workSpaces > variable, by some method such as 'workSpaces[i] := textMorphs[i] > getWorkspace' and get the labelString of the Workspace, but it seems > that firstOwnerSuchThat returns a nil or notNil, rather than the actual > Workspace and it also seems redundant to get the list of Workspaces into > the workSpaces through iterating over the textMorphs variable as the > owner variable in the loop captures them at some point. > > So this question breaks down into 2 parts. > > 1. How can copy add the owner if it turns out to be a Workspace to the > workSpaces variable inside the loop (what is syntax) > > 2. How would I write a method such as : workSpace := textMorph > getWorkspace, with or without using firstOwnerSuchThat, ie a general > method of parsing the inheritance/ownership chain. I recommend you read through this: http://squeak.joyful.com/LanguageNotes 1. workSpaces:= TextMorphForEditView allInstances collect: [ :morph | (morph firstOwnerSuchThat: [ :owner | (owner isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]) notNil ] 2. TextMorph>>getWorkspace |workspace| workspace:= self firstOwnerSuchThat: [ :owner | (owner isKindOf: SystemWindow) and: [ owner model isKindOf: Workspace ] ]. ^workspace Heres some for you: Why are you so resistant to using classes and so interested in using workspaces? Why invent a new way of using Smalltalk when you don't have the basics down pat? My point is you didn't know about #select: and you didn't know about #collect: but you do know that Workspaces are interesting and Classes and the Browser is not. Why not just put the contents of whatever you've got in the Workspaces into methods in a Classes you define and the you can call them whenever you want and persist them with the tools that have been developed thus far rather than inventing your own tooling while learning about Smalltalk..... Good luck Paul

Jan. 10, 2013

Re: [Pharo-users] [squeak-dev] How can the main window title in Squeak and Pharo be set?

by Bert Freudenberg

On 10.01.2013, at 08:40, Frank Church <vfclists(a)gmail.com> wrote: > How can the main window title in Squeak and Pharo be set? > > In Pharo I thought it could be set in the System -> Settings Menu but > couldn't find anything there. > > Can it be set only in code? Try this in Squeak: HostWindowProxy basicNew primitiveWindowTitle: 1 string: 'My Title' squeakToUtf8 In Etoys we have a convenience method for this: DisplayScreen hostWindowTitle: 'My Title' (because Etoys shows the current project name as window title) - Bert -

Jan. 10, 2013