Packages November 2019

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Tools-ct.904.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.904.mcz ==================== Summary ==================== Name: Tools-ct.904 Author: ct Time: 3 October 2019, 12:50:44.829083 am UUID: de2580f2-be4a-2546-b695-7c658ff3e1fe Ancestors: Tools-ul.899 Adds link to turn off warnings in ToolSet>>#handleWarning: =============== Diff against Tools-ul.899 =============== Item was changed: ----- Method: StandardToolSet class>>handleWarning: (in category 'debugging - handlers') ----- handleWarning: aWarning "Double dispatch. Let the active process take care of that warning, which usually calls back here to #debugProcess:..." + | message | + message := TextStream with: aWarning messageText asText. + message cr; cr; nextPutAll: 'Select Proceed to continue, or close this window to cancel the operation.' translated. + (aWarning class respondsTo: #turnOffWarnings) ifTrue: [ + message cr; cr; + withAttribute: (PluggableTextAttribute evalBlock: [ + aWarning class turnOffWarnings. + self inform: 'Preferences were updated.' translated]) + do: [message nextPutAll: 'Turn off these warnings' translated]]. ^ Processor activeProcess debug: aWarning signalerContext title: 'Warning' translated full: false + contents: message contents! - contents: aWarning messageText , '\\Select Proceed to continue, or close this window to cancel the operation.' withCRs translated!

1 0

The Trunk: ST80-mt.244.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.244.mcz ==================== Summary ==================== Name: ST80-mt.244 Author: mt Time: 22 November 2019, 2:13:01.763303 pm UUID: 0da72d4e-ba58-4a43-90ab-138d7cce93dd Ancestors: ST80-mt.243 Complements Tools-mt.917. =============== Diff against ST80-mt.243 =============== Item was changed: ----- Method: FormInspectView class>>openOn:withLabel: (in category 'instance creation') ----- openOn: aFormDictionary withLabel: aLabel "open a graphical dictionary in a window having the label aLabel. aFormDictionary should be a dictionary containing as value a form." ^ DictionaryInspector openOn: aFormDictionary - withEvalPane: true withLabel: aLabel !

1 0

The Trunk: EToys-mt.370.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.370.mcz ==================== Summary ==================== Name: EToys-mt.370 Author: mt Time: 22 November 2019, 2:12:24.581303 pm UUID: e6bf7952-2ec5-4041-9fa0-a2c5455f3202 Ancestors: EToys-nice.369 Complements Tools-mt.917. =============== Diff against EToys-nice.369 =============== Item was changed: ----- Method: HtmlEntity>>inspect (in category 'user interface') ----- inspect "Open an HtmlEntityInspector on the receiver. Use basicInspect to get a normal type of inspector." + HtmlEntityInspector openOn: self! - HtmlEntityInspector openOn: self withEvalPane: true! Item was changed: ----- Method: HtmlEntity>>inspectWithLabel: (in category 'user interface') ----- inspectWithLabel: aLabel "Open a HtmlEntityInspector on the receiver. Use basicInspect to get a normal (less useful) type of inspector." + HtmlEntityInspector openOn: self withLabel: aLabel! - HtmlEntityInspector openOn: self withEvalPane: true withLabel: aLabel!

1 0

The Trunk: 60Deprecated-mt.64.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.64.mcz ==================== Summary ==================== Name: 60Deprecated-mt.64 Author: mt Time: 22 November 2019, 2:11:49.344303 pm UUID: 71813448-eb53-7944-9848-8308052da3eb Ancestors: 60Deprecated-mt.63 Complements Tools-mt.917. =============== Diff against 60Deprecated-mt.63 =============== Item was added: + ----- Method: Inspector class>>openOn:withEvalPane: (in category '*60Deprecated-instance creation') ----- + openOn: anObject withEvalPane: withEval + "Create and schedule an instance of me on the model, anInspector. " + self deprecated. + ^ ToolBuilder open: (self inspect: anObject) label: anObject defaultLabelForInspector! Item was added: + ----- Method: Inspector class>>openOn:withEvalPane:withLabel: (in category '*60Deprecated-instance creation') ----- + openOn: anObject withEvalPane: withEval withLabel: label + self deprecated. + ^ToolBuilder open: (self inspect: anObject) label: label!

1 0

The Trunk: Tools-mt.917.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.917.mcz ==================== Summary ==================== Name: Tools-mt.917 Author: mt Time: 22 November 2019, 2:11:23.895303 pm UUID: 7a9645dc-bdfb-f949-b322-05f1162c7f9a Ancestors: Tools-ct.916, Tools-ct.902, Tools-ct.904 Merges Tools-ct.916, Tools-ct.902, Tools-ct.904. Changes #handleWarning: text to a different style and to use the new #suppressWarnings interface in Warning. =============== Diff against Tools-ct.916 =============== Item was changed: ----- Method: Inspector class>>openOn: (in category 'instance creation') ----- openOn: anObject "Create and schedule an instance of me on the model, anInspector. " + ^ self openOn: anObject withLabel: anObject defaultLabelForInspector! - ^ self openOn: anObject withEvalPane: true! Item was removed: - ----- Method: Inspector class>>openOn:withEvalPane: (in category 'instance creation') ----- - openOn: anObject withEvalPane: withEval - "Create and schedule an instance of me on the model, anInspector. " - - ^ self openOn: anObject withEvalPane: withEval withLabel: anObject defaultLabelForInspector! Item was removed: - ----- Method: Inspector class>>openOn:withEvalPane:withLabel: (in category 'instance creation') ----- - openOn: anObject withEvalPane: withEval withLabel: label - ^ToolBuilder open: (self inspect: anObject) label: label! Item was added: + ----- Method: Inspector class>>openOn:withLabel: (in category 'instance creation') ----- + openOn: anObject withLabel: label + + ^ ToolBuilder open: (self inspect: anObject) label: label! Item was changed: ----- Method: ProcessBrowser>>browseContext (in category 'stack list') ----- browseContext + ToolSet browseMethod: selectedContext method! - selectedContext - ifNil: [^ self]. - ToolSet browse: self selectedClass selector: self selectedSelector! Item was changed: ----- Method: ProcessBrowser>>changePriority (in category 'process actions') ----- changePriority | str newPriority nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules third ifFalse: [self inform: 'Nope, won''t change priority of ' , nameAndRules first. ^ self]. str := UIManager default request: 'New priority' initialAnswer: selectedProcess priority asString. newPriority := str asNumber asInteger. newPriority ifNil: [^ self]. (newPriority < 1 or: [newPriority > Processor highestPriority]) ifTrue: [self inform: 'Bad priority'. ^ self]. self class setProcess: selectedProcess toPriority: newPriority. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>chasePointers (in category 'process actions') ----- chasePointers | saved | - selectedProcess ifNil: [^ self]. saved := selectedProcess. [selectedProcess := nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: saved] ifFalse: [self inspectPointers]] ensure: [selectedProcess := saved]! Item was changed: ----- Method: ProcessBrowser>>debugProcess (in category 'process actions') ----- debugProcess | nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules third ifFalse: [self inform: 'Nope, won''t debug ' , nameAndRules first. ^ self]. self class debugProcess: selectedProcess.! Item was changed: ----- Method: ProcessBrowser>>exploreContext (in category 'stack list') ----- exploreContext + selectedContext explore! - selectedContext ifNotNil: #explore! Item was changed: ----- Method: ProcessBrowser>>exploreProcess (in category 'process list') ----- exploreProcess + selectedProcess explore! - selectedProcess ifNotNil: #explore! Item was changed: ----- Method: ProcessBrowser>>exploreReceiver (in category 'stack list') ----- exploreReceiver + selectedContext receiver explore! - selectedContext ifNotNil: [ - selectedContext receiver explore]! Item was changed: ----- Method: ProcessBrowser>>inspectContext (in category 'stack list') ----- inspectContext + selectedContext inspect! - selectedContext ifNotNil: #inspect! Item was changed: ----- Method: ProcessBrowser>>inspectPointers (in category 'process actions') ----- inspectPointers | tc pointers | - selectedProcess ifNil: [^ self]. tc := thisContext. pointers := PointerFinder pointersTo: selectedProcess except: { self processList. tc. self}. pointers isEmpty ifTrue: [^ self]. OrderedCollectionInspector openOn: pointers - withEvalPane: false withLabel: 'Objects pointing to ' , selectedProcess browserPrintString! Item was changed: ----- Method: ProcessBrowser>>inspectProcess (in category 'process list') ----- inspectProcess + selectedProcess inspect! - selectedProcess ifNotNil: #inspect! Item was changed: ----- Method: ProcessBrowser>>inspectReceiver (in category 'stack list') ----- inspectReceiver + selectedContext receiver inspect! - selectedContext ifNotNil: [ - selectedContext receiver inspect]! Item was changed: ----- Method: ProcessBrowser>>messageTally (in category 'stack list') ----- messageTally | secString secs | - selectedProcess ifNil: [^ self]. secString := UIManager default request: 'Profile for how many seconds?' initialAnswer: '4'. secString isEmptyOrNil ifTrue: [^ self]. secs := secString asNumber asInteger. (secs isNil or: [secs isZero]) ifTrue: [^ self]. [ TimeProfileBrowser spyOnProcess: selectedProcess forMilliseconds: secs * 1000 ] forkAt: selectedProcess priority + 1.! Item was changed: ----- Method: ProcessBrowser>>processListKey:from: (in category 'process list') ----- + processListKey: aKey from: aView + + aKey + caseOf: { + [$f] -> [^ self findContext]. + [$g] -> [^ self nextContext]. + [$a] -> [^ self toggleAutoUpdate]. + [$u] -> [^ self updateProcessList] } + otherwise: []. + selectedProcess ifNil: [^ self changed: #flash]. + ^ aKey + caseOf: { + [$i] -> [self inspectProcess]. + [$I] -> [self exploreProcess]. + [$c] -> [self chasePointers]. + [$P] -> [self inspectPointers]. + [$t] -> [self terminateProcess]. + [$r] -> [self resumeProcess]. + [$s] -> [self suspendProcess]. + [$d] -> [self debugProcess]. + [$p] -> [self changePriority]. + [$m] -> [self messageTally]. + [$S] -> [self signalSemaphore]. + [$k] -> [self moreStack]} + otherwise: [self arrowKey: aKey from: aView]! - processListKey: aKey from: aView - ^ aKey caseOf: { - [$i] -> [self inspectProcess]. - [$I] -> [self exploreProcess]. - [$c] -> [self chasePointers]. - [$P] -> [self inspectPointers]. - [$t] -> [self terminateProcess]. - [$r] -> [self resumeProcess]. - [$s] -> [self suspendProcess]. - [$d] -> [self debugProcess]. - [$p] -> [self changePriority]. - [$m] -> [self messageTally]. - [$f] -> [self findContext]. - [$g] -> [self nextContext]. - [$a] -> [self toggleAutoUpdate]. - [$u] -> [self updateProcessList]. - [$S] -> [self signalSemaphore]. - [$k] -> [self moreStack]} - otherwise: [self arrowKey: aKey from: aView]! Item was changed: ----- Method: ProcessBrowser>>resumeProcess (in category 'process actions') ----- resumeProcess - selectedProcess ifNil: [^ self]. self class resumeProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>signalSemaphore (in category 'process actions') ----- signalSemaphore - selectedProcess ifNil: [^ self]. (selectedProcess suspendingList isKindOf: Semaphore) ifFalse: [^ self]. [selectedProcess suspendingList signal] fork. (Delay forMilliseconds: 300) wait. "Hate to make the UI wait, but it's convenient..." self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>stackListKey:from: (in category 'views') ----- + stackListKey: aKey from: aView + + selectedContext ifNil: [^ self changed: #flash]. + ^ aKey + caseOf: { + [$c] -> [self inspectContext]. + [$C] -> [self exploreContext]. + [$i] -> [self inspectReceiver]. + [$I] -> [self exploreReceiver]. + [$b] -> [self browseContext]} + otherwise: [self arrowKey: aKey from: aView]! - stackListKey: aKey from: aView - ^ aKey caseOf: { - [$c] -> [self inspectContext]. - [$C] -> [self exploreContext]. - [$i] -> [self inspectReceiver]. - [$I] -> [self exploreReceiver]. - [$b] -> [self browseContext]} - otherwise: [self arrowKey: aKey from: aView]! Item was changed: ----- Method: ProcessBrowser>>suspendProcess (in category 'process actions') ----- suspendProcess | nameAndRules | - selectedProcess ifNil: [^ self]. selectedProcess isSuspended ifTrue: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules second ifFalse: [self inform: 'Nope, won''t suspend ' , nameAndRules first. ^ self]. self class suspendProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>terminateProcess (in category 'process actions') ----- terminateProcess | nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules second ifFalse: [self inform: 'Nope, won''t kill ' , nameAndRules first. ^ self]. self class terminateProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: StandardToolSet class>>handleWarning: (in category 'debugging - handlers') ----- handleWarning: aWarning "Double dispatch. Let the active process take care of that warning, which usually calls back here to #debugProcess:..." + | message | + message := '{1}\\{2}' withCRs asText format: { + "First, show the actual text of this warning." + aWarning messageText. + "Second, append some helpful information that apply to all kinds of warnings." + ('{1} {2}' asText format: { + 'Select "Proceed" to continue or close this window to cancel the operation.' translated. + 'If you do not want to be interrupted anymore, you can {1} this kind of warning. You can also {2}, which resets such warnings on the next image startup.' translated asText format: { + "Provide clickable text links so that the user can directly suppress warnings." + 'always suppress' asText + addAttribute: (PluggableTextAttribute evalBlock: [ + aWarning class suppressWarnings. + self inform: ('All ''{1}'' warnings will be suppressed.' translated format: {aWarning class name})]). + 'suppress temporarily' asText + addAttribute: (PluggableTextAttribute evalBlock: [ + aWarning class suppressAndResetOnStartUp. + self inform: ('All ''{1}'' warnings will be suppressed\and reset on the next image startup.' withCRs translated format: {aWarning class name})])}. + }) addAttribute: ( + "Show this helpful information in a smaller font." + TextFontReference toFont: Preferences standardButtonFont)}. + ^ Processor activeProcess debug: aWarning signalerContext title: 'Warning' translated full: false + contents: message! - contents: aWarning messageText , '\\Select Proceed to continue, or close this window to cancel the operation.' withCRs translated! Item was changed: ----- Method: StandardToolSet class>>inspect:label: (in category 'inspecting') ----- inspect: anObject label: aString "Open an inspector on the given object. The tool set must know which inspector type to use for which object - the object cannot possibly know what kind of inspectors the toolset provides." + ^ anObject inspectorClass openOn: anObject withLabel: aString! - ^ anObject inspectorClass openOn: anObject withEvalPane: true withLabel: aString!

1 0

The Trunk: Tools-ct.916.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.916.mcz ==================== Summary ==================== Name: Tools-ct.916 Author: ct Time: 15 November 2019, 7:00:12.771005 pm UUID: 05c08fc9-78c5-ea45-842e-dfc847d32551 Ancestors: Tools-mt.914 VersionsBrowser>>#selectMethod:: Compare not only timeStamp, but also source, as timeStamp is only minute-precise. =============== Diff against Tools-mt.914 =============== Item was changed: ----- Method: VersionsBrowser>>selectMethod: (in category 'menu') ----- selectMethod: aCompiledMethod self toggleListIndex: (self changeList indexOf: ( + self changeList detect: [:change | + change stamp = aCompiledMethod timeStamp and: [ + change string = aCompiledMethod getSource asString]]))! - self changeList detect: [:change | change stamp = aCompiledMethod timeStamp]))!

1 0

The Trunk: Tools-ct.915.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.915.mcz ==================== Summary ==================== Name: Tools-ct.915 Author: ct Time: 15 November 2019, 5:30:02.890005 pm UUID: 326d55bd-8463-7e43-a517-e934932fb3a9 Ancestors: Tools-mt.914 Refactor ProcessBrowser nil checks again and move them into #stackListKey:from:. Also, use #browseMethod: in #browseContext to ensure the right version is browsed Thanks to Marcel for the review! =============== Diff against Tools-mt.914 =============== Item was changed: ----- Method: ProcessBrowser>>browseContext (in category 'stack list') ----- browseContext + ToolSet browseMethod: selectedContext method! - selectedContext - ifNil: [^ self]. - ToolSet browse: self selectedClass selector: self selectedSelector! Item was changed: ----- Method: ProcessBrowser>>changePriority (in category 'process actions') ----- changePriority | str newPriority nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules third ifFalse: [self inform: 'Nope, won''t change priority of ' , nameAndRules first. ^ self]. str := UIManager default request: 'New priority' initialAnswer: selectedProcess priority asString. newPriority := str asNumber asInteger. newPriority ifNil: [^ self]. (newPriority < 1 or: [newPriority > Processor highestPriority]) ifTrue: [self inform: 'Bad priority'. ^ self]. self class setProcess: selectedProcess toPriority: newPriority. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>chasePointers (in category 'process actions') ----- chasePointers | saved | - selectedProcess ifNil: [^ self]. saved := selectedProcess. [selectedProcess := nil. (Smalltalk includesKey: #PointerFinder) ifTrue: [PointerFinder on: saved] ifFalse: [self inspectPointers]] ensure: [selectedProcess := saved]! Item was changed: ----- Method: ProcessBrowser>>debugProcess (in category 'process actions') ----- debugProcess | nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules third ifFalse: [self inform: 'Nope, won''t debug ' , nameAndRules first. ^ self]. self class debugProcess: selectedProcess.! Item was changed: ----- Method: ProcessBrowser>>exploreContext (in category 'stack list') ----- exploreContext + selectedContext explore! - selectedContext ifNotNil: #explore! Item was changed: ----- Method: ProcessBrowser>>exploreProcess (in category 'process list') ----- exploreProcess + selectedProcess explore! - selectedProcess ifNotNil: #explore! Item was changed: ----- Method: ProcessBrowser>>exploreReceiver (in category 'stack list') ----- exploreReceiver + selectedContext receiver explore! - selectedContext ifNotNil: [ - selectedContext receiver explore]! Item was changed: ----- Method: ProcessBrowser>>inspectContext (in category 'stack list') ----- inspectContext + selectedContext inspect! - selectedContext ifNotNil: #inspect! Item was changed: ----- Method: ProcessBrowser>>inspectPointers (in category 'process actions') ----- inspectPointers | tc pointers | - selectedProcess ifNil: [^ self]. tc := thisContext. pointers := PointerFinder pointersTo: selectedProcess except: { self processList. tc. self}. pointers isEmpty ifTrue: [^ self]. OrderedCollectionInspector openOn: pointers withEvalPane: false withLabel: 'Objects pointing to ' , selectedProcess browserPrintString! Item was changed: ----- Method: ProcessBrowser>>inspectProcess (in category 'process list') ----- inspectProcess + selectedProcess inspect! - selectedProcess ifNotNil: #inspect! Item was changed: ----- Method: ProcessBrowser>>inspectReceiver (in category 'stack list') ----- inspectReceiver + selectedContext receiver inspect! - selectedContext ifNotNil: [ - selectedContext receiver inspect]! Item was changed: ----- Method: ProcessBrowser>>messageTally (in category 'stack list') ----- messageTally | secString secs | - selectedProcess ifNil: [^ self]. secString := UIManager default request: 'Profile for how many seconds?' initialAnswer: '4'. secString isEmptyOrNil ifTrue: [^ self]. secs := secString asNumber asInteger. (secs isNil or: [secs isZero]) ifTrue: [^ self]. [ TimeProfileBrowser spyOnProcess: selectedProcess forMilliseconds: secs * 1000 ] forkAt: selectedProcess priority + 1.! Item was changed: ----- Method: ProcessBrowser>>processListKey:from: (in category 'process list') ----- + processListKey: aKey from: aView + + aKey + caseOf: { + [$f] -> [^ self findContext]. + [$g] -> [^ self nextContext]. + [$a] -> [^ self toggleAutoUpdate]. + [$u] -> [^ self updateProcessList] } + otherwise: []. + selectedProcess ifNil: [^ self changed: #flash]. + ^ aKey + caseOf: { + [$i] -> [self inspectProcess]. + [$I] -> [self exploreProcess]. + [$c] -> [self chasePointers]. + [$P] -> [self inspectPointers]. + [$t] -> [self terminateProcess]. + [$r] -> [self resumeProcess]. + [$s] -> [self suspendProcess]. + [$d] -> [self debugProcess]. + [$p] -> [self changePriority]. + [$m] -> [self messageTally]. + [$S] -> [self signalSemaphore]. + [$k] -> [self moreStack]} + otherwise: [self arrowKey: aKey from: aView]! - processListKey: aKey from: aView - ^ aKey caseOf: { - [$i] -> [self inspectProcess]. - [$I] -> [self exploreProcess]. - [$c] -> [self chasePointers]. - [$P] -> [self inspectPointers]. - [$t] -> [self terminateProcess]. - [$r] -> [self resumeProcess]. - [$s] -> [self suspendProcess]. - [$d] -> [self debugProcess]. - [$p] -> [self changePriority]. - [$m] -> [self messageTally]. - [$f] -> [self findContext]. - [$g] -> [self nextContext]. - [$a] -> [self toggleAutoUpdate]. - [$u] -> [self updateProcessList]. - [$S] -> [self signalSemaphore]. - [$k] -> [self moreStack]} - otherwise: [self arrowKey: aKey from: aView]! Item was changed: ----- Method: ProcessBrowser>>resumeProcess (in category 'process actions') ----- resumeProcess - selectedProcess ifNil: [^ self]. self class resumeProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>signalSemaphore (in category 'process actions') ----- signalSemaphore - selectedProcess ifNil: [^ self]. (selectedProcess suspendingList isKindOf: Semaphore) ifFalse: [^ self]. [selectedProcess suspendingList signal] fork. (Delay forMilliseconds: 300) wait. "Hate to make the UI wait, but it's convenient..." self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>stackListKey:from: (in category 'views') ----- + stackListKey: aKey from: aView + + selectedContext ifNil: [^ self changed: #flash]. + ^ aKey + caseOf: { + [$c] -> [self inspectContext]. + [$C] -> [self exploreContext]. + [$i] -> [self inspectReceiver]. + [$I] -> [self exploreReceiver]. + [$b] -> [self browseContext]} + otherwise: [self arrowKey: aKey from: aView]! - stackListKey: aKey from: aView - ^ aKey caseOf: { - [$c] -> [self inspectContext]. - [$C] -> [self exploreContext]. - [$i] -> [self inspectReceiver]. - [$I] -> [self exploreReceiver]. - [$b] -> [self browseContext]} - otherwise: [self arrowKey: aKey from: aView]! Item was changed: ----- Method: ProcessBrowser>>suspendProcess (in category 'process actions') ----- suspendProcess | nameAndRules | - selectedProcess ifNil: [^ self]. selectedProcess isSuspended ifTrue: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules second ifFalse: [self inform: 'Nope, won''t suspend ' , nameAndRules first. ^ self]. self class suspendProcess: selectedProcess. self updateProcessList! Item was changed: ----- Method: ProcessBrowser>>terminateProcess (in category 'process actions') ----- terminateProcess | nameAndRules | - selectedProcess ifNil: [^ self]. nameAndRules := self nameAndRulesForSelectedProcess. nameAndRules second ifFalse: [self inform: 'Nope, won''t kill ' , nameAndRules first. ^ self]. self class terminateProcess: selectedProcess. self updateProcessList!

1 0

The Trunk: Kernel-mt.1280.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1280.mcz ==================== Summary ==================== Name: Kernel-mt.1280 Author: mt Time: 22 November 2019, 11:42:28.536303 am UUID: d1878463-f3d2-d248-b2d3-5b2a8d613e7b Ancestors: Kernel-mt.1279 Sorry for the noise. Boolean hick up. :-) =============== Diff against Kernel-mt.1279 =============== Item was changed: ----- Method: Deprecation class>>suppressed (in category 'accessing') ----- suppressed + ^ self showDeprecationWarnings not! - ^ self showDeprecationWarnings! Item was changed: ----- Method: Deprecation class>>suppressed: (in category 'accessing') ----- suppressed: aBoolean + self showDeprecationWarnings: aBoolean not. - self showDeprecationWarnings: aBoolean. super suppressed: aBoolean.!

1 0

The Trunk: 60Deprecated-mt.63.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.63.mcz ==================== Summary ==================== Name: 60Deprecated-mt.63 Author: mt Time: 22 November 2019, 11:32:44.798303 am UUID: a3e51f5a-e9cd-3d4a-90c0-8b9f39b99f87 Ancestors: 60Deprecated-mt.62 Complements Kernel-mt.1279. =============== Diff against 60Deprecated-mt.62 =============== Item was added: + ----- Method: Deprecation class>>maybeSignalDeprecationFor:message:explanation: (in category '*60Deprecated-utilities') ----- + maybeSignalDeprecationFor: context message: messageString explanation: explanationString + + self flag: #deprecated. + ^ self + signalForContext: context + message: messageString + explanation: explanationString!

1 0

The Trunk: Kernel-mt.1279.mcz
by commits＠source.squeak.org 22 Nov '19

22 Nov '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1279.mcz ==================== Summary ==================== Name: Kernel-mt.1279 Author: mt Time: 22 November 2019, 11:32:11.080303 am UUID: 5ebf13b5-8050-7243-812f-b74e0784b215 Ancestors: Kernel-mt.1278 Following the idea in Kernel-ct.1272 (inbox/treated), add the possibility to suppress warnings. Complements Tests-mt.423. =============== Diff against Kernel-mt.1278 =============== Item was removed: - ----- Method: Deprecation class>>maybeSignalDeprecationFor:message:explanation: (in category 'utilities') ----- - maybeSignalDeprecationFor: context message: messageString explanation: explanationString - self showDeprecationWarnings ifTrue: - [ | message | - message := context method reference, ' has been deprecated', messageString, '.'. - explanationString ifNotEmpty: [message := message, ' ', explanationString]. - self signal: message].! Item was added: + ----- Method: Deprecation class>>signalForContext:message:explanation: (in category 'instance creation') ----- + signalForContext: context message: messageString explanation: explanationString + + | message | + message := context method reference, ' has been deprecated', messageString, '.'. + explanationString ifNotEmpty: [message := message, ' ', explanationString]. + self signal: message.! Item was added: + ----- Method: Deprecation class>>suppressed (in category 'accessing') ----- + suppressed + + ^ self showDeprecationWarnings! Item was added: + ----- Method: Deprecation class>>suppressed: (in category 'accessing') ----- + suppressed: aBoolean + + self showDeprecationWarnings: aBoolean. + super suppressed: aBoolean.! Item was changed: ----- Method: Object>>backwardCompatibilityOnly: (in category 'error handling') ----- backwardCompatibilityOnly: explanationString "Warn that the sending method has been deprecated. Methods that are tagt with #backwardCompatibility: are kept for compatibility." Deprecation + signalForContext: thisContext sender - maybeSignalDeprecationFor: thisContext sender message: ' (but will be kept for compatibility)' explanation: explanationString! Item was changed: ----- Method: Object>>deprecated (in category 'error handling') ----- deprecated "Warn that the sending method has been deprecated." Deprecation + signalForContext: thisContext sender - maybeSignalDeprecationFor: thisContext sender message: '' explanation: ''! Item was changed: ----- Method: Object>>deprecated: (in category 'error handling') ----- deprecated: explanationString "Warn that the sending method has been deprecated." Deprecation + signalForContext: thisContext sender - maybeSignalDeprecationFor: thisContext sender message: '' explanation: explanationString! Item was changed: ----- Method: Object>>deprecated:block: (in category 'error handling') ----- deprecated: explanationString block: aBlock "Warn that the sender has been deprecated. Answer the value of aBlock on resumption. (Note that #deprecated: is usually the preferred method.)" Deprecation + signalForContext: thisContext sender - maybeSignalDeprecationFor: thisContext sender message: '' explanation: explanationString. + ^ aBlock value - ^ aBlock value. ! Item was changed: Notification subclass: #Warning instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Exceptions'! + Warning class + instanceVariableNames: 'suppressed resetOnStartUp'! !Warning commentStamp: '<historical>' prior: 0! A Warning is a Notification which by default should be brought to the attention of the user.! + Warning class + instanceVariableNames: 'suppressed resetOnStartUp'! Item was added: + ----- Method: Warning class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + aggressive ifTrue: [self resetAllWarnings].! Item was added: + ----- Method: Warning class>>initialize (in category 'class initialization') ----- + initialize + + Smalltalk addToStartUpList: self.! Item was added: + ----- Method: Warning class>>resetAllWarnings (in category 'suppress and reset') ----- + resetAllWarnings + + self withAllSubclassesDo: [:warningClass | + warningClass resetWarnings].! Item was added: + ----- Method: Warning class>>resetOnStartUp (in category 'accessing') ----- + resetOnStartUp + "If true, do not suppress this kind of warning anymore after image start up. This flag will be reset to false after doing this." + + ^ resetOnStartUp ifNil: [false]! Item was added: + ----- Method: Warning class>>resetOnStartUp: (in category 'accessing') ----- + resetOnStartUp: aBoolean + + resetOnStartUp := aBoolean.! Item was added: + ----- Method: Warning class>>resetWarnings (in category 'suppress and reset') ----- + resetWarnings + + self suppressed: false. + self resetOnStartUp: false.! Item was added: + ----- Method: Warning class>>signal (in category 'instance creation') ----- + signal + + ^ self signal: nil! Item was added: + ----- Method: Warning class>>signal: (in category 'instance creation') ----- + signal: signalerText + + ^ self suppressed + ifTrue: [nil] + ifFalse: [self new signal: signalerText]! Item was added: + ----- Method: Warning class>>startUp: (in category 'class initialization') ----- + startUp: resuming + + resuming ifTrue: [ + self withAllSubclassesDo: [:warningClass | + warningClass resetOnStartUp ifTrue: [warningClass resetWarnings]]].! Item was added: + ----- Method: Warning class>>suppressAndResetOnStartUp (in category 'suppress and reset') ----- + suppressAndResetOnStartUp + "Suppress this kind of warning but reset that after the next image start up." + + self suppressed: true. + self resetOnStartUp: true.! Item was added: + ----- Method: Warning class>>suppressWarnings (in category 'suppress and reset') ----- + suppressWarnings + "Suppress this kind of warning." + + self suppressed: true.! Item was added: + ----- Method: Warning class>>suppressed (in category 'accessing') ----- + suppressed + + ^ suppressed ifNil: [false]! Item was added: + ----- Method: Warning class>>suppressed: (in category 'accessing') ----- + suppressed: aBoolean + + suppressed := aBoolean.!

1 0

← Newer
1
2
3
4
5
6
7
...
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2019