Squeak-dev January 2019

squeak-dev@lists.squeakfoundation.org

41 participants
152 discussions

The Inbox: Morphic-mt.1476.mcz
by commits＠source.squeak.org 17 Jan '19

17 Jan '19

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-mt.1476.mcz ==================== Summary ==================== Name: Morphic-mt.1476 Author: mt Time: 17 January 2019, 11:27:42.786727 am UUID: 59287f0d-de73-49e4-b2f4-ad0d03f32f0c Ancestors: Morphic-mt.1475 Propose a project-level script to save all code changes in (kind of) a transaction. Useful for updating UI-related code that is scattered across classes and methods. Could find a home in the "Do" scripts in our world-main-docking-bar. =============== Diff against Morphic-mt.1475 =============== Item was added: + ----- Method: MorphicProject>>acceptAllCodeChanges (in category 'utilities') ----- + acceptAllCodeChanges + + | codeWindows acceptedChanges | + codeWindows := SystemWindow + windowsIn: self world + satisfying: [:window | (window visible and: [window model hasUnacceptedEdits]) and: [window model isKindOf: CodeHolder]]. + + acceptedChanges := codeWindows collect: [:window | MethodReference class: window model selectedClassOrMetaClass selector: window model selectedMessageName]. + + ((codeWindows + gather: [:window | window model dependents]) + select: [:object | (object isKindOf: PluggableTextMorph) and: [object setTextSelector = #contents:notifying:]]) + "Two steps to avoid unnecessary GUI updates." + do: [:morphWithCode | morphWithCode acceptTextInModel]; + do: [:morphWithCode | morphWithCode accept]. + + Transcript showln: 'The following code changes were accepted:\\' withCRs, (acceptedChanges joinSeparatedBy: String cr). + "self inform: 'The following code changes were accepted:\\' withCRs, (acceptedChanges joinSeparatedBy: String cr). "!

1 0

I am abandoning SqueakSource3, any takers?
by Tobias Pape 17 Jan '19

17 Jan '19

Hi all, since there's not a lot interest anymore in SqueakSource3, I'm giving up maintenanceship. Here's the project: http://squeaksource.com/squeaksource3.html Here's the current bug tracker: https://github.com/krono/squeaksource3/issues It runs on Squeak, GemStone, and Pharo. There are a few instances out there, running without any problems. Any Takers? -t

7 11

Re: [squeak-dev] Wrong method source pointer in Squeak5.2
by Max Leske 17 Jan '19

17 Jan '19

Both. I have verified http://files.squeak.org/5.2/Squeak5.2-18225-32bit/Squeak5.2-18225-32bit-201… and http://files.squeak.org/5.2/Squeak5.2-18225-64bit/Squeak5.2-18225-64bit-201…. On 17 Jan 2019, at 0:49, squeak-dev-request(a)lists.squeakfoundation.org wrote: > Hi Max, > is it the 32bits or 64bits image? > > Le dim. 13 janv. 2019 à 21:27, Nicolas Cellier < > nicolas.cellier.aka.nice(a)gmail.com> a écrit : > > >> Thanks Max, >> good find! >> There is certainly a problem in the release procedures. >> We have to make sure that the CompiledMethod running are the one >> installed. >> And we should restart the Process for which it's not the case. >> How to proceed next? >> I think it's a good subject to discuss in Squeak board. >> >> Le dim. 13 janv. 2019 à 10:49, Marcel Taeumel >> <marcel.taeumel(a)hpi.de> a >> écrit : >> > >>> Hi, there. >>> >>> At the moment, "SyntaxError" is not in harmony with the rest of >>> exception handling and debugging. I do have some notes and ideas on >>> how to >>> improve that. Maybe these issues will go away then, too. :-) >>> >>> I think, we miss a concept to have any kind of interactive tooling >>> for >>> any kind of exception. Right now, there is Debugger and SyntaxError. >>> Etoys >>> has an "Ooops!" dialog. :-) There could be more. Some fancy, some >>> just >>> informative. >>> >>> Best, >>> Marcel >>> >>> Am 13.01.2019 07:59:01 schrieb Max Leske <maxleske(a)gmail.com>: >>> >>> Hi Nicolas, hi Dave, >>> >>> I did some more digging and found that the problem is actually >>> present in >>> (probably) every 5.2 image. It can easily be found by opening a >>> fresh image >>> and evaluating "self halt". In the debugger, click on "full stack" >>> and >>> scroll down to the first context (BlockClosure>>newProcess) and >>> click on >>> the entry. This will cause a SyntaxError dialog to open. >>> >>> Closing both the SyntaxError dialog and the debugger makes the >>> problem go >>> away. The reason for this appears to be that opening the debugger as >>> caused >>> the UI process to be replaced with a new instance (the old instance >>> was the >>> one opened in the debugger). You can see this easily by evaluating >>> "[ self >>> halt ] fork" and clicking on the first stack frame, which will not >>> cause >>> the SyntaxError dialog to open. Alternatively, you could evaluate >>> "Project >>> current spawnNewProcessAndTerminateOld: true". >>> >>> What I've discovered so far is that the problematic contexts in the >>> UI >>> process (there are multiple) are *not* the CompiledMethod instances >>> installed in the respective classes. You can verify this by >>> comparing >>> "(BlockClosure>>#newProcess) identityHash" with the hash of the >>> method in >>> the context (select the third last frame, inspect the "thisContext" >>> variable and evaluate "self sender sender method identityHash in >>> that >>> inspector"). After the UI process has been replaced those identity >>> hashes >>> are equal again. >>> The information in the "old/bad" CompiledMethod obviously points to >>> a bad >>> offset in the changes file. >>> >>> I also now understand why this only affects the one specific test >>> case: >>> the test accesses the method node for each context in the current >>> process, >>> i.e. the UI process, which includes the bad contexts (access to the >>> method >>> node causes decompilation of the method which causes source access). >>> >>> Please let me know when you've found a solution and also if I can be >>> of >>> more help. >>> >>> Cheers, >>> Max >>> >>> Hi, >>> >>> We have an issue in Seaside where a loaded test method holds a bad >>> source >>> pointer. We only noticed because this method accesses the debugger >>> map. >>> >>> How to reproduce: >>> >>> clone SmalltalkCI: git clone git@github.com:hpi-swa/smalltalkCI.git >>> clone Seaside: git clone git@github.com:SeasideSt/Seaside.git; git >>> checkout 9cb54a7b14cd254ef318294905c4e8dda8dd9f79 >>> install Seaside in Squeak5.2: <path to SmalltalkCI>/run.sh --headful >>> -s >>> Squeak-5.2 <path to Seaside>/.smalltalk.ston >>> Run the test WAPharoDebuggerTest>>testNamedTempAt and you'll see a >>> debugger pop up for an UndeclaredVariable. The source lookup is >>> performed >>> in the changes file but in the middle of a chunk of binary (font) >>> data. >>> I can can only speculate that some of that binary data introduces >>> random >>> chunks which messes with the offsets. >>> >>> We're adding a workaround for that particular test for now. >>> >>> Let me know if I can help track down the issue. >>> >>> Cheers, >>> Max

1 0

Refactoring browser loading
by tim Rowledge 17 Jan '19

17 Jan '19

I had a mind to try loading the refactoring browser (see http://ss3.gemstone.com/ss/RefactoringToolsForSqueak.html/Overview?_s=52NK9…) but none of the three methods mentioned for loading it actually work in a current image. The Installer code snippet initially fails because an InstallerURL dNU #project:. The Gofer snippet won't work because Gofer does not exist in the image. Opening the MC repository works but loading the ConfigurationOfRefactoringTools-topa.1 does nothing and attempting to load the latest RefactoringTools-eem.7 fails with many complaints about classes needing loading first. Fixing the Installer snippet to refer to squeaksource3 @http://ss3.gemtalksystems.com/ss/ instead of using the obsolete http://ss3.gemstone.com/ss/ makes a promising start but very quickly opens the same error as simply trying to load RefactoringTools-eem.7 What have I messed up? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- Permanently out to lunch.

4 5

[Pharo-dev] I am abandoning SqueakSource3, any takers?
by Chris Cunnington 17 Jan '19

17 Jan '19

>Is it just the question of setting up nginx as a reverse proxy with ssl >support Yes. or does Seaside/SqueakSource have issues because of absolute >urls? No. You could deploy Chris’s Personal SqueakSource on localhost on your laptop and then deploy that to a server. I can see why you’d think it has static URLs, but it doesn’t. Not really. More like application names extended by Lukas for project names. SSProject allInstances first fullHomepageUrl 'http://www.squeaksource.com/Seaside.html’ <http://www.squeaksource.com/Seaside.html%E2%80%99> Chris >Levente

1 0

The Inbox: Chronology-Tests-ul.15.mcz
by commits＠source.squeak.org 17 Jan '19

17 Jan '19

Levente Uzonyi uploaded a new version of Chronology-Tests to project The Inbox: http://source.squeak.org/inbox/Chronology-Tests-ul.15.mcz ==================== Summary ==================== Name: Chronology-Tests-ul.15 Author: ul Time: 14 January 2019, 1:18:04.380862 pm UUID: 31a3ca9d-4c54-4034-9d36-9967644e2d87 Ancestors: Chronology-Tests-dtl.14 - updated DateAndTimeTest >> #testPrecision to be aware of Time's ClockPolicy =============== Diff against Chronology-Tests-dtl.14 =============== Item was changed: ----- Method: DateAndTimeTest>>testPrecision (in category 'Tests') ----- testPrecision "Verify that the clock is returning a value with accuracy of better than 1 second. For now it seems sufficient to get two values and verify they are not the same." + | originalClockPolicy | + originalClockPolicy := Time clockPolicy. + [ + #( + "#acceptPlatformTime is not listed here, because it doesn't guarantee monotoncity." + monotonicAllowDuplicates <= + monotonicForceMicrosecondIncrement < + monotonicForceNanosecondIncrement < + ) pairsDo: [ :clockPolicy :comparator | + | first second | + Time clockPolicy: clockPolicy. + first := DateAndTime now. + second := DateAndTime now. + self + assert: (first perform: comparator with: second) + description: ('Clock policy {1} didn''t compare with {2}' format: { clockPolicy. comparator }) ] ] + ensure: [ Time clockPolicy: originalClockPolicy ] - self - assert: (DateAndTime now ~= DateAndTime now) !

3 3

Squeak5.2 save morph / load morph from file
by Philip Bernhart 17 Jan '19

17 Jan '19

Hi, I have the annoyance of not being able to load a saved morph from a file within squeak5.2-18229-64bit-201810190412-Linux which also applies to squeak5.1-16549-64bit-201608171728-Linux. The morph I want to load is a book morph and other morphs seem to be restorable. When I try to load it it fails with a positional stream error, with my humble debugging skills I tried to investigate it but failed in finding the cause. I attached the file which makes the problems, maybe someone with more skills can find the cause. It was originally generated within a fresh squeak5.1-18229-64bit-201810190412-Linux image. Thanks, Philip

5 6

The Inbox: Chronology-Core-ul.22.mcz
by commits＠source.squeak.org 15 Jan '19

15 Jan '19

Levente Uzonyi uploaded a new version of Chronology-Core to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-ul.22.mcz ==================== Summary ==================== Name: Chronology-Core-ul.22 Author: ul Time: 14 January 2019, 1:08:48.177246 pm UUID: 025b4802-6281-4674-937e-a345e5a6aded Ancestors: Chronology-Core-ul.21 - added an accessor to Time's ClockPolicy, so that tests can depend on its current value - optimized various DateAndTime methods =============== Diff against Chronology-Core-ul.21 =============== Item was changed: ----- Method: DateAndTime>>= (in category 'ansi protocol') ----- = aDateAndTimeOrTimeStamp "Equal if the absolute time values match, regardless of local time transform" + self == aDateAndTimeOrTimeStamp ifTrue: [ ^ true ]. + aDateAndTimeOrTimeStamp species == DateAndTime ifFalse: [ ^false ]. + aDateAndTimeOrTimeStamp utcMicroseconds = utcMicroseconds ifTrue: [ ^true ]. + ^false! - ^aDateAndTimeOrTimeStamp species == DateAndTime - and: [ utcMicroseconds = aDateAndTimeOrTimeStamp utcMicroseconds ]! Item was changed: ----- Method: DateAndTime>>asUTC (in category 'ansi protocol') ----- asUTC localOffsetSeconds = 0 ifTrue: [ ^self ]. + ^self copy makeUTC! - ^self copy - utcMicroseconds: utcMicroseconds - offset: 0 - ! Item was changed: ----- Method: DateAndTime>>asUnixTime (in category 'squeak protocol') ----- asUnixTime "answer number of seconds since unix epoch (midnight Jan 1, 1970, UTC)" + ^utcMicroseconds // 1000000! - ^(self - self class unixEpoch) asSeconds! Item was changed: ----- Method: DateAndTime>>dayMonthYearDo: (in category 'squeak protocol') ----- dayMonthYearDo: aBlock "Evaluation the block with three arguments: day month, year." + | l n i j dd | - | l n i j dd mm yyyy | l := self julianDayNumber + 68569. n := 4 * l // 146097. l := l - (146097 * n + 3 // 4). + i := l + 1 * 4000 // 1461001. - i := 4000 * (l + 1) // 1461001. l := l - (1461 * i // 4) + 31. j := 80 * l // 2447. dd := l - (2447 * j // 80). l := j // 11. - mm := j + 2 - (12 * l). - yyyy := 100 * (n - 49) + i + l. ^ aBlock value: dd + value: -12 * l + 2 + j "month" + value: n - 49 * 100 + i + l "year"! - value: mm - value: yyyy! Item was changed: ----- Method: DateAndTime>>floor (in category 'squeak protocol') ----- floor "Answer a copy with magnitude rounded down to the nearest whole second" ^self class + utcMicroseconds: utcMicroseconds // 1000000 * 1000000 - utcMicroseconds: utcMicroseconds - (utcMicroseconds \\ 1000000) offset: localOffsetSeconds! Item was changed: ----- Method: DateAndTime>>getSeconds (in category 'accessing') ----- getSeconds + + ^utcMicroseconds // 1000000 + localOffsetSeconds \\ 86400! - - | posixDays posixSeconds localSeconds | - posixSeconds := utcMicroseconds // 1000000. - localSeconds := posixSeconds + localOffsetSeconds. - localSeconds < 0 ifTrue: [localSeconds := localSeconds \\ SecondsInDay]. "normalize" - posixDays := localSeconds // SecondsInDay. - ^localSeconds - (posixDays * SecondsInDay). - ! Item was changed: ----- Method: DateAndTime>>julianDayNumber (in category 'squeak protocol') ----- julianDayNumber + ^utcMicroseconds // 1000000 + localOffsetSeconds // 86400 + PosixEpochJulianDays! - | posixDays posixSeconds localSeconds negativeDays | - posixSeconds := utcMicroseconds // 1000000. - localSeconds := posixSeconds + localOffsetSeconds. - negativeDays := 0. - localSeconds < 0 ifTrue: [ "normalize" - negativeDays := localSeconds // SecondsInDay. - localSeconds := negativeDays * SecondsInDay + localSeconds]. - posixDays := localSeconds // SecondsInDay. - ^posixDays + PosixEpochJulianDays - negativeDays. - ! Item was changed: ----- Method: DateAndTime>>microsecondsFromDay:seconds:nanos:offset: (in category 'private') ----- microsecondsFromDay: jdn seconds: s nanos: n offset: localOffsetSeconds + ^jdn - PosixEpochJulianDays "days" * 86400 + + s - localOffsetSeconds "seconds" * 1000000 + + (n / 1000) "nanos"! - | days totalSeconds micros | - days := jdn - PosixEpochJulianDays. - totalSeconds := days * 86400 + s - localOffsetSeconds. "n.g. const 86400 is faster than SecondsInDay" - micros := totalSeconds * 1000000. - ^micros + (n / 1000) - ! Item was added: + ----- Method: Time class>>clockPolicy (in category 'class initialization') ----- + clockPolicy + + ^ClockPolicy!

4 4

TranscriptStream characterLimit?
by H. Hirzel 15 Jan '19

15 Jan '19

Hello The TranscriptStream characterLimit was set by Dan Ingalls 20 years ago to 20'000 characters. characterLimit "Tell the views how much to retain on screen" ^ 20000 Could this be set to a higher value or made a preference which can easily be found? Regards Hannes

3 4

The Trunk: Tools-eem.843.mcz
by commits＠source.squeak.org 14 Jan '19

14 Jan '19

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.843.mcz ==================== Summary ==================== Name: Tools-eem.843 Author: eem Time: 14 January 2019, 10:30:05.84058 am UUID: 889764d2-df9b-4623-8ac7-65847938f31d Ancestors: Tools-tpr.842 Retain the default label for a MessageTrace and restore it when there is no selection. Hence preserve useful info like number of selected methods in a browseAllSelect:. Chris M, please review. =============== Diff against Tools-tpr.842 =============== Item was changed: MessageSet subclass: #MessageTrace + instanceVariableNames: 'autoSelectStrings messageSelections anchorIndex defaultSelectString' - instanceVariableNames: 'autoSelectStrings messageSelections anchorIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !MessageTrace commentStamp: 'cmm 3/2/2010 20:26' prior: 0! A MessageTrace is a MessageSet allowing efficient sender/implementor message following. With implementors indented below, and senders outdended above, message flow is succinctly expressed, hierarchically. My autoSelectStrings and messageSelections are Arrays of Booleans, parallel to my messageList. Each boolean indicates whether that message is selected. Each autoSelectStrings indicates which string should be highlighted in the code for each method in my messageList.! Item was changed: ----- Method: MessageTrace>>messageListIndex: (in category 'actions') ----- messageListIndex: anInteger autoSelectStrings notEmpty ifTrue: [ autoSelectString := anInteger = 0 + ifTrue: + [ defaultSelectString ifNotNil: [:default| self containingWindow setLabel: default]. + '' ] - ifTrue: [ '' ] ifFalse: [ messageListIndex := anInteger. "setting the window label, below, can't wait for this.." self containingWindow setLabel: (self windowLabelAt: anInteger). (autoSelectStrings at: anInteger) ifNotNil: [ : fullSelector | fullSelector keywords first ] ] ]. anInteger > 0 ifTrue: [ self messageAt: anInteger beSelected: true ]. super messageListIndex: anInteger ! Item was changed: ----- Method: MessageTrace>>windowLabelAt: (in category 'private accessing') ----- windowLabelAt: anInteger | str | + defaultSelectString ifNil: + [defaultSelectString := self containingWindow label]. ^(str := autoSelectStrings at: anInteger) ifNil: [ 'Implementors of ', (self class parse: self selection toClassAndSelector: [ :class :selector | selector ]) ] ifNotNil: [ 'Senders of ', str ] !

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
16
Older →

Jump to page: