Packages April 2016

packages@lists.squeakfoundation.org

3 participants
23176 discussions

The Trunk: Tools-mt.683.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.683.mcz ==================== Summary ==================== Name: Tools-mt.683 Author: mt Time: 5 April 2016, 10:35:30.367517 am UUID: 933f05b4-6fdf-bc45-a831-18ea95e6bbb7 Ancestors: Tools-ul.682 Use item-specific help text. Do not overwrite widget help, which should be like 'Messages' or so. =============== Diff against Tools-ul.682 =============== Item was changed: ----- Method: Browser>>buildMessageListWith: (in category 'toolbuilder') ----- buildMessageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #messageList; getIndex: #messageListIndex; setIndex: #messageListIndex:; icon: #messageIconAt:; + helpItem: #messageHelpAt:; - help: #messageHelpAt:; menu: #messageListMenu:shifted:; keyPress: #messageListKey:from:. SystemBrowser browseWithDragNDrop ifTrue:[listSpec dragItem: #dragFromMessageList:]. ^listSpec !

1 0

The Trunk: Tools-mt.683.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

1 0

The Trunk: ToolBuilder-Kernel-mt.95.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.95.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.95 Author: mt Time: 5 April 2016, 10:33:54.497517 am UUID: cfb10ebe-4bc5-1a4e-a829-1060547b5541 Ancestors: ToolBuilder-Kernel-mt.94 Adds way to specify help (selector) per item in a list. Use regular #help for the widgets overall help text also in lists. =============== Diff against ToolBuilder-Kernel-mt.94 =============== Item was changed: PluggableWidgetSpec subclass: #PluggableListSpec + instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem' - instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0! A single selection list element. Instance variables: list <Symbol> The selector to retrieve the list elements. getIndex <Symbol> The selector to retrieve the list selection index. setIndex <Symbol> The selector to set the list selection index. getSelected <Symbol> The selector to retrieve the list selection. setSelected <Symbol> The selector to set the list selection. menu <Symbol> The selector to offer (to retrieve?) the context menu. keyPress <Symbol> The selector to invoke for handling keyboard shortcuts. autoDeselect <Boolean> Whether the list should allow automatic deselection or not. dragItem <Symbol> Selector to initiate a drag action on an item dropItem <Symbol> Selector to initiate a drop action of an item dropAccept <Symbol> Selector to determine whether a drop would be accepted! Item was added: + ----- Method: PluggableListSpec>>helpItem (in category 'accessing') ----- + helpItem + + ^ helpItem! Item was added: + ----- Method: PluggableListSpec>>helpItem: (in category 'accessing') ----- + helpItem: selector + + helpItem := selector.!

1 0

The Trunk: ToolBuilder-Kernel-mt.95.mcz
by commits＠source.squeak.org 05 Apr '16

05 Apr '16

1 0

The Trunk: ST80Tests-ul.3.mcz
by commits＠source.squeak.org 04 Apr '16

04 Apr '16

Levente Uzonyi uploaded a new version of ST80Tests to project The Trunk: http://source.squeak.org/trunk/ST80Tests-ul.3.mcz ==================== Summary ==================== Name: ST80Tests-ul.3 Author: ul Time: 4 April 2016, 12:26:28.947219 am UUID: b6c621d7-736d-4e65-9c1e-4f857991d1d2 Ancestors: ST80Tests-nice.2 - noted the dependency on Chronology-Core =============== Diff against ST80Tests-nice.2 =============== Item was changed: ----- Method: ST80PackageDependencyTest>>testST80 (in category 'as yet unclassified') ----- testST80 + self testPackage: #ST80 dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'ST80' dependsExactlyOn: #( Collections Compiler Files Graphics Kernel Morphic Multilingual Network SUnit System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).!

1 0

The Trunk: ST80Tests-ul.3.mcz
by commits＠source.squeak.org 04 Apr '16

04 Apr '16

1 0

The Trunk: Collections-ul.685.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.685.mcz ==================== Summary ==================== Name: Collections-ul.685 Author: ul Time: 3 April 2016, 3:21:51.035808 am UUID: db8fd391-2306-4ccc-87d5-b5dee96a78ab Ancestors: Collections-eem.684 Use Spur's new character comparison abilities in some String methods. =============== Diff against Collections-eem.684 =============== Item was changed: ----- Method: ByteString>>findSubstring:in:startingAt:matchTable: (in category 'comparing') ----- findSubstring: key in: body startingAt: start matchTable: matchTable "Answer the index in the string body at which the substring key first occurs, at or beyond start. The match is determined using matchTable, which can be used to effect, eg, case-insensitive matches. If no match is found, zero will be returned. The algorithm below is not optimum -- it is intended to be translated to C which will go so fast that it wont matter." | index | <primitive: 'primitiveFindSubstring' module: 'MiscPrimitivePlugin'> <var: #key declareC: 'unsigned char *key'> <var: #body declareC: 'unsigned char *body'> <var: #matchTable declareC: 'unsigned char *matchTable'> key size = 0 ifTrue: [^ 0]. + matchTable ifNil: [ + start to: body size - key size + 1 do: [ :startIndex | + index := 0. + [ (body at: startIndex + index) == (key at: (index := index + 1)) ] whileTrue: [ + index = key size ifTrue: [ ^startIndex ] ] ]. + ^0 ]. (start max: 1) to: body size - key size + 1 do: [:startIndex | index := 1. [(matchTable at: (body at: startIndex+index-1) asciiValue + 1) = (matchTable at: (key at: index) asciiValue + 1)] whileTrue: [index = key size ifTrue: [^ startIndex]. index := index+1]]. ^ 0 " ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 1 matchTable: CaseSensitiveOrder 1 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 2 matchTable: CaseSensitiveOrder 7 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 8 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseInsensitiveOrder 7 "! Item was changed: ----- Method: String>>beginsWith: (in category 'testing') ----- beginsWith: sequence "Answer true if the receiver starts with the argument collection. The comparison is case-sensitive. Overridden for better performance." + | index sequenceSize | - | sequenceSize | sequence isString ifFalse: [ ^super beginsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ self size < sequenceSize ]) ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + (sequence at: index) == (self at: index) ifFalse: [ ^false ] ]. - ((sequenceSize := sequence size) = 0 or: [ self size < sequence size ]) ifTrue: [ ^false ]. - 1 to: sequenceSize do: [ :index | - (sequence basicAt: index) = (self basicAt: index) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: String>>endsWith: (in category 'testing') ----- endsWith: sequence "Answer true if the receiver ends with the argument collection. The comparison is case-sensitive." + | index sequenceSize offset | - | sequenceSize offset | sequence isString ifFalse: [ ^ super endsWith: sequence ]. + ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequenceSize) < 0 ]) ifTrue: [ ^false ]. + index := 0. + [ (index := index + 1) <= sequenceSize ] whileTrue: [ + (sequence at: index) == (self at: index + offset) ifFalse: [ ^false ] ]. - ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequence size) < 0 ]) ifTrue: [ ^false ]. - 1 to: sequenceSize do: [ :index | - (sequence basicAt: index) = (self basicAt: index + offset) ifFalse: [ ^false ] ]. ^true! Item was changed: ----- Method: String>>findSubstring:in:startingAt:matchTable: (in category 'accessing') ----- findSubstring: key in: body startingAt: start matchTable: matchTable "Answer the index in the string body at which the substring key first occurs, at or beyond start. The match is determined using matchTable, which can be used to effect, eg, case-insensitive matches. If no match is found, zero will be returned." - | index c1 c2 | - matchTable == nil ifTrue: [ - key size = 0 ifTrue: [^ 0]. - start to: body size - key size + 1 do: - [:startIndex | - index := 1. - [(body at: startIndex+index-1) - = (key at: index)] - whileTrue: - [index = key size ifTrue: [^ startIndex]. - index := index+1]]. - ^ 0 - ]. + | index c1 c2 keySize matchTableSize | + (keySize := key size) = 0 ifTrue: [ ^0 ]. + matchTable ifNil: [ + start to: body size - key size + 1 do: [ :startIndex | + index := 0. + [ (body at: startIndex + index) == (key at: (index := index + 1)) ] whileTrue: [ + index = keySize ifTrue: [ ^startIndex ] ] ]. + ^0 ]. + matchTableSize := matchTable size. + start to: body size - key size + 1 do: [ :startIndex | + index := 0. + [ + (c1 := (body at: startIndex + index) asInteger + 1) <= matchTableSize ifTrue: [ + c1 := matchTable at: c1 ]. + (c2 := (key at: (index := index + 1)) asInteger + 1) <= matchTableSize ifTrue: [ + c2 := matchTable at: c2 ]. + c1 = c2 ] + whileTrue: [ + index = keySize ifTrue: [ ^startIndex ] ] ]. + ^0! - key size = 0 ifTrue: [^ 0]. - start to: body size - key size + 1 do: - [:startIndex | - index := 1. - [c1 := body at: startIndex+index-1. - c2 := key at: index. - ((c1 leadingChar = 0 and: [ c1 asciiValue < matchTable size ]) - ifTrue: [ matchTable at: c1 asciiValue + 1 ] - ifFalse: [ c1 asciiValue + 1 ]) = - ((c2 leadingChar = 0 and: [ c2 asciiValue < matchTable size ]) - ifTrue: [ matchTable at: c2 asciiValue + 1 ] - ifFalse: [c2 asciiValue + 1 ]) ] - whileTrue: - [index = key size ifTrue: [^ startIndex]. - index := index+1]]. - ^ 0!

1 0

The Trunk: Collections-ul.685.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

1 0

The Trunk: Monticello-ul.631.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.631.mcz ==================== Summary ==================== Name: Monticello-ul.631 Author: ul Time: 3 April 2016, 4:21:14.951568 am UUID: 7e079ac8-236b-48c3-b494-ed87e2d94ab2 Ancestors: Monticello-ul.630 - fixed slip in the last change =============== Diff against Monticello-ul.630 =============== Item was changed: ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'styling') ----- aboutToStyle: aStyler | classDefinition shouldStyle | classSelection ifNil: [ ^false ]. self switchIsComment ifTrue: [ ^false ]. methodSelection ifNotNil: [ classDefinition := items detect: [:ea | ea isClassDefinition and: [ ea className = classSelection ] ] ifNone: [ (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ]. shouldStyle := true ] ifNil: [ classDefinition := nil. shouldStyle := categorySelection ~= self extensionsCategory ]. + (Smalltalk classNamed: #SHMCClassDefinition) - (self environment classNamed: #SHMCClassDefinition) ifNil: [ ^false ] ifNotNil: [ :SHMCClassDefinition | aStyler environment: self; classOrMetaClass: (classDefinition ifNotNil: [ SHMCClassDefinition classDefinition: classDefinition items: items meta: switch = #class ]) ]. ^shouldStyle!

1 0

The Trunk: Monticello-ul.631.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2016