Packages May 2012

packages@lists.squeakfoundation.org

1 participants
138 discussions

The Trunk: Tools-cmm.409.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.409.mcz ==================== Summary ==================== Name: Tools-cmm.409 Author: cmm Time: 27 May 2012, 10:01:04.714 pm UUID: a45e1538-f3ab-4ca2-954a-13cb6caeff7c Ancestors: Tools-cmm.408 - Recover FileList's drag-and-drop capabilities. - Recover HierarchyBrowser's drag-and-drop capabilities. =============== Diff against Tools-cmm.408 =============== Item was changed: ----- Method: Browser>>dragFromClassList: (in category 'drag and drop') ----- + dragFromClassList: index - dragFromClassList: index "Drag a class from the browser" | name envt | + (name := self classList at: index) ifNil: [ ^ nil ]. + (envt := self selectedEnvironment) ifNil: [ ^ nil ]. + ^ envt + at: name withBlanksTrimmed asSymbol + ifAbsent: [ ]! - (name := self classList at: index) ifNil: [^ nil]. - (envt := self selectedEnvironment) ifNil: [^ nil]. - ^ envt at: name ifAbsent:[nil]! Item was changed: ----- Method: FileList class>>windowColorSpecification (in category 'window color') ----- windowColorSpecification "Answer a WindowColorSpec object that declares my preference" + ^ WindowColorSpec + classSymbol: self name + wording: 'File List' + brightColor: #lightGray + pastelColor: #lightGray + helpMessage: 'A tool for looking at files'! - - ^ WindowColorSpec classSymbol: self name wording: 'File List' brightColor: #lightMagenta pastelColor: #paleMagenta helpMessage: 'A tool for looking at files'! Item was changed: ----- Method: FileList>>buildDirectoryTreeWith: (in category 'toolbuilder') ----- + buildDirectoryTreeWith: builder - buildDirectoryTreeWith: builder | treeSpec | treeSpec := builder pluggableTreeSpec new. + treeSpec + model: self ; + roots: #rootDirectoryList ; + hasChildren: #hasMoreDirectories: ; + getChildren: #subDirectoriesOf: ; + getSelectedPath: #selectedPath ; + setSelected: #setDirectoryTo: ; + label: #directoryNameOf: ; + menu: #volumeMenu: ; + autoDeselect: false. + Preferences browseWithDragNDrop ifTrue: + [ treeSpec + dragItem: #dragFromDirectoryList: ; + dropItem: #drop:ontoDirectory:shouldCopy: ]. + ^ treeSpec! - treeSpec - model: self; - roots: #rootDirectoryList; - hasChildren: #hasMoreDirectories:; - getChildren: #subDirectoriesOf:; - getSelectedPath: #selectedPath; - setSelected: #setDirectoryTo:; - label: #directoryNameOf:; - menu: #volumeMenu:; - autoDeselect: false. - ^treeSpec - ! Item was changed: ----- Method: FileList>>buildFileListWith: (in category 'toolbuilder') ----- + buildFileListWith: builder - buildFileListWith: builder | buttons listSpec top | top := builder pluggablePanelSpec new. top children: OrderedCollection new. - buttons := self buildButtonPaneWith: builder. + buttons frame: + (self + topConstantHeightFrame: self buttonHeight + fromLeft: 0 + width: 1). - buttons frame: (self topConstantHeightFrame: self buttonHeight fromLeft: 0 width: 1). top children add: buttons. - listSpec := builder pluggableListSpec new. + listSpec + model: self ; + list: #fileList ; + getIndex: #fileListIndex ; + setIndex: #fileListIndex: ; + menu: #fileListMenu: ; + keyPress: nil ; + frame: + (self + frameOffsetFromTop: self buttonHeight + 4 + fromLeft: 0 + width: 1 + bottomFraction: 1) ; + color: Color white. + Preferences browseWithDragNDrop ifTrue: [ listSpec dragItem: #dragFromFileList: ]. - listSpec - model: self; - list: #fileList; - getIndex: #fileListIndex; - setIndex: #fileListIndex:; - menu: #fileListMenu:; - keyPress: nil; - frame: (self frameOffsetFromTop: self buttonHeight + 4 fromLeft: 0 width: 1 bottomFraction: 1); - color: Color white. top children add: listSpec. + ^ top! - ^top. - ! Item was changed: ----- Method: FileList>>directory: (in category 'initialization') ----- + directory: aFileDirectory - directory: dir "Set the path of the volume to be displayed." + self okToChange ifFalse: [ ^ self ]. - - self okToChange ifFalse: [^ self]. - self modelSleep. + directory := aFileDirectory. - directory := dir. self modelWakeUp. + sortMode == nil ifTrue: [ sortMode := #date ]. + volList := (Array with: '[]') , directory pathParts withIndexCollect: + [ : each : i | (String + new: i - 1 + withAll: Character space) , each ]. - - sortMode == nil ifTrue: [sortMode := #date]. - volList := ((Array with: '[]'), directory pathParts) "Nesting suggestion from RvL" - withIndexCollect: [:each :i | ( String new: i-1 withAll: $ ), each]. volListIndex := volList size. self changed: #relabel. self changed: #volumeList. + self pattern: pattern! - self pattern: pattern.! Item was added: + ----- Method: FileList>>dragFromDirectoryList: (in category 'file list') ----- + dragFromDirectoryList: anIndex + ^ self directory! Item was added: + ----- Method: FileList>>dragFromFileList: (in category 'file list') ----- + dragFromFileList: anIndex + ^ self directory entryAt: (self fileNameFromFormattedItem: (self fileList at: self fileListIndex))! Item was added: + ----- Method: FileList>>dragPassengerFor:inMorph: (in category 'drag''n''drop') ----- + dragPassengerFor: item inMorph: dragSource + ^self directory fullNameFor: ((self fileNameFromFormattedItem: item contents copy) + copyReplaceAll: self folderString with: ''). + ! Item was added: + ----- Method: FileList>>drop:ontoDirectory: (in category 'toolbuilder') ----- + drop: aDirectoryEntryFile ontoDirectory: aFileDirectory + | oldName oldEntry newName newEntry baseName response | + self halt. + oldName := aDirectoryEntryFile fullName. + baseName := FileDirectory localNameFor: oldName. + newName := aFileDirectory fullNameFor: baseName. + newName = oldName ifTrue: [ "Transcript nextPutAll: 'same as old name'; cr." + ^ true ]. + oldEntry := FileDirectory directoryEntryFor: oldName. + newEntry := FileDirectory directoryEntryFor: newName. + newEntry ifNotNil: + [ | msg | + msg := String streamContents: + [ : s | s + nextPutAll: 'destination file ' ; + nextPutAll: newName ; + nextPutAll: ' exists already,' ; + cr ; + nextPutAll: 'and is ' ; + nextPutAll: + (oldEntry modificationTime < newEntry modificationTime + ifTrue: [ 'newer' ] + ifFalse: [ 'not newer' ]) ; + nextPutAll: ' than source file ' ; + nextPutAll: oldName ; + nextPut: $. ; + cr ; + nextPutAll: 'Overwrite file ' ; + nextPutAll: newName ; + nextPut: $? ]. + response := self confirm: msg. + response ifFalse: [ ^ false ] ]. + " aTransferMorph shouldCopy + ifTrue: + [ self + primitiveCopyFileNamed: oldName + to: newName ] + " false ifFalse: + [ directory + rename: oldName + toBe: newName ]. + self + updateFileList ; + fileListIndex: 0. + ^ true! Item was added: + ----- Method: FileList>>drop:ontoDirectory:shouldCopy: (in category 'toolbuilder') ----- + drop: aDirectoryEntryFile ontoDirectory: aFileDirectory shouldCopy: aBoolean + aDirectoryEntryFile containingDirectory = aFileDirectory ifTrue: [ ^ self ]. + aBoolean + ifTrue: [ aFileDirectory copyHere: aDirectoryEntryFile ] + ifFalse: + [ directory + rename: aDirectoryEntryFile fullName + toBe: (aFileDirectory fullNameFor: aDirectoryEntryFile name). + self setDirectoryTo: directory ]! Item was changed: ----- Method: FileList2>>dropDestinationDirectory:event: (in category 'drag''n''drop') ----- dropDestinationDirectory: dest event: evt "Answer a FileDirectory representing the drop destination in the directory hierarchy morph dest" + self isThisEverCalled. ^ (dest itemFromPoint: evt position) withoutListWrapper!

1 0

The Trunk: ToolBuilder-Morphic-cmm.85.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.85.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.85 Author: cmm Time: 27 May 2012, 9:59:06.378 pm UUID: 86972436-d2b6-4b86-b2c8-11f321fb7fad Ancestors: ToolBuilder-Morphic-cwp.84 - TreeMorph: allow drop-target callbacks to interrogate the shouldCopy argument. - After the drop operation is complete, remove the drop highlight. =============== Diff against ToolBuilder-Morphic-cwp.84 =============== Item was changed: ----- Method: PluggableTreeMorph>>acceptDroppingMorph:event: (in category 'morphic') ----- + acceptDroppingMorph: aTransferMorph event: evt + dropItemSelector ifNil: [ ^ self ]. + model + perform: dropItemSelector + withEnoughArguments: {aTransferMorph passenger. + (self itemFromPoint: evt position) withoutListWrapper. + aTransferMorph shouldCopy}. - acceptDroppingMorph: aMorph event: evt - | item dropTarget | - dropItemSelector ifNil:[^self]. - item := aMorph passenger. - dropTarget := (self itemFromPoint: evt position) withoutListWrapper. - model perform: dropItemSelector with: item with: dropTarget. evt hand releaseMouseFocus: self. + potentialDropMorph ifNotNil: [ potentialDropMorph highlightForDrop: false ]. + Cursor normal show! - Cursor normal show. - !

1 0

The Trunk: ToolBuilder-Morphic-cmm.85.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

1 0

The Trunk: ToolBuilder-Morphic-cmm.85.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

1 0

The Trunk: KernelTests-eem.224.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.224.mcz ==================== Summary ==================== Name: KernelTests-eem.224 Author: eem Time: 27 May 2012, 3:16:16.618 pm UUID: 2d674fd0-22e3-4b5c-82ae-af5642c9614f Ancestors: KernelTests-nice.223 Add a long test case for CompiledMethod = & hash =============== Diff against KernelTests-nice.223 =============== Item was added: + LongTestCase subclass: #CompiledMethodComparisonTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Methods'! Item was added: + ----- Method: CompiledMethodComparisonTest>>testHash (in category 'tests') ----- + testHash + | ai | + ai := CompiledMethod allInstances. + ai do: + [:a| + ai do: + [:b| + a = b ifTrue: [self assert: a hash = b hash]]]!

1 0

The Trunk: KernelTests-eem.224.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

1 0

The Trunk: KernelTests-eem.224.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

1 0

The Trunk: Kernel-eem.692.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.692.mcz ==================== Summary ==================== Name: Kernel-eem.692 Author: eem Time: 27 May 2012, 3:08:41.389 pm UUID: 72f75218-3cfc-4575-b159-8de0e44aa479 Ancestors: Kernel-nice.691 Implement CompiledMethod>>#hash, both to accord with CompiledMethod>>#= and to override ByteArray>>#hash which looks at all bytes of the receiver and hence may produce a variable hash if the GC moves literals in a method. =============== Diff against Kernel-nice.691 =============== Item was added: + ----- Method: CompiledMethod>>hash (in category 'comparing') ----- + hash + "CompiledMethod>>#= compares code, i.e. same literals and same bytecode. + So we look at the header, methodClass and some bytes between initialPC and endPC, + but /not/ the selector because the equal method does not compare selectors. + Note that we must override ByteArray>hash which looks at all bytes of the receiver. + Using bytes from the pointer part of a COmpiledmethod can lead to a variable hash + if and when when the GC moves literals in the receiver." + | initialPC endPC hash | + initialPC := self initialPC. + endPC := self endPC. + hash := self species hash + self header + initialPC + endPC + self methodClass hash bitAnd: 16rFFFFFFF. + "sample approximately 20 bytes" + initialPC to: endPC by: (endPC - initialPC // 20 max: 1) do: + [:i| hash := hash + (self at: i)]. + ^hash + + "(CompiledMethod>>#hash) hash"!

1 0

The Trunk: Kernel-eem.692.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

1 0

The Trunk: Kernel-eem.692.mcz
by commits＠source.squeak.org 28 May '12

28 May '12

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 May 2012