Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

The Trunk: System-dtl.162.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.162.mcz ==================== Summary ==================== Name: System-dtl.162 Author: dtl Time: 7 November 2009, 11:57:44 am UUID: 6f140160-1c75-48a9-b282-d51b609c8d0f Ancestors: System-dtl.161 Move three methods from MorphicProject back to Project, undoing prior change. These are required for creating and entering an MVC project from Morphic. =============== Diff against System-dtl.161 =============== Item was added: + ----- Method: Project>>showSharedFlaps (in category 'flaps support') ----- + showSharedFlaps + "Answer whether shared flaps are shown or suppressed in this project" + + | result | + result := Preferences showSharedFlaps. + ^ self == Project current + ifTrue: + [result] + ifFalse: + [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]! Item was added: + ----- Method: Project>>flapsSuppressed (in category 'flaps support') ----- + flapsSuppressed + "Answer whether flaps are suppressed in this project" + + ^ self showSharedFlaps not! Item was added: + ----- Method: Project>>flapsSuppressed: (in category 'flaps support') ----- + flapsSuppressed: aBoolean + "Make the setting of the flag that governs whether global flaps are suppressed in the project be as indicated and add or remove the actual flaps" + + self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not. + self == Project current "Typical case" + ifTrue: + [Preferences setPreference: #showSharedFlaps toValue: aBoolean not] + ifFalse: "Anomalous case where this project is not the current one." + [aBoolean + ifTrue: + [Flaps globalFlapTabsIfAny do: + [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]] + + ifFalse: + [Smalltalk isMorphic ifTrue: + [self currentWorld addGlobalFlaps]]]. + Project current assureNavigatorPresenceMatchesPreference!

1 0

The Trunk: Network-nice.40.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

Nicolas Cellier uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-nice.40.mcz ==================== Summary ==================== Name: Network-nice.40 Author: nice Time: 7 November 2009, 9:30:57 am UUID: 41f7cb4d-5d90-47f2-b9cf-fb68878f5012 Ancestors: Network-nice.39 Borrow excellent fix from http://code.google.com/p/pharo/issues/detail?id=1152 and let these instVarAt:put: out of our sight =============== Diff against Network-nice.39 =============== Item was changed: ----- Method: HTTPSocket>>getResponseUpTo:ignoring: (in category 'as yet unclassified') ----- getResponseUpTo: markerString ignoring: ignoreString "Keep reading, until the marker is seen, skipping characters in ignoreString when comparing to the marker. Return three parts: header, marker, beginningOfData. Fails if no marker in first 2000 chars." + | buf position bytesRead tester mm skipped | - | buf response bytesRead tester mm skipped | buf := String new: 2000. + position := 0. - response := WriteStream on: buf. tester := 1. mm := 1. skipped := 0. [tester := tester - markerString size + 1 max: 1. "rewind a little, in case the marker crosses a read boundary" + tester to: position do: [:tt | - tester to: response position do: [:tt | (buf at: tt) = (markerString at: mm) ifFalse: [[ignoreString includes: (markerString at: mm)] whileTrue: [mm := mm + 1. skipped := skipped + 1]]. (buf at: tt) = (markerString at: mm) ifTrue: [mm := mm + 1] ifFalse: [mm := 1. skipped := 0]. "Not totally correct for markers like xx0xx" mm > markerString size ifTrue: ["got it" ^ Array with: (buf copyFrom: 1 to: tt+1-mm+skipped) with: markerString + with: (buf copyFrom: tt+1 to: position)]]. + tester := 1 max: position. "OK if mm in the middle" + (position < buf size) & (self isConnected | self dataAvailable)] whileTrue: [ - with: (buf copyFrom: tt+1 to: response position)]]. - tester := 1 max: response position. "OK if mm in the middle" - (response position < buf size) & (self isConnected | self dataAvailable)] whileTrue: [ (self waitForDataUntil: (Socket deadlineSecs: 5)) ifFalse: [ Transcript show: 'data was late'; cr]. bytesRead := self primSocket: socketHandle receiveDataInto: buf + startingAt: position + 1 count: buf size - position.. + position := position + bytesRead]. - startingAt: response position + 1 count: buf size - response position. - "response position+1 to: response position+bytesRead do: [:ii | - response nextPut: (buf at: ii)]. totally redundant, but needed to advance position!!" - response instVarAt: 2 "position" put: - (response position + bytesRead)]. "horrible, but fast" + ^ Array with: (buf copyFrom: 1 to: position) - ^ Array with: response contents with: '' with: '' "Marker not found and connection closed" ! Item was changed: ----- Method: HTTPSocket>>getResponseUpTo: (in category 'as yet unclassified') ----- getResponseUpTo: markerString "Keep reading until the marker is seen. Return three parts: header, marker, beginningOfData. Fails if no marker in first 2000 chars." + | buf position bytesRead tester mm tries | - | buf response bytesRead tester mm tries | buf := String new: 2000. + position := 0. - response := WriteStream on: buf. tester := 1. mm := 1. tries := 3. [tester := tester - markerString size + 1 max: 1. "rewind a little, in case the marker crosses a read boundary" + tester to: position do: [:tt | - tester to: response position do: [:tt | (buf at: tt) = (markerString at: mm) ifTrue: [mm := mm + 1] ifFalse: [mm := 1]. "Not totally correct for markers like xx0xx" mm > markerString size ifTrue: ["got it" ^ Array with: (buf copyFrom: 1 to: tt+1-mm) with: markerString + with: (buf copyFrom: tt+1 to: position)]]. + tester := 1 max: position. "OK if mm in the middle" + (position < buf size) & (self isConnected | self dataAvailable) - with: (buf copyFrom: tt+1 to: response position)]]. - tester := 1 max: response position. "OK if mm in the middle" - (response position < buf size) & (self isConnected | self dataAvailable) & ((tries := tries - 1) >= 0)] whileTrue: [ (self waitForDataUntil: (Socket deadlineSecs: 5)) ifFalse: [ Transcript show: ' <response was late> ']. bytesRead := self primSocket: socketHandle receiveDataInto: buf + startingAt: position + 1 count: buf size - position. + position := position + bytesRead]. - startingAt: response position + 1 count: buf size - response position. - "response position+1 to: response position+bytesRead do: [:ii | - response nextPut: (buf at: ii)]. totally redundant, but needed to advance position!!" - response instVarAt: 2 "position" put: - (response position + bytesRead)]. "horrible, but fast" + ^ Array with: (buf copyFrom: 1 to position) - ^ Array with: response contents with: '' with: '' "Marker not found and connection closed" !

1 0

The Trunk: Kernel-tbn.288.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

Torsten Bergmann uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tbn.288.mcz ==================== Summary ==================== Name: Kernel-tbn.288 Author: tbn Time: 6 November 2009, 11:34:20 am UUID: aad7e55c-fd95-f744-8a85-e7b176c70810 Ancestors: Kernel-ul.287 categorize and format ChronologyConstants>>initialize as a first commit test =============== Diff against Kernel-ul.287 =============== Item was changed: + ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') ----- - ----- Method: ChronologyConstants class>>initialize (in category 'as yet unclassified') ----- initialize + "ChronologyConstants initialize" + + SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" - "ChronologyConstants initialize" SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" SecondsInDay := 86400. SecondsInHour := 3600. SecondsInMinute := 60. NanosInSecond := 10 raisedTo: 9. NanosInMillisecond := 10 raisedTo: 6. DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday). MonthNames := #(January February March April May June July August September October November December). DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31) !

1 0

Programming Language Achievement Award
by Andrew P. Black 09 Nov '09

09 Nov '09

Every year, ACM Special Interest Group on Programming Languages (SIGPLAN) names a distinguished member of the PL community as recipient of the Programming Language Achievement Award. Nominations for this award close on 5th January. The Programming Languages Achievement Award is given to recognize an individual (or individuals) who has made a significant and lasting contribution to the field of programming languages. The contribution can be a single event or a life-time of achievement. The award includes a prize of $5,000. Recent recipients of the award include Rod Burstall, Barbara Liskov, and Niklaus Wirth. Nominations can be submitted at any time to the secretary of SIGPLAN (secretary_sigplan(a)acm.org). Details of the nomination process an be found at http://www.sigplan.org/award-achievement.htm . Please consider nominating a member of this community for this award.

1 0

source.squeak.org stuck (was: [squeak-dev] The Trunk: ST80-dtl.64.mcz)
by David T. Lewis 09 Nov '09

09 Nov '09

FYI: I was in the process of saving three related package updates, and I have apparently wedged the server again. I will not be able to address any problems until later today. It is possible that the ST80-dtl.64 update will need to be reverted, since it's missing the related changes in Morphic and System. If Morphic-dtl.224 shows up on the server, that may need to be reverted for the same reason. I will complete the updates later today (about 12 hours from now). Dave On Mon, Nov 09, 2009 at 01:06:21PM +0000, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of ST80 to project The Trunk: > http://source.squeak.org/trunk/ST80-dtl.64.mcz > > ==================== Summary ==================== > > Name: ST80-dtl.64 > Author: dtl > Time: 9 November 2009, 9:02:38 am > UUID: 7a7b05e8-b147-4aa4-a732-3b083bc39d05 > Ancestors: ST80-nice.63 > > Continue factoring Project into MVCProject and MorphicProject. Add method category 'enter' for methods associated with entering one project from another, including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is significantly modified. Changes are in packages System, Morphic, and ST-80. >

1 0

The Trunk: ST80-dtl.64.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.64.mcz ==================== Summary ==================== Name: ST80-dtl.64 Author: dtl Time: 9 November 2009, 9:02:38 am UUID: 7a7b05e8-b147-4aa4-a732-3b083bc39d05 Ancestors: ST80-nice.63 Continue factoring Project into MVCProject and MorphicProject. Add method category 'enter' for methods associated with entering one project from another, including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is significantly modified. Changes are in packages System, Morphic, and ST-80. =============== Diff against ST80-nice.63 =============== Item was added: + ----- Method: MVCProject>>pauseSoundPlayers (in category 'enter') ----- + pauseSoundPlayers + "Pause sound players, subject to preference settings" + + Smalltalk at: #ScorePlayer + ifPresentAndInMemory: [:playerClass | playerClass + allSubInstancesDo: [:player | player pause]]! Item was added: + ----- Method: MVCProject>>scheduleProcessForEnter: (in category 'enter') ----- + scheduleProcessForEnter: showZoom + "Complete the enter: by launching a new process" + + | newProcess | + SystemWindow clearTopWindow. "break external ref to this project" + newProcess := [ + ScheduledControllers resetActiveController. "in case of walkback in #restore" + showZoom ifFalse: [ScheduledControllers restore]. + ScheduledControllers searchForActiveController + ] fixTemps newProcess priority: Processor userSchedulingPriority. + newProcess resume. "lose the current process and its referenced morphs" + Processor terminateActive + ! Item was added: + ----- Method: MVCProject>>viewLocFor: (in category 'display') ----- + viewLocFor: exitedProject + "Look for a view of the exitedProject, and return its center" + + (world controllerWhoseModelSatisfies: [:p | p == exitedProject]) + ifNotNilDo: [:ctlr | ^ctlr view windowBox center]. + ^Sensor cursorPoint "default result"! Item was added: + ----- Method: MVCProject>>setWorldForEnterFrom:recorder: (in category 'enter') ----- + setWorldForEnterFrom: old recorder: recorderOrNil + "Prepare world for enter." + + World := nil. "Signifies MVC" + Smalltalk at: #ScheduledControllers put: world + ! Item was added: + ----- Method: MVCProject>>setWorldForEmergencyRecovery (in category 'enter') ----- + setWorldForEmergencyRecovery + "Prepare world for enter with an absolute minimum of mechanism. + An unrecoverable error has been detected in an isolated project." + + World := nil. + Smalltalk at: #ScheduledControllers put: world. + ScheduledControllers restore + ! Item was added: + ----- Method: MVCProject>>armsLengthCommand:withDescription: (in category 'file in/out') ----- + armsLengthCommand: aCommand withDescription: aString + | pvm | + "Set things up so that this aCommand is sent to self as a message + after jumping to the parentProject. For things that can't be executed + while in this project, such as saveAs, loadFromServer, storeOnServer. See + ProjectViewMorph step." + + parentProject ifNil: [^ self inform: 'The top project can''t do that']. + pvm := parentProject findProjectView: self. + pvm armsLengthCommand: {self. aCommand}. + self exit + !

1 0

Waiting forever on squeaksource (citezen)
by Torsten Bergmann 09 Nov '09

09 Nov '09

>This kind of mail UPSET me. Why? The wiki page of the "Citezen" project clearly states that the project can be loaded in Pharo easily - so whats wrong with Miguel's post suggesting to use the distribution/image that may provide a painless installation for the Citezen code (which is Pharo in this case) >If you wish be lost in the fog of boredom and you only interest is Web, >well go Pharo (or PHP or Perl or Python) "Citezen" doesnt look like a web thing to me and Seaside is still running on Squeak too. Hey: we now have several squeak distro's (Squeak, Pharo, Croquet, Cuis, eToys, ST80, FunSqueak, ...) each satisfying special needs of parts of the community. There is a reason for any of them, otherwise they wouldnt exist. We dont need another x vs. y image discussion... Bye T. -- Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3.5 - sicherer, schneller und einfacher! http://portal.gmx.net/de/go/chbrowser

1 0

Daily Commit Log
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-November/001735.h… Name: System-dtl.162 Ancestors: System-dtl.161 Move three methods from MorphicProject back to Project, undoing prior change. These are required for creating and entering an MVC project from Morphic. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001736.h… Name: Morphic-dtl.222 Ancestors: Morphic-ar.221 Move three methods from MorphicProject back to Project, undoing prior change. These are required for creating and entering an MVC project from Morphic. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001737.h… Name: Kernel-nice.289 Ancestors: Kernel-tbn.288 Fix from http://code.google.com/p/pharo/issues/detail?id=1424 This will allow comparing a MethodProperties analogousCodeTo: an AdditionalMethodState et vice et versa ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001738.h… Name: Multilingual-nice.59 Ancestors: Multilingual-ar.58 File in fixes from http://bugs.squeak.org/view.php?id=7071 for handling unicode input ==== ERROR === Error: subscript is out of bounds: 0 8 November 2009 10:23:59 pm VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: nil hereChar: $ aheadChar: $ token: nil tokenType: nil currentComment: nil buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: nil hereType: nil hereMark: nil hereEnd: nil prevMark: nil prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: nil tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>scan: Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]} Previous message: [Pkg] The Trunk: Kernel-nice.289.mcz Next message: [Pkg] The Trunk: KernelTests-nice.106.mcz Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] More information about the Packages mailing list ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001739.h… Name: KernelTests-nice.106 Ancestors: KernelTests-nice.105 Add a test for Float storeOn: (strange, I thought I already commited this one) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001740.h… Name: ST80-nice.63 Ancestors: ST80-dtl.62 Fix from http://bugs.squeak.org/view.php?id=7071 for unicode character input ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001741.h… Name: Morphic-nice.223 Ancestors: Morphic-dtl.222 Fix from http://bugs.squeak.org/view.php?id=7071 for unicode input ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001742.h… Name: Graphics-nice.88 Ancestors: Graphics-nice.87 clean-up isSelfEvaluating ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001743.h… Name: CollectionsTests-nice.108 Ancestors: CollectionsTests-nice.107 clean-up isSelfEvaluating ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001744.h… Name: Collections-nice.184 Ancestors: Collections-ar.183 clean-up isSelfEvaluating ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001745.h… Name: KernelTests-nice.107 Ancestors: KernelTests-nice.106 clean-up isSelfEvaluating ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001746.h… Name: Tools-nice.140 Ancestors: Tools-nice.139 clean-up isSelfEvaluating =============================================

1 0

The Trunk: Kernel-nice.290.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.290.mcz ==================== Summary ==================== Name: Kernel-nice.290 Author: nice Time: 9 November 2009, 12:25:05 pm UUID: 4cff06dd-bd14-4b39-8867-ff5f1331f558 Ancestors: Kernel-nice.289 clean-up isSelfEvaluating =============== Diff against Kernel-nice.289 =============== Item was removed: - ----- Method: Object>>isSelfEvaluating (in category 'self evaluating') ----- - isSelfEvaluating - "Answer true if the receiver will print in a format evaluating to itself, that is - (Compiler evaluate: self printString) = self" - - ^ self isLiteral! Item was removed: - ----- Method: Fraction>>isSelfEvaluating (in category 'self evaluating') ----- - isSelfEvaluating - ^ true! Item was removed: - ----- Method: Class>>isSelfEvaluating (in category 'self evaluating') ----- - isSelfEvaluating - ^ true! Item was removed: - ----- Method: Boolean>>isSelfEvaluating (in category 'self evaluating') ----- - isSelfEvaluating - ^ true! Item was removed: - ----- Method: Metaclass>>isSelfEvaluating (in category 'testing') ----- - isSelfEvaluating - ^ true!

1 0

The Trunk: Tools-nice.140.mcz
by commits＠source.squeak.org 09 Nov '09

09 Nov '09

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.140.mcz ==================== Summary ==================== Name: Tools-nice.140 Author: nice Time: 9 November 2009, 12:22:56 pm UUID: b12808f4-1605-4e5d-bdef-55a4dfdb2c9a Ancestors: Tools-nice.139 clean-up isSelfEvaluating =============== Diff against Tools-nice.139 =============== Item was removed: - ----- Method: PointerFinder>>isSelfEvaluating (in category 'self evaluating') ----- - isSelfEvaluating - ^ false!

1 0

← Newer
1
...
27
28
29
30
31
32
33
...
36
Older →

Jump to page: