Packages March 2016

packages@lists.squeakfoundation.org

1 participants
112 discussions

The Trunk: Tools-topa.677.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.677.mcz ==================== Summary ==================== Name: Tools-topa.677 Author: topa Time: 2 March 2016, 1:16:14.883018 am UUID: 00c00648-196c-4ecf-a540-50ac9d92c4b0 Ancestors: Tools-topa.676 pull up toggleBreakOnEntry and robustify things against missing compiled methods =============== Diff against Tools-topa.676 =============== Item was changed: ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- messageHelpFor: aSelector "Show the first n lines of the sources code of the message behind aSelector." | source formatted iconHelp | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. + source := (self selectedClassOrMetaClass compiledMethodAt: aSelector ifAbsent: [^ nil]) getSource. - source := (self selectedClassOrMetaClass >> aSelector) getSource. source lineCount > 5 ifTrue: [ | sourceLines | sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. sourceLines add: ' [...]'. source := sourceLines joinSeparatedBy: Character cr]. formatted := SHTextStylerST80 new classOrMetaClass: self selectedClassOrMetaClass; styledTextFor: source asText. iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | t , Character cr, Character cr]. ^ iconHelp asText append: formatted; yourself! Item was removed: - ----- Method: Browser>>toggleBreakOnEntry (in category 'breakpoints') ----- - toggleBreakOnEntry - "Install or uninstall a halt-on-entry breakpoint" - - | selectedMethod | - self selectedClassOrMetaClass ifNil: [ ^self]. - selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. - selectedMethod hasBreakpoint - ifTrue: - [BreakpointManager unInstall: selectedMethod] - ifFalse: - [BreakpointManager - installInClass: self selectedClassOrMetaClass - selector: self selectedMessageName]. - self changed: #messageList! Item was added: + ----- Method: CodeHolder>>toggleBreakOnEntry (in category 'breakpoints') ----- + toggleBreakOnEntry + "Install or uninstall a halt-on-entry breakpoint" + + | selectedMethod | + self selectedClassOrMetaClass ifNil: [ ^self]. + selectedMethod := self selectedClassOrMetaClass + compiledMethodAt: self selectedMessageName + ifAbsent: [^ self]. + selectedMethod hasBreakpoint + ifTrue: + [BreakpointManager unInstall: selectedMethod] + ifFalse: + [BreakpointManager + installInClass: self selectedClassOrMetaClass + selector: self selectedMessageName]. + self changed: #messageList! Item was removed: - ----- Method: Debugger>>toggleBreakOnEntry (in category 'breakpoints') ----- - toggleBreakOnEntry - "Install or uninstall a halt-on-entry breakpoint" - - | selectedMethod | - self selectedClassOrMetaClass ifNil: [ ^self]. - selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. - selectedMethod hasBreakpoint - ifTrue: - [BreakpointManager unInstall: selectedMethod] - ifFalse: - [BreakpointManager - installInClass: self selectedClassOrMetaClass - selector: self selectedMessageName].! Item was removed: - ----- Method: MessageSet>>toggleBreakOnEntry (in category 'breakpoints') ----- - toggleBreakOnEntry - "Install or uninstall a halt-on-entry breakpoint" - - | selectedMethod | - self selectedClassOrMetaClass ifNil: [ ^self]. - selectedMethod := self selectedClassOrMetaClass >> self selectedMessageName. - selectedMethod hasBreakpoint - ifTrue: - [BreakpointManager unInstall: selectedMethod] - ifFalse: - [BreakpointManager - installInClass: self selectedClassOrMetaClass - selector: self selectedMessageName]. - self changed: #messageList!

1 0

The Trunk: Tools-topa.677.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

1 0

The Trunk: Morphic-topa.1092.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1092.mcz ==================== Summary ==================== Name: Morphic-topa.1092 Author: topa Time: 2 March 2016, 12:47:32.674693 am UUID: c9c63a6f-3d27-472a-bb9d-b51d1f3eb218 Ancestors: Morphic-topa.1091 Adopt Tree (up/down/home/pg up/pg down) key handling to be more similar to List key handling. =============== Diff against Morphic-topa.1091 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>arrowKey: (in category 'keyboard navigation') ----- arrowKey: asciiValue "Handle a keyboard navigation character. Answer true if handled, false if not." + | keyEvent max oldSelection nextSelection howManyItemsShowing | - | keyEvent | keyEvent := asciiValue. + max := self maximumSelection. + nextSelection := oldSelection := self getSelectionIndex. keyEvent = 31 ifTrue:["down" + nextSelection :=oldSelection + 1. + nextSelection > max ifTrue: [nextSelection := 1]]. - self setSelectionIndex: self getSelectionIndex+1. - ^true]. keyEvent = 30 ifTrue:["up" + nextSelection := oldSelection - 1. + nextSelection < 1 ifTrue: [nextSelection := max]]. - self setSelectionIndex: (self getSelectionIndex-1 max: 1). - ^true]. keyEvent = 1 ifTrue: ["home" + nextSelection := 1]. - self setSelectionIndex: 1. - ^true]. keyEvent = 4 ifTrue: ["end" + nextSelection := max]. + howManyItemsShowing := self numSelectionsInView. - self setSelectionIndex: scroller submorphs size. - ^true]. keyEvent = 11 ifTrue: ["page up" + nextSelection := 1 max: oldSelection - howManyItemsShowing]. - self setSelectionIndex: (self getSelectionIndex - self numSelectionsInView max: 1). - ^true]. keyEvent = 12 ifTrue: ["page down" + nextSelection := oldSelection + howManyItemsShowing min: max]. + + nextSelection = oldSelection ifFalse: [ + self setSelectionIndex: nextSelection. + ^ true]. + - self setSelectionIndex: self getSelectionIndex + self numSelectionsInView. - ^true]. keyEvent = 29 ifTrue:["right" selectedMorph ifNotNil:[ (selectedMorph canExpand and:[selectedMorph isExpanded not]) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: self getSelectionIndex+1]. ]. ^true]. keyEvent = 28 ifTrue:["left" selectedMorph ifNotNil:[ (selectedMorph isExpanded) ifTrue:[self toggleExpandedState: selectedMorph] ifFalse:[self setSelectionIndex: (self getSelectionIndex-1 max: 1)]. ]. ^true]. ^false!

1 0

The Trunk: Morphic-topa.1092.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

1 0

The Trunk: Morphic-topa.1091.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1091.mcz ==================== Summary ==================== Name: Morphic-topa.1091 Author: topa Time: 2 March 2016, 12:24:01.676712 am UUID: eb8276fa-d3ef-42e6-925f-9dd92ba97121 Ancestors: Morphic-topa.1090 Wee tiny cosmetic change to trees: Start tree-lines at indent-level 1, so tress with no children beyond the roots whatsoever look very similar to lists. =============== Diff against Morphic-topa.1090 =============== Item was removed: - ----- Method: IndentingListItemMorph>>drawLinesOn:lineColor: (in category 'drawing') ----- - drawLinesOn: aCanvas lineColor: lineColor - | hasToggle | - hasToggle := self hasToggle. - "Draw line from toggle to text" - self drawLineToggleToTextOn: aCanvas lineColor: lineColor hasToggle: hasToggle. - - "Draw the line from my toggle to the nextSibling's toggle" - self nextVisibleSibling ifNotNil: [ self drawLinesToNextSiblingOn: aCanvas lineColor: lineColor hasToggle: hasToggle ]. - - "If I have children and am expanded, draw a line to my first child" - (self firstVisibleChild notNil and: [ self isExpanded ]) - ifTrue: [ self drawLinesToFirstChildOn: aCanvas lineColor: lineColor]! Item was added: + ----- Method: IndentingListItemMorph>>drawLinesOn:lineColor:indentThreshold: (in category 'drawing') ----- + drawLinesOn: aCanvas lineColor: lineColor indentThreshold: aNumber + self indentLevel > aNumber ifTrue: [ + | hasToggle | + hasToggle := self hasToggle. + "Draw line from toggle to text" + self drawLineToggleToTextOn: aCanvas lineColor: lineColor hasToggle: hasToggle. + + "Draw the line from my toggle to the nextSibling's toggle" + self nextVisibleSibling ifNotNil: [ self drawLinesToNextSiblingOn: aCanvas lineColor: lineColor hasToggle: hasToggle ]]. + + "If I have children and am expanded, draw a line to my first child" + ((self firstVisibleChild notNil + and: [self isExpanded]) + and: [self firstVisibleChild indentLevel > aNumber]) + ifTrue: [ self drawLinesToFirstChildOn: aCanvas lineColor: lineColor ]! Item was changed: ----- Method: IndentingListItemMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | tRect sRect columnScanner columnLeft | self backgroundColor ifNotNil: [:c | aCanvas fillRectangle: self innerBounds color: c]. tRect := self toggleRectangle. self drawToggleOn: aCanvas in: tRect. + sRect := bounds withLeft: tRect right + self hMargin. - sRect := bounds withLeft: tRect right + 4. sRect := sRect top: sRect top + sRect bottom - self fontToUse height // 2. (container columns isNil or: [(contents asString indexOf: Character tab) = 0]) ifTrue: [ icon ifNotNil: [ aCanvas translucentImage: icon at: sRect left @ (self top + (self height - icon height // 2)). sRect := sRect left: sRect left + icon width + 2. ]. aCanvas drawString: contents asString in: sRect font: self fontToUse color: color. ] ifFalse: [ columnLeft := sRect left. columnScanner := ReadStream on: contents asString. container columns withIndexDo: [ :widthSpec :column | | columnRect columnData columnWidth | "Draw icon." column = self class iconColumnIndex ifTrue: [ icon ifNotNil: [ aCanvas translucentImage: icon at: columnLeft @ (self top + (self height - icon height // 2)). columnLeft := columnLeft + icon width + 2]]. columnWidth := self widthOfColumn: column. columnRect := columnLeft @ sRect top extent: columnWidth @ sRect height. columnData := columnScanner upTo: Character tab. "Draw string." columnData ifNotEmpty: [ aCanvas drawString: columnData in: columnRect font: self fontToUse color: color]. "Compute next column offset." columnLeft := columnRect right + 5. column = 1 ifTrue: [columnLeft := columnLeft - tRect right + self left]. ]. ]! Item was changed: ----- Method: IndentingListItemMorph>>hMargin (in category 'accessing') ----- hMargin ^ 3! Item was changed: ----- Method: SimpleHierarchicalListMorph>>drawLinesOn: (in category 'drawing') ----- drawLinesOn: aCanvas | lColor | lColor := self lineColor. aCanvas transformBy: scroller transform clippingTo: scroller innerBounds during:[:clippedCanvas | scroller submorphs select: [:submorph | submorph visible] thenDo: [ :submorph | ((submorph isExpanded or: [clippedCanvas isVisible: submorph fullBounds] ) or: [ submorph nextSibling notNil and: [clippedCanvas isVisible: submorph nextSibling]]) + ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor indentThreshold: 0] ] ] - ifTrue: [submorph drawLinesOn: clippedCanvas lineColor: lColor] ] ] smoothing: scroller smoothing. !

1 0

The Trunk: Morphic-topa.1091.mcz
by commits＠source.squeak.org 02 Mar '16

02 Mar '16

1 0

The Trunk: Tools-topa.676.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.676.mcz ==================== Summary ==================== Name: Tools-topa.676 Author: topa Time: 1 March 2016, 5:32:00.896321 pm UUID: 9dd551d2-d6c4-4704-af6f-b3ec510732f8 Ancestors: Tools-topa.675 Generalize messageList callbacks to be usabe with message names, too. =============== Diff against Tools-topa.675 =============== Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." - - | source formatted iconHelp | - Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. + ^ self messageHelpFor: (self messageList at: anIndex) + ! - - source := (self selectedClassOrMetaClass >> (self messageList at: anIndex)) getSource. - source lineCount > 5 ifTrue: [ - | sourceLines | - sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. - sourceLines add: ' [...]'. - source := sourceLines joinSeparatedBy: Character cr]. - - formatted := SHTextStylerST80 new - classOrMetaClass: self selectedClassOrMetaClass; - styledTextFor: source asText. - iconHelp := (self messageIconHelpAt: anIndex) ifNotEmpty: [:t | - t , Character cr, Character cr]. - ^ iconHelp asText - append: formatted; - yourself! Item was added: + ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- + messageHelpFor: aSelector + "Show the first n lines of the sources code of the message behind aSelector." + + | source formatted iconHelp | + Preferences balloonHelpInMessageLists ifFalse: [^ nil]. + + source := (self selectedClassOrMetaClass >> aSelector) getSource. + source lineCount > 5 ifTrue: [ + | sourceLines | + sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. + sourceLines add: ' [...]'. + source := sourceLines joinSeparatedBy: Character cr]. + + formatted := SHTextStylerST80 new + classOrMetaClass: self selectedClassOrMetaClass; + styledTextFor: source asText. + iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | + t , Character cr, Character cr]. + ^ iconHelp asText + append: formatted; + yourself! Item was changed: ----- Method: Browser>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex + ^ self messageIconFor: (self messageList at: anIndex)! - self class showMessageIcons - ifFalse: [^ nil]. - - ^ ToolIcons iconNamed: (ToolIcons - iconForClass: self selectedClassOrMetaClass - selector: (self messageList at: anIndex))! Item was added: + ----- Method: Browser>>messageIconFor: (in category 'message list') ----- + messageIconFor: aSelector + + self class showMessageIcons ifFalse: [^ nil]. + + ^ ToolIcons iconNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector)! Item was removed: - ----- Method: Browser>>messageIconHelpAt: (in category 'message list') ----- - messageIconHelpAt: anIndex - - self class showMessageIcons ifFalse: [^ String empty]. - - ^ ToolIconHelp iconHelpNamed: (ToolIcons - iconForClass: self selectedClassOrMetaClass - selector: (self messageList at: anIndex))! Item was added: + ----- Method: Browser>>messageIconHelpFor: (in category 'message list') ----- + messageIconHelpFor: aSelector + + self class showMessageIcons ifFalse: [^ String empty]. + + ^ ToolIconHelp iconHelpNamed: (ToolIcons + iconForClass: self selectedClassOrMetaClass + selector: aSelector)! Item was changed: ----- Method: Browser>>selectedMessageName: (in category 'message list') ----- selectedMessageName: aSelector "Make the given selector be the selected message name" | anIndex | anIndex := self messageList indexOf: aSelector. anIndex > 0 ifTrue: + [self messageListIndex: anIndex]. + self changed: #selectedMessageName. "inform interested parties"! - [self messageListIndex: anIndex]!

1 0

The Trunk: Tools-topa.676.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

1 0

The Trunk: Morphic-topa.1090.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1090.mcz ==================== Summary ==================== Name: Morphic-topa.1090 Author: topa Time: 1 March 2016, 5:27:34.235871 pm UUID: 1e7c7560-918a-475f-b7dc-52504303fdf1 Ancestors: Morphic-mt.1089 Make keyStroke handling in SimpleHierarchicalListMorph more robust, so it can be used with most of the Tools' key handler methods. =============== Diff against Morphic-mt.1089 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>keyStroke: (in category 'event handling') ----- keyStroke: event "Process potential command keys" (self scrollByKeyboard: event) ifTrue: [^ true]. event keyCharacter asciiValue < 32 ifTrue: [ ^ self specialKeyPressed: event keyCharacter asciiValue]. + " A lot of actions do not return a Boolean here (#messageListKey:from:, + #classListKey:from:, ...); even most #arrowKey:from: implementors do not. + Hence, we explicitely check for false and else assume truthieness" + ^ (self keyStrokeAction: event) ~~ false + ! - (self keyStrokeAction: event) ifTrue: [^ true]. - - ^ false!

1 0

The Trunk: Morphic-topa.1090.mcz
by commits＠source.squeak.org 01 Mar '16

01 Mar '16

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2016