Squeak-dev March 2018

squeak-dev@lists.squeakfoundation.org

53 participants
146 discussions

The Trunk: Network-topa.221.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-topa.221.mcz ==================== Summary ==================== Name: Network-topa.221 Author: topa Time: 7 March 2018, 10:47:10.905474 pm UUID: 97fe2e2e-af08-4563-be27-8eb163d1bafe Ancestors: Network-tpr.220 Slight improvement to tim's improvement =============== Diff against Network-tpr.220 =============== Item was changed: ----- Method: MailComposition>>addAttachment (in category 'actions') ----- addAttachment - | file fileName | - - self saveFields. - fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. - fileName ifNil: [^self]. + self saveFields. + (FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment') ifNotNil: + [:fileName | + FileStream readOnlyFileNamed: fileName do: + [:file | + file binary. + mailMessage + addAttachmentFrom: file + withName: (FileDirectory localNameFor: fileName)]. + self changed: #messageText]. ! - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: [file binary. - mailMessage addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName) . - file close. - self changed: #messageText] !

1 0

The Trunk: MorphicExtras-topa.224.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-topa.224.mcz ==================== Summary ==================== Name: MorphicExtras-topa.224 Author: topa Time: 7 March 2018, 9:37:01.927179 pm UUID: 429c41eb-0c72-4d9c-b01a-60446039c6b9 Ancestors: MorphicExtras-tpr.223 Slight improvement to tim's improvement =============== Diff against MorphicExtras-tpr.223 =============== Item was changed: ----- Method: BookMorph>>loadImagesIntoBook (in category 'menu') ----- loadImagesIntoBook "PowerPoint stores GIF presentations as individual slides named Slide1, Slide2, etc. Load these into the book. mjg 9/99" | directory filenumber form newpage | directory :=DirectoryChooserDialog openOn: FileDirectory default label: 'Select the directory to load pages from'. + directory ifNil: [^ self]. - directory isNil ifTrue: [^nil]. "Start loading 'em up!!" filenumber := 1. [directory fileExists: 'Slide' , filenumber asString] whileTrue: [Transcript show: 'Slide' , filenumber asString; cr. Smalltalk bytesLeft < 1000000 ifTrue: ["Make some room" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]]. form := Form fromFileNamed: (directory fullNameFor: 'Slide' , filenumber asString). newpage := PasteUpMorph new extent: form extent. newpage addMorph: (self world drawingClass withForm: form). self pages addLast: newpage. filenumber := filenumber + 1]. "After adding all, delete the first page." self goToPage: 1. self deletePageBasic. "Save the book" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]! Item was changed: ----- Method: FancyMailComposition>>addAttachment (in category 'actions') ----- addAttachment + - | file fileName | textEditor ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. + (FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment') ifNotNil: + [:fileName | + FileStream readOnlyFileNamed: fileName do: + [:file | + file binary. + self messageText: + ((MailMessage from: self messageText asString) + addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); + text)]]! - fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. - fileName ifNil: [^self]. - - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: [file binary. - self messageText: - ((MailMessage from: self messageText asString) - addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); - text). - file close]!

1 0

The Trunk: GetText-tpr.46.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-tpr.46.mcz ==================== Summary ==================== Name: GetText-tpr.46 Author: tpr Time: 7 March 2018, 11:11:46.625662 am UUID: 8f641159-afe3-4ccb-bfc5-cd080361d30a Ancestors: GetText-mt.45 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against GetText-mt.45 =============== Item was changed: ----- Method: LanguageEditor>>getTextImportAFile (in category 'gui methods') ----- getTextImportAFile + | fileName | + fileName := FileChooserDialog openOnSuffixList: { 'po' } label: 'Select a File:' translated. + fileName ifNil: [^self]. + - | result | - result := (StandardFileMenu new pattern: '*.po'; - - oldFileFrom: (FileDirectory default directoryNamed: 'po')) startUpWithCaption: 'Select a File:' translated. - result - ifNil: [^ self]. self withUnboundModelDo: [:trans | Cursor wait showWhile: [GetTextImporter new import: trans + fileNamed: fileName]]! - fileNamed: (result directory fullNameFor: result name)]]! Item was changed: ----- Method: LanguageEditor>>selectTranslationFileName (in category 'gui methods') ----- selectTranslationFileName "answer a file with a translation" + | fileName | + fileName :=FileChooserDialog openOnSuffixList: { 'translation' } label: 'Select the file...' translated. + ^ fileName isNil + ifFalse: [fileName]! - | file | - file := (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*.translation') - startUpWithCaption: 'Select the file...' translated. - ^ file isNil - ifFalse: [file directory fullNameFor: file name]!

3 2

The Trunk: GetText-topa.47.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

Tobias Pape uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-topa.47.mcz ==================== Summary ==================== Name: GetText-topa.47 Author: topa Time: 7 March 2018, 9:30:49.346582 pm UUID: 987f9c81-b710-43f0-9a50-ced981112705 Ancestors: GetText-tpr.46 Slight improvement to tim's improvement =============== Diff against GetText-tpr.46 =============== Item was changed: ----- Method: LanguageEditor>>selectTranslationFileName (in category 'gui methods') ----- selectTranslationFileName "answer a file with a translation" + + ^ FileChooserDialog openOnSuffixList: { 'translation' } label: 'Select the file...' translated. + ! - | fileName | - fileName :=FileChooserDialog openOnSuffixList: { 'translation' } label: 'Select the file...' translated. - ^ fileName isNil - ifFalse: [fileName]!

1 0

Call for Papers: ManLang 2018 (Sept. 10-14, Linz, Austria)
by ManLang Conference 07 Mar '18

07 Mar '18

------------------------------------------------------------------------------------------------ CALL FOR PAPERS 15th International Conference on Managed Languages & Runtimes (ManLang'18) September 10-14, 2018, Linz, Austria http://ssw.jku.at/manlang18/ ------------------------------------------------------------------------------------------------ ManLang (formerly PPPJ) is a premier forum for presenting and discussing novel results in all aspects of managed programming languages and runtime systems, which serve as building blocks for some of the most important computing systems, ranging from small-scale (embedded and real-time systems) to large-scale (cloud-computing and big-data platforms) and anything in between (mobile, IoT, and wearable applications). ====== Topics ====== Topics of interest include but are not limited to: Languages and Compilers ----------------------- - Managed languages (e.g., Java, Scala, JavaScript, Python, Ruby, C#, F#, Clojure, Groovy, Kotlin, R, Smalltalk, Racket, Rust, Go, etc.) - Domain-specific languages - Language design - Compilers and interpreters - Type systems and program logics - Language interoperability - Parallelism, distribution, and concurrency Virtual Machines ---------------- - Managed runtime systems (e.g., JVM, Dalvik VM, Android Runtime (ART), LLVM, .NET CLR, RPython, etc.) - VM design and optimization - VMs for mobile and embedded devices - VMs for real-time applications - Memory management - Hardware/software co-design Techniques, Tools, and Applications ----------------------------------- - Static and dynamic program analysis - Testing and debugging - Refactoring - Program understanding - Program synthesis - Security and privacy - Performance analysis and monitoring - Compiler and program verification =============== Important Dates =============== Submission: May 4, 2018 (Abstracts: April 27) Notification: July 6, 2018 Camera-ready version: August 3, 2018 Poster submission: August 6, 2018 Poster notification: August 13, 2018 Conference: September 10-14, 2018 ========================== Submission and Proceedings ========================== Submissions to the conference will be evaluated on the basis of originality, relevance, technical soundness and presentation quality. Papers should be written in English and not exceed 12 pages in ACM format for full papers (6 pages for WiP, industry, and tool papers). You can also submit posters, which can be accompanied by a one-page abstract, and are due on August 6, 2018. The conference proceedings will be published as part of the ACM International Conference Proceedings Series and will be disseminated through the ACM Digital Library. See the conference homepage for details on paper formats and submission. ============ Organization ============ General Chair: Hanspeter Mössenböck, Johannes Kepler University Linz, Austria Program Chair: Eli Tilevich, Virginia Tech, USA Steering Committee: Walter Binder, University of Lugano (USI), Switzerland Bruce Childers, University of Pittsburgh, USA Martin Pluemicke, DHBW Stuttgart, Germany Christian Probst, Technical University of Denmark, Denmark Petr Tuma, Charles University, Czech Republic Thomas Würthinger, Oracle Labs, Switzerland Program Committee: Godmar Back, Virginia Tech, USA Clement Bera, INRIA, France Christoph Bockisch, Philipps Universität Marburg, Germany Man Cao, Google, USA Shigeru Chiba, University of Tokyo, Japan Yvonne Coady, University of Victoria, Canada Julian Dolby, IBM Research, USA Patrick Eugster, University of Lugano, Switzerland Irene Finocchi, Sapienza University of Rome, Italy Görel Hedin, Lund University, Sweden Robert Hirschfeld, Hasso Plattner Institute, Germany Tony Hosking, Purdue University, USA Doug Lea, SUNY Oswego, USA Eliot Moss, University of Massachusetts, USA Nate Nystrom, University of Lugano, Switzerland Tiark Rompf, Purdue University, USA Jennifer B. Sartor, Vrije Universiteit Brussel, Belgium JeremyJan Vitek, Northeastern University, USA Christian Wimmer, Oracle Labs, USA Jianjun Zhao, Kyushu University, Japan ======== Location ======== Linz, the capital of Upper Austria, is both a city of culture and of industry. Located at the Danube it features a historic downtown and a modern university campus just north of the Danube, where the conference will take place. For information on JKU and Linz, also see: http://www.jku.at, https://en.wikipedia.org/wiki/Linz and https://www.linz.at/english/ ================= Other Information ================= The 5th Virtual Machine Meetup (VMM) is a collocated event with ManLang '18. It is a venue for discussing the latest research and developments in the area of managed language execution. ManLang'18 is organized in cooperation with ACM, ACM SIGPLAN and ACM ICPS, and is sponsored by the JKU Department of Computer Science, Oracle Labs, and Linz AG. http://ssw.jku.at/manlang18/ https://www.facebook.com/ManLangConf/ https://twitter.com/manlangconf

1 0

The Trunk: Tools-tpr.798.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.798.mcz ==================== Summary ==================== Name: Tools-tpr.798 Author: tpr Time: 7 March 2018, 11:19:49.739206 am UUID: cf6625fc-e8fc-491a-8ec9-1d907f10e710 Ancestors: Tools-mt.797 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against Tools-mt.797 =============== Item was changed: ----- Method: ArchiveViewer>>extractMember (in category 'member operations') ----- extractMember "Extract the member after prompting for a filename. Answer the filename, or nil if error." + | name | - | result name | self canExtractMember ifFalse: [ ^nil ]. + name := FileSaverDialog openOn: FileDirectory default. + name ifNil: [ ^nil ]. - result := StandardFileMenu newFile. - result ifNil: [ ^nil ]. - name := (result directory fullNameFor: result name). (archive canWriteToFileNamed: name) ifFalse: [ self inform: name, ' is used by one or more members in your archive, and cannot be overwritten. Try extracting to another file name'. ^nil ]. self selectedMember extractToFileNamed: name. ^name! Item was changed: ----- Method: ArchiveViewer>>writePrependingFile (in category 'archive operations') ----- writePrependingFile | result name prependedName | self canSaveArchive ifFalse: [ ^self ]. + name := FileSaverDialog openOn: FileDirectory default initialFilename: 'archive.zip' label: 'Choose location to save archive' translated. + name ifNil: [ ^self ]. - result := (StandardFileMenu newFileMenu: FileDirectory default) - startUpWithCaption: 'Destination Zip File Name:' translated. - result ifNil: [ ^self ]. - name := result directory fullNameFor: result name. (archive canWriteToFileNamed: name) ifFalse: [ self inform: name, ' is used by one or more members in your archive, and cannot be overwritten. Try writing to another file name' translated. ^self ]. + result := FileSaverDialog openOn: FileDirectory default initialFilename: 'archive.zip' label: 'Prepended File:' translated. - result := (StandardFileMenu oldFileMenu: FileDirectory default) - startUpWithCaption: 'Prepended File:' translated. result ifNil: [ ^self ]. prependedName := result directory fullNameFor: result name. [ archive writeToFileNamed: name prependingFileNamed: prependedName ] on: Error do: [ :ex | self inform: ex description. ]. self changed: #memberList "in case CRC's and compressed sizes got set"! Item was changed: ----- Method: ChangeSorter>>fileIntoNewChangeSet (in category 'changeSet menu') ----- fileIntoNewChangeSet "Obtain a file designation from the user, and file its contents into a new change set whose name is a function of the filename. Show the new set and leave the current changeSet unaltered." + | aNewChangeSet stream fileName | - | aNewChangeSet stream | self okToChange ifFalse: [^ self]. ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. + fileName := (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNil: [^nil]. + stream := FileStream oldFileNamed: fileName. + stream ifNil: [^ self]. + - stream := StandardFileMenu oldFileStreamFrom: ChangeSet defaultChangeSetDirectory. - stream - ifNil: [^ self]. aNewChangeSet := self class newChangesFromStream: stream + named: (FileDirectory localNameFor:fileName). - named: (FileDirectory localNameFor: stream name). aNewChangeSet ifNotNil: [self showChangeSet: aNewChangeSet]! Item was changed: ----- Method: FileList class>>openFileDirectly (in category 'instance creation') ----- openFileDirectly + | fileName | + (fileName :=FileChooserDialog openOn: FileDirectory default) ifNotNil: + [self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]! - | aResult | - (aResult := StandardFileMenu oldFile) ifNotNil: - [self openEditorOn: (aResult directory readOnlyFileNamed: aResult name) editString: nil]!

1 0

The Trunk: Network-tpr.220.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.220.mcz ==================== Summary ==================== Name: Network-tpr.220 Author: tpr Time: 7 March 2018, 11:16:27.453971 am UUID: 90d9b634-e1e3-4713-bb09-82ed2cc362e6 Ancestors: Network-pre.219 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against Network-pre.219 =============== Item was changed: ----- Method: MailComposition>>addAttachment (in category 'actions') ----- addAttachment + | file fileName | - | file fileResult fileName | self saveFields. + fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. + fileName ifNil: [^self]. + file := FileStream readOnlyFileNamed: fileName. + file ifNotNil: [file binary. + mailMessage addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName) . + file close. + self changed: #messageText] ! - (fileResult := StandardFileMenu oldFile) - ifNotNil: - [fileName := fileResult directory fullNameFor: fileResult name. - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: - [file binary. - mailMessage addAttachmentFrom: file withName: fileResult name. - file close. - self changed: #messageText]] !

1 0

The Trunk: MorphicExtras-tpr.223.mcz
by commits＠source.squeak.org 07 Mar '18

07 Mar '18

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.223.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.223 Author: tpr Time: 7 March 2018, 11:14:11.491809 am UUID: c324d012-9883-4ede-a149-240f51d9687c Ancestors: MorphicExtras-dtl.222 Convert usage of nasty old StandardFileMenu to gleaming new file dialogues =============== Diff against MorphicExtras-dtl.222 =============== Item was changed: ----- Method: BookMorph>>loadImagesIntoBook (in category 'menu') ----- loadImagesIntoBook "PowerPoint stores GIF presentations as individual slides named Slide1, Slide2, etc. Load these into the book. mjg 9/99" | directory filenumber form newpage | + directory :=DirectoryChooserDialog openOn: FileDirectory default label: 'Select the directory to load pages from'. - directory := ((StandardFileMenu oldFileFrom: FileDirectory default) - ifNil: [^nil]) directory. directory isNil ifTrue: [^nil]. "Start loading 'em up!!" filenumber := 1. [directory fileExists: 'Slide' , filenumber asString] whileTrue: [Transcript show: 'Slide' , filenumber asString; cr. Smalltalk bytesLeft < 1000000 ifTrue: ["Make some room" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]]. form := Form fromFileNamed: (directory fullNameFor: 'Slide' , filenumber asString). newpage := PasteUpMorph new extent: form extent. newpage addMorph: (self world drawingClass withForm: form). self pages addLast: newpage. filenumber := filenumber + 1]. "After adding all, delete the first page." self goToPage: 1. self deletePageBasic. "Save the book" (self valueOfProperty: #url) isNil ifTrue: [self savePagesOnURL] ifFalse: [self saveAsNumberedURLs]! Item was changed: ----- Method: FancyMailComposition>>addAttachment (in category 'actions') ----- addAttachment + | file fileName | - | file fileResult fileName | textEditor ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. + fileName := FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment'. + fileName ifNil: [^self]. + + file := FileStream readOnlyFileNamed: fileName. + file ifNotNil: [file binary. - (fileResult := StandardFileMenu oldFile) - ifNotNil: - [fileName := fileResult directory fullNameFor: fileResult name. - file := FileStream readOnlyFileNamed: fileName. - file ifNotNil: - [file binary. self messageText: ((MailMessage from: self messageText asString) + addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); + text). + file close]! - addAttachmentFrom: file withName: fileResult name; text). - file close]] ! Item was changed: ----- Method: FatBitsPaint>>fileOut (in category 'menu') ----- fileOut + | fileName | - | fileName result | + fileName := FileSaverDialog openOn: FileDirectory default. + fileName ifNil: [^Beeper beep]. + + Cursor normal showWhile: [self unmagnifiedForm writeOnFileNamed: fileName]! - result := StandardFileMenu newFile ifNil: [^Beeper beep]. - fileName := result directory fullNameFor: result name. - Cursor normal showWhile: - [self unmagnifiedForm writeOnFileNamed: fileName]!

1 0

Squeak3D plugin [was Re: A new Squeak release]
by Eliot Miranda 06 Mar '18

06 Mar '18

Hi Bert, Hi Stef, moving to vm-dev cuz it makes more sense there... On Sun, Mar 4, 2018 at 11:37 AM, Bert Freudenberg <bert(a)freudenbergs.de> wrote: > On 4 March 2018 at 19:16, Eliot Miranda <eliot.miranda(a)gmail.com> wrote: > >> Hi Stéphane, >> >> On Sun, Mar 4, 2018 at 6:17 AM, Stéphane Rollandin < >> lecteur(a)zogotounga.net> wrote: >> >>> I can't even get that far. How did you get from the link mentioned >>>> before to the file you think might be the correct one? >>>> >>>> >>>> On 3/4/18 6:03 AM, Stéphane Rollandin wrote: >>>> >>>>> Le 04/03/2018 à 11:44, H. Hirzel a écrit : >>>>> >>>>>> http://squeak.org/downloads/ >>>>>> >>>>>> should lead you to the correct place. >>>>>> >>>>>> Under the heading 'Virtual machines' there is a link >>>>>> >>>>>> https://bintray.com/opensmalltalk/vm/cog/_latestVersion#files >>>>>> >>>>> >>>>> Ok, then I assume the current one for a 4.6 image is >>>>> cog_win32x86_squeak.cog.v3_201608171728 >>>>> >>>> >>> I used the first link... >>> >>> now from the second I just found squeak.cog.v3_win32x86_201803032041 >>> which is more recent, but still with the same outcome: 3D primitives are >>> missing.> >>> >> >> and if you put "B3DXUsesOpenGL=0" in Squeak.ini what happens then? >> AFAICT all the 3D support is included in the VM as it ever was. I'm sorry, >> but I'm not very familiar with the 3D support on Windows. I do know that >> Ronie got the OpenGL example working on Mac OS in 32 and 64 bits late last >> year. And I think we tested all platforms and found it worked. What that >> implies for the B3DAcceleratorPlugin on win32 I don't know. >> >> > >>> > Stef >>> >> >> _,,,^..^,,,_ >> best, Eliot >> > > > Is the Squeak3D plugin included as well? I think that's the one Stef > wants, in addition to B3DAcceleratorPlugin. > For reasons I don't understand the Squeak3D plugin (internal name B3DEnginePlugin & subclasses) is built only on build.linux32ARMv6, and as an external plugin. Does anyone know how this came to be? I will try and build the Squeak3D plugin on Mac OS X in the Squeak VMs, and if it seems to work will commit that change. Can someone please try and build on Win32 & Win64 and the other linux platforms? It's bizarre that this has been left out. Also should it be included in the Pharo VM, Esteban? - Bert - > _,,,^..^,,,_ best, Eliot

2 1

Debugger bug in debugging a bug
by tim Rowledge 06 Mar '18

06 Mar '18

Whilst looking at the previously mentioned problem in uploading to squeaksource I had a bug in the debugger. I've just a moment ago updated to #17785 so there are recent changes to some compiler/debugger stuff potentially involved In DebuggerMethodMapForClosureCompiledMethods>>#privateTempRefsForContext:startKeysToBlockExtents: the startKeysToTempRefs dictionary was nil and thus many varieties of heck[1] broke loose. ' 6 March 2018 1:31:36.766426 pm VM: unix - Smalltalk Image: Squeak6.0alpha [latest update: #17785] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/pi/Squeak Trusted Dir /home/pi/Squeak/secure Untrusted Dir /home/pi/Squeak/My Squeak UndefinedObject(Object)>>doesNotUnderstand: #at:ifAbsentPut: Receiver: nil Arguments and temporary variables: aMessage: at: 57 ifAbsentPut: [closure] in DebuggerMethodMapForClosureCompiledMethods...etc... exception: MessageNotUnderstood: UndefinedObject>>at:ifAbsentPut: resumeValue: nil Receiver''s instance variables: nil DebuggerMethodMapForClosureCompiledMethods>>privateTempRefsForContext:startKeysToBlockExtents: Receiver: a DebuggerMethodMapForClosureCompiledMethods Arguments and temporary variables: aContext: WebClient>>httpPut:content:type:do: theContextsStartKeysToBlockExtents: a Dictionary(57->(0 to: 2) ) Receiver''s instance variables: timestamp: 3692875391 methodReference: a WeakArray((WebClient>>#httpPut:content:type:do: "a CompiledMethod...etc... methodNode: httpPut: urlString content: postData type: contentType do: aBlock ...etc... abstractSourceRanges: a Dictionary(3->(120 to: 147) 7->(167 to: 191) 8->(159 to...etc... sortedSourceMap: nil blockExtentsToTempRefs: a Dictionary((0 to: 2)->#(#(''urlString'' 1) #(''postData''...etc... startpcsToTempRefs: a Dictionary(57->#(#(''urlString'' 1) #(''postData'' 2) #(''cont...etc... startKeysToTempRefs: nil DebuggerMethodMapForClosureCompiledMethods>>tempNamesForContext: Receiver: a DebuggerMethodMapForClosureCompiledMethods Arguments and temporary variables: aContext: WebClient>>httpPut:content:type:do: Receiver''s instance variables: timestamp: 3692875391 methodReference: a WeakArray((WebClient>>#httpPut:content:type:do: "a CompiledMethod...etc... methodNode: httpPut: urlString content: postData type: contentType do: aBlock ...etc... abstractSourceRanges: a Dictionary(3->(120 to: 147) 7->(167 to: 191) 8->(159 to...etc... sortedSourceMap: nil blockExtentsToTempRefs: a Dictionary((0 to: 2)->#(#(''urlString'' 1) #(''postData''...etc... startpcsToTempRefs: a Dictionary(57->#(#(''urlString'' 1) #(''postData'' 2) #(''cont...etc... startKeysToTempRefs: nil Context>>tempNames Receiver: WebClient>>httpPut:content:type:do: Arguments and temporary variables: Receiver''s instance variables: sender: nil pc: nil stackp: 5 method: (WebClient>>#httpPut:content:type:do: "a CompiledMethod(1024334)") closureOrNil: nil receiver: WebClient(http://source.squeak.org) ContextVariablesInspector>>fieldList Receiver: a ContextVariablesInspector Arguments and temporary variables: Receiver''s instance variables: dependents: nil contents: '''' object: WebClient>>sendRequest:contentBlock: selectionIndex: 0 timeOfLastListUpdate: nil selectionUpdateTime: nil context: nil expression: nil fieldList: #(''thisContext'' ''stack top'' ''all temp vars'' ''request'' ''contentBlock''...etc... ContextVariablesInspector(Inspector)>>object: Receiver: a ContextVariablesInspector Arguments and temporary variables: anObject: WebClient>>httpPut:content:type:do: oldIndex: 0 Receiver''s instance variables: dependents: nil contents: '''' object: WebClient>>sendRequest:contentBlock: selectionIndex: 0 timeOfLastListUpdate: nil selectionUpdateTime: nil context: nil expression: nil fieldList: #(''thisContext'' ''stack top'' ''all temp vars'' ''request'' ''contentBlock''...etc... Debugger>>contextStackIndex:oldContextWas: Receiver: a Debugger Arguments and temporary variables: anInteger: 11 oldContext: nil isNewMethod: true selectedContextSlotName: nil index: nil Receiver''s instance variables: dependents: nil contents: a Text for ''upToAll: aStringOrByteArray "Answer a subcollection from...etc... currentCompiledMethod: (SocketStream>>#upToAll: "a CompiledMethod(2352982)") contentsSymbol: #source multiWindowState: nil interruptedProcess: nil interruptedController: nil contextStack: nil contextStackIndex: 7 contextStackList: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in Soc...etc... receiverInspector: nil contextVariablesInspector: nil externalInterrupt: false proceedValue: nil selectingPC: true savedCursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2...etc... isolationHead: nil failedProject: nil errorWasInUIProcess: true labelString: nil message: nil untilExpression: nil Debugger>>toggleContextStackIndex: Receiver: a Debugger Arguments and temporary variables: anInteger: 11 Receiver''s instance variables: dependents: nil contents: a Text for ''upToAll: aStringOrByteArray "Answer a subcollection from...etc... currentCompiledMethod: (SocketStream>>#upToAll: "a CompiledMethod(2352982)") contentsSymbol: #source multiWindowState: nil interruptedProcess: nil interruptedController: nil contextStack: nil contextStackIndex: 7 contextStackList: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in Soc...etc... receiverInspector: nil contextVariablesInspector: nil externalInterrupt: false proceedValue: nil selectingPC: true savedCursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2...etc... isolationHead: nil failedProject: nil errorWasInUIProcess: true labelString: nil message: nil untilExpression: nil Debugger>>debugAt: Receiver: a Debugger Arguments and temporary variables: anInteger: 11 Receiver''s instance variables: dependents: nil contents: a Text for ''upToAll: aStringOrByteArray "Answer a subcollection from...etc... currentCompiledMethod: (SocketStream>>#upToAll: "a CompiledMethod(2352982)") contentsSymbol: #source multiWindowState: nil interruptedProcess: nil interruptedController: nil contextStack: nil contextStackIndex: 7 contextStackList: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in Soc...etc... receiverInspector: nil contextVariablesInspector: nil externalInterrupt: false proceedValue: nil selectingPC: true savedCursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2...etc... isolationHead: nil failedProject: nil errorWasInUIProcess: true labelString: nil message: nil untilExpression: nil PluggableListMorphPlus(PluggableListMorph)>>changeModelSelection: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: anInteger: 11 Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil PluggableListMorphPlus(PluggableListMorph)>>mouseUp: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: event: [327@225 mouseUp ( red ) 173153907] row: 11 Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil PluggableListMorphPlus(Morph)>>handleMouseUp: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: anEvent: [327@225 mouseUp ( red ) 173153907] Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil MouseButtonEvent>>sentTo: Receiver: [327@225 mouseUp ( red ) 173153907] Arguments and temporary variables: anObject: a PluggableListMorphPlus(2325224) Receiver''s instance variables: timeStamp: 173153907 source: a HandMorph(1832154) type: #mouseUp buttons: 0 position: 327@225 handler: nil wasHandled: true wasIgnored: false whichButton: 4 nClicks: 0 PluggableListMorphPlus(Morph)>>handleEvent: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: anEvent: [327@225 mouseUp ( red ) 173153907] filteredEvent: [327@225 mouseUp ( red ) 173153907] Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil PluggableListMorphPlus(Morph)>>handleFocusEvent: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: anEvent: [327@225 mouseUp ( red ) 173153907] Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil MorphicEventDispatcher>>doHandlingForFocusEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: currentEvent: [327@225 mouseUp ( red ) 173153907] focusMorph: a PluggableListMorphPlus(2325224) localEvent: [327@225 mouseUp ( red ) 173153907] filteredEvent: nil Receiver''s instance variables: lastType: nil lastDispatch: nil MorphicEventDispatcher>>dispatchFocusEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEventWithGlobalPosition: [327@225 mouseUp ( red ) 173153907] focusMorph: a PluggableListMorphPlus(2325224) currentEvent: [327@225 mouseUp ( red ) 173153907] Receiver''s instance variables: lastType: nil lastDispatch: nil PluggableListMorphPlus(Morph)>>processFocusEvent:using: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: anEvent: [327@225 mouseUp ( red ) 173153907] defaultDispatcher: a MorphicEventDispatcher Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil PluggableListMorphPlus(Morph)>>processFocusEvent: Receiver: a PluggableListMorphPlus(2325224) Arguments and temporary variables: anEvent: [327@225 mouseUp ( red ) 173153907] Receiver''s instance variables: bounds: 78@145 corner: 518@293 owner: a PluggableSystemWindow<ConnectionTimedOut: Data receive timed out.>(171...etc... submorphs: {a ScrollBar(1726779) . a TransformMorph(3314744)} fullBounds: 78@145 corner: 518@293 color: Color white extension: a MorphExtension (1629867) [balloonTextSelector: #messageHelpAt:] [...etc... borderWidth: 1 borderColor: (Color r: 0.6 g: 0.48 b: 0.48) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(1726779) scroller: a TransformMorph(3314744) retractableScrollBar: false scrollBarOnLeft: true getMenuSelector: nil getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1593680) hScrollBarPolicy: #whenNeeded vScrollBarPolicy: #whenNeeded scrollBarThickness: 10 list: an OrderedCollection(''SocketStream>>signalTimeout'' ''[] in SocketStream>>w...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #debugAt: keystrokeActionSelector: nil autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '''' lastClickTime: nil doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil hoverRow: nil listMorph: a LazyListMorph(1068051) hScrollRangeCache: #(401 396 20 ''SocketStream>>signalTimeout'' ''[] in MorphicUIM...etc... keystrokePreviewSelector: nil priorSelection: nil getIconSelector: #messageIconAt: getHelpSelector: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil dragTypeSelector: nil dragStartedSelector: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #at:ifAbsentPut: DebuggerMethodMapForClosureCompiledMethods>>privateTempRefsForContext:startKeysToBlockExtents: DebuggerMethodMapForClosureCompiledMethods>>tempNamesForContext: Context>>tempNames ContextVariablesInspector>>fieldList ContextVariablesInspector(Inspector)>>object: Debugger>>contextStackIndex:oldContextWas: Debugger>>toggleContextStackIndex: Debugger>>debugAt: PluggableListMorphPlus(PluggableListMorph)>>changeModelSelection: PluggableListMorphPlus(PluggableListMorph)>>mouseUp: PluggableListMorphPlus(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableListMorphPlus(Morph)>>handleEvent: PluggableListMorphPlus(Morph)>>handleFocusEvent: MorphicEventDispatcher>>doHandlingForFocusEvent:with: MorphicEventDispatcher>>dispatchFocusEvent:with: PluggableListMorphPlus(Morph)>>processFocusEvent:using: PluggableListMorphPlus(Morph)>>processFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [] in [] in [] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>ensure: MouseButtonEvent(MorphicEvent)>>becomeActiveDuring: [] in [] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>ensure: HandMorph>>becomeActiveDuring: [] in HandMorph>>sendFocusEvent:to:clear: BlockClosure>>ensure: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in MorphicProject>>spawnNewProcess [] in BlockClosure>>newProcess ' tim [1] a lesser Hell -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful Latin Phrases:- Re vera, potas bene = Say, you sure are drinking a lot.

1 0

Jump to page: