Packages June 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: System-cmm.341.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.341.mcz ==================== Summary ==================== Name: System-cmm.341 Author: cmm Time: 21 June 2010, 1:31:45.651 pm UUID: 5368255e-7e92-425a-a591-c42ade744d69 Ancestors: System-ar.340 Fixed 'revert to previous version' of class-side methods menu. =============== Diff against System-ar.340 =============== Item was changed: ----- Method: ChangeRecord>>methodClass (in category 'access') ----- + methodClass + | methodClassName methodClass | + type == #method ifFalse: [ ^ nil ]. + methodClassName := class subStrings + ifEmpty: [ ^ nil ] + ifNotEmptyDo: + [ : parts | parts first asSymbol ]. + (Smalltalk globals includesKey: methodClassName) ifFalse: [ ^ nil ]. + methodClass := Smalltalk at: methodClassName. + ^ meta + ifTrue: [ methodClass class ] + ifFalse: [ methodClass ]! - methodClass - | methodClass | - type == #method ifFalse: [^ nil]. - (Smalltalk globals includesKey: class asSymbol) ifFalse: [^ nil]. - methodClass := Smalltalk at: class asSymbol. - meta ifTrue: [^ methodClass class] - ifFalse: [^ methodClass]!

1 0

The Trunk: System-cmm.341.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: System-cmm.341.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: System-ar.340.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.340.mcz ==================== Summary ==================== Name: System-ar.340 Author: ar Time: 20 June 2010, 4:23:26.558 pm UUID: 54a08733-4ee1-ea42-b9d4-0871bdbed4cc Ancestors: System-ar.339 Cogification part 3: Merge recreateSplObjectsArray. =============== Diff against System-ar.339 =============== Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" + + "To external package developers: + **** DO NOT OVERRIDE THIS METHOD. ***** + If you are writing a plugin and need additional special object(s) for your own use, + use addGCRoot() function and use own, separate special objects registry " + + "The Special Objects Array is an array of objects used by the Squeak virtual machine. + Its contents are critical and accesses to it by the VM are unchecked, so don't even + think of playing here unless you know what you are doing." - "The Special Objects Array is an array of object pointers used - by the - Squeak virtual machine. Its contents are critical and - unchecked, so don't even think of playing here unless you - know what you are doing." | newArray | newArray := Array new: 56. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self associationAt: #Processor). "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: Float. newArray at: 11 put: MethodContext. newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: (self specialObjectsArray at: 18). "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. + newArray at: 23 put: nil. "This is the process signalling low space." - newArray at: 23 put: nil. "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). + "An array of the 255 Characters in ascii order. + Cog inlines table into machine code at: prim so do not regenerate it." + newArray at: 25 put: (self specialObjectsArray at: 25). - "An array of the 255 Characters in ascii order." - newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Prototype instances that can be copied for fast initialization" newArray at: 32 put: (Float new: 2). newArray at: 33 put: (LargePositiveInteger new: 4). newArray at: 34 put: Point new. newArray at: 35 put: #cannotInterpret:. "Note: This must be fixed once we start using context prototypes (yeah, right)" "(MethodContext new: CompiledMethod fullFrameSize)." newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" newArray at: 37 put: BlockClosure. "(BlockContext new: CompiledMethod fullFrameSize)." newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" + "array of objects referred to by external code" + newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" + newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" + newArray at: 41 put: nil. "Reserved for a LinkedList instance for overlapped calls in CogMT" - newArray at: 39 put: (Smalltalk specialObjectsArray at: 39). "preserve external semaphores" - - "--- obsolete J3 support (could be recycled) ---" - newArray at: 40 put: (Smalltalk at: #PseudoContext ifAbsent:[nil]). - newArray at: 41 put: (Smalltalk at: #TranslatedMethod ifAbsent:[nil]). - "finalization Semaphore" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. + "51 reserved for immutability message" + "newArray at: 51 put: #attemptToAssign:withIndex:." + newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' + #'bad argument' #'bad index' + #'bad number of arguments' + #'inappropriate operation' #'unsupported operation' + #'no modification' #'insufficient object memory' + #'insufficient C memory' #'not found' #'bad method' + #'internal error in named primitive machinery' + #'object may move'). + "53 to 55 are for Alien" - "Entries 51 through 55 are for Alien support" - newArray at: 51 put: nil. - newArray at: 52 put: nil. newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallback:stack:registers:jmpbuf:. newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). + "Weak reference finalization" newArray at: 56 put: (self at: #WeakFinalizer ifAbsent: []). + "Now replace the interpreter's reference in one atomic operation" + self specialObjectsArray become: newArray + ! - self specialObjectsArray become: newArray!

1 0

The Trunk: System-ar.340.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: System-ar.340.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: Morphic-cmm.446.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.446.mcz ==================== Summary ==================== Name: Morphic-cmm.446 Author: cmm Time: 20 June 2010, 5:14:44.257 pm UUID: 44708e7d-4c85-40cd-a0e9-bef6e36ee0e0 Ancestors: Morphic-ar.445 After minimizing a window, send it to the back of the window list. =============== Diff against Morphic-ar.445 =============== Item was changed: ----- Method: SystemWindow>>collapseOrExpand (in category 'resize/collapse') ----- collapseOrExpand "Collapse or expand the window, depending on existing state" | cf | isCollapsed ifTrue: ["Expand -- restore panes to morphics structure" isCollapsed := false. self activate. "Bring to frint first" Preferences collapseWindowsInPlace ifTrue: [fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft] ifFalse: [collapsedFrame := self getBoundsWithFlex]. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window']. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. self addPaneSplitters] ifFalse: ["Collapse -- remove panes from morphics structure" isCollapsed := true. fullFrame := self getBoundsWithFlex. "First save latest fullFrame" paneMorphs do: [:m | m delete; releaseCachedState]. self removePaneSplitters. self removeCornerGrips. model modelSleep. cf := self getCollapsedFrame. (collapsedFrame isNil and: [Preferences collapseWindowsInPlace not]) ifTrue: [collapsedFrame := cf]. self setBoundsWithFlex: cf. collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window']. + expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen']. + self sendToBack]. - expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen']]. self layoutChanged!

1 0

The Trunk: Morphic-cmm.446.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: Morphic-cmm.446.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: Tools-cmm.246.mcz
by commits＠source.squeak.org 20 Jun '10

20 Jun '10

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.246.mcz ==================== Summary ==================== Name: Tools-cmm.246 Author: cmm Time: 20 June 2010, 4:53:08.374 pm UUID: 99d3ac43-0c24-4f3f-b4e4-a4524edc02a7 Ancestors: Tools-cmm.245 Update the window title of a FileList when a new file or directory is selected. Restored the directory-contents as text display when no file is selected. =============== Diff against Tools-cmm.245 =============== Item was changed: ----- Method: FileList>>setFileStream: (in category 'initialization') ----- setFileStream: aStream "Used to initialize a spawned file editor. Sets directory too." - self directory: aStream directory. fileName := aStream localName. pattern := '*'. listIndex := 1. "pretend a file is selected" aStream close. brevityState := #needToGetBrief. + self + changed: #contents ; + changed: #labelString! - self changed: #contents. - ! Item was changed: ----- Method: FileList>>defaultContents (in category 'private') ----- defaultContents contents := list == nil ifTrue: [String new] ifFalse: [String streamContents: + [:s | s nextPutAll: 'NO FILE SELECTED' translated; cr. + s nextPutAll: ' -- Folder Summary --' translated; cr. + list do: [:item | s nextPutAll: item; cr]]]. - [:s | s nextPutAll: 'NO FILE SELECTED' translated; cr]]. brevityState := #FileList. ^ contents! Item was changed: ----- Method: FileList>>resort: (in category 'private') ----- + resort: newMode - resort: newMode "Re-sort the list of files." - | name | + listIndex > 0 ifTrue: [ name := self fileNameFromFormattedItem: (list at: listIndex) ]. - listIndex > 0 - ifTrue: [name := self fileNameFromFormattedItem: (list at: listIndex)]. sortMode := newMode. self pattern: pattern. + name ifNotNil: + [ fileName := name. + listIndex := list findFirst: + [ : item | (self fileNameFromFormattedItem: item) = name ]. + self + changed: #fileListIndex ; + changed: #labelString ]. + listIndex = 0 ifTrue: [ self changed: #contents ]. + self updateButtonRow! - name ifNotNil: [ - fileName := name. - listIndex := list findFirst: [:item | (self fileNameFromFormattedItem: item) = name. ]. - self changed: #fileListIndex]. - listIndex = 0 ifTrue: [self changed: #contents]. - self updateButtonRow - ! Item was changed: ----- Method: FileList>>fileListIndex: (in category 'file list') ----- fileListIndex: anInteger "Select the file name having the given index, and display its contents." | item name | self okToChange ifFalse: [^ self]. listIndex := anInteger. listIndex = 0 ifTrue: [fileName := nil] ifFalse: [item := self fileNameFromFormattedItem: (list at: anInteger). (item endsWith: self folderString) ifTrue: ["remove [...] folder string and open the folder" name := item copyFrom: 1 to: item size - self folderString size. listIndex := 0. brevityState := #FileList. self addPath: name. name first = $^ ifTrue: [self directory: (ServerDirectory serverNamed: name allButFirst)] ifFalse: [volListIndex = 1 ifTrue: [name := name, directory slash]. self directory: (directory directoryNamed: name)]] ifFalse: [fileName := item]]. "open the file selected" brevityState := self isGraphicsFileSelected ifTrue: [#needToGetGraphic] ifFalse: [#needToGetBrief].. + self + changed: #fileListIndex ; + changed: #contents ; + changed: #labelString. - self changed: #fileListIndex. - self changed: #contents. self updateButtonRow! Item was changed: ----- Method: FileList2 class>>modalFolderSelector: (in category 'modal dialogs') ----- modalFolderSelector: aDir | window fileModel | + window := self morphicViewFolderSelector: aDir. + fileModel := window model. - window _ self morphicViewFolderSelector: aDir. - fileModel _ window model. window openInWorld: self currentWorld extent: 300@400. self modalLoopOn: window. ^fileModel getSelectedDirectory withoutListWrapper! Item was changed: ----- Method: FileList>>labelString (in category 'initialization') ----- labelString + ^ directory + ifNil: [ 'File List' ] + ifNotNil: + [ fileName + ifNil: [ directory fullName ] + ifNotNil: [ directory fullNameFor: fileName ] ]! - ^fileName ifNil:['File List'] ifNotNil:[directory fullNameFor: fileName].!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
28
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 June 2010