Squeak-dev January 2013

squeak-dev@lists.squeakfoundation.org

105 participants
332 discussions

WeakSet but no WeakIdentitySet?
by Igor Stasenko 25 Aug '23

25 Aug '23

Hello, i need to keep a bunch of CompiledMethods in WeakSet, but i am a bit afraid, that it wont work as i want to, because of CompiledMethod>>= implementation, because a code, which i currently writing doesn't changing a method's bytecode, but changing its trailer instead, and so, this could lead to undesirable effects.. If i could have a WeakIdentitySet... Meanwhile, i think i have nothing else, but just use a degenerate WeakIdentityKeyDictionary , with methods in keys and nils in values. :( -- Best regards, Igor Stasenko AKA sig.

4 3

veryDeepCopy, ImageSegments, and actionMaps
by Ned Konz 17 Aug '23

17 Aug '23

Any Object can have dependents whether or not it has an instance variable to keep track of them (these are kept in the DependentsFields class variable of Object). The only class that keeps its own dependents is Model. Any Object can have an actionMap. These are supplied by EventManager class by default, and are stored in the ActionMaps class variable of EventManager. The only class that keeps its own action maps is Morph. When we veryDeepCopy an object we also copy the global dependents (see DeepCopier>>fixDependents). However, we don't copy the actionMap in those cases where it's held by the EventManager class. When we file out an object that uses DependentsFields out into an ImageSegment, we also file out the dependents (see ImageSegment>>dependentsSave:) if it's in a project. We do this by adding a project parameter called #GlobalDependentsInProject. However, we don't file out the actionMap in those cases where it's held by the EventManager class. My question is this: should we fix these behaviors (copying and serialization) to include these "global action maps" just like we already include the "global dependents"? Or should we discourage the use of the "global action maps"? -- Ned Konz http://bike-nomad.com GPG key ID: BEEA7EFE

3 2

Announcement: Spelling services
by Tim Felgentreff 23 Aug '21

23 Aug '21

Hi Once upon a time, John M. McIntosh built a spellchecker plugin for the MacVM and there was a fileout that added a spelling service class to use it from Squeak. We have added code to provide the same API (for now) to windows and linux users that have ispell (or a compatible program, like aspell) installed on their systems using system callouts. A metacello configuration is available from the MetacelloRepository on Squeaksource, ConfigurationOfSpellingServices. The development repository is at http://www.hpi.uni-potsdam.de/hirschfeld/squeaksource/SpellingServices.html, the repo has global read+write, so if anybody finds this useful and has changes, feel free to commit to that repository. -Tim

6 8

find original change set
by Javier Orsaria 09 Mar '21

09 Mar '21

Hi, I was trying to use, in VersionsBrowser, the feature "find original change set" for a method. In old versions (3.8 and earlier) this work fine. But in 3.10 and 3.9 don´t. I followed the sequence and detect the problem at MethodChangeRecord-noteNewMethod: noteNewMethod: newMethod "NEVER do this. It is evil." currentMethod _ nil. should be: noteNewMethod: newMethod "NEVER do this. It is evil." currentMethod _ newMethod. This way work as I expect. But with that comment I understand was intentioned. What is the problem with this? I can´t see it... I'm the devil? Thanks, Javier

3 2

app in app
by Chuck Smith 31 Jan '18

31 Jan '18

Dear Squeakers, I have always had a hard time learning anything until I had a project to do it around. Well that time has come. I need to write an app. that will let me run one application inside another. I would like to have a cad type app. running in a window and then be able to over lay that cad app. with another app. that lets me put hot spots on the cad app. These hot spots will have the ability to show a colored outline around their perimeter. That outline we would like to be able to turn on and off or make blink. The purpose of the hot spot is to train people how to use the cad app. by showing them where to pick menu items and enter data etc. So the whole things runs like this, we start the cad app. and the tutor app. The tutor app. step by step shows the student where and what bottoms to pic and where and what data to enter. As they enter etc. the app. actually functions and they are able to create in the cad app. Kind of a training wheel effect. Can any one tell whether or not I could do this in Squeak and kind of help me do it. I do have a nephew who is a good programmer but has never used Squeak of small Talk and I would like to get him help me do this app. start using Squeak. Can any one point in the right direction? I would like to do the same thing for learning Squeak. Once we learn how to do it for the cad app. I will do it for the Squeak community and make it free. Sincerely, Chuck Smith

4 4

Installing Filetree
by Bert Freudenberg 02 May '17

02 May '17

Hi all, Dale has been working on a Squeak version of FileTree, which is a Monticello repository backed not by zip files, but a tree of individual class files that can be versioned using git, svn, etc: https://github.com/dalehenrich/filetree/blob/master/doc/SqueakInstall.md Since I don't like cluttering my image with unrelated things, here's how to load it using just Installer - provided you have an up-to-date trunk image with the fixes I posted today: ======================== "Bootstrap from squeak43 branch in squeaksource3" Installer ss3 project: 'FileTree'; install: 'MonticelloFileTree-Core.squeak43'. "Load from local filetree repository (cloned squeak4.3 branch from github into image folder)" Installer monticello mc: (MCFileTreeRepository directory: (FileDirectory uri: 'filetree/repository/')); install: 'MonticelloFileTree-Core' ======================== If you have an older image without the new fixes, giving an explicit version number for the ss3 bootstrap should make it work (e.g. 'MonticelloFileTree-Core.squeak43-dkh.70'). - Bert -

9 39

Re: [squeak-dev] Ometa vs XTreams PEG, PetitParser, Helvetia
by Hannes Hirzel 08 Apr '15

08 Apr '15

On 3/30/11, Nikolay Suslov <nsuslovi(a)gmail.com> wrote: > >From conceptual and practical point of view, > OMeta - is not yet another "system tool" written for Squeak or another fork, > in contrary to XTreams (a generalized stream/iterator framework written in > Smalltalk) burned in Pharo. OMeta is a language which allows to simplify an > existed tools in it's hosted language (Squeak, Pharo, JavaScript, etc) where > it is implemented, while not porting, learning and using another ones, like > XTreams. So, redefined tools with OMeta could become really portable and > mobile, ready for using in any other fork, even in another language, like > JavaScript. > > Regards, > Nikolay XTreams is primarily a generalized stream/iterator framework. It contains PEG parser generation facilities, which I assume might use XTreams. If not the PEG parser stuff could be separated. Nikolay, what you write is interesting but too terse for me to understand. If I understand you right you mean that OMeta goes beyond the PEG parser in XTreams and PetitParser (L. Renggli) and Helvetia (L Renggli). In which ways does OMeta go beyond these other tools? AND: Of course very welcome that you run for the board. --Hannes

8 11

Re: [squeak-dev] The Inbox: System-cmm.497.mcz
by Levente Uzonyi 30 Jun '13

30 Jun '13

Two things about the implementation: - using #isOctetCharacter is not good enough. When I wrote ascii, I meant the 7-bit US-ASCII characters. For example $á is both #isOctetCharacter and #isAlphaNumeric, but I don't think it should appear in a method's timestamp. - some methods have Smalltalk123 as author Levente On Fri, 14 Sep 2012, commits(a)source.squeak.org wrote: > A new version of System was added to project The Inbox: > http://source.squeak.org/inbox/System-cmm.497.mcz > > ==================== Summary ==================== > > Name: System-cmm.497 > Author: cmm > Time: 14 September 2012, 3:14:45.552 pm > UUID: d55d42e9-1782-4cdd-a0d0-253bf60940f5 > Ancestors: System-ul.496 > > Updates for the Author proposal: > > - Completely separate the model from the UI. Author should be a "pure domain object." The PerSe methods are no longer needed. > > - Instead, let Utilities class take responsibility for employing Squeak UI-elements to set the current Author attributes, as well as for being the "convenient" way to access these attributes. > > - Since we are reifying an Author from a String, it is now treated as a whole Author object, rather than just a String-holder. Allow multiple Author instances to exist and the #current Author can be swapped out with another Author instance. > > =============== Diff against System-ul.496 =============== > > Item was removed: > - ----- Method: Author class>>changeStamp (in category 'convenience') ----- > - changeStamp > - > - ^self current changeStamp! > > Item was removed: > - ----- Method: Author class>>changeStampPerSe (in category 'convenience') ----- > - changeStampPerSe > - > - ^self current changeStampPerSe! > > Item was changed: > ----- Method: Author class>>current (in category 'instance creation') ----- > current > + ^ instance ifNil: > + [ self current: self new. > + instance ]! > - > - ^instance ifNil: [ instance := super new ]! > > Item was added: > + ----- Method: Author class>>current: (in category 'class initialization') ----- > + current: anAuthor > + instance := anAuthor! > > Item was changed: > ----- Method: Author class>>fullNamePerSe (in category 'pharo compatibility') ----- > fullNamePerSe > + ^ self current initials! > - > - ^self initialsPerSe! > > Item was removed: > - ----- Method: Author class>>initials (in category 'convenience') ----- > - initials > - > - ^self current initials! > > Item was removed: > - ----- Method: Author class>>initialsPerSe (in category 'convenience') ----- > - initialsPerSe > - > - ^self current initialsPerSe! > > Item was removed: > - ----- Method: Author class>>new (in category 'instance creation') ----- > - new > - > - self error: 'Use #current'! > > Item was changed: > ----- Method: Author class>>reset (in category 'instance creation') ----- > reset > + self current: nil! > - > - instance := nil! > > Item was changed: > ----- Method: Author class>>useAuthor:during: (in category 'pharo compatibility') ----- > + useAuthor: aString during: aBlock > + ^ self current > + useInitials: aString > + during: aBlock! > - useAuthor: aString during: aBlock > - > - ^self useInitials: aString during: aBlock! > > Item was removed: > - ----- Method: Author class>>useInitials:during: (in category 'convenience') ----- > - useInitials: aString during: aBlock > - > - ^self current useInitials: aString during: aBlock! > > Item was removed: > - ----- Method: Author class>>username (in category 'convenience') ----- > - username > - > - ^self current username! > > Item was removed: > - ----- Method: Author class>>usernamePerSe (in category 'convenience') ----- > - usernamePerSe > - > - ^self current usernamePerSe! > > Item was changed: > ----- Method: Author>>changeStamp (in category 'accessing') ----- > changeStamp > + ^ self changeStampWithInitials: (self initials ifEmpty: [ 'unknown' ])! > - > - ^self changeStampWithInitials: self initials! > > Item was removed: > - ----- Method: Author>>changeStampPerSe (in category 'accessing') ----- > - changeStampPerSe > - > - ^self changeStampWithInitials: (self initialsPerSe ifEmpty: [ '.' ])! > > Item was changed: > ----- Method: Author>>fullName (in category 'pharo compatibility') ----- > fullName > + ^ self initials! > - > - ^self initials! > > Item was removed: > - ----- Method: Author>>fullNamePerSe (in category 'pharo compatibility') ----- > - fullNamePerSe > - > - ^self initialsPerSe! > > Item was changed: > ----- Method: Author>>initialize (in category 'initialize-release') ----- > initialize > - > super initialize. > + initials := username := String empty! > - initials := String new. > - username := String new > - ! > > Item was changed: > ----- Method: Author>>initials (in category 'accessing') ----- > initials > + ^ initials! > - > - ^initials ifEmpty: [ self requestAndSetInitials ]! > > Item was removed: > - ----- Method: Author>>initialsPerSe (in category 'accessing') ----- > - initialsPerSe > - > - ^initials! > > Item was removed: > - ----- Method: Author>>requestAndSetInitials (in category 'accessing') ----- > - requestAndSetInitials > - > - ^initials := (UIManager default > - request: 'Please type your initials: ' translated > - initialAnswer: initials) select: [ :each | > - #( > - ($A $Z) > - ($a $z) > - ($0 $9)) anySatisfy: [ :range | > - each between: range first and: range second ] ]! > > Item was removed: > - ----- Method: Author>>requestAndSetUsername (in category 'accessing') ----- > - requestAndSetUsername > - > - ^username := UIManager default > - request: 'Please type your name:' translated > - initialAnswer: (username > - ifEmpty: [ 'Your Name' translated ] > - ifNotEmpty: [ username ])! > > Item was changed: > ----- Method: Author>>username (in category 'accessing') ----- > username > + ^ username! > - > - ^username ifEmpty: [ self requestAndSetUsername ]! > > Item was removed: > - ----- Method: Author>>usernamePerSe (in category 'accessing') ----- > - usernamePerSe > - > - ^username! > > Item was changed: > ----- Method: SpaceTally>>spaceTally: (in category 'class analysis') ----- > + spaceTally: classes > - spaceTally: classes > "Answer a collection of SpaceTallyItems representing the memory space (in bytes) consumed by the code and instances of each class in the system. Note that code sizes do not currently report memory consumed by class variables. " > - > "((SpaceTally new spaceTally: (Array with: TextMorph with: Point)) asSortedCollection: [:a :b | a spaceForInstances > b spaceForInstances]) asArray" > - > self preAllocateResultsFor: classes. > Smalltalk garbageCollect. > self computeSpaceUsage. > ^ results > + sort: [ : a : b | a spaceForInstances > b spaceForInstances ] ; > + yourself! > - ! > > Item was changed: > ----- Method: Utilities class>>authorInitials (in category 'identification') ----- > authorInitials > + "Answer the initials to be used to identify the current code author." > + ^ self authorInitialsPerSe ifEmpty: > + [ self > + setAuthorInitials ; > + authorInitialsPerSe ]! > - "Answer the initials to be used to identify the current code author. " > - > - ^Author initials! > > Item was changed: > ----- Method: Utilities class>>authorInitialsPerSe (in category 'identification') ----- > authorInitialsPerSe > + ^ Author current initials! > - "Answer the currently-prevailing author initials, such as they, empty or not" > - > - ^Author initialsPerSe! > > Item was changed: > ----- Method: Utilities class>>authorName (in category 'identification') ----- > authorName > + ^ self authorNamePerSe ifEmpty: > + [ self > + setAuthorName ; > + authorNamePerSe ]! > - > - ^Author username! > > Item was changed: > ----- Method: Utilities class>>authorNamePerSe (in category 'identification') ----- > authorNamePerSe > + ^ Author current username! > - > - ^Author usernamePerSe! > > Item was changed: > ----- Method: Utilities class>>changeStamp (in category 'identification') ----- > + changeStamp > + ^ Author current changeStampWithInitials: self authorInitials! > - changeStamp > - > - ^Author changeStamp! > > Item was changed: > ----- Method: Utilities class>>changeStampPerSe (in category 'identification') ----- > changeStampPerSe > + ^ Author current changeStamp! > - > - ^Author changeStampPerSe! > > Item was changed: > ----- Method: Utilities class>>setAuthorInitials (in category 'identification') ----- > setAuthorInitials > "Put up a dialog allowing the user to specify the author's initials. " > + | oldInitials | > + oldInitials := Author current initials. > + Author reset. > + Author current initials: > + ((UIManager default > + request: 'Please type your initials: ' translated > + initialAnswer: oldInitials) select: [ : each | each isOctetCharacter and: [ each isAlphaNumeric ] ])! > - > - ^Author current requestAndSetInitials! > > Item was changed: > ----- Method: Utilities class>>setAuthorName (in category 'identification') ----- > setAuthorName > + Author current username: > + (UIManager default > + request: 'Please type your name:' translated > + initialAnswer: (Author current username ifEmpty: [ 'Your Name' translated ]))! > - > - Author requestAndSetUsername! > > >

4 9

GemSource, seaside.gemstone.com, SS3 MAINTENANCE Saturday June 9 from 10am-2pm PDT
by Dale Henrichs 26 Jun '13

26 Jun '13

Maintenance is scheduled for this Saturday and according to the internal announcement no downtime is anticipated: The work is considered low risk and no downtime is anticipated, this is being sent out as a courtesy. If you experience problems on Saturday, don't hesitate to send email. Dale

3 6

Everyone's talking about debuggers these days
by Frank Shearar 08 Apr '13

08 Apr '13

First it was Gilad Bracha - http://gbracha.blogspot.co.uk/2012/11/debug-mode-is-only-mode.html - and now John Nolan - http://stigmergist.blogspot.co.uk/2013/01/debugger-first-vm-development.html I also saw a really neat demo of a framework for debugging system calls. I hope to find out more about this when I quiz the implementor in early February. I would be less vague if I could remember the name of the framework! frank

6 10

Jump to page: