Squeak-dev April 2016

squeak-dev@lists.squeakfoundation.org

39 participants
244 discussions

The Trunk: Morphic-mt.1116.mcz
by commits＠source.squeak.org 19 Apr '16

19 Apr '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1116.mcz ==================== Summary ==================== Name: Morphic-mt.1116 Author: mt Time: 19 April 2016, 9:21:38.183868 am UUID: e4b5b353-a769-2744-9fca-6552c4c25e52 Ancestors: Morphic-mt.1115 Adds preference to enclose a selection with brackets etc. to bypass the respective (shift)cmd-key shortcuts, which actually do not work on German keyboard layouts. Updates wording and preference categorization for other text editing preferences. =============== Diff against Morphic-mt.1115 =============== Item was changed: Editor subclass: #TextEditor instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history' + classVariableNames: 'AutoEnclose AutoIndent ChangeText EncloseSelection FindText' - classVariableNames: 'AutoEnclose AutoIndent ChangeText FindText' poolDictionaries: '' category: 'Morphic-Text Support'! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! !TextEditor commentStamp: '<historical>' prior: 0! See comment in Editor. My instances edit Text, this is, they support multiple lines and TextAttributes. They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! Item was changed: + ----- Method: TextEditor class>>autoEnclose (in category 'preferences') ----- - ----- Method: TextEditor class>>autoEnclose (in category 'accessing') ----- autoEnclose + <preference: 'Auto enclose brackets () {} []' + categoryList: #('Morphic' 'editing') - <preference: 'Auto Enclose' - category: 'Morphic' description: 'When true, typing an opening parenthesis, bracket or square-bracket will also add its corresponding closing character in front of the cursor.' type: #Boolean> + ^ AutoEnclose ifNil: [ false ]! Item was changed: + ----- Method: TextEditor class>>autoEnclose: (in category 'preferences') ----- - ----- Method: TextEditor class>>autoEnclose: (in category 'accessing') ----- autoEnclose: aBoolean AutoEnclose := aBoolean! Item was changed: + ----- Method: TextEditor class>>autoIndent (in category 'preferences') ----- - ----- Method: TextEditor class>>autoIndent (in category 'accessing') ----- autoIndent + <preference: 'Auto indent on new line' + categoryList: #('Morphic' 'editing') - <preference: 'Auto Indent' - category: 'Morphic' description: 'When true, tabs will be inserted after pressing Enter | Return such that the new line will be indented equally with the previous line.' type: #Boolean> ^ AutoIndent ifNil: [ true ]! Item was changed: + ----- Method: TextEditor class>>autoIndent: (in category 'preferences') ----- - ----- Method: TextEditor class>>autoIndent: (in category 'accessing') ----- autoIndent: aBoolean AutoIndent := aBoolean! Item was added: + ----- Method: TextEditor class>>encloseSelection (in category 'preferences') ----- + encloseSelection + <preference: 'Enclose selection with brackets () {} [] '''' "" || <>' + categoryList: #('Morphic' 'editing') + description: 'When true, selecting text and typing an opening parenthesis, bracket, square-bracket, single quote, or double quote will add corresponding character around the selection.' + type: #Boolean> + + ^ EncloseSelection ifNil: [ false ]! Item was added: + ----- Method: TextEditor class>>encloseSelection: (in category 'preferences') ----- + encloseSelection: boolean + + EncloseSelection := boolean.! Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- dispatchOnKeyboardEvent: aKeyboardEvent "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." | honorCommandKeys typedChar | typedChar := aKeyboardEvent keyCharacter. "Handle one-line input fields." (typedChar == Character cr and: [morph acceptOnCR]) ifTrue: [^ true]. "Clear highlight for last opened parenthesis." self clearParens. "Handle line breaks and auto indent." typedChar == Character cr ifTrue: [ aKeyboardEvent controlKeyPressed ifTrue: [^ self normalCharacter: aKeyboardEvent]. aKeyboardEvent shiftPressed ifTrue: [^ self lf: aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [^ self crlf: aKeyboardEvent]. ^ self crWithIndent: aKeyboardEvent]. "Handle indent/outdent with selected text block." typedChar == Character tab ifTrue: [ aKeyboardEvent shiftPressed ifTrue: [self outdent: aKeyboardEvent. ^ true] ifFalse: [self hasMultipleLinesSelected ifTrue: [self indent: aKeyboardEvent. ^ true]]]. honorCommandKeys := Preferences cmdKeysInText. (honorCommandKeys and: [typedChar == Character enter]) ifTrue: [^ self dispatchOnEnterWith: aKeyboardEvent]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [aKeyboardEvent keyValue < 27]) ifTrue: [^ aKeyboardEvent controlKeyPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "backspace, and escape keys (ascii 8 and 27) are command keys" ((honorCommandKeys and: [aKeyboardEvent commandKeyPressed]) or: [self class specialShiftCmdKeys includes: aKeyboardEvent keyValue]) ifTrue: [ ^ aKeyboardEvent shiftPressed ifTrue: [self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent] ifFalse: [self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]]. "the control key can be used to invoke shift-cmd shortcuts" (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent]. + "Enclose selection with brackets etc." + ((self class encloseSelection and: [self hasSelection]) and: [self enclose: aKeyboardEvent]) + ifTrue: [^ true]. + "Automatically enclose paired characters such as brackets." (self class autoEnclose and: [self autoEncloseFor: typedChar]) ifTrue: [^ true]. self normalCharacter: aKeyboardEvent. ^ false!

1 0

command-E
by Eliot Miranda 19 Apr '16

19 Apr '16

Hi All, the "find method with string literals containing..." command, command-E does /not/ look inside Symbol literals. Here's a case where I specifically wanted it to, I wanted to find the reference to CogSimStackEntry in instVarNamesAndTypesForTranslationDo: aBinaryBlock "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a CogSSOptStatus struct." self instVarNames do: [:ivn| aBinaryBlock value: ivn value: (ivn = 'ssEntry' ifTrue: [#'CogSimStackEntry *'] ifFalse: [#sqInt])] The method in question is SystemNavigation>>browseMethodsWithString: aString matchCase: caseSensitive "Launch a browser on all methods that contain string literals with aString as a substring. Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter" self browseAllSelect: [:method | method hasLiteralSuchThat: [:lit | (lit isString and: [lit isSymbol not]) and: [lit includesSubstring: aString caseSensitive: caseSensitive]]] name: 'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)']) autoSelect: aString Would people object if I changed this? One way to change it is to exclude Symbol literals that are also messages in the receiver. So, e.g... browseMethodsWithString: aString matchCase: caseSensitive "Launch a browser on all methods that contain string literals with aString as a substring. Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter" self browseAllSelect: [:method | method hasLiteralSuchThat: [:lit | lit isString and: [(lit includesSubstring: aString caseSensitive: caseSensitive) and: [lit isSymbol ifTrue: [(method messages includes: lit) not] ifFalse: [true]]]]] name: 'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)']) autoSelect: aString Would anyone object to me committing this definition? _,,,^..^,,,_ best, Eliot

3 2

Fwd: [squeak-dev] The Inbox: Morphic-cmm.1116.mcz
by Chris Muller 19 Apr '16

19 Apr '16

Hi Eliot, if you would like to merge this as well as Tools-cmm.694, I hope it will be satisfactory for your de-select + file-out all use case. I'll run with it for a few days too, to make sure, before I commit it. ---------- Forwarded message ---------- From: <commits(a)source.squeak.org> Date: Mon, Apr 18, 2016 at 6:39 PM Subject: [squeak-dev] The Inbox: Morphic-cmm.1116.mcz To: squeak-dev(a)lists.squeakfoundation.org A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.1116.mcz ==================== Summary ==================== Name: Morphic-cmm.1116 Author: cmm Time: 18 April 2016, 6:38:47.481742 pm UUID: ae46aa73-c96e-41c2-888f-9d3fe8e1b924 Ancestors: Morphic-mt.1115 - Use the "isControlled" variable to instead indicate whether it came from a mouse move event. This proves useful to at least one model for implementing a desired UI behavior. - For vertical smart-splitters, don't let any single line complain any more than 10-characters worth of occlusion, so that extra long lines of a list will not over-dominate the adjacent widgets. =============== Diff against Morphic-mt.1115 =============== Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>mouseMove: (in category 'event handling') ----- mouseMove: event "The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate" | oldIndex oldVal row | event position y < self top ifTrue: [scrollBar scrollUp: 1. row := self rowAtLocation: scroller topLeft + (1 @ 1)] ifFalse: [row := event position y > self bottom ifTrue: [scrollBar scrollDown: 1. self rowAtLocation: scroller bottomLeft + (1 @ -1)] ifFalse: [ self rowAtLocation: event position]]. row = 0 ifTrue: [^super mouseDown: event]. model okToChange ifFalse: [^self]. "No change if model is locked" "Set meaning for subsequent dragging of selection" oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. "Inform model of selected item and let it toggle." self changeModelSelection: (self modelIndexFor: row) shifted: true + controlled: true. - controlled: event controlKeyPressed. submorphs do: [:each | each changed]! Item was changed: ----- Method: PluggableListMorph>>charactersOccluded (in category 'geometry') ----- charactersOccluded "Answer the number of characters occluded in my #visibleList by my right edge." | listIndex | listIndex:=0. ^ self visibleList inject: 0 into: [ : sum : each | | eachString totalWidth indexOfLastVisible iconWidth | totalWidth:=0. eachString := each asString "withBlanksTrimmed". iconWidth := (self iconAt: (listIndex := listIndex+1)) ifNil:[0] ifNotNil: [ : icon | icon width+2 ]. indexOfLastVisible := ((1 to: eachString size) detect: [ : stringIndex | (totalWidth:=totalWidth+(self font widthOf: (eachString at: stringIndex))) > (self width - (scrollBar ifNil: [ 0 ] ifNotNil: [ scrollBar width ]) - iconWidth) ] ifNone: [ eachString size + 1 ]) - 1. + sum + ((eachString size - indexOfLastVisible) min: 10) ]! - sum + (eachString size - indexOfLastVisible) ]!

1 0

The Inbox: Tools-cmm.694.mcz
by commits＠source.squeak.org 19 Apr '16

19 Apr '16

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-cmm.694.mcz ==================== Summary ==================== Name: Tools-cmm.694 Author: cmm Time: 18 April 2016, 6:40:45.920095 pm UUID: 266d5d98-3fe1-424e-9786-bb3ab191b464 Ancestors: Tools-cmm.693 - Minor update to UI help element; now simply identifies itself. - When a single message is selected in a MessageTrace, clicking it now deselects it so that all methods in the trace can be filed out. =============== Diff against Tools-cmm.693 =============== Item was changed: ----- Method: Inspector>>buildValuePaneWith: (in category 'toolbuilder') ----- buildValuePaneWith: builder | textSpec | textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #contents; setText: #accept:; + help: 'Selection details.'; - help: 'Select a field on the left.'; selection: #contentsSelection; menu: #codePaneMenu:shifted:. ^textSpec! Item was changed: ----- Method: MessageTrace>>addChildMessages:autoSelectString: (in category 'building') ----- addChildMessages: methodReferences autoSelectString: aString + | currentIndentionLevel addables selectables selectableString newAnchor | - | currentIndentionLevel addables selectables selectableString | selectableString := aString keywords ifEmpty: [ String empty ] ifNotEmptyDo: [ : keywords | keywords first ]. [ (messageListIndex between: 1 and: autoSelectStrings size) ] whileFalse: [ autoSelectStrings add: selectableString ]. autoSelectStrings at: messageListIndex put: selectableString. currentIndentionLevel := self currentIndentionLevel. "Don't add mulitple copies of the same method, if a method is already in the list we will merely select it." addables := methodReferences reject: [ : each | messageList includes: each ]. addables do: [ : each | each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex. autoSelectStrings add: nil afterIndex: self messageListIndex. messageSelections add: false afterIndex: self messageListIndex ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. self deselectAll. + anchorIndex := nil. selectables do: [ : each | self + messageAt: (newAnchor := messageList indexOf: each) + beSelected: true. + anchorIndex ifNil: [ anchorIndex := newAnchor ] ]. - messageAt: (messageList indexOf: each) - beSelected: true ]. self changed: #messageList. "Select the first child method." self messageListIndex: (selectables size > 0 ifTrue: [ messageList indexOf: selectables last ] ifFalse: [ messageList ifEmpty: [ 0 ] ifNotEmpty: [ 1 ] ])! Item was changed: ----- Method: MessageTrace>>toggleSelectionAt:shifted:controlled: (in category 'actions') ----- + toggleSelectionAt: anInteger shifted: isShifted controlled: isMouseDragging + anInteger = 0 ifTrue: [ ^ nil ]. + (isMouseDragging not and: [anInteger = anchorIndex and: [ (messageSelections occurrencesOf: true) = 1 ]]) + ifTrue: + [ self toggleMessageSelectionAt: anInteger. + anchorIndex := nil. + self messageListIndex: 0 ] + ifFalse: - toggleSelectionAt: currentPosition shifted: isShifted controlled: isControlled - - currentPosition = 0 ifTrue: [ ^nil ]. - isControlled - ifTrue: - [ isShifted - ifTrue: - [ self selectAllBetweenAnchorAnd: currentPosition ] - ifFalse: - [ self toggleMessageSelectionAt: currentPosition. - anchorIndex := currentPosition ] ] - ifFalse: [ self deselectAll. isShifted + ifTrue: [ self selectAllBetweenAnchorAnd: anInteger ] - ifTrue: - [ self selectAllBetweenAnchorAnd: currentPosition ] ifFalse: + [ self + messageAt: anInteger - [ self - messageAt: currentPosition beSelected: true. + anchorIndex := anInteger ]. + self messageListIndex: anInteger ]! - anchorIndex := currentPosition ] ]. - self messageListIndex: currentPosition - !

1 0

The Inbox: Morphic-cmm.1116.mcz
by commits＠source.squeak.org 19 Apr '16

19 Apr '16

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cmm.1116.mcz ==================== Summary ==================== Name: Morphic-cmm.1116 Author: cmm Time: 18 April 2016, 6:38:47.481742 pm UUID: ae46aa73-c96e-41c2-888f-9d3fe8e1b924 Ancestors: Morphic-mt.1115 - Use the "isControlled" variable to instead indicate whether it came from a mouse move event. This proves useful to at least one model for implementing a desired UI behavior. - For vertical smart-splitters, don't let any single line complain any more than 10-characters worth of occlusion, so that extra long lines of a list will not over-dominate the adjacent widgets. =============== Diff against Morphic-mt.1115 =============== Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>mouseMove: (in category 'event handling') ----- mouseMove: event "The mouse has moved, as characterized by the event provided. Adjust the scrollbar, and alter the selection as appropriate" | oldIndex oldVal row | event position y < self top ifTrue: [scrollBar scrollUp: 1. row := self rowAtLocation: scroller topLeft + (1 @ 1)] ifFalse: [row := event position y > self bottom ifTrue: [scrollBar scrollDown: 1. self rowAtLocation: scroller bottomLeft + (1 @ -1)] ifFalse: [ self rowAtLocation: event position]]. row = 0 ifTrue: [^super mouseDown: event]. model okToChange ifFalse: [^self]. "No change if model is locked" "Set meaning for subsequent dragging of selection" oldIndex := self getCurrentSelectionIndex. oldIndex ~= 0 ifTrue: [oldVal := self listSelectionAt: oldIndex]. "Need to restore the old one, due to how model works, and set new one." oldIndex ~= 0 ifTrue: [self listSelectionAt: oldIndex put: oldVal]. "Inform model of selected item and let it toggle." self changeModelSelection: (self modelIndexFor: row) shifted: true + controlled: true. - controlled: event controlKeyPressed. submorphs do: [:each | each changed]! Item was changed: ----- Method: PluggableListMorph>>charactersOccluded (in category 'geometry') ----- charactersOccluded "Answer the number of characters occluded in my #visibleList by my right edge." | listIndex | listIndex:=0. ^ self visibleList inject: 0 into: [ : sum : each | | eachString totalWidth indexOfLastVisible iconWidth | totalWidth:=0. eachString := each asString "withBlanksTrimmed". iconWidth := (self iconAt: (listIndex := listIndex+1)) ifNil:[0] ifNotNil: [ : icon | icon width+2 ]. indexOfLastVisible := ((1 to: eachString size) detect: [ : stringIndex | (totalWidth:=totalWidth+(self font widthOf: (eachString at: stringIndex))) > (self width - (scrollBar ifNil: [ 0 ] ifNotNil: [ scrollBar width ]) - iconWidth) ] ifNone: [ eachString size + 1 ]) - 1. + sum + ((eachString size - indexOfLastVisible) min: 10) ]! - sum + (eachString size - indexOfLastVisible) ]!

1 0

Re: [squeak-dev] The Trunk: Morphic-mt.1113.mcz
by Chris Muller 19 Apr '16

19 Apr '16

Hi Marcel, it goes to Emergency Evaluator even when it doesn't lock up too, but I think this is worth it if it saves the lock up cases; EE is certainly better. How should this interplay with the big red X approach that Morphic uses? On Sun, Apr 17, 2016 at 10:44 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.1113.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.1113 > Author: mt > Time: 17 April 2016, 5:44:23.036117 pm > UUID: 1b36a4fb-13d9-f04f-8552-4048b9ac0439 > Ancestors: Morphic-mt.1112 > > Improves robustness when facing erroneous drawing code that affects the debugger GUI. In that case, show primitive REPL instead of freezing the image. > > Note that there will soon be more code to recover from such serious errors. > > =============== Diff against Morphic-mt.1112 =============== > > Item was changed: > ----- Method: Debugger class>>morphicOpenOn:context:label:contents:fullView: (in category '*Morphic-opening') ----- > + morphicOpenOn: process context: context label: title contents: contentsStringOrNil fullView: full > - morphicOpenOn: process context: context label: title contents: contentsStringOrNil fullView: bool > "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." > > | errorWasInUIProcess debugger | > + ErrorRecursion ifTrue: [ > + "self assert: process == Project current uiProcess -- DOCUMENTATION ONLY" > + ErrorRecursion := false. > + ^ Project current handleFatalDrawingError: title]. > + > + [ErrorRecursion not & Preferences logDebuggerStackToFile > - errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: process. > - [Preferences logDebuggerStackToFile > ifTrue: [Smalltalk logSqueakError: title inContext: context]] on: Error do: [:ex | ex return: nil]. > + > + ErrorRecursion := true. > + > + errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: process. > + > + "Schedule debugging in deferred UI message because > + 1) If process is the current UI process, it is already broken. > + 2) If process is some other process, it must not execute UI code" > + Project current addDeferredUIMessage: [ > + debugger := self new process: process controller: nil context: context. > + full > + ifTrue: [debugger openFullNoSuspendLabel: title] > + ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title]. > + debugger errorWasInUIProcess: errorWasInUIProcess. > + > + "Try drawing the debugger tool at least once to avoid freeze." > + ActiveWorld displayWorldSafely. > + > + ErrorRecursion := false. > - WorldState addDeferredUIMessage: [ > - "schedule debugger in deferred UI message to address redraw > - problems after opening a debugger e.g. from the testrunner." > - [ > - debugger := self new process: process controller: nil context: context. > - bool > - ifTrue: [debugger openFullNoSuspendLabel: title] > - ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title]. > - debugger errorWasInUIProcess: errorWasInUIProcess. > - ] on: Error do: [:ex | > - self primitiveError: > - 'Original error: ', > - title asString, '. > - Debugger error: ', > - ([ex description] on: Error do: ['a ', ex class printString]), ':' > - ] > ]. > process suspend. > ! > >

1 0

Daily Commit Log
by commits＠source.squeak.org 18 Apr '16

18 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/016733.html Name: Tools-cmm.693 Ancestors: Tools-mt.692 Prefixing every MessageTrace with the word "Traced" is ambiguous and unnecessary, and clutters the browser. This is not my original vision for this browser. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016734.html ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016735.html =============================================

1 0

Why do we process the shutdown list if not snapshotting?
by marcel.taeumel 18 Apr '16

18 Apr '16

Hi, there! Are there any reasons to process the shutdown list if we just quit without saving/snapshotting? At the moment, we do so... See SmalltalkImage >> snapshot:andQuit:withExitCode:embedded: Best, Marcel -- View this message in context: http://forum.world.st/Why-do-we-process-the-shutdown-list-if-not-snapshotti… Sent from the Squeak - Dev mailing list archive at Nabble.com.

9 22

The Trunk: Tools-cmm.693.mcz
by commits＠source.squeak.org 18 Apr '16

18 Apr '16

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.693.mcz ==================== Summary ==================== Name: Tools-cmm.693 Author: cmm Time: 17 April 2016, 7:13:44.787279 pm UUID: beb669bc-958e-463e-8f0b-ac7c407a38e0 Ancestors: Tools-mt.692 Prefixing every MessageTrace with the word "Traced" is ambiguous and unnecessary, and clutters the browser. This is not my original vision for this browser. =============== Diff against Tools-mt.692 =============== Item was changed: ----- Method: MessageTrace>>windowLabelAt: (in category 'private accessing') ----- windowLabelAt: anInteger | str | ^(str := autoSelectStrings at: anInteger) ifNil: + [ 'Implementors of ', - [ 'Traced Implementors of ', (self class parse: self selection toClassAndSelector: [ :class :selector | selector ]) ] ifNotNil: + [ 'Senders of ', str ] - [ 'Traced Senders of ', str ] ! Item was changed: ----- Method: StandardToolSet class>>browseMessageSet:name:autoSelect: (in category 'browsing') ----- browseMessageSet: messageList name: title autoSelect: autoSelectString "Open a message set or message-trace browser, depending on the #traceMessages setting." ^ Preferences traceMessages ifTrue: [ MessageTrace openMessageList: messageList + name: title - name: 'Traced ', title autoSelect: autoSelectString ] ifFalse: [ MessageSet openMessageList: messageList name: title autoSelect: autoSelectString ]!

1 0

Daily Commit Log
by commits＠source.squeak.org 17 Apr '16

17 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/016714.html Name: Tools-mt.690 Ancestors: Tools-cmm.689 Make the message trace tools more obvious to avoid applying a wrong user model. Regular message set and traced message set behave differently considering mouse clicks, keyboard shortcuts, etc. There is a preference traceMessage to switch between traditional senders/implementors and the traced versions. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016715.html ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016716.html ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016717.html Name: Morphic-mt.1112 Ancestors: Morphic-mt.1111 Removes some ancient compatibility code for running Morphic worlds in MVC views. This feature, however, stopped working long time ago. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016718.html Name: 51Deprecated-mt.21 Ancestors: 51Deprecated-mt.20 Removes some ancient compatibility code for running Morphic worlds in MVC views. This feature, however, stopped working long time ago. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016719.html Name: Morphic-mt.1113 Ancestors: Morphic-mt.1112 Improves robustness when facing erroneous drawing code that affects the debugger GUI. In that case, show primitive REPL instead of freezing the image. Note that there will soon be more code to recover from such serious errors. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016720.html Name: System-mt.816 Ancestors: System-mt.815 Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016721.html Name: 51Deprecated-mt.22 Ancestors: 51Deprecated-mt.21 Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016722.html Name: Morphic-mt.1114 Ancestors: Morphic-mt.1113 Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016723.html Name: 51Deprecated-mt.23 Ancestors: 51Deprecated-mt.22 Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016724.html Name: CommandLine-mt.5 Ancestors: CommandLine-cmm.4 Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016725.html Name: 51Deprecated-mt.24 Ancestors: 51Deprecated-mt.23 Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016726.html Name: System-mt.817 Ancestors: System-mt.816 Adds hook for "debug it" to tool set. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016727.html Name: Tools-mt.691 Ancestors: Tools-mt.690 Adds hook for "debug it" to tool set. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016728.html Name: System-mt.818 Ancestors: System-mt.817 Generic projects "debug it" by just executing the method. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016729.html Name: Morphic-mt.1115 Ancestors: Morphic-mt.1114 Use tool set to "debug it". ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016730.html Name: ST80-mt.203 Ancestors: ST80-mt.202 Move interrupt handling and "debug it" to project code. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016731.html Name: ST80Tools-mt.9 Ancestors: ST80Tools-cmm.8 Use tool set to "debug it". ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/016732.html Name: Tools-mt.692 Ancestors: Tools-mt.691 Message Set Tools (Senders/Implementors): Adds class/system category to the label to improve navigation and filter. =============================================

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
25
Older →

Jump to page: